 TYPE
    fdt$output_currency_format = record
      currency_sybmol: string (1),
      thousands_separator: string (1),
      decimal_point: string (1),

{ Field_width, sign_treatment, and suppress_leading_zeros
{ are not used for fdc$program_cobol_type.

      field_width: fdt$text_length,
      sign_treatment: fdt$sign_treatment,
      suppress_leading_zeros: boolean {TRUE to suppress} ,
    recend;

*copyc fdt$text_length
*copyc fdt$sign_treatment
