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

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

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

      deactivate_tcpip_application application=osa$ipc_appl_stream tas=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$ipc_appl_stream status=delete_status
      IFEND

      IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
        delete_status.normal = true
      IFEND

    quit
  COLLECT_END

  $system.include_file command_file

  EXIT PROCEDURE WITH delete_status WHEN NOT delete_status.normal

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

      deactivate_tcpip_application application=osa$ipc_appl_dgram tas=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$ipc_appl_dgram status=delete_status
      IFEND

      IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
        delete_status.normal = true
      IFEND

    quit
  COLLECT_END

  $system.include_file command_file

  EXIT PROCEDURE WITH delete_status WHEN NOT delete_status.normal


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

    deactivate_client client=osa$ipc_applications tac=terminate_active_connections ..
          status=delete_status
    IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$APPLICATION_ALREADY_INACTIV') THEN
      delete_client client=osa$ipc_applications status=delete_status
    IFEND

    IF delete_status.normal OR ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
      delete_status.normal = true
    IFEND

  quit
COLLECT_END

  $system.include_file command_file
  delete_file command_file status=ignore_status

  EXIT_PROC WITH delete_status WHEN NOT delete_status.normal


PROCEND rap$delete_ipc_applications

