Examples: defining checkpoint data sets

Writing single checkpoint records, using tape:

//CHECKPT  DD DSNAME=CHECK1,VOLUME=SER=ND0003,
//            UNIT=TAPE,DISP=(NEW,KEEP),LABEL=(,NL)
           . . .
       ENVIRONMENT DIVISION.
           . . .
           RERUN ON CHECKPT EVERY
             5000 RECORDS OF ACCT-FILE.

Writing single checkpoint records, using disk:

//CHEK     DD DSNAME=CHECK2,
//            VOLUME=(PRIVATE,RETAIN,SER=DB0030),
//            UNIT=3380,DISP=(NEW,KEEP),SPACE=(CYL,5)
           . . .
       ENVIRONMENT DIVISION.
           . . .
           RERUN ON CHEK EVERY
             20000 RECORDS OF PAYCODE.
           RERUN ON CHEK EVERY
             30000 RECORDS OF IN-FILE.

Writing multiple contiguous checkpoint records, using tape:

//CHEKPT   DD DSNAME=CHECK3,VOLUME=SER=111111,
//            UNIT=TAPE,DISP=(MOD,PASS),LABEL=(,NL)
           . . .
       ENVIRONMENT DIVISION.
           . . .
           RERUN ON CHEKPT EVERY
             10000 RECORDS OF PAY-FILE.