IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
        MOVE LOW-VALUES TO A.
        DISPLAY A.
        MOVE LOW-VALUES TO B.
        DISPLAY B.
        STOP RUN.