Example 5: Using BMC AMI Copy exception processing

//ACPEX05  JOB (PACP),'EXAMPLE 5',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Make a SHRLEVEL REFERENCE copy of all table spaces in the ACPEXDB*
//* databases using the error handling capabilities of COPY PLUS.
//* This method is ideal for copying test databases that may have
//* spaces in an unacceptable status from time to time.
//*
//* 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.
//*  - Dynamic allocation with the OUTPUT command
//*  - MAXTASKS (4,4) to use 4 tasks for making copies.
//*  - MIGRSKIP YES to bypass copying spaces that are migrated.
//*  - Dynamic GDG base creation with the ACPGDG DD statement. In this
//*    example, if the GDG base does not exist, one will be created
//*    with a limit of 3.
//*  - RESETMOD NO to avoid the overhead of clearing the modified-page
//*    indicators in each spacemap.
//*  - ON ERROR BADSTATUS SKIP to skip spaces that are in an
//*    unacceptable status
//*  - ON DUPLCIATEDS DELETE to allow COPY PLUS to replace a duplicate
//*    entry in SYSIBM.SYSCOPY if one exists.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX05,NEW/RESTART,MSGLEVEL(1)'
//STEPLIB  DD DISP=SHR,DSN=product.libraries
//         DD DISP=SHR,DSN=DB2.DSNEXIT
//         DD DISP=SHR,DSN=DB2.DSNLOAD
//ACPGDG   DD *
  DEFINE GDG (NAME(&BASE) LIMIT(3) SCR)
//ACPERROR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *

  OPTIONS MAXTASKS (4,4)
       MIGRSKIP YES

  OUTPUT LOCALP UNIT SYSDA
       DSNAME ACP.LP.&DB.&TS.F&LPART(+1)

  COPY TABLESPACE ACPEXDB*.*
         COPYDDN(LOCALP)
       RESETMOD NO
       SHRLEVEL REFERENCE
       GROUP YES
       ON ERROR BADSTATUS SKIP
       ON DUPLICATEDS DELETE
/*