
  PROCEDURE [XREF] fdp$allocate_object
    (    p_form_status: ^fdt$form_status;
     VAR p_form_object_definition: ^fdt$form_object_definition;
     VAR object_index: fdt$object_index;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fdt$form_object_definition
*copyc fdt$form_status
*copyc fdt$object_index
*copyc ost$status
?? POP ??

