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
- Java7
- 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 9
IDENTIFICATION DIVISION. PROGRAM-ID. FIRSTPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC S9(3)v9(2). 01 DAT2 PIC s9(3) VALUE 10. 01 RSLT PIC S9(3)V9(2). PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. FIRSTPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC S9(3)v9(2). 01 DAT2 PIC s9(3) VALUE 10. 01 RSLT PIC S9(3)V9(2). PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. FIRSTPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC zz9(3)v9(2). 01 DAT2 PIC s9(3) VALUE 10. 01 RSLT PIC S9(3)V9(2). PROCEDURE DIVISION.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. FIRSTPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC zz9(3)v9(2). 01 DAT2 PIC s9(3) VALUE 10. PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. FIRSTPRG. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC zz9(3)v9(2). 01 DAT2 PIC s9(3) VALUE 10. PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC zz9(3)v9(2). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC zz999v9(2). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC 9(4)v9(2). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC s9(4)v9(2). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC s9(4). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC s9(4). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC s9(4). 01 DAT2 PIC s9(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 99 VALUE 0. PROCEDURE DIVISION. IF A IS POSITIVE DISPLAY 'POS'
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC X(4). 01 DAT2 PIC X(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. CIMB. ENVIRONMENT DIVISION. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 WS-GR1. 05 WS-NAME PIC X(10) VALUE 'COBOL'. 05 WS-EMPNUM PIC 9(5) VALUE 44444.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-GR1. 05 WS-NAME PIC X(10) VALUE 'COBOL'. 05 WS-EMPNUM PIC 9(5) VALUE 44444. 01 WS-GR2.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 99 VALUE 0. PROCEDURE DIVISION. IF A IS POSITIVE DISPLAY 'POS'
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC X(4). 01 DAT2 PIC X(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 DAT1 PIC X(4). 01 DAT2 PIC X(3). PROCEDURE DIVISION. MAIN-PARA.
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. Environment division. WORKING-STORAGE SECTION. 01 DAT1 PIC X(4). 01 DAT2 PIC X(3). PROCEDURE DIVISION. MAIN-PARA. MOVE '006' TO DAT2
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG1. WORKING-STORAGE SECTION. 01 DAT1 PIC X(4). 01 DAT2 PIC X(3). PROCEDURE DIVISION. MAIN-PARA. MOVE '006' TO DAT2 MOVE '0006' TO DAT1
...
-
1
set environment
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG5. * ENVIRONMENT DIVISION. * INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT STORE-FILE-IN ASSIGN TO KEYBOARD
...
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. PROGRAM-ID. PROG 5. * ENVIRONMENT DIVISION. * INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT STORE-FILE-IN ASSIGN TO KEYBOARD
...
-
1
-
1 2 3 4 5
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO-WORLD. PROCEDURE DIVISION. DISPLAY 'Hello, world'. STOP RUN.
-
1 2 3 4 5 6 7 8 9
IDENTIFICATION DIVISION. ****************************************************************** * PROGRAM-ID. PERFEITO. AUTHOR. WIKIPEDIA. DATE-WRITTEN. 20/08/2009. DATE-COMPILED. * ******************************************************************
...
-
1 2 3 4 5 6 7 8 9
00010 IDENTIFICATION DIVISION. 00020 PROGRAM-ID. PROVA. 00030 AUTHOR SKRINKOZ. 00040 00050 DATA DIVISION. 00060 01 TEXT-OUT PIC X(12) VALUE 'dai funziona'. 00070 00080 PROCEDURE DIVISION. 00090 MAIN-PARAGRAPH.
...
-
1 2 3 4 5 6 7 8 9
00010 IDENTIFICATION DIVISION. 00020 PROGRAM-ID. PROVA. 00030 AUTHOR SKRINKOZ. 00040 00050 DATA DIVISION. 00060 01 TEXT-OUT PIC X(12) VALUE 'dai funziona'. 00070 PROCEDURE DIVISION. 00080 MAIN-PARAGRAPH. 00090 DISPLAY TEXT-OUT
...
-
1 2 3 4 5 6 7 8 9
00010 IDENTIFICATION DIVISION. 00020 PROGRAM-ID. PROVA. 00030 AUTHOR SKRINKOZ. 00040 00050 DATA DIVISION. 00060 01 TEXT-OUT PIC X(12) VALUE 'dai funziona'. 00070 PROCEDURE DIVISION. 00080 MAIN-PARAGRAPH. 00090 DISPLAY TEXT-OUT
...


