The following JCL can be tested and used to copy all CA Symdump Batch r 9.1 CAIPRINT repository dumps from a smaller CAIPRINT repository to a larger CAIPRINT using the CAOUPRTU utility. The CAOUPRTU utility which is used to maintain the CAIPRINT repository is outlined in the CA SymDump Batch r 9.1 Users Guide Chapter 5 Utilities.
//LARGEPRT JOB '000000000','XYZ',CLASS=A,MSGCLASS=A,
// MSGLEVEL=(1,1),NOTIFY=XYZ,REGION=4096K
//*
//*********************************************************************
//*
//* THIS JCL CAN BE USED TO COPY COPY A SMALLER PRTLIB TO A LARGER
//* PRTLIB
//*
//JOBLIB DD DISP=SHR,DSN=SYMBAT91.GA.CARXLOAD
//*
//*********************************************************************
//*
//* DEFINE A LARGER PRTLIB REPOSITORY
//*
//*********************************************************************
//*
//DEFLARGE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE LARGE.PRTLIB CLUSTER PURGE
DEFINE CLUSTER ( -
NAME(LARGE.PRTLIB) -
NUMBERED -
SHAREOPTIONS(2 3) -
CONTROLINTERVALSIZE(4096) -
RECSZ(4085 4085) -
CYL(50 0) -
VOL(VOLUME) -
FREESPACE(00 00)) -
DATA ( -
NAME(LARGE.PRTLIB.DATA))
/*
//*
//*********************************************************************
//*
//* INITIALIZE THE LARGE PRTLIB
//*
//*********************************************************************
//*
//INITLARG EXEC PGM=CAOUPRTU
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DSN LARGE.PRTLIB
INIT
//*
//*********************************************************************
//*
//*REPORT ON THE LARGE PRTLIB AND IT WILL CONTAIN NO REPORTS
//*
//*********************************************************************
//*
//LISTLARG EXEC PGM=CAOUPRTU
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DSN LARGE.PRTLIB
LIST ALL
//*
//*********************************************************************
//*
//* LIST DUMPS IN PRODUCTION SMALLER PRITLIB THAT WILL BE COPIED
//*
//*********************************************************************
//LISTSMAL EXEC PGM=CAOUPRTU
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DSN SMALLER.PRTLIB
LIST ALL
//*
//*********************************************************************
//*
//*POPULATE THE LARGE PRTLIB COPYING THE SMALLER PRITLIB TO THE LARGER
//*PRINTLIB
//*
//*!!!! NOTE:
//*
//* PARAMETER BELOW ODSN IS THE INPUT PRTLIB YOU ARE COPING FROM
//*
//* DSN IS THE OUTPUT PRTLIB YOU ARE COPYING TO
//*
//*********************************************************************
//*
//COPYDUMP EXEC PGM=CAOUPRTU
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ODSN SMALLER.PRTLIB
DSN LARGE.PRTLIB
COPY ALL
//*
//*********************************************************************
//*
//*REPORT ON THE LARGE PRTLIB TO VERIFY ALL DUMPS WERE COPIED TO IT
//*
//*********************************************************************
//*
//LISTLAR2 EXEC PGM=CAOUPRTU
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DSN LARGE.PRTLIB
LIST ALL
/*
//