12 lines
891 B
COBOL
12 lines
891 B
COBOL
000010 fTEST02A
|
|
000020* 01 W01-COMPUTE-A0 PIC 9(8) VALUE 30000. fTEST02A
|
|
000030 01 W01-COMPUTE-A PIC X(2) VALUE "**". fTEST02A
|
|
000040 01 W01-COMPUTE-A0 PIC 9(8) VALUE 30000. fTEST02A
|
|
000050 01 W01-COMPUTE-A1 PIC Z(5),Z(3). fTEST02A
|
|
000060 01 W01-COMPUTE-A2 PIC *Z,ZZZ,ZZZ. fTEST02A
|
|
000070 01 W01-COMPUTE-A3 PIC Z(3)Z(5),99. fTEST02A
|
|
000080 01 W01-COMPUTE-A4 PIC 9(5)V99. fTEST02A
|
|
000090 fTEST02A
|
|
000100 COPY 'fTEST02B.cpy'. fTEST02A
|
|
000110 fTEST02A
|