  PROCEDURE [XREF] fdp$validate_real
    (    real_number: real;
         valid_real_ranges: fdt$valid_real_ranges;
         p_form_status: ^fdt$form_status;
     VAR variable_status: fdt$variable_status);

?? PUSH (LISTEXT := ON) ??
*copyc fdt$form_status
*copyc fdt$valid_real_ranges
*copyc fdt$variable_status
?? POP ??
