Example 25: Using MODIFY to copy unrecoverable spaces

//ACPEX25  JOB (PACP),'EXAMPLE 25',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//*
//* Use MODIFY to verify the recoverability of a set of spaces at
//* both the local and recovery sites. If a space is not recoverable,
//* a copy will be made using the COPY command provided via the
//* TEMPLATE command.
//*
//* Note: The table space named in the COPY TEMPLATE COPYDS will be
//*       replaced by COPY PLUS with the database and table space name
//*       of the space requiring a copy.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX25,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 BOTH
      ON DSNOTFOUND WARN
      ON NOTRECOVERABLE COPY USING TEMPLATE COPYDS

  OUTPUT LOCALP UNIT SYSDA
       DSNAME ACP.LP.&DB.&TS.D&DATE.T&TIME

  OUTPUT REMOTP UNIT CARTVTS STACK YES
       DSNAME ACP.RP.&DB.&TS.D&DATE.T&TIME

  TEMPLATE COPYDS
    COPY TABLESPACE *.*
      COPYDDN(LOCALP)
      RECOVERYDDN(REMOTP)
    SHRLEVEL REFERENCE
    RESETMOD NO
/*