Example 22: Using MODIFY to insert rows into SYSCOPY

 //ACPEX22  JOB (PACP),'EXAMPLE 22',CLASS=Q,MSGCLASS=X,NOTIFY=&SYSUID
//**********************************************************************
//*
//* Use MODIFY to insert a local and remote primary copy into
//* SYSIBM.SYSCOPY.
//*
//* Note: You can use any of the COPY PLUS symbolics to form the
//*       DSNAME of the copy.
//*
//**********************************************************************
//BMCCOPY  EXEC PGM=ACPMAIN,REGION=0M,
//            PARM='DGA,ACPEX22,NEW/RESET,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 *

  MODIFY RECOVERY TABLESPACE ACPEXDB1.SAMP1TS
    INSERT
      START_RBA = X'
3632123F6123 '
      ICTYPE = F
      SHRLEVEL = R
      DSNAME = ACP.BMCCOPY.LP.&TS.D970110.T180000
      DEVTYPE = VCRT
      ICUNIT = T
      ICDATE = 050331
      ICTIME = 180000
  MODIFY RECOVERY TABLESPACE ACPEXDB1.SAMP1TS
    INSERT
      START_RBA = X'3632123F6123'
      ICTYPE = F
      SHRLEVEL = R
      DSNAME = ACP.BMCCOPY.RP.&TS.D970110.T180000
      ICBACKUP = RP
      DEVTYPE = 3490
      ICUNIT = T
      ICDATE = 050331
      ICTIME = 180000
/*