Example 11: Making incremental copies using FULL AUTO

//ACPEX11  JOB (PACP),'EXAMPLE 11',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Copy all table spaces in database ACPEXDB1 using FULL AUTO.
//* If no pages have changed since the last copy, the space is not
//* copied and no copy data set will be created. If any pages have
//* changed since the last copy, but fewer than 50% of the pages
//* are marked as changed in the spacemaps, then a merged incremental
//* copy is made. If more than 50% of the pages are marked as changed
//* in the spacemaps, a full copy is made.
//*
//* 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 AUTO FULLPCT (.01,50) to cause COPY PLUS to make an
//*    incremental copy if fewer than 50% of the pages have changed
//*    since the last copy that used RESETMOD YES. If more than 50%
//*    have changed, a full copy is made. If no pages have changed,
//*    the space is not copied.
//*  - 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'.
//*  - FULLDAY to specify the day of the week to escalate to a full copy
//*  - READTYPE AUTO READPCT 10 is used to instruct COPY PLUS to
//*    randomly read the changed pages if fewer than 10% of the pages
//*    are marked as changed in the spacmaps. If more than 10% have
//*    changed, the space is read sequentially
//*  - MINPAGES 180 is used to cause COPY PLUS to escalate to a full
//*    copy for any space that has fewer than 180 pages.
//*  - SMARTSTACK YES is used to tell COPY PLUS to stack the copies
//*    in the same logical stacking order as the full copies.
//*  - RESETMOD NO to avoid the overhead of clearing the modified-page
//*    indicators in each spacemap.
//*  - GROUP YES to cause all of the copies to be made at the same
//*    point-in-time (RBA/LRSN).
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX11,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 AUTO FULLPCT (.01,50)
         FULLDAY SATURDAY
         CUMULATIVE YES KEEP YES
         READTYPE AUTO READPCT 10
         MINPAGES 180
         SMARTSTACK YES
       RESETMOD NO
       SHRLEVEL REFERENCE
       GROUP YES
/*