  FUNCTION [INLINE, UNSAFE] clf#make_date_time_value
    (    value: ost$date_time;
     VAR work_area: ^clt$work_area): ^clt$data_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      data_value: ^clt$data_value;

    NEXT data_value IN work_area;
    data_value^.kind := clc$date_time;
    data_value^.date_time_value.value := value;
    data_value^.date_time_value.date_specified := TRUE;
    data_value^.date_time_value.time_specified := TRUE;

    clf#make_date_time_value := data_value;

  FUNCEND clf#make_date_time_value;

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

