How to copy a CA SymDump Batch PRINTLIB dump report to another smaller repository using utility CAOUPRTU.

Document ID : KB000024613
Last Modified Date : 17/08/2018
Show Technical Document Details
Introduction:

Sometimes an end user encounters a problem using CA SymDump Batch and the problem cannot be reproduced here at CA.

In these cases CA technical support may request the client send in a particular PRINTLIB dump report contained in the PRINTLIB VSAM repository. Support will then attempt to recreate the reported problem using the client's PRINTLIB dump report.

CA SymDump Batch has a utility program CAOUPRTU which is used to manage the dump reports in PRINTLIB repository.

Environment:
Z/OS
Instructions:

In some cases the client's CA SymDump Batch PRINTLIB repository is too large to FTP the entire repository to CA for problem recreation.

In these cases the client can use the sample JCL below to offload the PRINTLIB dump report containing the error to a smaller PRINTLIB repository which is then IDCAMS repro'd to a sequential data set. The sequential TEMP.PRINTLIB data  set is then tersed and unloaded BINARY to the CA FTP server. 

//COPYDUMP JOB
//*
//**************************************************************************
//*                        						   * 
//*   THIS JCL WILL ALLOW YOU TO SEND ONE PRINTLIB REPOSITORY DUMP TO CA   * 
//*                        						   * 
//*                        						   * 
//************************************************************************** 
//*                        						   * 
//*   DEFINE A SMALLER PRINTLIB REPOSITORY 10 CYLINDERS FOR EXAMPLE        *  
//*                        						   * 
//**************************************************************************
//DEFTEMP  EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DELETE TEMP.PRINTLIB CLUSTER PURGE
 SET MAXCC=0
 DEFINE CLUSTER ( -
    NAME(TEMP.PRINTLIB) -
    NUMBERED -
    SHAREOPTIONS(2 3) -
    CONTROLINTERVALSIZE(4096) -
    RECSZ(4085 4085) -
    CYL(10 0) -
    VOL(VOL007) -
    FREESPACE(00 00)) -
 DATA ( -
    NAME(TEMP.PRINTLIB.DATA))
/*
//************************************************************************* 
//*                        						  * 
//*   INITIALIZE THE SMALLER TEMP PRINTLIB                    		  * 
//*                        						  * 
//************************************************************************* 
//INITTEMP EXEC PGM=CAOUPRTU,
//            REGION=1M
//STEPLIB  DD DSN=SYMBAT91.CARXLOAD,
//            DISP=SHR
//SYSUT1   DD UNIT=SYSDA,
//            SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DSN  TEMP.PRINTLIB
  INIT
/*
//**************************************************************************
//*                       						   * 
//*   POPULATE THE TEMP PRINTLIB BY COPYING FROM THE PRODUCTION PRINTLIB.  *
//*   THE DUMP BEING COPIED IS CALLED TESTDUMP         		           *
//*                       					           * 
//**************************************************************************
//COPYDUMP EXEC PGM=CAOUPRTU,
//            REGION=1M
//STEPLIB  DD DSN=SYMBAT91.CARXLOAD,
//            DISP=SHR
//SYSUT1   DD UNIT=SYSDA,
//            SPACE=(CYL,(1,1))
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  ODSN  PROD.SYMBAT91.PRINTLIB
  DSN  TEMP.PRINTLIB
  COPY JOB EQ TESTDUMP
//*
//**************************************************************************
//*                        						   * 
//*   REPRO TEMP PRINTLIB TO SEQUENTIAL DATASET. THE SEQUENTIAL DATASET    *
//*   SHOULD BE TERSED AND FTP'D TO CA AS A BINARY FILE                    *
//*                        						   * 
//**************************************************************************
//COPYSEQ  EXEC PGM=IDCAMS
//OUTFILE  DD  DISP=(NEW,CATLG),
//             DSN=TEMP.PRINTLIB.SEQ,
//             UNIT=SYSDA,
//             VOL=SER=PACK01,
//             DCB=(RECFM=FB,LRECL=4085,BLKSIZE=40850),
//             SPACE=(CYL,(5,3),RLSE)
//INFILE   DD  DISP=SHR,DSN=TEMP.PRINTLIB
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 REPRO INFILE(INFILE) OFILE(OUTFILE)
/*
//
Additional Information:
The CA SymDump Batch utility program CAOUPRTU is outlined in the utilities section of the online documentation.

If you have any questions or encounter any problems running the JCL above, please open a case with CA technical support for product CA Symdump Batch. Please attach to the case the JCL submitted and the entire job output for CA technical support to review. One of the CA Symdump batch technicians will review the output and get back to you.