
  TYPE
    clt$command_table_entry = record
      name: clt$command_name,
      class: clt$named_entry_class,
      availability: clt$named_entry_availability,
      ordinal: clt$named_entry_ordinal,
      log_option: clt$command_log_option,
      case call_method: clt$command_call_method of
      = clc$linked_call =
        command: clt$command,
      = clc$unlinked_call, clc$proc_call, clc$program_call =
        procedure_name: pmt$program_name,
      casend,
    recend;

*copyc clt$command_call_method
*copyc clt$command_log_option
*copyc clt$command_name
*copyc clt$command_processor
*copyc clt$named_entry_availability
*copyc clt$named_entry_class
*copyc clt$named_entry_ordinal
*copyc pmt$program_name
