1
2
3
4
5
6
7
8
9
Identification division.
Program- id. Subverb.
Environment division.
Data division.
Working-storage section.
        77 a pic s9(3)v9(2) value 0.
        77      b pic   s9(3)v9(2) value 0.
        77 e-b pic +z(3).z(2).
Procedure division.
 ...

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
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
9
      ******************************************************************00001003
      *             IDENTIFICATION DIVISION.                            00002003
      ******************************************************************00003003
                                                                        00004003
       IDENTIFICATION DIVISION.                                         00010002
       PROGRAM-ID. TRH302.                                              00020002
      ******************************************************************00021003
      *          AUTHOR. SHIV GAURAV                                    00022003
      *          DATE WRITTEN. 09/03/2012.                              00023003
 ...

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
IDENTIFICATION DIVISION.
PROGRAM-ID.  AcceptAndDisplay.
AUTHOR.  Michael Coughlan.
* Uses the ACCEPT and DISPLAY verbs to accept a student record 
* from the user and display some of the fields.  Also shows how
* the ACCEPT may be used to get the system date and time.
 
* The YYYYMMDD in "ACCEPT  CurrentDate FROM DATE YYYYMMDD." 
* is a format command that ensures that the date contains a 
 ...

1
2
3
4
5
6
7
{
        num = $1;
        if(num == 42)
                exit;
        else
                printf("%d\n", num);
}

1
2
3
4
5
6
7
8
9
identification division.
program-id. add.
environment division.
data division.
working-storage section.
77 a pic 9(2).
77 b pic 9(2).
77 c pic 9(3).
procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. add.
environment division.
data division.
working-storage section.
77 a pic 9(2)value 9.
77 b pic 9(2) value 9.
77 c pic 9(3).
procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. add.
environment division.
data division.
working-storage section.
77 a pic 9(2)value '9'.
77 b pic 9(2) value '9'.
77 c pic 9(3).
procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. add.
environment division.
data division.
working storage section.
77 a pic 9(2)value '9'.
77 b pic 9(2) value '9'.
77 c pic 9(3).
procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program id. add.
environment division.
data division.
working storage section.
77 a pic 9(2)value '9'.
77 b pic 9(2) value '9'.
77 c pic 9(3).
procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
environment division.
data division.
working storage section.
77 a pic 9(2)value '9'.
77 b pic 9(2) value '9'.
77 c pic 9(3).
procedure division.
para1.
 ...

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
add a to b giving c

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
        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
IDENTIFICATION DIVISION.
PROGRAM-ID.  ShortestProgram.
 
PROCEDURE DIVISION.
DisplayPrompt.
    DISPLAY "I did it".
    STOP RUN.

1
2
3
4
5
6
7
IDENTIFICATION DIVISION.
PROGRAM-ID.  Shortest Program.
 
PROCEDURE DIVISION.
DisplayPrompt.
    DISPLAY "I did it".
    STOP RUN.

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. 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. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 
 ...

1
Print "Hello"