

  PROCEDURE [XREF] cmp$format_error_message (element_descriptor : cmt$element_descriptor;
        physical_id : cmt$physical_identification;
        specified_physical_id : boolean;
        condition : integer;
    VAR status : ost$status);

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

