
TYPE
  fdt$usage = (fdc$binary_usage, fdc$computational_usage, fdc$comp_usage,
       fdc$computational_1_usage, fdc$comp_1_usage, fdc$computational_2_usage,
       fdc$comp_2_usage, fdc$computational_3_usage, fdc$comp_3_usage,
        fdc$packed_decimal_usage, fdc$display_usage, fdc$free_form_usage);
