#/ ----------------------------------------------------------------------
#/ This is a snippet that is inserted to apply a new SETINIT. It executes
#/ SAS to apply the SETINIT, then creates and runs a shell script to remove
#/ the temporary SETINIT files that were created by the install tool.
#/ ----------------------------------------------------------------------
//SETINIT EXEC PGM=[ENTRY],
//  PARM=('SETINIT MSGCASE ERRORABEND NOWORKTERM',
//        '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]
#IF [INSTALL-NEW] #THEN SKIPHELP
#TABLEFIX SH  #/ SASHELP
//[DFLTDDN] DD DISP=OLD,
//  DSN=[CUSTPRODQUAL][STAGEQUAL].[LOQUAL]
#SKIPHELP
#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='!1'
#IFNOT [INSTALL-NEW] #THEN SKIPHELP
SASHELP=+
[SETINITDIR1]+
[SETINITDIR2]+
[SETINITDIR3]
#SKIPHELP
#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)
//SYSIN    DD DATA,DLM='!2'
%let path = [SETINIT_LOCATION1];
%let path = &path.[SETINIT_LOCATION2];
%let path = &path.[SETINIT_LOCATION3];
%include "&path" ;
proc setinit;
run;
!2
#IFNOT [INSTALL-NEW] #THEN EXIT
//SASICPY EXEC PGM=[ENTRY],COND=(0,LT),
//  PARM=('SETINIT MSGCASE ERRORABEND NOWORKTERM',
//        '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 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='!3'    #/ Using configuration file for install, not customer's
SASHELP=+
[SETINITDIR1]+
[SETINITDIR2]+
[SETINITDIR3]
#SNIPPETINSERT SASDefaultConfig.txt
!3
//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='!4'
#TABLEFIX SH  #/ SASHELP
proc setinit;
libname help '[CUSTPRODQUAL].[LOQUAL]' disp=old;
proc fcopy in=SASHELP out=help;
run;
!4
#EXIT
