TYPE

   fdt$cobol_category = (
      fdc$cobol_numeric_unsigned,
      fdc$cobol_numeric_signed,
      fdc$cobol_alphanumeric,
      fdc$cobol_alphabetic,
      fdc$cobol_numeric_edited,
      fdc$cobol_alphanumeric_edited,
      fdc$cobol_free_form);
