 TYPE
    fdt$form_identifier = 1 .. fdc$maximum_form_identifier;

*copyc fdc$maximum_form_identifier
