
 PROCEDURE [XREF] cmp$reserve_element (
    VAR {input,output} element : array [ * ] of cmt$element_reservation;
    VAR status: ost$status);

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