PROCEDURE dum$locate_file_type, locate_file_type, locft (
  file_type, ft: key
      dmc$permanent, dmc$device, dmc$temp_named, dmc$temp_unnamed, dmc$catalog
      dmc$temp_global, dmc$server_file
    keyend = dmc$server_file
  display_option, do: key
      (full, f, all)
      (brief, b)
    keyend = brief
  output, o: file = $output
  status)

  EXIT_PROC WITH $status(FALSE, 'US', 0, 'LOCATE_FILE_TYPE command has been replaced with ..
commands LOCATE_FILE_KIND and LOCATE_FILE_MEDIA.')

PROCEND dum$locate_file_type
