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