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

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

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

1
2
3
4
5
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLOWORLD.
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
IDENTIFICATION DIVISION.
PROGRAM-ID HELLOWORLD.
PROCEDURE DIVISION.
DISPLAY 'HELLO WORLD';
STOP RUN.

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

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

1
2
3
4
5
INDENTIFICATION DIVISION HELLO.
PROGRAM-ID HELLOWORLD.
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
IDENTIFICATION DIVISION.
PROGRAM-ID.    PCX194.  
 
ENVIRONMENT DIVISION.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
 
01 WS-CUSTOMER-ID1      PIC 9(10) value 1234567890.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID.    PCX194.  
 
ENVIRONMENT DIVISION.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
 
01 WS-CUSTOMER-ID1      PIC 9(10) value 1234567890.
 ...

1
2
3
4
5
6
7
8
9
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CONCOURS.
000030 ENVIRONMENT DIVISION.
000040 INPUT-OUTPUT SECTION.
000050 FILE-CONTROL.
000051
000060     SELECT F1 ASSIGN TO "equipe1.don"
000070     ORGANIZATION LINE SEQUENTIAL.
000080     SELECT F2 ASSIGN TO "equipe2.don"
 ...

1
2
3
4
5
6
7
8
9
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CONCOURS.
000030 ENVIRONMENT DIVISION.
000040 INPUT-OUTPUT SECTION.
000050 FILE-CONTROL.
000051
000060     SELECT F1 ASSIGN TO "equipe1.don"
000070     ORGANIZATION LINE SEQUENTIAL.
000080     SELECT F2 ASSIGN TO "equipe2.don"
 ...

1
2
3
4
5
6
7
8
9
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CONCOURS.
000030 ENVIRONMENT DIVISION.
000040 INPUT-OUTPUT SECTION.
000050 FILE-CONTROL.
000051
000060     SELECT F1 ASSIGN TO "equipe1.don"
000070     ORGANIZATION LINE SEQUENTIAL.
000080     SELECT F2 ASSIGN TO "equipe2.don"
 ...

1
2
3
4
5
6
7
8
9
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CONCOURS.
000030 ENVIRONMENT DIVISION.
000040 INPUT-OUTPUT SECTION.
000050 FILE-CONTROL.
000051
000060     SELECT F1 ASSIGN TO "equipe1.don"
000070     ORGANIZATION LINE SEQUENTIAL.
000080     SELECT F2 ASSIGN TO "equipe2.don"
 ...

1
2
3
4
5
6
7
8
9
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. CONCOURS.
000030 ENVIRONMENT DIVISION.
000040 INPUT-OUTPUT SECTION.
000050 FILE-CONTROL.
000051
000060     SELECT F1 ASSIGN TO "equipe1.don"
000070     ORGANIZATION LINE SEQUENTIAL.
000080     SELECT F2 ASSIGN TO "equipe2.don"
 ...

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. 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
000010 identification division.
000020*
000030*  open-cobol-quirks/missing-fd.cbl                 
000040*  Demonstrate OpenCobol mis-handling of missing FD
000050*  
000060*-----------------------------------------------------------------
000070*
000080 program-id. missing-fd. 
000090 author. BCS/JR.
 ...

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. SequenceProgram.
AUTHOR. Michael Coughlan.                     
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.
 ...

1
2
3
4
5
6
7
8
9
000100* HELLO.COB OpenCOBOL FAQ example
000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. SequenceProgram.
000400 AUTHOR. Michael Coughlan.                     
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
 ...

1
2
3
4
5
6
000100* HELLO.COB OpenCOBOL FAQ example
000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. hello.
000400 PROCEDURE DIVISION.
000500     DISPLAY "Hello World!".
000600     STOP RUN.

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. SequenceProgram.
AUTHOR. Michael Coughlan.                     
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. SequenceProgram.
AUTHOR. Michael Coughlan.                     
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. SequenceProgram.
AUTHOR. Michael Coughlan.                     
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.
 ...

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION.
PROGRAM-ID.  SmallestProgram.
 
PROCEDURE DIVISION.
DisplayGreeting.
   DISPLAY "Hello world".
   STOP RUN.
            

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION.
PROGRAM-ID.  SmallestProgram.
 
PROCEDURE DIVISION.
DisplayGreeting.
   DISPLAY "Hello world".
   STOP RUN.
                   

1
2
3
4
5
6
IDENTIFICATION DIVISION.
PROGRAM-ID. Small-PR.
PROCEDURE DIVISION.
DisplayGreeting.
DISPLAY "Hello, world".
STOP RUN.