CA SymDump

 View Only

Tech Tip: CA SymDump Batch r 9.1 How to copy all dumps from one CAIPRINT repository to another using utility CAOUPRTU. 

Jul 20, 2016 10:38 AM

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

/*

//

Statistics
0 Favorited
0 Views
0 Files
0 Shares
0 Downloads

Related Entries and Links

No Related Resource entered.