1
2
3
4
5
6
7
8
9
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLO.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 PROCEDURE DIVISION.
000600
000700 PROGRAM-BEGIN.
000800     DISPLAY "Hello world".
000900
 ...

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.
 
PROCEDURE DIVISION.
 ...

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.
 
PROCEDURE DIVISION.
 ...

1
2
3
4
5
6
7
8
9
PROGRAM-ID. SAMPLE.
ENVIRONMENT DIVISION.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
77 n PIC Z9.
 
PROCEDURE DIVISION.
ACCEPT n
 ...

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 . 
PROCEDURE DIVISION.
ACCEPT n
PERFORM UNTIL n = 42
 ...

1
2
3
4
5
6
7
8
9
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLO.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 PROCEDURE DIVISION.
000600
000700 PROGRAM-BEGIN.
000800     DISPLAY "Hello world".
000900
 ...

1
2
3
4
5
6
7
8
9
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLO.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 PROCEDURE DIVISION.
000600
000700 PROGRAM-BEGIN.
000800     DISPLAY "Hello world".
000900
 ...

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 .
PROCEDURE DIVISION.
ACCEPT n
PERFORM UNTIL n = 42
 ...

1
2
3
4
5
6
7
8
9
000001 @OPTIONS MAIN
000002 Identification Division.
000003 Program-Id.  Hello.
000004 Environment Division.
000005 Configuration Section.
000006 Source-Computer.  IBM-PC.
000007 Object-Computer.  IBM-PC.
000008 Data Division.
000009 Procedure Division.
 ...

1
2
3
4
5
6
7
8
9
000002 Identification Division.
000003 Program-Id.  Hello.
000004 Environment Division.
000005 Configuration Section.
000006 Source-Computer.  IBM-PC.
000007 Object-Computer.  IBM-PC.
000008 Data Division.
000009 Procedure Division.
000010 Hello-Start.
 ...

1
2
3
4
5
6
7
8
9
000001 @OPTIONS MAIN
000002 Identification Division.
000003 Program-Id.  Hello.
000004 Environment Division.
000005 Configuration Section.
000006 Source-Computer.  IBM-PC.
000007 Object-Computer.  IBM-PC.
000008 Data Division.
000009 Procedure Division.
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DISACP. 
      * Cuidado con las columnas (el * va en la 7 y la D de DATA en la 8) 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       1   OK PIC X.
       PROCEDURE DIVISION.
       PARRAFO.
           DISPLAY "Esta es una prueba en RM-COBOL"
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID.     HOLAMUNDO.
 
 
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
 
 
DATA DIVISION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID.     HOLAMUNDO.
 
 
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
 
 
DATA DIVISION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID.     HOLAMUNDO.
 
 
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
 
 
DATA DIVISION.
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROG001.
       AUTHOR. JUAN ALBENIZ.
       DATA DIVISION.
       working-storage section.
       77  wtecla PIC x.
       PROCEDURE DIVISION.
       programa.
           DISPLAY "Hola mundo".
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2) value 96.
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2) value 96.
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2) value '96'.
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. sample1.
environment division.
data division.
file section.
working-storage section.
01 ws-name pic X(10).
01 WS-num pic 9(2).
Procedure division.
 ...

1
 

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. SENTNCES.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 A PIC 9 VALUE ZEROS. 
 
000700 PROCEDURE DIVISION.
000800
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID.  ReportExampleA.
        AUTHOR.  Michael Coughlan.
        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
           SELECT SalesFile ASSIGN TO "GBSALES.DAT"
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT PrintFile ASSIGN TO "SALESREPORTA.LPT".
 ...