$ vi sample.cbl
      ***** 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 VAL04     PIC S9(4) COMP-3.

       PROCEDURE DIVISION.
       MAIN SECTION.

       MOVE VAL01 TO VAL03.
       MOVE VAL02 TO VAL04.

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

       STOP RUN.