PROCEDURE rap$install_nqs (
  status)

  VAR
    coc: file = $command_of_caller
    ls: status
    source: file = $system.software_maintenance.raf$library
  VAREND

  SYSTEM_OPERATOR_UTILITY system_administration

    create_catalog $system.nqs.control status=ls
    create_catalog $system.nqs.transactions status=ls

    UTILITY n=install_nqs p='in' l=source t=$command
      command n=(define_nqs_host, defnh) p=rap$define_nqs_host
      command n=(define_validation_fields, defvf) p=rap$nqs_define_validation_flds
      command n=(update_network_files, updnf) p=rap$nqs_update_network_files
      command n=(quit, qui, end_install_nqs, endin) p=rap$end_install_nqs
      tablend

      $system.include_file f=coc u=install_nqs

    UTILITYEND
  QUIT

PROCEND rap$install_nqs

