2%let irm_fa_id = %sysget(irm_fa_id);
4%let config_set_id = %sysget(config_set_id);
6%let mipWorkgroup = %sysget(mipWorkgroup);
8%let martFolderName = %sysget(martFolderName);
10%let installSampleflg = %sysget(installSampleflg);
13%let sasUser = %sysget(sasUser);
14%let sasPassword = %sysget(sasPassword);
17%let irm_fa_path = %sysfunc(metadata_appprop(IRM Mid-Tier Server, com.sas.solutions.risk.irm.fa.&irm_fa_id.));
18%let irm_appdata_path = %sysfunc(metadata_appprop(IRM Mid-Tier Server, com.sas.solutions.risk.irm.server.appdata));
21%let fa_name = %scan(%bquote(&irm_fa_path.), -1, /\);
22%let source_path = %sysfunc(prxchange(s/[\\\/]&fa_name.$
25option insert = (sasautos = (
"&irm_fa_path./source/sas/ucmacros"));
29%irm_setup(source_path = &source_path.
34%let content_version = %irm_get_content_version(irm_fa_path = &irm_fa_path.);
37%rsk_mkdirs_and_verify(&irm_appdata_path./Reportmart/&martFolderName.);
44%
if(&installSampleflg. = Y) %then %
do;
46 %irm_create_sample_data(source_path = &source_path.
48 , config_set_id = &config_set_id.
50 , load_landing_area = Y
61%irm_get_service_info(SWCName = Model Imp Pltfrm Mid-Tier
62 , DeployedComponentName = Registered SAS Application
69 call symputx(
"mip_protocol", protocol,
"G");
70 call symputx(
"mip_host", host,
"G");
71 call symputx(
"mip_port", port,
"G");
72 call symputx(
"mip_service", ksubstr(service, 2),
"G");
76%let sas_risk_workgroup_dir = %sysfunc(metadata_appprop(Risk Work Group Svr Cfg, root.dir));
78%macro tmp_import_all_mip_ms;
86 %rsk_dir_list(directory = &source_path./mip/modeling_system
87 , ds_out = TMP_DIR_CONTENT
92 call symputx(cats(
"mip_ms_file_", _N_), FILE_PATH,
"L");
93 call symputx(cats(
"mip_ms_name_", _N_), FILE_NAME,
"L");
95 %let TotMipMs = %rsk_attrn(TMP_DIR_CONTENT, nobs);
98 %
do i = 1 %to &TotMipMs.;
101 %irm_file_append(file = &&mip_ms_file_&i..
102 , toFile = &sas_risk_workgroup_dir./groups/&mipWorkgroup./SASModelImplementationPlatform/input/
import/modeling_systems/&&mip_ms_name_&i..
105 %let mipMsName = %sysfunc(prxchange(s/\.mipms$
108 %irm_rest_import_mip_ms(host = &mip_protocol:
110 , server = &mip_service.
111 , username = &sasUser.
112 , password = &sasPassword.
113 , workgroup = &mipWorkgroup.
114 , msName = &mipMsName.
115 , outds = mip_import_details
120%tmp_import_all_mip_ms;