10 lines
729 B
COBOL
10 lines
729 B
COBOL
000010 fTEST02D
|
|
000020* 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000. fTEST02D
|
|
000030 01 W01-COMPUTE-D PIC X(2) VALUE "**". fTEST02D
|
|
000040 01 W01-COMPUTE-D0 PIC 9(8) VALUE 30000. fTEST02D
|
|
000050 01 W01-COMPUTE-D1 PIC Z(5),Z(3). fTEST02D
|
|
000060 01 W01-COMPUTE-D2 PIC *Z,ZZZ,ZZZ. fTEST02D
|
|
000070 01 W01-COMPUTE-D3 PIC Z(3)Z(5).99. fTEST02D
|
|
000080 01 W01-COMPUTE-D4 PIC 9(5)V99. fTEST02D
|
|
000090 fTEST02D
|