1
2
3
4
5
      IDENTIFICATION DIVISION.
      PROGRAM-ID. HELLO-WORLD.
      PROCEDURE DIVISION.
          DISPLAY 'Hello, world'.
          STOP RUN.

1
2
3
4
5
6
       IDENTIFICATION DIVISION
       PROGRAM-ID.DISPLAY-HELLO.
       PROCEDURE DIVISION
       display-greeting
       DISPLAY"HELLO AMOD HOW R U?".
       STOP RUN.

1
2
3
4
5
      IDENTIFICATION DIVISION.
      PROGRAM-ID. HELLO-WORLD.
      PROCEDURE DIVISION.
          DISPLAY 'Hello, world'.
          STOP RUN.

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
USB\Vid_19D2&Pid_2000
ACPI\PNP0800\4&3A0C732&0
ROOT\LEGACY_NULL\0000
ROOT\LEGACY_LLTDIO\0000
PCI\VEN_8086&DEV_244E&SUBSYS_72671462&REV_E1\3&11583659&0&F0
ROOT\MS_L2TPMINIPORT\0000
PCI\VEN_8086&DEV_27CB&SUBSYS_72671462&REV_01\3&11583659&0&EB
PCIIDE\IDECHANNEL\4&975F2E&0&0
ACPI\PNP0A08\0
 ...

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
v################################################
v################################################
>###8995*\9-13\##>-p55:2**3$#!+59*:!3$9$$2+2p6v##
v############################################$<##
v##########################?#####################
1################################################
4#####?##########>v##############################
8##########>##v##$ ##############################
*###########>v#########################v-<#######
 ...

1
2
3
4
5
6
7
8
9
Er ist’s 
        
                   
        
        Frühling läßt sein blaues Band       
        
        wieder flattern durch die Lüfte;               
        
        süße, wohlbekannte Düfte     
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID. NUMBERS.
       AUTHOR. TEEBEE.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       OBJECT-COMPUTER. IBM-370.
       SOURCE-COMPUTER. IBM-370.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 ...

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
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 ws-phone.
           05 ws-no   pic 9(10) occurs 20 times. 
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 ws-phone.
           05 ws-no   pic 9(10) occurs 20 times. 
 ...

1
 

1
2
3
4
5
6
7
8
9
identification division.
program-id. CalcArea.
author. DTS Latin America Software.
*
data division.
working-storage section.
77 largura pic 9(003) value zeros.
77 altura pic 9(003) value zeros.
77 area-result pic 9(006) value zeros.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. CalcArea.
author. DTS Latin America Software.
*
data division.
working-storage section.
77 largura pic 9(003) value zeros.
77 altura pic 9(003) value zeros.
77 area-result pic 9(006) value zeros.
 ...

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. S.
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 PROCEDURE DIVISION.
     DISPLAY 'HAI'.
     STOP RUN.        

1
2
3
4
5
6
7
 IDENTIFICATION DIVISION.
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 PROCEDURE DIVISION.
     DISPLAY 'HAI'.
     STOP RUN.        

1
2
3
4
5
6
7
8
 IDENTIFICATION DIVISION.
 PROGRAM-ID S.
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 PROCEDURE DIVISION.
     DISPLAY 'HAI'.
     STOP RUN.        

1
 

1
2
3
4
5
6
7
8
9
int lim = 0x12345678; int pp = 256;
for (int i = 1; (lim-pp) / ((64 + i) + pp) != 0; i++) {
    if (atan(i - ((i / lim) * lim)) > 1.55) // > ~50
        lim = (lim / 50) * 40;
    int foo = lim; // bar
    for (int j = 0; j < 0x123456; j++)
        foo ^= (j >> 3) | (j << 29); // tidy
    pp &= foo; // in 42-0
    if (lim - ((lim / i) * i) == 0) {
 ...

1
 

1
2
3
4
5
6
7
8
9
  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. 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. SENTNCES.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
 
PROGRAM-BEGIN.
    DISPLAY "This program contains four DIVISIONS,".
     DISPLAY "three PARAGRAPHS".
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
 
PROGRAM-BEGIN.
  DISPLAY "Hello world".
 
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
 
PROGRAM-BEGIN.
  DISPLAY "Hello world".
 
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
 
PROGRAM-BEGIN.
  DISPLAY "Hello world".
 
 ...

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
 
PROGRAM-BEGIN.
  DISPLAY "Hello world".
 ...