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.
       IF A = B
       DISPLAY 'IT WORKS'
       DISPLAY A
       DISPLAY B
       ELSE
       DISPLAY 'ITS NOT WORKING'
       END-IF.
       STOP RUN.