Compressing trace data using the batch JCL
The following batch job shows an example of how TRSMAIN is used to compress trace data residing in data set NKA.COLLECT.TRACE and to write it to data set NKA.COLLECT.TRACE.TERSE.
You can use this batch job together with the batch job described in Collecting data by using the batch JCL, if you do not want to use ISPF.
Example:
//**********************************************************************
//* DESCRIPTION: JCL for compressing data from Collect Report Data *
//**********************************************************************
//*
//NKA$D711 JOB (DE03704),'NKA',CLASS=A,MSGCLASS=X,
// REGION=0M,MSGLEVEL=(1,1),PRTY=5,NOTIFY=NKA,TIME=8
//*
//BPACRD EXEC PGM=BPOMAB00
//*
//STEPLIB DD DSN=SYS1.DSN.V910.SDSNLOAD,DISP=SHR
// DD DSN=SYS1.FPE.V540.RKANMOD,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSIN DD DSN=NKA.BPACRD.CNTL(CRD#IN),DISP=SHR
//DPMLOG DD SYSOUT=*
//JOBSUMDD DD SYSOUT=*
//DPCOLLDD DD DSN=NKA.COLLECT.TRACE,
// DISP=(NEW,CATLG),
// DCB=(RECFM=VBS,BLKSIZE=9076,LRECL=32756),
// SPACE=(TRK,(500,100)),UNIT=3390
//RC1OK IF (BPACRD.RC LT 4) THEN
//TERSE EXEC PGM=TRSMAIN,PARM=SPACK
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=NKA.COLLECT.TRACE
//OUTFILE DD DSN=NKA.COLLECT.TRACE.TERSE,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VBS,BLKSIZE=9076,LRECL=32756),
// SPACE=(TRK,(500,100),RLSE),UNIT=3390
//ENDRC1OK ENDIF