Example 8: Copying index spaces

//ACPEX08  JOB (PACP),'EXAMPLE 8',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//* Make a SHRLEVEL CHANGE copy of all index spaces in databases
//* ACPEXDB*. The image copies will be recorded in SYSIBM.SYSCOPY
//* if the associated index is defined with the COPY YES attribute.
//* If the index is COPY NO, or option IXDSNUM DATASET is used,
//* the copy will be recorded in the BMCXCOPY table.
//*
//* 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. Note that
//*    MAXPRIM on the OUTPUT statement for LOCALP will limit the
//*    primary and secondary extent size to 200 cylinders.
//*  - 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.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX08,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 IXDSNUM ALL

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

  COPY INDEXSPACE ACPEXDB*.*
         COPYDDN(LOCALP)
       SHRLEVEL CHANGE
/*