000010                                                                  fTEST02_
000020* 01 W01-COMPUTE-0    PIC 9(8) VALUE 30000.                       fTEST02_
000030 01 W01-COMPUTE      PIC X(2) VALUE "**".                         fTEST02_
000040 01 W01-COMPUTE-0    PIC 9(8) VALUE 30000.                        fTEST02_
000050 01 W01-COMPUTE-1    PIC Z(5),Z(3).                               fTEST02_
000060 01 W01-COMPUTE-2    PIC *Z,ZZZ,ZZZ.                              fTEST02_
000070 01 W01-COMPUTE-3    PIC Z(3)Z(5),99.                             fTEST02_
000080 01 W01-COMPUTE-4    PIC 9(6)V99.                                 fTEST02_
000090 01 W01-COMPUTE-5    PIC 9(5).                                    fTEST02_
000100 01 W01-COMPUTE-6    PIC X(10) VALUE 'W01-1XXX'.                  fTEST02_
000110                                                                  fTEST02_
000120 COPY 'fTEST02A.cpy' REPLACING                                    fTEST02_
000130      W01-COMPUTE-A0 BY W01-COMPUTE-A00                           fTEST02_
000140      ==9(8)== BY ==9(09)== .                                     fTEST02_
000150                                                                  fTEST02_
000160                                                                  fTEST02_