17 lines
458 B
COBOL
17 lines
458 B
COBOL
|
|
* 01 W01-COMPUTE-0 PIC 9(8) VALUE 30000.
|
|
01 W01-COMPUTE PIC X(2) VALUE "**".
|
|
01 W01-COMPUTE-0 PIC 9(8) VALUE 30000.
|
|
01 W01-COMPUTE-1 PIC Z(5),Z(3).
|
|
01 W01-COMPUTE-2 PIC *Z,ZZZ,ZZZ.
|
|
01 W01-COMPUTE-3 PIC Z(3)Z(5),99.
|
|
01 W01-COMPUTE-4 PIC 9(6)V99.
|
|
01 W01-COMPUTE-5 PIC 9(5).
|
|
01 W01-COMPUTE-6 PIC X(10) VALUE 'W01-1XXX'.
|
|
|
|
COPY 'TEST02A.cpy' REPLACING
|
|
W01-COMPUTE-A0 BY W01-COMPUTE-A00
|
|
==9(8)== BY ==9(09)== .
|
|
|
|
|