11 lines
239 B
Text
11 lines
239 B
Text
|
IDENTIFICATION DIVISION.
|
||
|
|
PROGRAM-ID. PROCRUSTES-PROGRAM.
|
||
|
|
DATA DIVISION.
|
||
|
|
WORKING-STORAGE SECTION.
|
||
|
|
01 WS-EXAMPLE.
|
||
|
|
05 X PIC 999.
|
||
|
|
PROCEDURE DIVISION.
|
||
|
|
MOVE 1002 TO X.
|
||
|
|
DISPLAY X UPON CONSOLE.
|
||
|
|
STOP RUN.
|