COBOL Cheat Sheet

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
PROCEDURE DIVISION.
    DISPLAY 'Hello, World!'.
    STOP RUN.

IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROGRAM.

ENVIRONMENT DIVISION.

DATA DIVISION.

PROCEDURE DIVISION.
    STOP RUN.

      * This is a comment (column 7)
      *> Modern comment style
      DISPLAY 'Code'.  *> Inline comment

      * Columns 1-6: Sequence number
      * Column 7: Indicator (*, /, -, D)
      * Columns 8-11: Area A (divisions, sections)
      * Columns 12-72: Area B (statements)
      * Columns 73-80: Program name

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-NAME           PIC X(30).
01  WS-AGE            PIC 99.
01  WS-SALARY         PIC 9(7)V99.
01  WS-COUNTER        PIC 999 VALUE ZERO.

01  WS-NUM            PIC 9(5).      *> 5 digits
01  WS-DECIMAL        PIC 9(5)V99.   *> 5 digits, 2 decimal
01  WS-ALPHA          PIC A(10).     *> Alphabetic
01  WS-ALPHANUM       PIC X(20).     *> Alphanumeric
01  WS-SIGNED         PIC S9(5).     *> Signed number

01  WS-EMPLOYEE.
    05  WS-EMP-ID         PIC 9(5).
    05  WS-EMP-NAME.
        10  WS-FIRST-NAME PIC X(15).
        10  WS-LAST-NAME  PIC X(20).
    05  WS-EMP-SALARY     PIC 9(7)V99.

01  WS-DATE-NUMERIC   PIC 9(8).
01  WS-DATE-FORMATTED REDEFINES WS-DATE-NUMERIC.
    05  WS-YEAR           PIC 9(4).
    05  WS-MONTH          PIC 99.
    05  WS-DAY            PIC 99.

PROCEDURE DIVISION.
MAIN-LOGIC.
    PERFORM INITIALIZE-PROGRAM.
    PERFORM PROCESS-DATA.
    PERFORM CLEANUP-PROGRAM.
    STOP RUN.

INITIALIZE-PROGRAM.
    DISPLAY 'Starting program'.

PROCESS-DATA.
    DISPLAY 'Processing'.

CLEANUP-PROGRAM.
    DISPLAY 'Cleanup'.

PERFORM PROCESS-RECORD
    UNTIL WS-COUNTER > 10.

PROCESS-RECORD.
    ADD 1 TO WS-COUNTER.
    DISPLAY 'Counter: ' WS-COUNTER.

PERFORM VARYING WS-COUNTER FROM 1 BY 1
    UNTIL WS-COUNTER > 100
    DISPLAY 'Count: ' WS-COUNTER
END-PERFORM.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT EMPLOYEE-FILE
        ASSIGN TO 'EMPLOYEE.DAT'
        ORGANIZATION IS SEQUENTIAL
        ACCESS MODE IS SEQUENTIAL
        FILE STATUS IS WS-FILE-STATUS.

OPEN INPUT EMPLOYEE-FILE.
READ EMPLOYEE-FILE
    AT END MOVE 'Y' TO WS-EOF
END-READ.
CLOSE EMPLOYEE-FILE.

FILE-CONTROL.
    SELECT INDEXED-FILE
        ASSIGN TO 'EMPIDX.DAT'
        ORGANIZATION IS INDEXED
        ACCESS MODE IS DYNAMIC
        RECORD KEY IS EMP-ID
        FILE STATUS IS WS-STATUS.

ADD 10 TO WS-COUNTER.
SUBTRACT 5 FROM WS-BALANCE.
MULTIPLY WS-PRICE BY WS-QUANTITY GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-COUNT GIVING WS-AVERAGE
    REMAINDER WS-REMAIN.

COMPUTE WS-RESULT = (WS-A + WS-B) * WS-C / WS-D.
COMPUTE WS-TOTAL = WS-PRICE * WS-QTY * (1 + WS-TAX-RATE).

COMPUTE WS-ROUNDED = WS-VALUE
    ON SIZE ERROR
        DISPLAY 'Overflow error'
END-COMPUTE.

IF WS-AGE >= 18
    DISPLAY 'Adult'
ELSE
    DISPLAY 'Minor'
END-IF.

EVALUATE WS-GRADE
    WHEN 'A'
        DISPLAY 'Excellent'
    WHEN 'B'
        DISPLAY 'Good'
    WHEN 'C'
        DISPLAY 'Average'
    WHEN OTHER
        DISPLAY 'Failed'
END-EVALUATE.

IF WS-SALARY > 50000 AND WS-YEARS > 5
    OR WS-LEVEL = 'SENIOR'
    MOVE 'ELIGIBLE' TO WS-STATUS
END-IF.

STRING WS-FIRST-NAME DELIMITED BY SPACE
       ' ' DELIMITED BY SIZE
       WS-LAST-NAME DELIMITED BY SPACE
    INTO WS-FULL-NAME
END-STRING.

UNSTRING WS-FULL-NAME
    DELIMITED BY SPACE
    INTO WS-FIRST-NAME
         WS-LAST-NAME
END-UNSTRING.

INSPECT WS-STRING TALLYING WS-COUNT FOR ALL 'A'.
INSPECT WS-STRING REPLACING ALL 'OLD' BY 'NEW'.

CALL 'SUBPROG' USING WS-PARAM1 WS-PARAM2.

CALL 'CALCPROG' USING BY REFERENCE WS-INPUT
                      BY CONTENT WS-CONSTANT.

IDENTIFICATION DIVISION.
PROGRAM-ID. SUBPROG.
DATA DIVISION.
LINKAGE SECTION.
01  LS-PARAM1         PIC X(10).
01  LS-PARAM2         PIC 9(5).
PROCEDURE DIVISION USING LS-PARAM1 LS-PARAM2.
    DISPLAY LS-PARAM1.
    EXIT PROGRAM.