10 lines
729 B
COBOL
10 lines
729 B
COBOL
000010 fTEST02C
|
|
000020* 01 W01-COMPUTE-C0 PIC 9(8) VALUE 30000. fTEST02C
|
|
000030 01 W01-COMPUTE-C PIC X(2) VALUE "**". fTEST02C
|
|
000040 01 W01-COMPUTE-C0 PIC 9(8) VALUE 30000. fTEST02C
|
|
000050 01 W01-COMPUTE-C1 PIC Z(5),Z(3). fTEST02C
|
|
000060 01 W01-COMPUTE-C2 PIC *Z,ZZZ,ZZZ. fTEST02C
|
|
000070 01 W01-COMPUTE-C3 PIC Z(3)Z(5).99. fTEST02C
|
|
000080 01 W01-COMPUTE-C4 PIC 9(5)V99. fTEST02C
|
|
000090 fTEST02C
|