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


*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'
"
"    This request deletes the SMTP server.
"
*IFEND


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

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

    deactivate_client client=osa$smtp_server 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$smtp_server status=delete_status
      IF (NOT delete_status.normal) AND ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
        delete_status.normal = true
      IFEND
    IFEND
    deactivate_tcpip_application application=osa$smtp_server 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$smtp_server status=delete_status
        IF (NOT delete_status.normal) AND ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
          delete_status.normal = true
        IFEND
      ELSEIF ($condition(delete_status.condition) = 'NAE$UNKNOWN_APPLICATION') THEN
          delete_status.normal = true
      IFEND
  quit
COLLECT_END

  include_file command_file status=local_status
  delete_file command_file status=ignore_status

  EXIT_PROC WITH local_status WHEN NOT local_status.normal
  EXIT_PROC WITH delete_status WHEN NOT delete_status.normal


PROCEND rap$delete_smtps

