
      { Common deck cmp$search_peripheral_table }

   PROCEDURE [XREF] cmp$search_peripheral_table (
            element_descriptor : cmt$element_descriptor;
            element_reservation : cmt$element_reservation;
            not_in_configuration : BOOLEAN;
        VAR table_index : integer;
        VAR status : ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_descriptor
*copyc cmt$element_reservation
*copyc ost$status
?? POP ??
