 TYPE
    fdt$current_form_identifier = 0 .. fdc$maximum_form_identifier;

*copyc fdc$maximum_form_identifier
