***** sample ****
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPLE-MOVE-01.
      *
       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).

       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.