Example 19: Using a JCL PROC to run BMC AMI Copy

//ACPEX19  JOB (PACP),'EXAMPLE 19',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//*
//* Use a command procedure to provide execution parameters.
//*
//* This job uses FULL AUTO to create an incremental copy if fewer
//* than 25% of the pages are changed, and a full copy if more than
//* 25% of the pages are changed. This job will create a local-site
//* primary (LP) copy on DASD if an incremental copy is chosen.
//* If a full copy is chosen, it will be 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.
//*  - Wildcarding in the TABLESPACE specification
//*  - Dynamic allocation with the OUTPUT command
//*  - FULL AUTO FULLPCT (.01,25) to cause COPY PLUS to make an
//*    incremental copy if fewer than 25% of the pages have changed
//*    since the last copy that used RESETMOD YES. If more than 50%
//*    have changed, a full copy is made.
//*  - EMPTY NO to ensure that an incremental copy is made even if
//*    no pages in the space have changed if COPY PLUS can acquire a
//*    registration point.
//*  - FULLDDN to specify the OUTPUT descriptor to use when a full
//*    copy is made.
//*
//* Note: The procedure can be found in member ACPEX19P in the
//*       COPY PLUS .ACPSAMP library.
//*
//**********************************************************************
// JCLLIB ORDER=(BMCACP.V101INST.EXAMPLE.JOBS)
//BMCCOPY  EXEC ACPEX19P,
//         SSID='DGA',UTILID='ACPEX19',RESTART='NEW/RESTART',
//         MSGLVL='MSGLEVEL(1)',OPTIONS='ACP$OPTS'
//SYSIN    DD *

  OUTPUT LOCALP UNIT SYSDA
       DSNAME ACP.LP.&DB.&TS.D&DATE.T&TIME

  OUTPUT LOCALPF UNIT CART STACK YES
       DSNAME ACP.LP.&DB.&TS.D&DATE.T&TIME

  COPY TABLESPACE ACPEXDB1.*
         COPYDDN(LOCALP)
         FULLDDN(LOCALPF)
       FULL AUTO FULLPCT(.01,25)
         EMPTY NO
       RESETMOD NO
       SHRLEVEL CHANGE
/*

//ACPEX19P PROC SSID='',UTILID='',RESTART='',MSGLVL='',OPTIONS=''
//BMCCOPY1 EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='&SSID,&UTILID,&RESTART,&MSGLVL,&OPTIONS'
//STEPLIB  DD DISP=SHR,DSN=
product.libraries
//         DD DISP=SHR,DSN=DB2.DSNEXIT
//         DD DISP=SHR,DSN=DB2.DSNLOAD
//SYSPRINT DD SYSOUT=*
// PEND