Example 14: Making Instant Snapshot copies

//ACPEX14  JOB (PACP),'EXAMPLE 14',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Create Instant Snapshot copies of the table spaces in database
//* ACPEXDB1.
//*
//* This job will create a local-site primary (LP) copy on DASD.
//*
//* 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.
//*  - MAXTASKS (2,2) to use 2 tasks for making copies.
//*  - Dynamic allocation with the OUTPUT command.
//*  - RESETMOD NO to avoid the overhead of clearing the modified-page
//*    indicators in each spacemap. This is required when SHRLEVEL
//*    CONCURRENT is specified.
//*
//* Note: You can un-comment FULL AUTO FULLPCT (0,.01) in this example
//*       to make copies of only the spaces that have changed since the
//*       last copy. Combine this with COPY IMAGECOPY syntax
//*       ATRBA LASTFULLCOPY and ON ERROR ICEXISTS SKIP to produce
//*       conventional, off-site copies of these updated spaces.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX14,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 MAXTASKS (2,2)
       XBMID XBMDB2

  OUTPUT LOCALP DSSNAP YES
       DSNAME ACP.LP.&DB.&TS.D&DATE.T&TIME

  COPY TABLESPACE ACPEXDB1.* DSNUM DATASET
         COPYDDN(LOCALP)
    -- FULL AUTO FULLPCT (0,.01)
       RESETMOD NO
       SHRLEVEL CHANGE
       GROUP YES
/*