Ejemplos: definición de conjuntos de datos de punto de comprobación

Grabación de registros de punto de comprobación únicos, utilizando cinta:

//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.

Grabación de registros de punto de comprobación únicos, utilizando el disco:

//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.

Grabación de varios registros de punto de comprobación contiguos, utilizando cinta:

//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.