CALL IRRSUM00 (Work_area, ALET, SAF_return_code, ALET, RACF_return_code, ALET, RACF_reason_code, ALET, Flag, ALET, UID, ALET, Userid )