PROC delete_qtfs_for_rhfam (
  status : var of status = $optional
  )


*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'

"   This request deactivates and deletes the RHFAM/VE QTF server application.
*IFEND


  create_variable command_file kind=string value='$local.'//$unique
  create_variable delete_qtfs_status kind=status
  create_variable ignore_status kind=status
  create_variable local_status kind=status

COLLECT_TEXT $fname(command_file) until='COLLECT_END'
  MANAGE_RHFAM_NETWORK
    deactivate_rhfam_server server=qtfs status=delete_qtfs_status
    IF delete_qtfs_status.normal OR ($condition(delete_qtfs_status.condition) ..
          = 'RFE$APPL_ALREADY_INACTIVE') THEN
      delete_rhfam_server server=qtfs status=delete_qtfs_status
    IFEND
    quit
COLLECT_END

  include_file file=$fname(command_file) status=local_status
  delete_file file=$fname(command_file) status=ignore_status
  EXIT_PROC WITH local_status WHEN NOT local_status.normal
  EXIT_PROC WITH delete_qtfs_status WHEN NOT delete_qtfs_status.normal

  put_line line=' QTF server application deleted for RHFAM/VE' output=$response

PROCEND delete_qtfs_for_rhfam
