
    TYPE
        rft$channel_descriptors = ARRAY [1..*] OF rft$channel_descriptor;

    TYPE
        rft$channel_descriptor = RECORD
          channel: 0..27,
          number_of_pps: 1..2,
          pp_number: ARRAY [1..2] OF iot$pp_number,
          unit_number: iot$logical_unit,
        RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc iot$pp_number
*copyc iot$logical_unit
?? POP ??
