#BEGINBUCKET SASREGISTRYPOSTPROCESS
#/ ----------------------------------------------------------------------
#/ This template is to process the hostdel and hostext registry entries
#/ after the rest of the registry is installed.  It corrects portable
#/ non-MVS entries. This template resolves only if the order contains
#/ BASE and contains hostdel and hostext registry content.
#/ ----------------------------------------------------------------------
#BEGININSTANCEQUALIFIERS
#IFEQ [HOST] z64 #THEN ENDQUALIFIERS
#IFNOTEQ {PRODUCT} base #THEN DOESNOTQUALIFY
#IFNOTEQ {ARTIFACTTYPE} XRG #THEN DOESNOTQUALIFY
#IFNOTEQ {LANG} en #THEN DOESNOTQUALIFY
#FORALL <MEMBER>
#IFEQ {MODULENAME} hostdel.sasxreg #CREATEINSTANCEFROMENTRY
#IFEQ {MODULENAME} hostext.sasxreg #CREATEINSTANCEFROMENTRY
#THEN DOESNOTQUALIFY
#ENDFORALL
#DOESNOTQUALIFY
#ENDQUALIFIERS
#/ -------------------------------------------------------------------
#BEGINPREFIX
#/ -------------------------------------------------------------------
//SASPPSR EXEC PGM=[ENTRY],
//  PARM=('SETINIT MSGCASE ERRORABEND NOWORKTERM',
#IFEQ [ORDERENCODING] WU #://        'CAPSOUT',
//        'MACRO ERRORCHECK=STRICT SASUSER=WORK')
#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]
#TABLEFIX SH  #/ Sashelp
#IFNOT [INSTALL-TO-STAGE] #THEN NOTSTAGEDINSTALL
//SASHELP  DD DISP=OLD,
//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#THEN NEXT
#NOTSTAGEDINSTALL
//SASHELP DD DISP=OLD,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#NEXT
#TABLEFIX AU  #/ Autocalls
//[DFLTDDN] DD DISP=SHR,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#IFEQ [HOST] z64 #THEN SKIPSM
#TABLEFIX SM  #/ SAS messages
//[DFLTDDN] DD DISP=SHR,
//  DSN=[CUSTPRODQUAL].[LOQUAL]
#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='!^'
#SNIPPETINSERT SASDefaultConfig.txt
!^
//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
%macro imprtxrg;               #/ Invoke SAS macro compiler.
#/ -------------------------------------------------------------------
#BEGININSTANCE
#/ -------------------------------------------------------------------
#/ This piece processes the EN
data _null_; %let ssddir1 =  #/ pull in root dir in parts to fix FB80 MVS lines
[SSDDIR1]                    #/ part 1 of path
; %let ssddir2 =
[SSDDIR2]                    #/ part 2 of path
; %let ssddir3 =
[SSDDIR3]                    #/ part 3 of path
; %let ssddir4 =
[SSDDIR4]                     #/ altsku portion of path
; %let ssdxrg = /en/regdest.xrg;
 filename inxrg
  " &ssddir1&ssddir2&ssddir3&ssddir4&ssdxrg/hostdel.sasxreg";
 proc registry usesashelp uninstall=inxrg;
 run;
 filename inxrg clear;
 filename inxrg
  " &ssddir1&ssddir2&ssddir3&ssddir4&ssdxrg/hostext.sasxreg";
 proc registry usesashelp import=inxrg;
 run;
 filename inxrg clear;
#/ -------------------------------------------------------------------
#BEGINSUFFIX
#/ -------------------------------------------------------------------
%mend imprtxrg; %imprtxrg    #/ close macro and execute macro
!^
#/NOTAPP
//*
#ENDBUCKET SASREGISTRYPOSTPROCESS
