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


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

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


  create_variable command_file kind=string value='$local.'//$unique
  create_variable delete_qtf_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_client client=qtf status=delete_qtf_status
    IF delete_qtf_status.normal OR ($condition(delete_qtf_status.condition) = ..
          'RFE$APPL_ALREADY_INACTIVE') THEN
      delete_rhfam_client client=qtf status=delete_qtf_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_qtf_status WHEN NOT delete_qtf_status.normal

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

PROCEND delete_qtf_for_rhfam
