TYPE
  fdt$cobol_picture_symbols = string (* <= fdc$maximum_picture_length);

*copyc fdc$maximum_picture_length

