
  PROCEDURE [XREF] clp$create_variable
    (    name: string ( * );
         kind: clt$variable_kinds;
         max_string_size: ost$string_size;
         lower_bound: clt$variable_dimension;
         upper_bound: clt$variable_dimension;
         scope: clt$variable_scope;
     VAR variable: clt$variable_reference;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$ecc_variable
*copyc clt$variable_reference
*copyc clt$variable_scope
*copyc ost$status
*copyc ost$string
?? POP ??
