 TYPE
    fdt$character_position = 1 .. fdc$max_character_position;

*copyc fdc$max_character_position
