IDENFIFICATION 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.