?? NEWTITLE := 'FDE$CONDITION_IDENTIFIERS', EJECT ??
?? FMT (FORMAT := OFF) ??

  CONST
    fdc$base_condition=(($integer('F')*100(16))+$integer('D'))*1000000(16),


    fdc$format_display_identifier = 'FD',

    fde$terminal_disconnected = fdc$base_condition + 1,
    {E Terminal disconnected.}

    fde$no_input_request = fdc$base_condition + 2,
    {E No scheduled form has an input field.}

    fde$cursor_not_in_variable = fdc$base_condition + 3,
    {E Cursor is not in a variable field.}

    fde$more_errors_exist = fdc$base_condition + 4,
    {E More errors exist.}

    fde$unknown_form_name = fdc$base_condition + 5,
    {E Form +P does not exist.}

    fde$form_compilation_errors = fdc$base_condition + 6,
    {E Form +P has compilation errors.}

    fde$no_space_available = fdc$base_condition + 7,
    {E Space is not available.}

    fde$unsupported_terminal = fdc$base_condition + 8,
    {E Your terminal is not supported by screen formatting.}

    fde$invalid_form_identifier = fdc$base_condition + 9,
    {E Form identifier +P does not   exist.}

    fde$invalid_user_entry = fdc$base_condition + 10,
    {E Invalid user entry.}

    fde$unknown_variable_name = fdc$base_condition + 11,
    {E Variable +P does not exist for form +P.}

    fde$too_many_integers = fdc$base_condition + 12,
    {E Too many integer ranges specified for validation for form +P.}

    fde$object_name_exists = fdc$base_condition + 13,
    {E Object +P already exists for form +P.}

    fde$work_area_invalid = fdc$base_condition + 14,
    {E Program work area does not match +P form definition.}

    fde$invalid_x_form_position = fdc$base_condition + 15,
    {E X position +P is not valid for form +P.}

    fde$invalid_y_form_position = fdc$base_condition + 16,
    {E Y position +P is not valid for form +P.}

    fde$invalid_width = fdc$base_condition + 17,
    {E Width +P is not valid for form +P.}

    fde$invalid_height = fdc$base_condition + 18,
    {E Height +P is not valid for form +P.}

    fde$invalid_message_form_name = fdc$base_condition + 19,
    {E Message form +P is not a valid name for form +P.}

    fde$invalid_occurrence = fdc$base_condition + 20,
    {E Occurrence +P is not valid for object +P form +P.}

    fde$invalid_character_position = fdc$base_condition + 21,
    {E Character position +P is not valid for object +P form +P.}

    fde$invalid_mode = fdc$base_condition + 22,
    {E Invalid mode for variable +P, form +P.}

    fde$invalid_state = fdc$base_condition + 23,
    {E Invalid state.}

    fde$invalid_variable_value = fdc$base_condition + 24,
    {E Variable +P has invalid value for form +P.}

    fde$invalid_object_name = fdc$base_condition + 25,
    {E Object +P is not a valid name for form +P.}

    fde$invalid_form_name = fdc$base_condition + 26,
    {E Form +P is not a valid name.}

    fde$form_closed = fdc$base_condition + 27,
    {E Form +P is not open.}

    fde$too_many_attributes = fdc$base_condition + 28,
    {E Too may display attributes for form +P.}

    fde$invalid_attribute_name = fdc$base_condition + 29,
    {E Attribute +P is not a valid   name for form +P.}

    fde$too_many_screen_occurrence = fdc$base_condition + 30,
    {E Too many visible occurrences for table +P, form +P.}

    fde$no_form_definition = fdc$base_condition + 31,
    {E No form definition.}

    fde$too_many_stored_occurrence = fdc$base_condition + 32,
    {E Too many stored occurrences   for table +P, form +P.}

    fde$unknown_object_name = fdc$base_condition + 33,
    {E Object +P does not exist for form +P.}

    fde$no_define_object_name = fdc$base_condition + 34,
    {E Object +P must be defined for form +P.}

    fde$invalid_name = fdc$base_condition + 35,
    {E +P is a not a valid name.}

    fde$system_error = fdc$base_condition + 36,
    {E System error +P on form +P.}

    fde$invalid_table_name = fdc$base_condition + 37,
    {E Table +P is not a valid name for form +P.}

    fde$invalid_variable_name = fdc$base_condition + 38,
    {E Variable +P is not a valid name for form +P.}

    fde$form_pushed = fdc$base_condition + 39,
    {E Pushed form +P cannot be manipulated.}

    fde$unknown_table_name = fdc$base_condition + 40,
    {E Table +P does not exist for   form +P.}

    fde$no_table_variable_defined = fdc$base_condition + 41,
    {E No variable defined for table +P, form +P.}

    fde$no_forms_to_pop = fdc$base_condition + 42,
    {E There are no forms to pop.}

    fde$only_character_data = fdc$base_condition + 43,
    {E Only character data.}

    fde$only_noncharacter_data = fdc$base_condition + 44,
    {E Only noncharacter data.}

    fde$form_definition_errors = fdc$base_condition + 45,
    {E Form definition errors.}

    fde$no_forms_to_push = fdc$base_condition + 46,
    {E No forms are scheduled to push.}

    fde$invalid_program_values = fdc$base_condition + 47,
    {E Invalid program values exist.}

    fde$input_has_unknown_value = fdc$base_condition + 48,
    {E Terminal user indicated an unknown value.}

    fde$invalid_input_values = fdc$base_condition + 49,
    {E Terminal user entered invalid input.}

    fde$not_an_input_variable = fdc$base_condition + 50,
    {E Not an input variable.}

    fde$cursor_not_in_form = fdc$base_condition + 51,
    {E Cursor is not in any form.}

    fde$form_has_no_variables = fdc$base_condition + 52,
    {I Form +P has no variables. }

    fde$no_forms_to_show = fdc$base_condition + 53,
    {E No forms are scheduled to show.}

    fde$form_not_scheduled = fdc$base_condition + 54,
    {E Form +P instance is not scheduled.}

    fde$invalid_event_name = fdc$base_condition + 55,
    {E Event +P is not a valid name for form +P.}

    fde$invalid_x_position = fdc$base_condition + 56,
    {E X position +P is not valid for form +P.}

    fde$invalid_y_position = fdc$base_condition + 57,
    {E Y position +P is not valid for form +P.}

    fde$unknown_event_name = fdc$base_condition + 58,
    {E Event +P does not exist for   form +P.}

    fde$invalid_deck_name = fdc$base_condition + 59,
    {E Deck +P is not a valid name   for form +P.}

    fde$invalid_record_name = fdc$base_condition + 60,
    {E Record +P is not a valid name for form +P.}

    fde$object_exists = fdc$base_condition + 61,
    {E Object already exists at x position +P, y position +P for form +P.}

    fde$table_name_exists = fdc$base_condition + 62,
    {E Table +P already exists for form +P.}

    fde$object_overlays = fdc$base_condition + 63,
    {E Object at x position +P, y position +P, ..
    {overlays an existing object on form +P.}

    fde$too_many_reals = fdc$base_condition + 64,
    {E Too many ranges specified for validation of real numbers for form
    {+P.}

    fde$too_many_strings = fdc$base_condition + 65,
    {E Too many strings specified for validation of strings for form +P.}

    fde$no_object_at_position = fdc$base_condition + 66,
    {E No object at x position +P,   y position +P for form +P.}

    fde$array_too_small = fdc$base_condition + 67,
    {E Array is too small.}

    fde$string_too_small = fdc$base_condition + 68,
    {E String is too small.}

    fde$variable_name_exists = fdc$base_condition + 69,
    {E Variable +P already exists for form +P.}

    fde$form_already_added = fdc$base_condition + 70,
    {E Form +P is already added.}

    fde$invalid_event_active = fdc$base_condition + 72,
    {E Invalid event active.}

    fde$cannot_update_opened_form = fdc$base_condition + 73,
    {E Open form, form +P, cannot be updated.}

    fde$help_form_exists = fdc$base_condition + 74,
    {E Help form already exists for form +P.}

    fde$error_form_exists = fdc$base_condition + 75,
    {E Error form already exists for form +P.}

    fde$error_message_exists = fdc$base_condition + 76,
    {E Error message already exists for form +P.}

    fde$help_message_exists = fdc$base_condition + 77,
    {E Help message already exists   for form +P.}

    fde$invalid_display_name = fdc$base_condition + 78,
    {E Display +P is not a valid name for form +P.}

    fde$invalid_real_range = fdc$base_condition + 79,
    {E Real range +P - +P is not valid for variable +P, form +P.}

    fde$invalid_integer_range = fdc$base_condition + 80,
    {E Integer range +P - +P is not valid variable +P, form +P.}

    fde$unknown_integer_range = fdc$base_condition + 81,
    {E Integer range +P - +P is not known for variable +P, form +P.}

    fde$unknown_real_range = fdc$base_condition + 82,
    {E Real range +P - +P does not   exist for variable +P, form +P.}

    fde$unknown_valid_string = fdc$base_condition + 83,
    {E Validation string +P does not exist for variable +P, form +P.}

    fde$display_name_exists = fdc$base_condition + 84,
    {E Display +P already exists for form +P.}

    fde$event_name_exists = fdc$base_condition + 85,
    {E Event +P already exists for   form +P.}

    fde$unknown_display_name = fdc$base_condition + 86,
    {E Display +P does not exist for form +P.}

    fde$too_many_form_names = fdc$base_condition + 87,
    {E There are too many form names.}

    fde$too_many_form_objects = fdc$base_condition + 88,
    {E There are too many object names for form +P.}

    fde$no_text_at_position = fdc$base_condition + 89,
    {E No text at x equals +P, y equals +P, form +P.}

    fde$no_text_for_object = fdc$base_condition + 90,
    {E Object +P requires text for   form +P.}

    fde$unknown_occurrence = fdc$base_condition + 91,
    {E Occurrence +P does not exist for object +P form +P.}

    fde$no_string = fdc$base_condition + 92,
    {E A string is required.}

    fde$range_overlap = fdc$base_condition + 93,
    {E There is a range +P - +P overlap for variable +P, form +P.}

    fde$no_comments_to_delete = fdc$base_condition + 94,
    {E There are no comments to delete for form +P.}

    fde$object_occurrence_exists = fdc$base_condition + 95,
    {E Occurrence +P already exists for object +P for form +P.}

    fde$no_string_specified = fdc$base_condition + 96,
    {E A string must be specified.}

    fde$valid_string_exists = fdc$base_condition + 97,
    {E Validation string +P already exists for variable +P, form +P.}

    fde$invalid_object_change = fdc$base_condition + 98,
    {E Object change +P is not valid.}

    fde$invalid_address = fdc$base_condition + 99,
    {E Address is not valid in request for form +P.}

    fde$terminal_not_identified = fdc$base_condition + 100,
    {E Terminal name does not exist in terminal definitions. Use ..
    {SET_TERMINAL_ATTRIBUTES command with parameter TERMINAL_NAME.}

    fde$invalid_form_language = fdc$base_condition + 101,
    {E Form language +P is not valid for form +P.}

    fde$invalid_form_area_key = fdc$base_condition + 102,
    {E Form area key is not valid for form +P.}

    fde$form_name_required = fdc$base_condition + 103,
    {E A form name is required to save a form.}

    fde$no_forms_to_read = fdc$base_condition + 104,
    {E No forms scheduled to read.}

    fde$invalid_help_form_name = fdc$base_condition + 105,
    {E Help form +P is not a valid   name for form +P.}

    fde$invalid_error_form_name = fdc$base_condition + 106,
    {E Error form +P is not a valid name for form +P.}

    fde$create_mark_invalid = fdc$base_condition + 107,
    {E Create mark is only valid on a design form. Form is +P.}

    fde$delete_mark_invalid = fdc$base_condition + 108,
    {E Delete mark is only valid on a design form. Form is +P.}

    fde$no_mark_defined = fdc$base_condition + 109,
    {E No mark defined for form +P.}

    fde$area_cuts_object = fdc$base_condition + 110,
    {E Area cuts object at x = +P,  y = +P on form +P.}

    fde$copy_outside_form = fdc$base_condition + 111,
    {E Copy area outside of form +P.}

    fde$move_outside_form = fdc$base_condition + 112,
    {E Move area outside of form +P.}

    fde$invalid_form_attribute = fdc$base_condition + 113,
    {E Invalid form attribute for form +P.}

    fde$invalid_record_attribute = fdc$base_condition + 114,
    {E Invalid record attribute for form +P.}

    fde$invalid_object_key = fdc$base_condition + 115,
    {E Invalid object key for form +P.}

    fde$invalid_object_attribute = fdc$base_condition + 116,
    {E Invalid object attribute for form +P.}

    fde$invalid_table_attribute = fdc$base_condition + 117,
    {E Invalid table attribute for form +P.}

    fde$program_data_type = fdc$base_condition + 118,
    {E Invalid program data type for form +P.}

    fde$invalid_output_format_key = fdc$base_condition + 119,
    {E Invalid output format key for form +P.}

    fde$invalid_error_key = fdc$base_condition + 120,
    {E Invalid error key for form +P.}

    fde$invalid_variable_attribute = fdc$base_condition + 121,
    {E Invalid variable attribute for form +P.}

    fde$invalid_help_key = fdc$base_condition + 123,
    {E Invalid help key for form +P.}

    fde$feature_not_implemented = fdc$base_condition + 124,
    {E Feature +P is not implemented.}

    fde$cannot_change_form = fdc$base_condition + 125,
    {E Form +P, cannot be changed.}

    fde$invalid_record_type = fdc$base_condition + 126,
    {E Invalid record type for form +P.}

    fde$object_not_in_form  = fdc$base_condition + 127,
    {E Object at x position +P, y position +P is not inside form +P.}

    fde$invalid_form_processor = fdc$base_condition + 128,
    {E Invalid form processor for form +P.}

    fde$invalid_x_increment = fdc$base_condition + 129,
    {E  X increment +P is not valid for form +P.}

    fde$invalid_y_increment = fdc$base_condition + 130,
    {E Y increment +P is not valid for form +P.}

    fde$form_too_large_for_screen = fdc$base_condition + 131,
    {E Form +P at x=+P, y=+P, width=+P, height=+P outside of screen.}

    fde$invalid_text_processing = fdc$base_condition + 132,
    {E Invalid text processing for form +P.}

    fde$invalid_design_form = fdc$base_condition + 133,
    {E Form +P is not a design form.}

    fde$no_object_variable_defined = fdc$base_condition + 134,
    {E No variable defined for object +P, form +P.}

    fde$event_not_assigned = fdc$base_condition + 135,
    {E Form +P cannot be assigned a terminal event for event name +P.}

    fde$form_not_ended = fdc$base_condition + 136,
    {E Form +P was not ended.}

    fde$invalid_event_form_name = fdc$base_condition + 137,
    {E Form +P has invalid event form name +P.}

    fde$invalid_event_form_key = fdc$base_condition + 138,
    {E Form +P has invalid event form definition key.}

    fde$form_already_open = fdc$base_condition + 139,
    {E Form +P is already open.}

    fde$invalid_event_label = fdc$base_condition + 140,
    {E Event label +P is not a valid name for form +P.}

    fde$form_requires_conversion = fdc$base_condition + 141,
    {E Form +P requires conversion.}

    fde$no_events_active = fdc$base_condition + 142,
    {E Screen must have some active events.}

    fde$delete_outside_form = fdc$base_condition + 143,
    {E Delete area outside of form +P.}

    fde$mark_outside_form = fdc$base_condition + 144,
    {E Mark area outside of form +P.}

    fde$bad_data_value = fdc$base_condition + 145,
    {E Bad data value.}

    fde$record_defn_not_written = fdc$base_condition + 146,
    {E Cannot produce a FORTRAN record definition for form +P.}

    fde$wrong_variable_type = fdc$base_condition + 147,
    {E This command expects a variable type of +P.}

    fde$invalid_variable_length = fdc$base_condition + 148,
    {E Variable +P has invalid length +P for form +P.}

    fde$event_trigger_exists = fdc$base_condition + 149,
    {E Event trigger already exists for form +P.}

    fde$form_already_combined = fdc$base_condition + 150,
    {E Form +P is already combined.}

    fde$invalid_table_size = fdc$base_condition + 151,
    {E Invalid table size for table +P, form +P.}

    fde$form_not_added = fdc$base_condition + 152,
    {E Form +P not added.}

    fde$invalid_input_format_key = fdc$base_condition + 153,
    {E Invalid input format key for form +P.}

    fde$system_error_message = fdc$base_condition + 154,
    {I Please correct. }

    fde$system_help_message = fdc$base_condition + 155,
    {I Please enter. }

    fde$system_bad_key_message = fdc$base_condition + 156,
    {I Key has no meaning for cursor position. }

    fde$width_and_height_required = fdc$base_condition + 157,
    {E Form +P requires width and height. }

    fde$no_variable_definition = fdc$base_condition + 158,
    {E Form +P requires a variable definition for +P, occurrence +P.}

    fde$no_table_variable = fdc$base_condition + 159,
    {E Form +P requires a variable definition for table +P, variable +P.}

    fde$no_variable_object = fdc$base_condition + 160,
    {E Form +P requires an object for variable +P, occurrence +P.}

    fde$no_table_object = fdc$base_condition + 161,
    {E Form +P requires object for table +P, variable +P.}

    fde$unequal_tbl_obj_width = fdc$base_condition + 162,
    {E Form +P has inconsistent object width for object +P, occurrence +P.}

    fde$error_input_conversion = fdc$base_condition + 163,
    {E Form +P variable +P, occurrence +P cannot be converted ..
    {to program data type using input format definition.}

    fde$error_output_conversion = fdc$base_condition + 164,
    {E Form +P variable +P, occurrence +P program data value cannot be ..
    {displayed on form using output format definition.}

    fde$error_invalid_value = fdc$base_condition + 165,
    {E Form +P object +P, occurrence +P has an invalid initial value.}

    fde$terminal_timed_out = fdc$base_condition + 166,
    {E Terminal timed out.}

    fde$object_width_required = fdc$base_condition + 167,
    {E Form +P object +P requires a width.}

    fde$no_forms_are_scheduled = fdc$base_condition + 168,
    {E No forms are scheduled. }

    fde$cobol_19_fraction_digits = fdc$base_condition + 169,
    {E Cannot enter more than 18 digits to right of decimal point.}

    fde$cobol_19_sig_digits = fdc$base_condition + 170,
    {E Cannot enter more than 18 digits to left of decimal point.}

    fde$cobol_bad_overpunch_sign = fdc$base_condition + 171,
    {E Expected source overpunch sign to be A..R, "{" or ")".}

    fde$cobol_bad_picture = fdc$base_condition + 172,
    {E Each PICTURE character is legal, but the combination is not.}

    fde$cobol_bad_separate_sign = fdc$base_condition + 173,
    {E Expected source separate sign to be "+" or "-".}

    fde$cobol_binary_means_numeric = fdc$base_condition + 174,
    {E USAGE IS BINARY, COMPUTATIONAL, or COMP can only be used ..
    {with a PICTURE describing a numeric signed or unsigned item.}

    fde$cobol_c_without_r = fdc$base_condition + 175,
    {E "C" must be followed by "R" to form "CR".}

    fde$cobol_comp_1_means_no_pic = fdc$base_condition + 176,
    {E USAGE IS COMPUTATIONAL-1 can only be used without a PICTURE.}

    fde$cobol_comp_2_means_no_pic = fdc$base_condition + 177,
    {E USAGE IS COMPUTATIONAL-2 can only be used without a PICTURE.}

    fde$cobol_CR_DB_must_be_right = fdc$base_condition + 178,
    {E CR and DB must be rightmost in PICTURE.}

    fde$cobol_d_without_b = fdc$base_condition + 179,
    {E "D" must be followed by "B" to form "DB".}

    fde$cobol_float_must_be_left = fdc$base_condition + 180,
    {E Floating symbols in a PICTURE must occur in left-most digits.}

    fde$cobol_float_too_big = fdc$base_condition + 181,
    {E The integer portion of a COMPUTATIONAL-1 or COMPUTATIONAL-2 value ..
    {must be less than 1,000,000,000,000,000,000.}

    fde$cobol_free_form_not_dest = fdc$base_condition + 182,
    {E Free form field cannot be destination of fdp$move_to_cobol.}

    fde$cobol_illegal_char_entered = fdc$base_condition + 183,
    {E Only characters produced by numeric-edited may be entered, ..
    {plus "(" and ")", with lower case accepted. ..
    {These are digits, space, ".", "+", "-", "CR", "DB", "$", "#", "*", "/",  ..
    {or ",".}

    fde$cobol_illegal_pic_char = fdc$base_condition + 184,
    {E An illegal character is used in a PICTURE.}

    fde$cobol_insert_left_of_float = fdc$base_condition + 185,
    {E Simple insertion characters cannot appear at left of floating string.}

    fde$cobol_item_too_big = fdc$base_condition + 186,
    {E The number of character positions described in a ..
    {PICTURE cannot exceed 1,048,575.}

    fde$cobol_no_cr_or_db_now = fdc$base_condition + 187,
    {E CR and DB are not allowed for this field now.}

    fde$cobol_no_plus_or_minus_now = fdc$base_condition + 188,
    {E "+", "-", and "(...)" are not allowed in this field now. }
    {Use "CR" or "DB".}

    fde$cobol_no_multiple_points = fdc$base_condition + 189,
    {E numeric-edited PICTURE cannot have multiple points.}

    fde$cobol_no_rep_after_point = fdc$base_condition + 190,
    {E PICTURE cannot have repetition count for decimal point.}

    fde$cobol_no_rep_for_cr_db = fdc$base_condition + 191,
    {E PICTURE cannot have repetition count for CR or DB.}

    fde$cobol_no_scientific = fdc$base_condition + 192,
    {E Scientific notation is not allowed.}

    fde$cobol_nonblk_outside_paren = fdc$base_condition + 193,
    {E Parentheses, when used, must surround all non-spaces.}

    fde$cobol_nondigit_rep_count = fdc$base_condition + 194,
    {E In a PICTURE, characters between a left and right parentheses ..
    { are a repetition count, and must be decimal digits.}

    fde$cobol_not_both_v_and_p = fdc$base_condition + 195,
    {E "V" and "P" cannot both be used in a PICTURE.}

    fde$cobol_not_9p9 = fdc$base_condition + 196,
    {E Cannot have P's between 9's in PICTURE.}

    fde$cobol_not_p9p = fdc$base_condition + 197,
    {E Cannot have 9's between P's in PICTURE.}

    fde$cobol_packed_means_num_pic = fdc$base_condition + 198,
    {E USAGE IS PACKED-DECIMAL or  COMPUTATIONAL-3 ..
    {can only be used with a PICTURE describing a numeric item. }

    fde$cobol_right_flt_means_all = fdc$base_condition + 199,
    {E In a PICTURE, if any digits to the right of the decimal point ..
    {are floating symbols (e.g. ++ -- ZZ ** $$ ##) then all digits must be ..
    {represented by the floating symbol, which must also appear to the ..
    {left of the decimal point (i.e. "VZZZ" is not allowed).}

    fde$cobol_s_must_be_first = fdc$base_condition + 200,
    {E The "S" must be the first character in the PICTURE.}

    fde$cobol_sign_needs_s = fdc$base_condition + 201,
    {E For item with SIGN clause, PICTURE must have leading "S".}

    fde$cobol_too_many_vs = fdc$base_condition + 202,
    {E Only one "V" can be in a PICTURE.}

    fde$cobol_trailing_sign_nonblk = fdc$base_condition + 203,
    {E Only spaces can follow trailing "+", "-", "CR", or "DB".}

    fde$cobol_two_points_entered = fdc$base_condition + 204,
    {E Only a single decimal point may be entered.}

    fde$cobol_two_floating = fdc$base_condition + 205,
    {E PICTURE cannot have two different floating symbols.}

    fde$cobol_two_signs = fdc$base_condition + 206,
    {E PICTURE cannot have two sign symbols.}

    fde$cobol_two_signs_entered = fdc$base_condition + 207,
    {E Can have only one sign ("+", "-", "CR", "DB", or "(...)").}

    fde$cobol_unbal_parens = fdc$base_condition + 208,
    {E PICTURE has left parenthesis without matching right parenthesis.}

    fde$cobol_unknown_usage = fdc$base_condition + 209,
    {E Unrecognized USAGE keyword.}

    fde$cobol_wrong_sign_vs_usage = fdc$base_condition + 210,
    {E A SIGN clause can only be used with an item having default USAGE or ..
    {USAGE IS DISPLAY.}

    fde$cobol_usage_size_too_big = fdc$base_condition + 211,
    {E A USAGE IS FREE-FORM value cannot be longer than 255 characters.}

    fde$too_many_fraction_digits = fdc$base_condition + 213,
    {E Cannot enter more than 18 digits to right of decimal point ..
    {for variable +P, form +P.}

    fde$too_many_significant_digits = fdc$base_condition + 214,
    {E Cannot enter more than 18 digits to left of decimal point ..
    {for variable +P, form +P.}

    fde$invalid_picture = fdc$base_condition + 215,
    {E Each PICTURE character is legal, but the combination is not ..
    {for variable +P, form +P.}

    fde$binary_requires_numeric = fdc$base_condition + 216,
    {E USAGE IS BINARY, COMPUTATIONAL, or COMP can only be used ..
    {with a PICTURE describing a numeric signed or unsigned item ..
    {for variable +P, form +P.}

    fde$picture_invalid_for_comp_1 = fdc$base_condition + 217,
    {E USAGE IS COMPUTATIONAL-1 can only be used without a PICTURE ..
    {for variable +P, form +P.}

    fde$picture_invalid_for_comp_2 = fdc$base_condition + 218,
    {E USAGE IS COMPUTATIONAL-2 can only be used without a PICTURE ..
    {for variable +P, form +P.}

    fde$CR_DB_must_be_rightmost = fdc$base_condition + 219,
    {E CR and DB must be rightmost in PICTURE for variable +P, form +P.}

    fde$floating_symbols_invalid = fdc$base_condition + 220,
    {E Floating symbols in a PICTURE must occur in left-most digits ..
    {for variable +P, form +P.}

    fde$invalid_picture_character = fdc$base_condition + 221,
    {E An illegal character is used in a PICTURE for variable +P, form +P.}

    fde$insertion_symbols_invalid = fdc$base_condition + 222,
    {E Simple insertion characters cannot appear at left of floating string ..
    {for variable +P, form +P.}

    fde$picture_item_too_big = fdc$base_condition + 223,
    {E The number of character positions described in a ..
    {PICTURE cannot exceed 1,048,575 for variable +P, form +P.}

    fde$too_many_decimal_points = fdc$base_condition + 224,
    {E numeric-edited PICTURE cannot have multiple points ..
    {for variable +P, form +P.}

    fde$no_repetition_after_point = fdc$base_condition + 225,
    {E PICTURE cannot have repetition count for decimal point ..
    {for variable +P, form +P.}

    fde$no_repetition_for_cr_db = fdc$base_condition + 226,
    {E PICTURE cannot have repetition count for CR or DB ..
    {for variable +P, form +P.}

    fde$nondigit_repetition = fdc$base_condition + 227,
    {E In a PICTURE, characters between a left and right parentheses ..
    { are a repetition count, and must be decimal digits ..
    {for variable +P, form +P.}

    fde$v_and_p_invalid = fdc$base_condition + 228,
    {E "V" and "P" cannot both be used in a PICTURE ..
    {for variable +P, form +P.}

    fde$p_between_9_invalid = fdc$base_condition + 229,
    {E Cannot have P's between 9's in PICTURE ..
    {for variable +P, form +P.}

    fde$9_between_p_invalid = fdc$base_condition + 230,
    {E Cannot have 9's between P's in PICTURE ..
    {for variable +P, form +P.}

    fde$packed_requires_numeric = fdc$base_condition + 231,
    {E USAGE IS PACKED-DECIMAL or  COMPUTATIONAL-3 ..
    {can only be used with a PICTURE describing a numeric item ..
    {for variable +P, form +P.}

    fde$invalid_right_floating = fdc$base_condition + 232,
    {E In a PICTURE, if any digits to the right of the decimal point ..
    {are floating symbols (e.g. ++ -- ZZ ** $$ ##) then all digits must be ..
    {represented by the floating symbol, which must also appear to the ..
    {left of the decimal point (i.e. "VZZZ" is not allowed) ..
    {for variable +P, form +P.}

    fde$s_must_be_first = fdc$base_condition + 233,
    {E The "S" must be the first character in the PICTURE ..
    {for variable +P, form +P.}

    fde$picture_requires_sign = fdc$base_condition + 234,
    {E For item with SIGN clause, PICTURE must have leading "S" ..
    {for variable +P, form +P.}

    fde$too_many_vs = fdc$base_condition + 235,
    {E Only one "V" can be in a PICTURE for variable +P, form +P.}

    fde$too_many_floating_symbols = fdc$base_condition + 236,
    {E PICTURE cannot have two different floating symbols ..
    {for variable +P, form +P.}

    fde$too_many_sign_symbols = fdc$base_condition + 237,
    {E PICTURE cannot have two sign symbols for variable +P, form +P.}

    fde$unbalanced_parentheses = fdc$base_condition + 238,
    {E PICTURE has left parenthesis without matching right parenthesis ..
    {for variable +P, form +P.}

    fde$invalid_usage = fdc$base_condition + 239,
    {E usage must be binary, comp, computational, comp-1, computational-1 ..
    {comp-3, computational-3, packed-decimal, or display ..
    {for variable +P, form +P.}

    fde$invalid_sign_for_usage = fdc$base_condition + 240,
    {E A SIGN clause can only be used with an item having default USAGE or ..
    {USAGE IS DISPLAY for variable +P, form +P.}

    fde$input_format_invalid_cobol = fdc$base_condition + 241,
    {E Form +P variable +P cannot use input format for COBOL data type.}

    fde$output_format_invalid_cobol = fdc$base_condition + 242,
    {E Form +P variable +P cannot use output format for COBOL data type.}

    fde$unexpected_call_to = fdc$base_condition + 243,
    {E Unexpected call to +P. }

    fde$form_not_displayed = fdc$base_condition + 244,
    {E Form +P is not currently displayed. }

    fde$cobol_invalid_manage_form = fdc$base_condition + 245,
    {E MANAGE_FORM cannot use COBOL data type. Variable is +P on form +P.}

    fde$invalid_cobol_data_type = fdc$base_condition + 246,
    {E COBOL data type cannot be used for non COBOL form processor. Variable ..
    {is +P on form +p.}

    fde$invalid_cobol_category = fdc$base_condition + 247,
    {E Numeric or alphanumeric edited category cannot be used for COBOL ..
    {program clause. Alphanumeric edited or numeric signed ..
    {category cannot be used for display clause.  Variable is +P on form +P. }

    fde$cobol_destination_invalid = fdc$base_condition + 248,
    {E The destination area for data does not match COBOL description. The ..
    {COBOL description has size +P, but the destination area has size +P.}

    fde$cobol_source_invalid = fdc$base_condition + 249,
    {E The source area for data does not match COBOL description.  The COBOL ..
    {description has size +P, but the source area has size +P.}

    fde$object_size_cobol_mismatch = fdc$base_condition + 250,
    {E The COBOL description has size +P, but the object has size +P. The ..
    {object is +P on form +P.}

    fde$incompatible_display_clause = fdc$base_condition + 251,
    {E Numeric and numeric edited COBOL display pictures cannot be used with ..
    {alphabetic or alphanumeric program pictures. The variable is +P on ..
    {form +P.}

    fde$incompatible_program_clause = fdc$base_condition + 252,
    {E Numeric COBOL program pictures cannot be used with ..
    {alphabetic or alphanumeric display pictures. The variable is +P on ..
    {form +P.}

    fde$b_invalid_for_picture = fdc$base_condition + 253,
    {E COBOL editing character "B" is invalid in alphabetic picture. ..
    {The variable is +P on form +P.}

    fde$cobol_too_many_digits = fdc$base_condition + 254,
    {E A numeric item may not exceed 18 digit positions.}

    fde$too_many_digits = fdc$base_condition + 255,
    {E Numeric variable +P on form +P may not exceed 18 digit positions.}

    fde$cobol_p_not_supported = fdc$base_condition + 256,
    {E COBOL editing symbol "P" is not supported.}

    fde$p_invalid_for_picture = fdc$base_condition + 257;
    {E COBOL editing symbol "P" is not valid in picture clause. ..
    {The variable is +P on form +P.}

?? FMT (FORMAT := ON) ??
?? OLDTITLE ??

