@Kc2,
I have a macro function that will return a three character abbreviation for the type of session I'm running.
- CLI = Command Line Interface (command prompt)
- SEG = SAS Enterprise Guide
- DMS = Display Manager Session ("PC SAS")
- SCS = SAS Connect Session (SAS via RSubmit)
I then use the type of session to determine which bit of code to execute.
In my Autoexec.sas, I have some macro variables defined which are needed by this macro:
%LET Nte1 = NOTE:;
%LET Nte2 = NOTE-;
%LET Warn1 = WARN:;
%LET Warn2 = WARN-;
%LET Err1 = ERROR:;
%LET Err2 = ERROR-;
%LET sQuote = %STR(%');
Here, below is the macro if it's helpful.
/*-------------------------------------------------------------------------------*/
/* Macro: Get_Process_Mode
/* Author: Jim Barbour (Jim.Barbour@gmail.com)
/* Date: 23 August 2019
/* Info: This is a macro function. This macro checks the automatic macro
/* variable SysProcessMode and returns a three character abbreviation
/* specifying the process mode as follows:
/* CLI = Command Line Interface, a MS DOS Command window or .bat file.
/* DMS = SAS Display Manager, a.k.a. "PC SAS" or "SAS for Windows".
/* SEG = SAS Enterprise Guide ("EG").
/* SCS = SAS Connect Session, code submitted via an RSUBMIT.
/*
/* Process mode indicates how a given SAS session was instanciated, i.e..
/* from the command line or via a .bat file (CLI), via Display Manager
/* (DMS), via SAS Enterprise Guide (SEG), or via an RSUBMIT (SCS).
/*-------------------------------------------------------------------------------*/
/* CHANGE LOG
/*-------------------------------------------------------------------------------*/
/* Name: Jim Barbour Date: 23 August 2019
/* Info: Original implementation.
/*-------------------------------------------------------------------------------*/
%MACRO Get_Process_Mode(Override=, Debug=NO);
%LOCAL L_Process_Mode;
%IF %QUPCASE(&Debug) = YES %THEN
%DO;
%PUT &Nte2;
%PUT &Nte1 **************************;
%PUT &Nte2 Starting Get_Process_Mode.;
%PUT &Nte2 &=SysProcessMode &=Override &=L_Process_Mode;
%END;
%IF %BQUOTE(&Override) ^= %BQUOTE() %THEN
%IF %EVAL(%QUPCASE(&Override) IN CLI, DMS, SEG, SCS) %THEN
%DO;
%LET L_Process_Mode = %QUPCASE(&Override);
%END;
%ELSE
%DO;
%PUT &Warn2;
%PUT &Warn2 +----------------------------------------------+;
%PUT &Warn1 | Invalid override of &Override in Get_Process_Mode. |;
%PUT &Warn2 +----------------------------------------------+;
%Abort_Pgm;
%*Set_RC(SYSCC, 4);
%END;
%ELSE
%IF %QUPCASE(&SysProcessMode) = %QUPCASE(SAS DMS Session) %THEN
%DO;
%LET L_Process_Mode = DMS;
%END;
%ELSE
%IF %QUPCASE(&SysProcessMode) = %QUPCASE(SAS Workspace Server) %THEN
%DO;
%LET L_Process_Mode = SEG;
%END;
%ELSE
%IF %QUPCASE(&SysProcessMode) = %QUPCASE(SAS Batch Mode) %THEN
%DO;
%LET L_Process_Mode = CLI;
%END;
%ELSE
%IF %QUPCASE(&SysProcessMode) = %QUPCASE(SAS Connect Session) %THEN
%DO;
%LET L_Process_Mode = SCS;
%END;
%ELSE
%DO;
%PUT &Warn2;
%PUT &Warn2 +-------------------------------------------------------------+;
%PUT &Warn1 | Unknown mode of &squote.&SysProcessMode.&squote in Get_Process_Mode. |;
%PUT &Warn2 +-------------------------------------------------------------+;
%END;
%IF %QUPCASE(&Debug) = YES %THEN
%DO;
%PUT &Nte2 Ending Get_Process_Mode.;
%PUT &Nte2 &=SysProcessMode &=Override &=L_Process_Mode;
%PUT &Nte2 **************************;
%END;
%IF &True %THEN
%DO;
&L_Process_Mode
%END;
%MEND Get_Process_Mode;
Then a macro like the below can be written to execute the appropriate code for a given session type:
%MACRO Get_Path(Debug=NO);
%GLOBAL lCmnt Pgm Path;
%IF %QUPCASE(&Debug) = YES %THEN
%DO;
%PUT &Nte1 Debug is on in macro &SysMacroName;
%LET lCmnt = ;
%END;
%ELSE
%DO;
%LET lCmnt = *;
%END;
%IF %Get_Process_Mode = DMS %THEN
%DO;
%LET Path = %QSUBSTR(%SYSGET(SAS_EXECFILEPATH),1,%LENGTH(%SYSGET(SAS_EXECFILEPATH))-%LENGTH(%SYSGET(SAS_EXECFILENAME))-1);
%LET Pgm = %QSUBSTR(%SYSGET(SAS_EXECFILENAME),1,%LENGTH(%SYSGET(SAS_EXECFILENAME))-4);
%END;
%ELSE
%IF %Get_Process_Mode = SEG %THEN
%DO;
%LET Path = %QSYSFUNC(COMPRESS(&_SASPROGRAMFILE,&sQuote));
%&lCmnt.PUT &Nte1 &=Path;
%IF %BQUOTE(&Path) = %BQUOTE() %THEN
%LET Path = Embedded_In_Project;
%ELSE
%LET Path = %QSUBSTR(&Path, 1, %EVAL(%QSYSFUNC(LENGTH(&Path)) - %QSYSFUNC(INDEX(%QSYSFUNC(REVERSE(&Path)),\))));
%&lCmnt.PUT &Nte1 &=Path;
%LET Pgm = %QSYSFUNC(STRIP(%QSYSFUNC(TRANWRD(%QSYSFUNC(COMPRESS(&_CLIENTTASKLABEL, &sQuote)),.sas,))));
%&lCmnt.PUT &Nte1 &=Pgm;
%END;
%ELSE
%IF %Get_Process_Mode = CLI %THEN
%DO;
%LET Path = %QSUBSTR(%QSYSFUNC(GETOPTION(sysin)), 1, %EVAL(%QSYSFUNC(LENGTH(%QSYSFUNC(GETOPTION(sysin)))) - %QSYSFUNC(INDEX(%QSYSFUNC(REVERSE(%QSYSFUNC(GETOPTION(sysin)))),\))));
%&lCmnt.PUT &Nte1 &=Path;
%LET Pgm = %QSUBSTR(%QSYSFUNC(GETOPTION(sysin)), 1, %LENGTH(%QSYSFUNC(GETOPTION(sysin))) - 4);
%&lCmnt.PUT &Nte1 &=Pgm;
%LET Pgm = %SCAN(&Pgm, %EVAL(%QSYSFUNC(COUNT(&Pgm, \)) + 1), \);
%&lCmnt.PUT &Nte1 &=Pgm;
%END;
%ELSE
%IF %Get_Process_Mode = SCS %THEN
%DO;
%LET Path = Unknown;
%LET Pgm = %QSYSFUNC(STRIP(%QSYSFUNC(TRANWRD(%QSYSFUNC(COMPRESS(&_CLIENTTASKLABEL, &squote)),.sas,))));
%END;
%ELSE
%DO;
%PUT &Warn2;
%PUT &Warn2 +----------------------------------------------------------+;
%PUT &Warn1 | Unknown mode of &squote.%Get_Process_Mode&squote encountered in macro Get_Path. |;
%PUT &Warn2 +----------------------------------------------------------+;
%END;
%MEND Get_Path;
Jim
Click image to register for webinar
