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