TYPE
   fdt$cobol_cr_db_means = (
      fdc$cobol_positive,                              {Value is set positive}
      fdc$cobol_negative,                              {Value is set negative}
      fdc$cobol_1_quadrillion,       {1,000,000,000,000,000 is added to value}
      fdc$cobol_2_quadrillion,       {2,000,000,000,000,000 is added to value}
      fdc$cobol_cr_set,                                      {cr field is set}
      fdc$cobol_db_set,                                      {db field is set}
      fdc$cobol_cr_db_illegal);                    {"CR" and "DB" are illegal}
