prime

//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 12.
77 Q PIC 9(3).
77 R PIC 9(3).
77 I PIC 9(3).
PROCEDURE DIVISION.
PARA-A.
DISPLAY "ENTER AN INTEGER:".
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=*