
  PROCEDURE [XREF] clp$create_var_from_type_spec
    (    name: clt$variable_name;
         scope: clt$variable_declaration_scope;
         access_mode: clt$data_access_mode;
         evaluation_method: clt$expression_eval_method;
         type_specification: ^clt$type_specification;
         initial_value: ^clt$data_value;
         require_existing_var_for_push: boolean;
     VAR work_area {input, output}: ^clt$work_area;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$data_access_mode
*copyc clt$data_value
*copyc clt$expression_eval_method
*copyc clt$type_specification
*copyc clt$variable_declaration_scope
*copyc clt$variable_name
*copyc clt$work_area
*copyc ost$status
?? POP ??
