Skip to content

Instantly share code, notes, and snippets.

@OlliV

OlliV/table.cbl

Last active August 19, 2016 00:32
Show Gist options
  • Save OlliV/9191ea750271c57aa030e64ab65e8957 to your computer and use it in GitHub Desktop.
Save OlliV/9191ea750271c57aa030e64ab65e8957 to your computer and use it in GitHub Desktop.
Download ZIP
x[1] in COBOL
Raw
table.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INDX PIC 9(1) VALUE 1.
01 WS-TABLE.
05 Nmbrs OCCURS 5 TIMES PIC 9(1).
PROCEDURE DIVISION.
PERFORM Init-Table VARYING INDX FROM 1 BY 1 UNTIL INDX>5.
DISPLAY 'WS-TABLE : ' WS-TABLE.
DISPLAY 'Nmbrs(2) : ' Nmbrs(2).
STOP RUN.
Init-Table.
MOVE INDX TO Nmbrs(INDX).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment