How to copy a CA SymDump Batch PRINTLIB dump report to another smaller repository using utility CAOUPRTU.
Article ID: 24613
Updated On:
Products
Issue/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
Resolution
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
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.
Feedback
