 TYPE
    fdt$input_format = record
      case key: fdt$input_format_key of

      = fdc$character_input_format, fdc$alphabetic_input_format,
        fdc$digits_input_format, fdc$real_input_format,
          fdc$signed_input_format, fdc$ydm_format, fdc$mdy_format,
          fdc$dmy_format, fdc$iso_date_format, fdc$month_dd_yyyy_format,
          fdc$undefined_input_format =
        ,
      = fdc$currency_input_format =
        input_currency_format: fdt$input_currency_format,
      casend
    recend;

*copyc fdt$input_format_key
*copyc fdt$input_currency_format
