1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                     
PROGRAM-ID. COBOLPGM.
INPUT-OUTPUT SECTION.                                                                           
ENVIRONMENT DIVISION.
FILE CONTROL.
SELECT INPUTFILE ASSIGN TO INDD.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                                   
PROGRAM-ID. COBOLPGM.
ENVIRONMENT DIVISION.
FILE-CONTROL.
SELECT INPUTFILE ASSIGN TO INDD.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
RECORDING MODE IS F
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                                   
PROGRAM-ID. COBOLPGM.
ENVIRONMENT DIVISION.
FILE CONTROL.
SELECT INPUTFILE ASSIGN TO INDD.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
RECORDING MODE IS F
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                                   
PROGRAM-ID. COBOLPGM.
ENVIRONMENT SECTION.
FILE CONTROL.
SELECT INPUTFILE ASSIGN TO INDD.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
RECORDING MODE IS F
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                                   
PROGRAM-ID.COBOLPGM.
ENVIRONMENT SECTION.
FILE CONTROL.
SELECT INPUTFILE ASSIGN TO INDD.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
RECORDING MODE IS F
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                                   
PROGRAM ID.COBOLPGM.
ENVIRONMENT SECTION.
FILE CONTROL.
SELECT INPUTFILE ASSIGN TO INDD.
DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
RECORDING MODE IS F
 ...

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. YH00142.                                    
       
 ENVIRONMENT DIVISION.                                           
 DATA DIVISION. 
       
 
 WORKING-STORAGE SECTION.                                         
 01  WS-START                       PIC X(40)                     
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
 PROGRAM-ID. YH00142.                                    
       
 ENVIRONMENT DIVISION.                                           
 DATA DIVISION. 
       
 
 WORKING-STORAGE SECTION.                                         
 01  WS-START                       PIC X(40)                     
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
 PROGRAM-ID. YH00142.                                    
       
 ENVIRONMENT DIVISION.                                           
 DATA DIVISION. 
       
 
 WORKING-STORAGE SECTION.                                         
 01  WS-START                       PIC X(40)                     
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
 PROGRAM-ID. YH00142.                                    
       
 ENVIRONMENT DIVISION.                                           
 DATA DIVISION. 
       
 
 WORKING-STORAGE SECTION.                                         
 01  WS-START                       PIC X(40)                     
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. YH00142.                                    
       * ***************************************************************
        ENVIRONMENT DIVISION.                                           
       DATA DIVISION. 
       ******************************************************************
       * INPUT  -                                                       *
       * -------------                                                  *
       * DFHAID           : COPYBOOK USED FOR VALIDATING FUNCTION KEYS  *
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. YH00142.                                    
       * ***************************************************************
        ENVIRONMENT DIVISION.                                           
       DATA DIVISION. 
       ******************************************************************
       * INPUT  -                                                       *
       * -------------                                                  *
       * DFHAID           : COPYBOOK USED FOR VALIDATING FUNCTION KEYS  *
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. YH00142.                                    
       * ***************************************************************
        ENVIRONMENT DIVISION.                                           
       DATA DIVISION. 
       ******************************************************************
       * INPUT  -                                                       *
       * -------------                                                  *
       * DFHAID           : COPYBOOK USED FOR VALIDATING FUNCTION KEYS  *
 ...

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.     HELLOWORLD.
000300
000400*
000500 ENVIRONMENT DIVISION.
000600 CONFIGURATION SECTION.
000700 SOURCE-COMPUTER. RM-COBOL.
000800 OBJECT-COMPUTER. RM-COBOL.
000900
 ...

1
2
3
4
5
6
7
8
       identification division.
       program-id. cob001.
 
       environment division.
 
       data division.
       working-storage section.
       01 contador pic 9(2) value 0.

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
IDENTIFICATION DIVISION.
PROGRAM-ID teste.
 
ENVIROMENT DIVISION.
 
DATA DIVISION.
 
PROCEDURE DIVISION.
    DISPLAY "Linhas em COBOL".

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
....|....1....|....2....|....3....|....4....|....5....|....6....|....7..
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.
 ...

1
2
3
4
5
6
7
8
9
....|....1....|....2....|....3....|....4....|....5....|....6....|....7..
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.
 ...

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
* Sample COBOL program
IDENTIFICATION DIVISION.
PROGRAM-ID. hello.
PROCEDURE DIVISION.
DISPLAY “Hello World!”.
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. FIRST.
       
       ENVIRONMENT DIVISION.
       
       DATA DIVISION.
       
       PROCEDURE DIVISION.
             DISPLAY 'HELLO'.

1
2
3
4
5
6
7
       IDENTIFICATION DIVISION.
       PROGRAM-ID. FIRST.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
             DISPLAY 'HELLO'
             STOP RUN.

1
2
3
4
5
6
7
       IDENTIFICATION DIVISION.
       PROGRAM-ID.FIRST.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
             DISPLAY 'HELLO'
             STOP RUN.

1
2
3
4
5
6
7
       IDENTIFICATION DIVISION.
       PROGRAM-ID.FIRST.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
             DISPLAY 'HELLO'.
             STOP RUN.