Sample JCL to pack or terse data to be sent to CA.

Document ID : KB000052565
Last Modified Date : 14/02/2018
Show Technical Document Details

Description

Can you supply me with sample JCL to pack or terse data to be sent to CA?

Solution

//JOBCARD
//****************************************************
//* TRSMAIN WITH PACK OPTION *
//*** SEE SYSX.SYS.DOCLIB(TRSMAIN) FOR INSTRUCTIONS *
//* INPUT PARAMETERS: *
//* PARM=PACK --> PACK INFILE INTO OUTFILE *
//* PARM=UNPACK > UNPACK INFILE INTO OUTFILE *
//****************************************************
//JOBLIB DD DISP=SHR,DSN=DIST.TRSMAIN.LOADLIB
//STEP1 EXEC PGM=TRSMAIN,PARM=PACK
//SYSPRINT DD SYSOUT=X
//INFILE DD DISP=SHR,
// DSN=INPUT.MVS.DATASET
//OUTFILE DD DISP=(NEW,CATLG),
// DSN=OUTPUT.MVS.DATASET
// SPACE=(CYL,(350,2),RLSE)
//*