
  TYPE
    fdt$cobol_description = record
      cobol_category: fdt$cobol_category,
      cobol_operations: array [1 .. fdc$cobol_operations_max] of
            fdt$cobol_operation,
      cobol_usage: fdt$cobol_usage,
      cr_means: fdt$cobol_cr_db_means, {How "CR" is handled in FREE-FORM}
      db_means: fdt$cobol_cr_db_means, {How "DB" is handled in FREE-FORM}
      display_cr: boolean, {true in source causes destination "CR" to be shown}
      display_db: boolean, {true in source causes destination "DB" to be shown}
      move_operations: integer, {No. of operations for moving DISPLAY into
            {this item}
      number_digits: 0 .. fdc$cobol_digits_maximum,
      operation_characters: array [1 .. fdc$cobol_operations_max] of char,
      operation_numbers: array [1 .. fdc$cobol_operations_max] of
            0 .. fdc$cobol_item_size_maximum,
      sign_index: integer, {0 means no sign, else index to sep or overpunch}
      sign_separate: boolean, {iff separate sign, else overpunch sign}
      significant_digits: -fdc$cobol_digits_maximum .. fdc$cobol_digits_maximum,
      size: 0 .. fdc$cobol_item_size_maximum,
    recend;

*copyc fdc$cobol_digits_maximum
*copyc fdc$cobol_operations_max
*copyc fdc$cobol_item_size_maximum
*copyc fdt$cobol_category
*copyc fdt$cobol_cr_db_means
*copyc fdt$cobol_operation
*copyc fdt$cobol_usage
