
  PROCEDURE [INLINE] clp#add_record_field
    (    field_name: string ( * <= 31);
         value: ^clt$data_value;
     VAR record_field_index: 0 .. clc$max_fields;
     VAR record_fwa: ^clt$data_value);

?? PUSH (LISTEXT := ON) ??

    record_field_index := record_field_index + 1;
    #TRANSLATE (osv$lower_to_upper, field_name, record_fwa^.
          field_values^ [record_field_index].name);
    record_fwa^.field_values^ [record_field_index].value := value;

  PROCEND clp#add_record_field;

*copyc clc$max_fields
*copyc clt$data_value
*copyc osv$lower_to_upper
?? POP ??

