25%irm_session_prepare();
28%rsk_dir_list(directory = &sas_risk_workgroup_dir./groups
29 , ds_out = tmp_dir_content
36 create table tmp_workgroups as
40 , t2.file_name as WORKGROUP
44 tmp_dir_content as t2 on
52 DETAIL_DATA_DIR $10000.
59 if(not missing(details_root) and not missing(workgroup)) then
do;
60 details_root = resolve(details_root);
61 details_app = resolve(details_app);
62 if(scan(details_root, -1,
"/\") = "SASRiskandFinanceWorkbench
") then do;
63 /* Detail data location will be under <details_root>/work_groups/<Workgroup>/detail_data */
64 detail_data_dir = catx("/
", details_root, ifc(upcase(workgroup) = "PUBLIC
", " ", cats("work_groups/
", workgroup)), "detail_data
");;
66 else if(scan(details_root, -1, "/\
") = "SASRiskWorkGroup
") then do;
67 /* Detail data location will be under <details_root>/groups/<Workgroup>/<details_app>/detail_data */
68 detail_data_dir = catx("/
", details_root, "groups
", workgroup, details_app, "detail_data
");;
71 /* Detail data location will be under <Details Root>/<Workgroup> */
72 detail_data_dir = catx("/
", details_root, workgroup);
75 /* Create the detail data directory (if it does not exist) */
76 str = resolve(cats('%rsk_mkdirs(', detail_data_dir,')'));