51 lines
1.1 KiB
COBOL
51 lines
1.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST02a.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 W-1 PIC 9(5)V99.
|
|
01 W-2 PIC 9(5)V99 COMP.
|
|
01 W-3 PIC 9(5)V99 COMP-3.
|
|
* 01 W-3 PIC 9(5)V99 PACKED-DECIMAL.
|
|
01 W-4 PIC 9(5)V99 COMP-5.
|
|
01 W-DISPLAY PIC 9(5).99.
|
|
* 01 W-DISPLAY1 PIC 9(5).
|
|
|
|
01 WS-WHOLE-NAME PIC X(15) VALUE 'DAVID ESSEX'.
|
|
01 WS-LAST-NAME PIC X(15) VALUE ALL '$'.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
A-000.
|
|
|
|
DISPLAY "ENTER A-000".
|
|
|
|
MOVE WS-WHOLE-NAME(10:) TO WS-LAST-NAME.
|
|
DISPLAY "WS-LAST-NAME =" WS-LAST-NAME ":".
|
|
|
|
MOVE 98.54 TO W-1 W-2 W-3 W-4.
|
|
|
|
MOVE W-1 TO W-DISPLAY.
|
|
DISPLAY "W-1 {W-DISPLAY} = " W-DISPLAY.
|
|
|
|
MOVE W-2 TO W-DISPLAY.
|
|
DISPLAY "W-2 {W-DISPLAY} = " W-DISPLAY.
|
|
|
|
MOVE W-3 TO W-DISPLAY.
|
|
DISPLAY "W-3 {W-DISPLAY} = " W-DISPLAY.
|
|
|
|
MOVE W-4 TO W-DISPLAY.
|
|
DISPLAY "W-4 {W-DISPLAY} = " W-DISPLAY.
|
|
|
|
* MOVE W-4 TO W-DISPLAY1.
|
|
* DISPLAY "W-4 {W-DISPLAY1} = " W-DISPLAY1.
|
|
|
|
DISPLAY "EXIT A-000".
|
|
|
|
STOP RUN.
|