PROCEDURE install_exception_policies, insep (
  exception_policies, ep: file = $system.mainframe.osf$site_exception_policies
  status)

  VAR
    default: string = 'Installed system default exception policies.'
    default_error: string = 'System error - unable to install default exception ..
    policies.'
    failure: string ='Exception Policies FAILED to install successfully from file '..
    //$string(exception_policies)//'.  The following STATUS was returned:'
    local_status: status
    policies_installed: boolean = false
    success: string='Exception Policies successfully installed from file '//..
    $string(exception_policies)
  VAREND

  WHEN any_fault exit terminate DO
    " Entering condition handler
    IF NOT policies_installed THEN
      SYSTEM_OPERATOR_UTILITY
        MANAGE_EXCEPTION_POLICIES
          install_default_policies status=local_status
          IF local_status.normal THEN
            $system.display_value default o=$job_log
            $system.display_value default o=$output
            policies_installed = true
          ELSE
            $system.display_value default_error o=$job_log
            $system.send_operator_message default_error
          IFEND
        QUIT
      QUIT
    IFEND
    EXIT install_exception_policies WITH osv$status
  WHENEND

  " The use of DISFA is to overcome a bug with $FILE_ATTRIBUTES for a
  " non-existing file in a catalog to which the referencee is not given
  " CYCLE permission

  $system.display_file_attributes exception_policies ..
        display_options=registered output=$null status=local_status
  IF local_status.normal AND ..
        $file_attributes(exception_policies registered)(1).registered THEN
    include_file exception_policies status=local_status
    IF local_status.normal THEN
      $system.display_value success o=$job_log
      $system.display_value success o=$output
      policies_installed = true
    ELSE
      $system.display_value failure o=$job_log
      $system.display_value failure o=$output
      $system.display_value local_status o=$output
    IFEND
  IFEND

PROCEND install_exception_policies
