IDENTIFICATION DIVISION.
	PROGRAM-ID. PROG1.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	WORKING-STORAGE SECTION.    
          01 A PIC 99 VALUE 0.        
         PROCEDURE DIVISION.         
               IF A IS POSITIVE        
                DISPLAY 'POS'        
               ELSE                    
                DISPLAY 'NOT POS'    
               END-IF                  
               IF  A + 4 IS POSITIVE   
                 DISPLAY 'POS' A      
               ELSE                    
                DISPLAY 'NOT POS'    
               END-IF                  
             STOP RUN.     
                              
	    STOP RUN.