PROCEDURE install_tdu (
  status)

  VAR
    rav$subproduct_information: (XREF) rat$subproduct_information

    local_status: status
    tdu_catalog: file
  VAREND

  tdu_catalog = rav$subproduct_information.actual_installation_path

  $system.put_line l=' Installing terminal definitions.' o=$job_log
  install_file f=tdu_catalog.CDC_TERMINAL_DEFINITIONS ..
        t=tdu_catalog.TERMINAL_DEFINITIONS ..
        am=(read, execute) sm=(read, execute) status=local_status

  EXIT procedure WITH local_status WHEN NOT local_status.normal

PROCEND install_tdu
