IDENTIFICATION DIVISION.
       PROGRAM_ID "XX".
       ENVIRONMENT DIVISION
       WORKING-STORAGE SECTION.
       01 A PIC X.
       01 B PIC X.
       PROCEDURE DIVISION.
       A05 SECTION
       A05-000.
           MOVE A TO B
           STOP RUN.