
{ COMMON DECK CMXGME }

  PROCEDURE [XREF] cmp$get_mainframe_element (element_name: cmt$element_name;
        iou_name : cmt$element_name;
    VAR mainframe_element: cmt$element_definition;
    VAR status: ost$status);

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