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