 PROCEDURE [XREF] fdp$xset_object_attribute (VAR form_identifier: integer;
    VAR object_name: string ( * );
    VAR object_occurrence: integer;
    VAR attribute_name: string ( * );
    VAR status: integer);
