28%irm_session_prepare();
31%irm_rest_get_rgf_mrs(host = &rgf_protocol.:
32 , server = &rgf_service.
33 , solution = &rgf_solution.
35 , tgt_ticket = &tgt_ticket.
36 , filter = filter=hasObjectLinkTo(
'%upcase(&rgf_solution.)',
'analysisRun_masterRisk', %sysfunc(coalescec(&attrib_curr_analysis_run_id., &analysis_run_id.)),0)
38 , outds = curr_mrs_list
39 , outVarTicket = ticket
40 , outSuccess = httpSuccess
41 , outResponseStatus = responseStatus
47 length analysis_run_id 8.;
49 analysis_run_id = %sysfunc(coalescec(&attrib_curr_analysis_run_id., &analysis_run_id.));
54%
if %sysevalf(%superq(attrib_prev_analysis_run_id) ne,
boolean) %then %
do;
55 %irm_rest_get_rgf_mrs(host = &rgf_protocol.:
56 , server = &rgf_service.
57 , solution = &rgf_solution.
59 , tgt_ticket = &tgt_ticket.
60 , filter = filter=hasObjectLinkTo(
'%upcase(&rgf_solution.)',
'analysisRun_masterRisk',&attrib_prev_analysis_run_id.,0)
62 , outds = prev_mrs_list
63 , outVarTicket = ticket
64 , outSuccess = httpSuccess
65 , outResponseStatus = responseStatus
71 length analysis_run_id 8.;
73 analysis_run_id = &attrib_prev_analysis_run_id.;
77 proc append data = prev_mrs_list
85%irm_rest_request(url = &rsm_protocol.:
87 , server = &rsm_service.
88 , tgt_ticket = &tgt_ticket.
90 , outds = tmp_rsm_rest_links
91 , outVarTicket = rsmTicket
92 , outSuccess = rsmHttpSuccess
93 , outResponseStatus = rsmResponseStatus