CALL IRRSMK00 (Work_area, ALET, SAF_return_code, ALET, RACF_return_code, ALET, RACF_reason_code, Function_code, RACF_name, KERB_name, Data_area, )