Example 24: Using MODIFY to verify recoverability

//ACPEX24  JOB (PACP),'EXAMPLE 24',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//*
//* Use MODIFY to verify the offsite recoverability of a set of spaces
//* It will check to see if there has been an image copy in the last
//* 7 days, and it will verify that the image copy data sets exist in
//* the MVS catalog.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX24,NEW/RESET,MSGLEVEL(1)'
//STEPLIB  DD DISP=SHR,DSN=product.libraries
//         DD DISP=SHR,DSN=DB2.DSNEXIT
//         DD DISP=SHR,DSN=DB2.DSNLOAD
//ACPERROR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *

  MODIFY TABLESPACE ACPEXDB1.*
    VERIFY
      SITETYPE RECOVERY
      MAXIMUM DAYS 7
      ON DSNOTFOUND WARN
      ON NOTRECOVERABLE WARN
/*