 TYPE
    cmt$pp_descriptor = record
      iou: cmt$element_name,
      case use_logical_identification: boolean of
      = TRUE =
        pp_name: cmt$element_name,
      = FALSE =
        concurrent : boolean, { True implies capable of asynchronous transfer. }
        pp_number : ost$physical_pp_number,
      casend,
    recend;

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

