PROCEDURE rap$commit_new_system (
  set_flag, sf: boolean = true
  status)

VAR
  local_status: status
VAREND


  IF $job(system) THEN
    dsp$commit_new_system set_flag status=local_status
  ELSE
    local_status = $status(FALSE, 'RA', rae$must_initiate_from_system,'COMMIT_NEW_SYSTEM')
  IFEND

  EXIT procedure WITH local_status WHEN NOT local_status.normal

PROCEND rap$commit_new_system
