
  PROCEDURE [XREF] clp$produce_variable_ref_expr
    (    class: clt$internal_variable_class;
         name: clt$variable_name;
         value_qualifiers: ^clt$value_qualifiers;
     VAR work_area {input, output} : ^clt$work_area;
     VAR variable: ^clt$variable_ref_expression;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$internal_variable_class
*copyc clt$name
*copyc clt$value_qualifiers
*copyc clt$variable_name
*copyc clt$variable_ref_expression
*copyc clt$work_area
*copyc ost$status
?? POP ??
