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
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
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROGRAM-NAME.
       DATA DIVISION.
       SCREEN SECTION.
       MESSAGE-SCREEN GROUP.
              BUTTON AT 3438 FOR 0206.
       PROCEDURE DIVISION.
       MAIN-ROUTINE SECTION.
       MAIN-ENTRY.
 ...

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

1
2
3
4
5
       IDENTIFICATION DIVISION.
       PROGRAM-ID.  ShortestProgram.
       PROCEDURE DIVISION.
              DISPLAY 'I did it'.
              STOP RUN.

1
2
3
4
5
       IDENTIFICATION DIVISION.
       PROGRAM-ID.  ShortestProgram.
       PROCEDURE DIVISION.
              DISPLAY "I did it".
              STOP RUN.

1
2
3
4
5
6
       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.  ShortestProgram.
 
       PROCEDURE DIVISION.
       DisplayPrompt.
        DISPLAY "I did it".
        STOP RUN.

1
2
3
4
5
6
00001 IDENTIFICATION DIVISION.
00002 PROGRAM-ID.  ShortestProgram.
00003 PROCEDURE DIVISION.
00004 DisplayPrompt.
00005    DISPLAY "I did it".
00006    STOP RUN.

1
2
3
4
5
6
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.  SCRDEMO.
000003 PROCEDURE DIVISION.
000004 DisplayPrompt.
000005  DISPLAY "I did it".
000006  STOP RUN.

1
2
3
4
5
6
000100  IDENTIFICATION DIVISION.
000200  PROGRAM-ID.  ShortestProgram.
000300  PROCEDURE DIVISION.
000400  DisplayPrompt.
000500      DISPLAY "I did it".
000600      STOP RUN.

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

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. SequenceProgram.
AUTHOR. amod aryan.                     
 
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. amod aryan.                     
 
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. amod aryan.                     
 
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
(define (margreteborg row col)
(cond ((< row col) #f)
((or (= 0 col) (= row col)) 1)
(else (+ (margreteborg (- row 1) col) (margreteborg (- row 1) (- col 1))))))
 
N (margreteborg 2 2)+(margreteborg 3 2)+(margreteborg 11 2)
(margreteborg 6 3)+(margreteborg 3 2)
.(margreteborg 12 5)- (margreteborg 5 3)
 ...

1
2
3
4
5
6
        IDENTIFICATION DIVISION.
        PROGRAM-ID. PROG1.
        PROCEDURE DIVISION.
        A0000-MAIN-PARA.
            DISPLAY “ WELCOME TO THE COBOL SESSION “
            STOP RUN.

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
FIRST-PARA.
    DISPLAY "Hello World".
STOP RUN.

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION
PROGRAM-ID HELLO-WORLD
ENVIRONMENT DIVISION
DATA DIVISION
PROCEDURE DIVISION
FIRST-PARA.
    DISPLAY "Hello World".
STOP RUN

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD.
 
 
       ENVIRONMENT DIVISION.
 
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD.
 
 
       ENVIRONMENT DIVISION.
 
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD.
 
 
       ENVIRONMENT DIVISION.
 
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD.
 
 
       ENVIRONMENT DIVISION.
 
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD.
 
 
       ENVIRONMENT DIVISION.
 
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 ...

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

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. ADDNO.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PIII.
OBJECT-COMPUTER. PIII.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(2).
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. ADDNO.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PIII.
OBJECT-COMPUTER. PIII.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(2).
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. ADDNO.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PIII.
OBJECT-COMPUTER. PIII.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(2).
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLOWORLD.
PROCEDURE DIVISION.
 
MAIN-LOGIC SECTION.
 BEGIN.
     
      DISPLAY "Hello world!".
     STOP RUN.
 ...