12 lines
891 B
COBOL
12 lines
891 B
COBOL
000010 fTEST02B
|
|
000020* 01 W01-COMPUTE-B0 PIC 9(8) VALUE 30000. fTEST02B
|
|
000030 01 W01-COMPUTE-B PIC X(2) VALUE "**". fTEST02B
|
|
000040 01 W01-COMPUTE-B0 PIC 9(8) VALUE 30000. fTEST02B
|
|
000050 01 W01-COMPUTE-B1 PIC Z(5),Z(3). fTEST02B
|
|
000060 01 W01-COMPUTE-B2 PIC *Z,ZZZ,ZZZ. fTEST02B
|
|
000070 01 W01-COMPUTE-B3 PIC Z(3)Z(5).99. fTEST02B
|
|
000080 01 W01-COMPUTE-B4 PIC 9(5)V99. fTEST02B
|
|
000090 fTEST02B
|
|
000100 fTEST02B
|
|
000110 COPY 'fTEST02C.cpy'. fTEST02B
|