Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. PROCEDURE DIVISION. DISPLAY LOW-VALUES. DISPLAY HIGH-VALUES. STOP RUN.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE LOW-VALUES TO A. DISPLAY A.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE HIGH-VALUES TO A. DISPLAY A.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. * MOVE 'PRIMARY' TO A. * MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(7). 01 B PIC x(10). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC x(10). 01 B PIC x(7). PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9(10) USAGE COMP-3. 01 B PIC 9(7) USAGE COMP-3. PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9(10) USAGE COMP-3. 01 B PIC 9(7) USAGE COMP-3. PROCEDURE DIVISION. MOVE 'PRIMARY' TO A. MOVE 'PRIMARY' TO B.
...
-
1 2 3 4
IDENTIFICATION DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5
IDENTIFICATION DIVISION. DATE-WRITTEN. 12-12-12 PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6
IDENTIFICATION DIVISION. PROGRAM-ID. MMV. DATE-WRITTEN. 12-12-12 PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. MMV. DATE-WRITTEN. 12-12-12 ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. MMV. READ-ON. 12-12-12 ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. MMV. READ-ON. 12-12-12. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. MMV. READ-ON.12-12-12. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID.MMV READ-ON.12-12-12 ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID.MMV. READ-ON.12-12-12 ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID.MMV. READ-ON.12-12-12. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. DISPLAY 'HI!'. STOP RUN.
-
1 2 3 4 5 6 7
IDENTIFICATION DIVISION. ENVIRONMENT DIVISION. DATA DIVISION. PROCEDURE DIVISION. 100-MAIN-MODULE. DISPLAY 'HELLO PETE'. STOP RUN.
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...
-
1 2 3 4 5 6 7 8 9
000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. NUMBERS. 000300 AUTHOR. TEEBEE. 000400**************************************************************** 000500* Simply transfer the present program to your favorite * 000600* mainframe computer, compile it, link it and submit some * 000700* appropriate JCL to run it. Its output tells the answer. * 000800**************************************************************** 000900 ENVIRONMENT DIVISION.
...
-
1 2 3 4 5 6 7 8
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 n PIC Z9 .
...


