 TYPE
    fdt$output_format = record
      case key: fdt$output_format_key of

      = fdc$character_output_format =
        ,

      = fdc$currency_output_format =
        output_currency_format: fdt$output_currency_format,

      = fdc$dmy_output_format =
        { Uses an 8 character field, dd/mm/yy }
        ,

      = fdc$e_e_output_format, fdc$g_e_output_format =
        exponent_output_format: fdt$exponent_output_format,

      = fdc$f_output_format, fdc$e_output_format, fdc$g_output_format =
        float_output_format: fdt$float_output_format,

      = fdc$integer_output_format =
        integer_output_format: fdt$integer_output_format,

      = fdc$iso_output_format =
        { Uses a 10 character field, yyyy-mm-dd }
        ,

      = fdc$mdy_output_format =
        { Uses an 8 character field, mm/dd/yy }
        ,

      = fdc$month_dd_yyyy_out_format =
        { Uses a 18 character field, monthxxxx dd, yyyy }
        ,

      = fdc$undefined_output_format =
        ,

      = fdc$ydm_output_format =
        { Uses an 8 character field, yy/dd/mm }
        ,

      casend
    recend;

*copyc fdt$output_format_key
*copyc fdt$output_currency_format
*copyc fdt$exponent_output_format
*copyc fdt$float_output_format
*copyc fdt$integer_output_format
