cobol-interpreter-lab/lab-5/samples/assignment.cbl

10 lines
172 B
COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. ASSIGNMENT.
DATA DIVISION.
WORKING-STORAGE SECTION.
05 A PIC 9(2).
PROCEDURE DIVISION.
MOVE 1 TO A
DISPLAY A
STOP RUN.