BEGINBUCKET COMPRESSPDS
#/ ------------------------------------------------------------------
#/ This template generates a job step to compress an MVS PDS.
#/ ------------------------------------------------------------------
#BEGINDEFS
#/ ------------------------------------------------------------------
#/EXCEPTIONFORMISSINGSYMBOL
#/ ------------------------------------------------------------------
#BEGININSTANCEQUALIFIERS
#TABLEFIX {MVS2BDSCODE} #/ Fix ds table row from the instance.
#IFEQ [DATASETTYPE] PDS #THEN QUALIFIES
#THEN NEXT
#QUALIFIES
#SET [DSLANGCODE] {LANG2BCODE}
#INSTANCEUNIQUEKEY [LOQUAL] #NOTUNIQUE NEXT
#CREATEINSTANCEFROMENTRY
#NEXT
#BEGINPREFIX
#/ -------------------------------------------------------------------
#BEGININSTANCE
#/ -------------------------------------------------------------------
//COMPR{MVS2BDSCODE} EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=[SYSOUT]
//SYSUT3   DD UNIT=[TMPUNI],SPACE=(TRK,(1,1))
//SYSUT4   DD UNIT=[TMPUNI],SPACE=(TRK,(1,1))
//DDIN     DD DSN=[CUSTPRODQUAL].[LOQUAL],DISP=OLD                #/ Production library
//SYSIN    DD DATA,DLM='!1'
COMPR{MVS2BDSCODE} COPY INDD=DDIN,OUTDD=DDIN
!1
//*
#/ ----------------------------------------------------------------------
#BEGINSUFFIX 
#/ -------------------------------------------------------------------
#ENDBUCKET COMPRESSPDS
