PRFOCKO1
000010*****************************************
000020**                                     **
000030*****************************************
000040 IDENTIFICATION DIVISION.
000050 PROGRAM-ID.   PRFOCKO1.
...
000270 PERF-TIMES-INLINE-1. 
000280* PERFORM STATEMENTS N TIMES IN-LINE
000290     PERFORM 5 TIMES
000300        OPEN INPUT INFILE
000310        READ INFILE AT END SET EOF TO TRUE
000320        END-READ
000330        CLOSE  INFILE
000340     END-PERFORM
000350     GOBACK.
000360    
000370 END PROGRAM PRFOCKO1.


PRFOCKO3
000010*****************************************
000020**                                     **
000030*****************************************
000040 IDENTIFICATION DIVISION.
000050 PROGRAM-ID.   PRFOCKO3.
...
000270 PERF-UNTIL-INLINE-1. 
000280* PERFORM STATEMENTS UNTIL IN-LINE
000290     PERFORM UNTIL EOF
000300        OPEN INPUT INFILE
000310        READ INFILE AT END SET EOF TO TRUE
000320        END-READ
000330        CLOSE  INFILE
000340     END-PERFORM
000350     GOBACK.
000360    
000370 END PROGRAM PRFOCKO3.


PRFOCK05
000010*****************************************
000020**                                     **
000030*****************************************
000040 IDENTIFICATION DIVISION.
000050 PROGRAM-ID.   PRFOCKO5.
...
000290 PERF-VARYING-INLINE-1. 
000300* PERFORM STATEMENTS VARYING UNTIL IN-LINE
000310     PERFORM VARYING I FROM 1 BY 1 UNTIL I = 5
000320        OPEN INPUT INFILE
000330        READ INFILE AT END SET EOF TO TRUE
000340        END-READ
000350        CLOSE  INFILE
000360     END-PERFORM
000370     GOBACK.
000380     
000390 END PROGRAM PRFOCKO5.