 TYPE
    fdt$variable_status = (fdc$no_error, fdc$invalid_string, fdc$invalid_real,
      fdc$invalid_integer, fdc$unknown_user_value, fdc$invalid_bdp_data,
      fdc$no_digits, fdc$loss_of_significance, fdc$variable_not_filled,
      fdc$overflow, fdc$underflow, fdc$indefinite, fdc$infinite,
      fdc$variable_not_entered, fdc$output_format_bad, fdc$variable_truncated,
      fdc$gr_18_digits,
      fdc$invalid_overpunch_sign, fdc$invalid_separate_sign,
      fdc$c_without_r,  fdc$d_without_b,  fdc$floating_number_too_big,
      fdc$invalid_character_entered, fdc$no_cr_or_db_now,
      fdc$no_plus_or_minus_now,  fdc$no_scientific_notation,
      fdc$nonblk_outside_parentheses, fdc$nonblk_after_trailing_sign,
      fdc$too_many_decimal_points, fdc$too_many_signs);
