
{ COMMON DECK CMXDNE }

  PROCEDURE [XREF] cmp$display_named_element (element_name: cmt$element_name;
        iou_name : cmt$element_name;
        display_option : cmt$display_option;
        element_count: integer;
        lc_element : ^array [1 .. * ] of cmt$element_definition;
    VAR display_control: clt$display_control;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_definition
*copyc cmt$display_option
*copyc CMT$ELEMENT_NAME
*copyc CLT$DISPLAY_CONTROL
*copyc OST$STATUS
?? POP ??
