* 01    W01-COMPUTE-A0  PIC 9(8) VALUE 30000.
 01     W01-COMPUTE-A   PIC X(2) VALUE "**".
 01     W01-COMPUTE-A0  PIC 9(8) VALUE 30000.
 01     W01-COMPUTE-A1  PIC Z(5),Z(3).
 01     W01-COMPUTE-A2  PIC *Z,ZZZ,ZZZ.
 01     W01-COMPUTE-A3  PIC Z(3)Z(5),99.
 01     W01-COMPUTE-A4  PIC 9(5)V99.

COPY 'TEST02A.cpy'.