Example 15: Duplicating image copies with COPY IMAGECOPY

//ACPEX15  JOB (PACP),'EXAMPLE 15',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Create Local-Backup (LB) and Remote-Primary copies from the last
//* full image copy of the spaces in database ACPEXDB1. This example
//* can also be used to create off-site copies on tape from a local
//* Instant Snapshot (DSSNAP YES) copy.
//*
//* 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.
//*  - COPY IMAGECOPY to create additional copies from an existing copy.
//*  - DSNUM DATASET is used to copy image copies that were made by
//*    data set. Use this option if you are copying Instant Snapshot
//*    (DSSNAP YES) image copies.
//*  - ATRBA LASTFULLCOPY to automatically select the copy to duplicate
//*  - ON ERROR ICEXISTS SKIP to skip copying image copies that have
//*    already been copied.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX15,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 LOCALB UNIT CART STACK YES
       DSNAME ACP.LB.&DB.&TS.D&DATE.T&TIME

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

  COPY IMAGECOPY TABLESPACE ACPEXDB1.* DSNUM DATASET
         COPYDDN(,LOCALB)
         RECOVERYDDN(REMOTP)
       ATRBA LASTFULLCOPY
       ON ERROR ICEXISTS SKIP
/*