
  PROCEDURE [XREF] clp$create_environment_variable
    (    name: clt$variable_name_reference;
         scope: clt$environment_variable_scope;
         access_mode: clt$data_access_mode;
         evaluation_method: clt$expression_eval_method;
         type_specification: ^clt$type_specification;
         initial_value: ^clt$data_value;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$var_already_created
*copyc clt$data_access_mode
*copyc clt$data_value
*copyc clt$environment_variable_scope
*copyc clt$expression_eval_method
*copyc clt$type_specification
*copyc clt$variable_name_reference
*copyc ost$status
?? POP ??
