
  TYPE
    fdt$picture = string (fdc$maximum_picture_length);

*copyc fdc$maximum_picture_length
