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