BEGINBUCKET FREESPACE
#/ ------------------------------------------------------------------
#/ This template generates the fixed part of the job step to release
#/ unused space in installed datasets. Instances are created for each
#/ MVS PDS that needs to have space released. The FreeSpaceB template
#/ generates the input to the job step.
#/ ------------------------------------------------------------------
#BEGINDEFS
#/ ------------------------------------------------------------------
#/EXCEPTIONFORMISSINGSYMBOL
#/ ------------------------------------------------------------------
#BEGININSTANCEQUALIFIERS
#TABLEFIX {MVS2BDSCODE} #/ Fix ds table row from the instance.
#IFEQ [DATASETTYPE] PDS #THEN QUALIFIES
#THEN NEXT
#QUALIFIES
#SET [DSLANGCODE] {LANG2BCODE}
#INSTANCEUNIQUEKEY {MVS2BDSCODE}[OUTPDDNAME] [LOQUAL] #NOTUNIQUE NEXT
#CREATEINSTANCEFROMENTRY
#NEXT
#ENDQUALIFIERS
#/ -------------------------------------------------------------------
#BEGINPREFIX
#/ -------------------------------------------------------------------
#/        Prefix invokes SAS from targeted SAS installation
//RLSEA EXEC PGM=IEFBR14
#IFEQ [HOST] z64 #THEN USEZE
#TABLEFIX LD  #/ Load Library
#THEN STEPLIB
#USEZE
#TABLEFIX ZE  #/ 64-bit load library
#STEPLIB
//STEPLIB  DD DISP=SHR,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#//[OUTPDDNAME] DD DISP=(OLD,KEEP),
#//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#TABLEFIX SH  #/ Sashelp
//[DFLTDDN]  DD DISP=SHR,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#//[OUTPDDNAME] DD DISP=(OLD,KEEP),
#//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#TABLEFIX AU  #/ Autocalls
//[DFLTDDN] DD DISP=SHR,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#//[OUTPDDNAME] DD DISP=(OLD,KEEP),
#//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#IFEQ [HOST] z64 #THEN SKIPSM
#TABLEFIX SM  #/ SAS messages
//[DFLTDDN] DD DISP=SHR,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#//[OUTPDDNAME] DD DISP=(OLD,KEEP),
#//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#SKIPSM
//RLSE  EXEC PGM=[ENTRY],COND=(4,LT),
//  PARM=('SETINIT MSGCASE CAPSOUT ERRORABEND NOWORKTERM',
//        'MACRO ERRORCHECK=STRICT SASUSER=WORK')
//STEPLIB  DD DSN=*.RLSEA.STEPLIB,DISP=SHR
//SASHELP  DD DSN=*.RLSEA.SASHELP,DISP=SHR
//SASAUTOS DD DSN=*.RLSEA.SASAUTOS,DISP=SHR
#IFEQ [HOST] z64 #THEN SKIPSM
//SASMSG   DD DSN=*.RLSEA.SASMSG,DISP=SHR
#SKIPSM
//TKMVSENV DD DATA,DLM='!1'
#SNIPPETINSERT SASDefaultTkmvsenv.txt
!1
//WORK     DD UNIT=[TMPUNI],SPACE=(6144,([WORKSPC])),
//         DCB=(RECFM=FS,LRECL=6144,BLKSIZE=6144)
//SASLOG   DD SYSOUT=[SYSOUT]
//SASCLOG  DD SYSOUT=[SYSOUT]
//CONFIG   DD DATA,DLM='!1'
#SNIPPETINSERT SASDefaultConfig.txt
!1
//SASLIST  DD SYSOUT=[SYSOUT]
//SASPARM  DD UNIT=[TMPUNI],SPACE=(400,(100,300)),
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,BUFNO=1)
#/ -------------------------------------------------------------------
#BEGININSTANCE
#/ -------------------------------------------------------------------
//[OUTPDDNAME] DD DISP=SHR,
#IF [NOSAL]  #THEN ALLOCATEATPRODUCTION  #/ Not staged libs permanently production libs
//      DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#THEN SKIP
#ALLOCATEATPRODUCTION
//      DSN=[CUSTPRODQUAL].[LOQUAL]
#SKIP
#BEGINSUFFIX
#ENDBUCKET FREESPACE
