
  PROCEDURE [XREF] cmp$retrieve_logical_pp_index
    (    channel: cmt$physical_channel;
         iou_number: dst$iou_number;
         logical_pp_table_p: ^cmt$logical_pp_table;
     VAR logical_pp_index: iot$pp_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$logical_pp_table
*copyc ost$status
*copyc cmt$physical_channel
?? POP ??
