 PROCEDURE [XREF] fdp$end_form (form_identifier: fdt$form_identifier;
        p_sequence: ^SEQ ( * );
    VAR number_errors: fdt$number_errors;
    VAR p_errors: ^SEQ ( * );
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc fde$condition_identifiers
*copyc fdt$error_header
*copyc fdt$error_input_conversion
*copyc fdt$error_invalid_value
*copyc fdt$error_no_table_object
*copyc fdt$error_no_table_variable
*copyc fdt$error_no_variable_def
*copyc fdt$error_no_variable_object
*copyc fdt$error_output_conversion
*copyc fdt$error_unequal_tbl_obj_width
*copyc fdt$form_identifier
*copyc fdt$number_errors
?? POP ??






