31%macro irm_session_prepare();
39 %let old_logOptions = %sysfunc(getoption(mprint));
44 option metauser =
"" metapass =
"";
50 %
if not %symexist(IRM_NODE_NAME) %then
51 %global irm_node_name;
54 %let irm_node_name = Not Available;
55 proc sql outobs = 1 nowarn noprint;
58 prxchange(
"s/([\\\/][^\\\/]+){4}$//i", -1, xpath) as fa_path
60 , scan(xpath, -1,
"/\") as node_name
71 /* Programs executed via the %include statement are temporary filerefs */
73 /* Look for .sas extension */
74 and scan(xpath, -1, ".
") = "sas
"
75 /* Look for 'nodes' in the path */
76 and index(xpath, "nodes
") > 0
82 /* Set the RMC_FA_ID macro variable if not passed from outside through the macro varload facility (RUN_OPTION) */
83 %if(not %symexist(RMC_FA_ID)) %then
84 %let rmc_fa_id = rmc.*;
86 /* make sure the RMC_FA_ID is not blank */
87 %if %sysevalf(%superq(rmc_fa_id) =, boolean) %then
88 %let rmc_fa_id = rmc.*;
90 /* Set SASAUTOS for RMC */
91 %irm_set_fa_sasautos(fa_id = &rmc_fa_id.
93 , insert_after = &fa_path.
97 /* Set LUAPATH for RMC */
98 %irm_set_fa_luapath(fa_id = &rmc_fa_id.
100 , insert_after = &fa_path.
104 /* Restore initial MPRINT option */
105 option &old_logOptions.;
107 /* Set Logging options */
108 %irm_set_logging_options();
110 /* Set System options */
111 %irm_set_system_options();