27%macro irmst_load_trans_matrix_results(
31 function_package = work.rating_format,
41 outds = work._tmp_workgroups_,
55 %
if %qupcase(&debug) in (Y YES 1 TRUE) %then
64 create table work.get_sks as
65 select distinct insttype,
67 tm_model_sk as model_sk
68 from &model_group_map;
78 %irmst_create_rating_formats(
79 tm_model_sk = &model_sk,
80 function_lib = %scan(&function_package,1,.),
81 package_name = %scan(&function_package,2,.),
83 mipurl = %superq(mipurl),
84 tgt_ticket = %superq(tgt_ticket),
88 workgroup = &workgroup,
89 authMethod = &authMethod,
91 outVarTicket = &outVarTicket,
92 outSuccess = &outSuccess,
93 outResponseStatus = &outResponseStatus,
94 restartLUA = &restartLUA,
95 clearCache = &clearCache
98 %irmst_build_tm_from_cube(
99 mi_cube_name = &run_name,
100 workgroup = &workgroup,
101 function_package = &function_package,
102 scenario_meta = &scenario_meta,
103 output_tbl = work.tbl_frm_cube,
105 mipurl = %superq(mipurl),
106 tgt_ticket = %superq(tgt_ticket)
109 proc transpose data = work.tbl_frm_cube
110 name = to_risk_rating
111 out = work.tbl_frm_cube_trans (rename = (col1 = pd_value
112 Evaldate = scenario_date
113 from_rating = from_risk_rating
114 mrskey = scenario_sk)
121 from_rating notsorted;
127 data work.tbl_frm_cube_trans_ordered;
128 length from_risk_rating
130 set work.tbl_frm_cube_trans (drop = horizon);
131 format scenario_date date9.;
136 create table &tm_to_load as
137 select a.model_group_sk,
140 from work.get_sks as a,
141 work.tbl_frm_cube_trans_ordered as b
142 where upcase(a.insttype) eq upcase(b.insttype)
149 %if %qupcase(&_debug_) eq NO %then
152 drop table work.get_sks,
154 work.tbl_frm_cube_trans,
155 work.tbl_frm_cube_trans_ordered;
159%mend irmst_load_trans_matrix_results;