IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC x(7).
01 B PIC x(10).
PROCEDURE DIVISION.
*       MOVE 'PRIMARY' TO A.
*       MOVE 'PRIMARY' TO B.
       MOVE LOW-VALUES TO A.
       MOVE LOW-VALUES TO B.
       DISPLAY A.
       DISPLAY B.
       IF A = B
       DISPLAY 'IT WORKS'
       DISPLAY A
       DISPLAY B
       ELSE
       DISPLAY 'ITS NOT WORKING'
       END-IF.
       STOP RUN.