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