#BEGINBUCKET COPYSDL
#/ ------------------------------------------------------------------
#BEGINDEFS
#/ ------------------------------------------------------------------
#/EXCEPTIONFORMISSINGSYMBOL
#/ ------------------------------------------------------------------
#BEGININSTANCEQUALIFIERS
#TABLEFIX {MVS2BDSCODE} #/ Fix ds table row from the instance.
#IF [NOSAL] #THEN NEXT  #/ If not a staged library skip it
#IFEQ [HOTFIX] TRUE #THEN ISHF     #/ Hotfix might require SASHELP copy
#IFEQ {MVS2BDSCODE} SH #THEN NEXT  #/ Skip SASHELP, it's copied separately
#ISHF
#IFNOTEQ [DATASETTYPE] SASDATALIB #THEN NEXT
#SET [DSLANGCODE] {LANG2BCODE}
#INSTANCEUNIQUEKEY [LOQUAL] #NOTUNIQUE NEXT
#CREATEINSTANCEFROMENTRY
#NEXT
#BEGINPREFIX
#/ -------------------------------------------------------------------
#BEGININSTANCE
#/ -------------------------------------------------------------------
#/ If the production dataset already exists, copy it to the staging
#/ dataset. Otherwise, do nothing.
//COPY{MVS2BDSCODE} EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=[SYSOUT]
//SYSIN    DD *
 LISTC ENT('[CUSTPRODQUAL].[LOQUAL]')
 IF LASTCC EQ 0 -
 THEN -
   REPRO INDATASET('[CUSTPRODQUAL].[LOQUAL]') -
        OUTDATASET('[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]')
 ELSE -
   SET MAXCC=0	
//*
#/ -------------------------------------------------------------------
#BEGINSUFFIX 
#/ -------------------------------------------------------------------
#ENDBUCKET COPYSDL