Example 12: Making a full copy of updated table spaces

//ACPEX12  JOB (PACP),'EXAMPLE 12',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Create a full copy of the table spaces in database ACPEXDB1
//* that have been updated since the last copy.
//*
//* This job will create a local-site primary (LP) copy on DASD,
//* and a recovery-site primary (RP) copy that is stacked on tape.
//* For spaces that are larger than 72,000 KB, the LP & RP copies
//* will each be put on its own separate tape.
//*
//* This example demonstrates the following features of COPY PLUS:
//*
//*  - Restart parm NEW/RESTART to allow the job to be restarted by
//*    re-submitting the job without changes.
//*  - Dynamic allocation with the OUTPUT command.
//*  - BIGDDN, BIGRECDDN, and OUTSIZE to make image copies that are
//*    larger than 72,000 KB use a different OUTPUT descriptor.
//*    In this case, since BIGDDN and BIGRECDDN refer to OUTPUT
//*    descriptors that specify STACK NO, each space that exceeds
//*    the OUTSIZE threshold will be written to a separate tape.
//*  - FULL AUTO FULLPCT (0,.01) to cause COPY PLUS to make a full
//*    copy if any pages have changed since the last copy, or no
//*    copy if no pages have changed.
//*  - RESETMOD NO to avoid the overhead of clearing the modified-page
//*    indicators in each spacemap.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX12,NEW/RESTART,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 *

  OPTIONS OUTSIZE 72000K

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

  OUTPUT LOCALPB UNIT CARTVTS STACK NO
       DSNAME ACP.RP.&DB.&TS.D&DATE.T&TIME

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

  OUTPUT REMOTPB UNIT CARTVTS STACK NO
       DSNAME ACP.RP.&DB.&TS.D&DATE.T&TIME

  COPY TABLESPACE ACPEXDB1.*
         COPYDDN(LOCALP)
         BIGDDN(LOCALPB)
         RECOVERYDDN(REMOTP)
         BIGRECDDN(REMOTPB)
       FULL AUTO FULLPCT (0,.01)
       RESETMOD NO
       SHRLEVEL CHANGE
       GROUP YES
/*