{ XREF DECK CMP$RETURN_DESCRIPTOR_DATA }

  PROCEDURE [XREF] cmp$return_descriptor_data (channel:
    cmt$physical_channel;
        iou_number : dst$iou_number;
        physical_equipment_number: cmt$physical_equipment_number;
        logical_unit_number: iot$logical_unit;
    VAR descriptor_data: ost$string;
    VAR pp_number: 0 .. 0ff(16));

?? PUSH (LISTEXT := ON) ??
*copyc dst$iou_number
*copyc cmt$physical_channel
*copyc cmt$channel_type
*copyc cmt$physical_equipment_number
*copyc iot$logical_unit
*copyc ost$string
?? POP ??
