PROCEDURE rap$delete_5744_interface (
  terminate_active_connections, tac : boolean = false
  status)

  "$FORMAT=OFF"
  VAR
    command_file     : file =$unique($local)
    ignore_status    : status
    local_status     : status
    delete_status    : status
  VAREND
  "$FORMAT=ON"

  COLLECT_TEXT command_file until='  COLLECT_END'
    $system.osf$command_library.manage_network_applications

      deactivate_tcpip_application application=osa$5744_interface_dgram ..
            tas=$value(terminate_active_connections) ..
            status=delete_status
      IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$APPLICATION_ALREADY_INACTIV') THEN
        delete_tcpip_application application=osa$5744_interface_dgram status=delete_status
        IF delete_status.normal
          put_line ' OSA$5744_INTERFACE_DGRAM application is deleted' o=$response
          delete_status.normal = true
        IFEND
      IFEND

        deactivate_client client=osa$5744_interface_gateway ..
              tac=$value(terminate_active_connections) ..
              status=delete_status
        IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$APPLICATION_ALREADY_INACTIV') THEN
          delete_client client=osa$5744_interface_gateway status=delete_status
          IF delete_status.normal THEN
            put_line ' OSA$5744_INTERFACE_GATEWAY application is deleted' o=$response
            delete_status.normal = true
          IFEND
        IFEND

    quit
  COLLECT_END

  include_file command_file status=local_status
  delete_file command_file  status=ignore_status

  IF NOT delete_status.normal AND ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
    put_line ' OSA$5744_INTERFACE application is unknown' o=$response
    delete_status.normal = true
  IFEND

  EXIT PROCEDURE WITH local_status WHEN NOT local_status.normal
  EXIT PROCEDURE WITH delete_status WHEN NOT delete_status.normal

PROCEND rap$delete_5744_interface

