TYPE
   fdt$cobol_usage = (
      fdc$cobol_usage_binary,   {COMPUTATIONAL,  or COMP,  or BINARY}
      fdc$cobol_usage_display,
      fdc$cobol_usage_double,   {COMPUTATIONAL-2 or COMP-2}
      fdc$cobol_usage_packed,   {COMPUTATIONAL-3 or COMP-3 or PACKED-DECIMAL}
      fdc$cobol_usage_single);  {COMPUTATIONAL-1 or COMP-1}
