mirror of
https://github.com/epasveer/seer.git
synced 2026-08-29 16:40:42 +08:00
Ernie Pasveer
38 lines
1.3 KiB
COBOL
38 lines
1.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. 02_VARIABLES.
|
|
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
|
|
01 struct-headers.
|
|
02 filler PIC x(2) VALUE "lp".
|
|
02 filler PIC x VALUE "|".
|
|
02 filler PIC x(10) VALUE " number".
|
|
02 filler PIC x VALUE "|".
|
|
02 filler PIC x(10) VALUE " decimal".
|
|
02 filler PIC x VALUE "|".
|
|
02 filler PIC x(10) VALUE " currency".
|
|
|
|
|
|
01 var-line PIC x(80) VALUE ALL "-".
|
|
|
|
01 struct-row.
|
|
02 var-lp PIC 9(2) VALUE 00.
|
|
02 filler PIC x VALUE "|".
|
|
02 var-number PIC z(10) VALUE 0.
|
|
02 filler PIC x VALUE "|".
|
|
02 var-decimal PIC +z(7).zz VALUE -317.21.
|
|
02 filler PIC x VALUE "|".
|
|
02 var-currency PIC $z(7).zz VALUE 317.21.
|
|
|
|
PROCEDURE DIVISION.
|
|
DISPLAY struct-headers.
|
|
DISPLAY var-line.
|
|
|
|
MOVE 01 TO var-lp.
|
|
MOVE 3721 TO var-number.
|
|
|
|
DISPLAY struct-row.
|
|
STOP RUN.
|
|
|