
  FUNCTION [INLINE, UNSAFE] clf#make_record_header_value
    (    number_of_fields: integer;
     VAR work_area: ^clt$work_area): ^clt$data_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      record_p: ^clt$data_value;

    NEXT record_p IN work_area;
    record_p^.kind := clc$record;
    NEXT record_p^.field_values: [1 .. number_of_fields] IN work_area;
    clf#make_record_header_value := record_p;

  FUNCEND clf#make_record_header_value;

*copyc clt$data_value
*copyc clt$work_area
?? POP ??
