 TYPE
    cmt$channel_descriptor = record
      iou: cmt$element_name,
      case use_logical_identification: boolean of
      = TRUE =
        name: cmt$element_name,
      = FALSE =
        channel_ordinal: cmt$channel_ordinal,
        concurrent : boolean, { True implies capable of asynchronous transfer. }
        number : ost$physical_channel_number,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_name
*copyc cmt$channel_ordinal
*copyc ost$physical_channel_number
?? POP ??
