#BEGINBUCKET COPYUPSASREGSTG
#/ ------------------------------------------------------------------
#BEGINDEFS
#/ ------------------------------------------------------------------
#TABLECALL <MVSDSDATATABLE> KEY:MVS2BDSCODE
#/ -------------------------------------------------
#BEGININSTANCEQUALIFIERS
#/  This bucket exists to provide an updatable copy of the registry itemstore in the staged SASHELP if there
#/  are any registry entries (XRG) to install.  This is required because SAS cannot do a lookthru with the
#/  staged registry itemstore.  Only the contents of the staged itemstore will be seen by the running SAS, and
#/  when the updated registry is promoted it can only be copied in its entirety. 
#/ -------------------------------------------------  
#IFNOTEQ {ARTIFACTTYPE} XRG #THEN NOINSTANCEFROMENTRY
#CREATEINSTANCEFROMENTRY
#NOINSTANCEFROMENTRY
#ENDQUALIFIERS
#/ -------------------------------------------------------------------
#BEGINPREFIX
#/ -------------------------------------------------------------------
#/        Prefix invokes SAS from targeted SAS installation
//SASCPYUP EXEC PGM=[ENTRY],                       
//  PARM=('SETINIT MSGCASE CAPSOUT ERRORABEND NOWORKTERM',     
//        'MACRO ERRORCHECK=STRICT SASUSER=WORK')
#TABLEFIX <MVSDSDATATABLE> LD  #/ Load Library
//STEPLIB  DD DISP=SHR,                                        
//  DSN=[CUSTPRODQUAL].[LOQUAL]                                       
#TABLEFIX <MVSDSDATATABLE> AU  #/ Autocalls
//[DFLTDDN] DD DISP=SHR,                                        
//  DSN=[CUSTPRODQUAL].[LOQUAL]                                        
#TABLEFIX <MVSDSDATATABLE> SM  #/ SAS messages
//[DFLTDDN] DD DISP=SHR,                                        
//  DSN=[CUSTPRODQUAL].[LOQUAL]                                        
#TABLEFIX <MVSDSDATATABLE> SH  #/ Sashelp
#SET [SASHELPDDN] [DFLTDDN]
//[DFLTDDN]  DD DISP=SHR,                                        
//  DSN=[CUSTPRODQUAL].[LOQUAL] 
//SASCOPY  DD DISP=OLD,
//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
//WORK     DD UNIT=[TMPUNI],SPACE=(6144,([WORKSPC])),          
//         DCB=(RECFM=FS,LRECL=6144,BLKSIZE=6144)              
//SASLOG   DD SYSOUT=[SYSOUT]                                  
//SASCLOG  DD SYSOUT=[SYSOUT]                                  
//CONFIG   DD DISP=SHR,  #/ Using configuration file for install, not customer's
//         DSN=[CNTLDSN]($CFGINST)                             
//SASLIST  DD SYSOUT=[SYSOUT]                                  
//SASPARM  DD UNIT=[TMPUNI],SPACE=(400,(100,300)),             
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=400,BUFNO=1)         
//SYSIN  DD DATA,DLM='!^'  #/ Begin source code stream for SAS session. Delimiter is !^ in column 1 of line
proc copy in=[SASHELPDDN] out=SASCOPY;
select regstry memtype=itemstor;
run;
!^
#/ -------------------------------------------------------------------
#BEGININSTANCE               #/ This instance is intentionally null
#/ -------------------------------------------------------------------
#BEGINSUFFIX                 #/ This suffix is intentionally null
#/ -------------------------------------------------------------------
#ENDBUCKET COPYUPSASREGSTG
