17 lines
1.3 KiB
COBOL
17 lines
1.3 KiB
COBOL
000010 fTEST02_
|
|
000020* 01 W01-COMPUTE-0 PIC 9(8) VALUE 30000. fTEST02_
|
|
000030 01 W01-COMPUTE PIC X(2) VALUE "**". fTEST02_
|
|
000040 01 W01-COMPUTE-0 PIC 9(8) VALUE 30000. fTEST02_
|
|
000050 01 W01-COMPUTE-1 PIC Z(5),Z(3). fTEST02_
|
|
000060 01 W01-COMPUTE-2 PIC *Z,ZZZ,ZZZ. fTEST02_
|
|
000070 01 W01-COMPUTE-3 PIC Z(3)Z(5),99. fTEST02_
|
|
000080 01 W01-COMPUTE-4 PIC 9(6)V99. fTEST02_
|
|
000090 01 W01-COMPUTE-5 PIC 9(5). fTEST02_
|
|
000100 01 W01-COMPUTE-6 PIC X(10) VALUE 'W01-1XXX'. fTEST02_
|
|
000110 fTEST02_
|
|
000120 COPY 'fTEST02A.cpy' REPLACING fTEST02_
|
|
000130 W01-COMPUTE-A0 BY W01-COMPUTE-A00 fTEST02_
|
|
000140 ==9(8)== BY ==9(09)== . fTEST02_
|
|
000150 fTEST02_
|
|
000160 fTEST02_
|