IDENTIFICATION DIVISION.
	PROGRAM-ID. PROG1.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.                    
           01 DAT1 PIC X(4).                           
           01 DAT2 PIC X(3).                           
        PROCEDURE DIVISION.                         
        MAIN-PARA.                                  
             MOVE '006' TO DAT2                      
             MOVE '0006' TO DAT1                     
             IF DAT2 > DAT1                          
             DISPLAY 'GREATER'                      
             ELSE DISPLAY 'LESSER'                   
             END-IF                                  
       STOP RUN.