ID DIVISION.
        PROGRAM-ID.PGM1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
        WORKING-STORAGE SECTION.
         77 WS-A PIC X(5) USAGE IS COMP.
         77 WS-B PIC X(5) USAGE IS COMP-3. 
       PROCEDURE DIVISION.
            ACCEPT WS-A.
            MOVE WS-A TO WS-B.
            DISPLAY WS-B.
         STOP RUN.