 PROCEDURE [XREF] fdp$xget_record (VAR form_idenifier: integer;
    VAR work_area: string (*);
    VAR variable_status: integer;
    VAR status: integer);
