***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-SAMPLE-02.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 VAL01     PIC X(4) VALUE "2024".
       01 VAL02     PIC X(4) VALUE "202t".
       01 VAL03     PIC S9(4).
       01 VAL04     PIC S9(4).
       01 FILLER REDEFINES VAL04.
          03 VAL05  PIC X(4).

       PROCEDURE DIVISION.
       MAIN SECTION.

       MOVE VAL01 TO VAL03.
       MOVE VAL02 TO VAL05.

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

       STOP RUN.