
  PROCEDURE [XREF] cmp$delete_all_elements (exclude_element_list_p :
          ^array [ * ] of cmt$element_name;
      VAR status : ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_name
?? POP ??
