#/
#/ This snippet generates a step to copy the production SASHELP data set
#/ into a backup for an Action B or the staged data set for an Action C.
#/
//*
//* Copy production SASHELP
//*
#IF [INSTALL-TO-STAGE] #THEN USESL
#SET [QUAL] .ML
#THEN NEXT
#USESL
#SET [QUAL] [STAGEQUAL]
#NEXT
#TABLEFIX SH  #/ Sashelp
//COPY{MVS2BDSCODE} EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=[SYSOUT]
//SYSIN    DD *
 LISTC ENT('[CUSTPRODQUAL][QUAL].[LOQUAL]')
 IF LASTCC EQ 0 -
 THEN -
   REPRO INDATASET('[CUSTPRODQUAL].[LOQUAL]') -
        OUTDATASET('[CUSTPRODQUAL][QUAL].[LOQUAL]')
/*
