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.

//* 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