***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-PACK-02.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAL01     PIC X(3) VALUE X"02024C".
       01 VAL02     PIC X(3) VALUE X"02024D".
       01 VAL03     PIC S9(4) COMP-3.
       01 FILLER REDEFINES VAL03.
          03 VAL05  PIC X(3).
       01 VAL04     PIC S9(4) COMP-3.
       01 FILLER REDEFINES VAL04.
          03 VAL06  PIC X(3).

       PROCEDURE DIVISION.
       MAIN SECTION.

       MOVE VAL01 TO VAL05.
       MOVE VAL02 TO VAL06.

       DISPLAY "01:[" VAL01 "]".
       DISPLAY "02:[" VAL02 "]".
       DISPLAY "03: " VAL03.
       DISPLAY "04: " VAL04.

       STOP RUN.