The following sample JCL, found as member DGAXCMP in $CD.SDGASAMP, compresses a physical
sequential (PS) file and stores it as compressed data.
//CDCMP JOB (1004),'BATCH COMPRESS',CLASS=N,MSGCLASS=X,
// COND=(1,LT),REGION=0M
//*
//* ZLIB COMPRESS A FILE IN BATCH
//*
//COMP EXEC PGM=DGASACMP,PARM='MODE=COMP'
//STEPLIB DD DISP=SHR,DSN=$CD.SDGALINK
//INPUT DD DISP=SHR,DSN=$CD.FILE1
//OUTPUT DD DSN=$CD.FILE1.COMP,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(1500,300),RLSE),
// DCB=(BLKSIZE=27920,RECFM=U,DSORG=PS)
//SYSOUT DD SYSOUT=*,DCB=(BLKSIZE=133)
//*
|
The following sample JCL, found as member DGAXDCMP in $CD.SDGASAMP, decompresses a compressed
file and stores it in the original format.
//CDDECMP JOB (1004),'BATCH COMPRESS',CLASS=N,MSGCLASS=X,
// COND=(1,LT),REGION=0M
//*
//* ZLIB DE-COMPRESS A FILE IN BATCH
//*
//DECOMP EXEC PGM=DGASACMP,PARM='MODE=DECOMP'
//STEPLIB DD DISP=SHR,DSN=$CD.SDGALINK
//INPUT DD DSN=$CD.FILE1.COMP,DISP=SHR
//OUTPUT DD DSN=$CD.FILE1.NEW,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(1500,300),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSOUT DD SYSOUT=*
//*
|