Example 10: Making merged incremental copies

//ACPEX10  JOB (PACP),'EXAMPLE 10',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Make merged incremental copies of all table spaces in database
//* ACPEXDB1.
//*
//* This job will create a local-site primary (LP) copy on DASD,
//* and a recovery-site primary (RP) copy that is stacked on 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.
//*  - FULL NO with CUMULATIVE YES KEEP YES to produce a merged
//*    incremental copy that will contain all table space pages that
//*    have been updated since the last copy that used RESETMOD YES.
//*    KEEP YES instructs COPY PLUS to retain the prior incremental
//*    copy in SYSIBM.SYSCOPY and change the ICTYPE to 'i'.
//*  - GROUP YES to cause all of the copies to be made at the same
//*    point-in-time (RBA/LRSN).
//*  - RESETMOD NO to avoid the overhead of clearing the modified-page
//*    indicators in each spacemap.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX10,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 *

  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

  COPY TABLESPACE ACPEXDB1.*
         COPYDDN(LOCALP)
         RECOVERYDDN(REMOTP)
       FULL NO
         CUMULATIVE YES KEEP YES
       RESETMOD NO
       SHRLEVEL REFERENCE
       GROUP YES
/*