* 01 W01-COMPUTE-0    PIC 9(8) VALUE 30000.
 01 W01-COMPUTE      PIC X(2) VALUE "**".
 01 W01-COMPUTE-0    PIC 9(8) VALUE 30000.
 01 W01-COMPUTE-1    PIC Z(5),Z(3).
 01 W01-COMPUTE-2    PIC *Z,ZZZ,ZZZ.
 01 W01-COMPUTE-3    PIC Z(3)Z(5),99.
 01 W01-COMPUTE-4    PIC 9(6)V99.
 01 W01-COMPUTE-5    PIC 9(5).
 01 W01-COMPUTE-6    PIC X(10) VALUE 'W01-1XXX'.

 COPY 'TEST02A.cpy' REPLACING  
     W01-COMPUTE-A0 BY W01-COMPUTE-A00
     ==9(8)== BY ==9(09)== .