 PROCEDURE [XREF] fdp$xclose_form (VAR form_identifier: integer;
    VAR status: integer);
