 PROCEDURE [XREF] fdp$xget_real_variable (VAR form_identifier: integer;
    VAR variable_name: string ( * );
    VAR variable_occurrence: integer;
    VAR variable: real;
    VAR variable_status: integer;
    VAR status: integer);
