Prime Number

//MYJOB JOB 1,'MCA'                  
//STEP1 EXEC IGYWCLG                  
      IDENTIFICATION DIVISION.      
      PROGRAM-ID. PRIME.            
      ENVIRONMENT DIVISION.          
      DATA DIVISION.                
      WORKING-STORAGE SECTION.      
      77 N PIC 9(2) VALUE 11.        
      77 Q PIC 9(3).                
      77 R PIC 9(3).                
      77 I PIC 9(3).                
      PROCEDURE DIVISION.            
      PARA-A.                        
          DISPLAY "ENTER AN INTEGER:".
          DISPLAY N.
PERFORM PARA2 VARYING I FROM 2 BY 1 UNTIL I > N.
          STOP RUN.                                    
       PARA2.                                          
          DIVIDE N BY I GIVING Q REMAINDER R.          
          IF R = 0                                      
          DISPLAY "NOT PRIME"                          
          STOP RUN.                                    
          ELSE                                          
          DISPLAY "PRIME".                              
          STOP RUN.
//GO.SYSOUT DD SYSOUT=*                     
//GO.SYSPRINT DD SYSOUT=* 
//GO.INPUT DD *           
//GO.PRNT DD SYSOUT=*