IDENTIFICATION DIVISION.
	PROGRAM-ID. PROG1.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.                    
	01 DAT1 PIC s9(4).                           
	01 DAT2 PIC s9(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.