diff --git a/NEWS b/NEWS index 5bd8e095..b8101478 100644 --- a/NEWS +++ b/NEWS @@ -423,6 +423,11 @@ Open Plans: previous versions; sources with *leading* P never worked correct before, and *must* be recompiled after upgrading +** since its addition to GnuCOBOL ROUNDING MODE PROHIBITED just prevented + rounding; its behaviour changed to match the specification by doing that, + raising EC-SIZE-TRUNCATION and changed: not adjust the target field if + rounding would be necessary to store the data + * Listing changes ** the timestamp in the header was changed from ANSI date format like diff --git a/TODO b/TODO index 25f950ef..52595022 100644 --- a/TODO +++ b/TODO @@ -247,3 +247,5 @@ https://sourceforge.net/p/gnucobol/code/HEAD/tree/external-doc/guide/ - Check if should use strcpy or memcpy with computed max-length for file_open_name in fileio.c:cob_open - Check what we should do about the casts used to remove const on open_mode in fileio.c and others (eg. in cob_file_open) + +- Investigate failed manual tests "CRT STATUS clause" and "X/Open CRT STATUS clause" (see r4180) diff --git a/cobc/ChangeLog b/cobc/ChangeLog index 221c6058..4bd1ef3f 100644 --- a/cobc/ChangeLog +++ b/cobc/ChangeLog @@ -50,6 +50,69 @@ * typeck.c (cb_emit_sort_init): generate call to cob_file_sort_options * help.c (cobc_print_usage_dialect): extended -fregister help +2023-05-11 Simon Sobisch + + * cobc.c (cobc_check_valid_name): allow leading underscore, + prevent leading hyphen + * scanner.l (error_literal): change parameter literal_error to unsigned + and raise only a warning for negative values, adjust callers + * scanner.l (scan_x): internally handle odd numbers of x'' literals, + raise only a warning if the size is 1 and relaxed-syntax is active + * parser.y (data_description): improve error handling in DATA DIVISION + to raise less errors and create "validated invalid" fields + +2023-05-10 Simon Sobisch + + * field.c (cb_build_field_tree), parser.y: copy SCREEN SECTION + attributes from parent - instead of doing it in the parser + * parser.y (validate_screen_attributes): extracted duplicate code + * typeck.c (emit_field_accept_display): new function extracted + from (cb_emit_accept), handling both DISPLAY and ACCEPT + * typeck.c (cob_field_display): dropped, replaced in the callers + by call to (emit_field_accept_display) for not generating a call to + fixed-attribute "cob_field_display" but to the varargs + function "cob_display_field" + * codegen.c (output_screen_init), codeoptim.c (COB_SET_SCREEN): + generate screen init not as separate function "cob_set_screen" but + as macro "COB_SET_SCREEN" (there's no need or use to put all + attributes on the stack) + +2023-05-09 Simon Sobisch + + * codegen.c (output_funcall): backup and restore adjusted static fields, + minor refactoring + * codegen.c (output_funcall_item): extracted from (output_funcall) + * typeck.c (cb_emit_accept): dropped cb_gen_field_accept and don't generate + call to fixed-attribute "cob_field_accept", instead generate a call to + the varargs function "cob_accept_field" with passing only the attributes + that are set (including the new CONTROL, COLOR and CURSOR) + +2023-05-08 Simon Sobisch + + * tree.c (cb_build_funcall), tree.h (struct cb_funcall): defined + max. parameters for internal function calls as CB_BUILD_FUNCALL_MAX + and increased it to 14 + + FR #189 + FR #355 - runtime-adjustable attributes for extended screenio + * tree.h (cb_field): new attributes screen_control and screen_color + * tree.h (cb_attr_struct): new attributes control, color and cursor + * parser.y, typeck.c (validate_attrs, cb_emit_accept, cb_emit_display, + emit_field_display_for_last): add complete parsing for CONTROL, + COLOR and CURSOR and set/read new attributes as appropriate + * parser.y: pass COB_SCREEN_CONV to runtime (currently not handled) + +2023-05-05 Simon Sobisch + + * field.c (cb_resolve_redefines): fix #881 wrong REDEFINES error on + fields with redefinition + +2023-05-04 Simon Sobisch + + * typeck.c (cb_build_move_literal): restore writing of negative zero + (DISPLAY overpunched), that was removed undocumented with 2.0 + * typeck.c (cb_build_move_literal): optimized output for literals to + fields with BLANK WHEN ZERO and SIGN LEADING + 2023-04-25 Simon Sobisch * codegen.c (output_so_load_version_check): new function to generate diff --git a/cobc/cobc.c b/cobc/cobc.c index b0ac35d9..0a54396b 100644 --- a/cobc/cobc.c +++ b/cobc/cobc.c @@ -1407,7 +1407,7 @@ cobc_bcompare (const void *p1, const void *p2) enum name_error_reason { INVALID_LENGTH = 1, EMPTY_NAME, - SPACE_UNDERSCORE_FIRST_CHAR, + SPACE_HYPHEN_FIRST_CHAR, GNUCOBOL_PREFIX, C_KEYWORD, CONTAINS_DIRECTORY_SEPARATOR @@ -1427,8 +1427,8 @@ cobc_error_name (const char *name, const enum cobc_name_type type, case EMPTY_NAME: s = _(" - name cannot be empty"); break; - case SPACE_UNDERSCORE_FIRST_CHAR: - s = _(" - name cannot begin with space or underscore"); + case SPACE_HYPHEN_FIRST_CHAR: + s = _(" - name cannot begin with space or hyphen"); break; case GNUCOBOL_PREFIX: s = _(" - name cannot begin with 'cob_' or 'COB_'"); @@ -1498,8 +1498,8 @@ cobc_check_valid_name (const char *name, const enum cobc_name_type prechk) /* missing check (here): encoded length > internal buffer, see cob_encode_program_id */ - if (*name == '_' || *name == ' ') { - cobc_error_name (name, prechk, SPACE_UNDERSCORE_FIRST_CHAR); + if (*name == '-' || *name == ' ') { + cobc_error_name (name, prechk, SPACE_HYPHEN_FIRST_CHAR); return 1; } @@ -2119,14 +2119,15 @@ set_compile_date (void) { static int sde_todo = 0; if (sde_todo == 0) { - char *s = getenv ("SOURCE_DATE_EPOCH"); + unsigned char *s = (unsigned char *) getenv ("SOURCE_DATE_EPOCH"); sde_todo = 1; if (s && *s) { if (cob_set_date_from_epoch (¤t_compile_time, s) == 0) { set_compile_date_tm (); return; } - cobc_err_msg (_("environment variable '%s' has invalid content"), "SOURCE_DATE_EPOCH"); + cobc_err_msg (_("environment variable '%s' has invalid content"), + "SOURCE_DATE_EPOCH"); if (!cb_flag_syntax_only) { cb_source_file = NULL; cobc_abort_terminate (0); diff --git a/cobc/codegen.c b/cobc/codegen.c index f1e88c2c..9c84e713 100644 --- a/cobc/codegen.c +++ b/cobc/codegen.c @@ -4847,12 +4847,26 @@ output_funcall_typed (struct cb_funcall *p, const char type) } +static void COB_INLINE COB_A_INLINE +output_funcall_item (cb_tree x, const int i, unsigned int func_nolitcast) +{ + if (x && CB_LITERAL_P (x)) { + nolitcast = func_nolitcast; + } else { + nolitcast = 0; + } + output_param (x, i); +} + + static void output_funcall (cb_tree x) { struct cb_funcall *p; cb_tree l; int i; + const int nolitcast_origin = nolitcast; + const int screenptr_origin = screenptr; p = CB_FUNCALL (x); if (p->name[0] == '$') { @@ -4863,33 +4877,22 @@ output_funcall (cb_tree x) screenptr = p->screenptr; output ("%s (", p->name); for (i = 0; i < p->argc; i++) { + if (i) { + output (", "); + } if (p->varcnt && i + 1 == p->argc) { - output ("%d, ", p->varcnt); - for (l = p->argv[i]; l; l = CB_CHAIN (l)) { - if (CB_VALUE (l) && CB_LITERAL_P (CB_VALUE (l))) { - nolitcast = p->nolitcast; - } - output_param (CB_VALUE (l), i); - nolitcast = 0; - i++; - if (CB_CHAIN (l)) { - output (", "); - } - } - } else { - if (p->argv[i] && CB_LITERAL_P (p->argv[i])) { - nolitcast = p->nolitcast; - } - output_param (p->argv[i], i); - nolitcast = 0; - if (i + 1 < p->argc) { + output ("%d", p->varcnt); + for (l = p->argv[i]; l; l = CB_CHAIN (l), i++) { output (", "); + output_funcall_item (CB_VALUE (l), i, p->nolitcast); } + } else { + output_funcall_item (p->argv[i], i, p->nolitcast); } } output (")"); - nolitcast = 0; - screenptr = 0; + nolitcast = nolitcast_origin; + screenptr = screenptr_origin; } static void @@ -10338,13 +10341,13 @@ output_screen_definition (struct cb_field *p) static void output_screen_init (struct cb_field *p, struct cb_field *previous) { - int type; - - type = (p->children ? COB_SCREEN_TYPE_GROUP : + const int type = (p->children ? COB_SCREEN_TYPE_GROUP : p->values ? COB_SCREEN_TYPE_VALUE : (p->size > 0) ? COB_SCREEN_TYPE_FIELD : COB_SCREEN_TYPE_ATTRIBUTE); + output_prefix (); - output ("cob_set_screen (&%s%d, ", CB_PREFIX_SCR_FIELD, p->id); + output ("COB_SET_SCREEN (%s%d, %d, 0x" CB_FMT_LLX ", ", + CB_PREFIX_SCR_FIELD, p->id, type, p->screen_flag); if (p->sister && p->sister->level != 1) { output ("&%s%d, ", CB_PREFIX_SCR_FIELD, p->sister->id); @@ -10376,10 +10379,10 @@ output_screen_init (struct cb_field *p, struct cb_field *previous) if (type == COB_SCREEN_TYPE_FIELD) { output_param (cb_build_field_reference (p, NULL), -1); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", "); output_newline (); output_prefix (); @@ -10388,24 +10391,24 @@ output_screen_init (struct cb_field *p, struct cb_field *previous) if (type == COB_SCREEN_TYPE_VALUE) { /* Need a field reference here */ output_param (cb_build_field_reference (p, NULL), -1); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", "); if (p->screen_line) { output_param (p->screen_line, 0); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", "); if (p->screen_column) { output_param (p->screen_column, 0); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", "); output_newline (); output_prefix (); @@ -10413,28 +10416,26 @@ output_screen_init (struct cb_field *p, struct cb_field *previous) if (p->screen_foreg) { output_param (p->screen_foreg, 0); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", "); if (p->screen_backg) { output_param (p->screen_backg, 0); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", "); if (p->screen_prompt) { output_param (p->screen_prompt, 0); - output (", "); } else { - output ("NULL, "); + output ("NULL"); } + output (", %d);", p->occurs_min); output_newline (); - output_line ("\t\t %d, %d, 0x" CB_FMT_LLX ");", - type, p->occurs_min, p->screen_flag); /* TODO: pass information for USAGE CONTROL items here */ @@ -13489,6 +13490,8 @@ output_internal_function (struct cb_program *prog, cb_tree parameter_list) output_line ("/* Initialize SCREEN items */"); /* Initialize items with VALUE */ output_initial_values (prog->screen_storage); + /* output structure, note: this can be quite complex + and nested, therefore this isn't done in the header */ output_screen_init (prog->screen_storage, NULL); output_newline (); } @@ -14004,7 +14007,6 @@ output_entry_function (struct cb_program *prog, cb_tree entry, } } - /* We have to cater for sticky-linkage here at the entry point site. Doing it in the internal function is too late as we then do not diff --git a/cobc/codeoptim.c b/cobc/codeoptim.c index 57ae735d..16cac1e5 100644 --- a/cobc/codeoptim.c +++ b/cobc/codeoptim.c @@ -56,29 +56,22 @@ cob_gen_optim (const enum cb_optim val) switch (val) { case COB_SET_SCREEN: - output_storage ("static void COB_NOINLINE"); - output_storage ("cob_set_screen (cob_screen *s, cob_screen *next,"); - output_storage (" cob_screen *prev, cob_screen *child, cob_screen *parent,"); - output_storage (" cob_field *field, cob_field *value,"); - output_storage (" cob_field *line, cob_field *column,"); - output_storage (" cob_field *foreg, cob_field *backg, cob_field *prompt,"); - output_storage (" const int type, const int occurs, const int attr)"); - output_storage ("{"); - output_storage (" s->next = next;"); - output_storage (" s->prev = prev;"); - output_storage (" s->child = child;"); - output_storage (" s->parent = parent;"); - output_storage (" s->field = field;"); - output_storage (" s->value = value;"); - output_storage (" s->line = line;"); - output_storage (" s->column = column;"); - output_storage (" s->foreg = foreg;"); - output_storage (" s->backg = backg;"); - output_storage (" s->prompt = prompt;"); - output_storage (" s->type = type;"); - output_storage (" s->occurs = occurs;"); - output_storage (" s->attr = attr;"); - output_storage ("}"); + output_storage ("#define COB_SET_SCREEN(s,typ,att,nxt,prv,chld,p,fld,val,l,c,fg,bg,prmpt,occ) \\"); + output_storage ("do{ s.next = nxt; \\"); + output_storage (" s.prev = prv; \\"); + output_storage (" s.child = chld; \\"); + output_storage (" s.parent = p; \\"); + output_storage (" s.field = fld; \\"); + output_storage (" s.value = val; \\"); + output_storage (" s.line = l; \\"); + output_storage (" s.column = c; \\"); + output_storage (" s.foreg = fg; \\"); + output_storage (" s.backg = bg; \\"); + output_storage (" s.prompt = prmpt; \\"); + output_storage (" s.type = typ; \\"); + output_storage (" s.occurs = occ; \\"); + output_storage (" s.attr = att; \\"); + output_storage ("} ONCE_COB"); return; case COB_SET_REPORT: diff --git a/cobc/field.c b/cobc/field.c index 0dfe1d2c..26765e7a 100644 --- a/cobc/field.c +++ b/cobc/field.c @@ -458,8 +458,8 @@ cb_build_field_tree (const int level, cb_tree name, struct cb_field *last_field, } } if (last_field) { - if (last_field->level == 77 && f->level != 01 && - f->level != 77 && f->level != 66 && f->level != 88) { + if (last_field->level == 77 && f->level != 01 + && f->level != 77 && f->level != 66 && f->level != 88) { cb_error_x (name, _("level number must begin with 01 or 77")); return cb_error_node; } @@ -476,8 +476,9 @@ cb_build_field_tree (const int level, cb_tree name, struct cb_field *last_field, if (!CB_FIELD_P (x) || CB_FIELD (x)->level == 01 || CB_FIELD (x)->level == 77 - || (last_field && last_field->level == f->level - && last_field->parent == CB_FIELD (x)->parent)) { + || ( last_field + && f->level == last_field->level + && CB_FIELD (x)->parent == last_field->parent)) { redefinition_warning (name, x); break; } @@ -582,6 +583,13 @@ cb_build_field_tree (const int level, cb_tree name, struct cb_field *last_field, if (f->level <= 66) { f->flag_volatile = parent->flag_volatile; } + if (f->storage == CB_STORAGE_SCREEN) { + f->screen_foreg = parent->screen_foreg; + f->screen_backg = parent->screen_backg; + f->screen_prompt = parent->screen_prompt; + f->screen_control = parent->screen_control; + f->screen_color = parent->screen_color; + } } if (storage == CB_STORAGE_FILE @@ -645,7 +653,7 @@ cb_resolve_redefines (struct cb_field *field, cb_tree redefines) parent using strcasecmp */ for (items = r->word->items; items; items = CB_CHAIN (items)) { const cb_tree value = CB_VALUE (items); - if (CB_FIELD_P (value)) { + if (value != x && CB_FIELD_P (value)) { candidate = value; /* we want to get the last, so no "break" here */ } @@ -716,6 +724,8 @@ copy_children (struct cb_field *child, struct cb_field *target, level_child = child->level; } else { level_child = level + 1; + /* ensure that we don't set the "virtual level number" to one of + the "special" level numbers */ if (level_child == 66 || level_child == 78 || level_child == 88) { level_child++; } else if (level_child == 77) { @@ -893,7 +903,7 @@ copy_into_field (struct cb_field *source, struct cb_field *target) target->pic = cb_build_picture (source->pic->orig); } } else { - struct cb_picture* new_pic = NULL; + struct cb_picture *new_pic = NULL; int modifier = cb_get_int (target->like_modifier); if (modifier) { switch (target->usage) { @@ -3443,7 +3453,9 @@ cb_validate_88_item (struct cb_field *f) for (l = f->values; l; l = CB_CHAIN (l)) { cb_tree x = CB_VALUE (l); /* for list A THRU C, X, Z we have another list */ - if (CB_LIST_P (x)) x = CB_VALUE (x); + if (CB_LIST_P (x)) { + x = CB_VALUE (x); + } if (CB_TREE_CLASS (x) != CB_CLASS_NUMERIC) { if (CB_CONST_P (x)) x = CB_TREE (f); cb_error_x (x, _("literal type does not match numeric data type")); diff --git a/cobc/parser.y b/cobc/parser.y index 5b0cb748..c2342b54 100644 --- a/cobc/parser.y +++ b/cobc/parser.y @@ -1739,18 +1739,24 @@ setup_external_definition_type (cb_tree x) static void inherit_external_definition (const int lvl) { - /* note: REDEFINES (clause 1) is allowed with RM/COBOL but not COBOL 2002+ */ - static const cob_flags_t allowed_clauses = - SYN_CLAUSE_1 | SYN_CLAUSE_2 | SYN_CLAUSE_3 | SYN_CLAUSE_7 | SYN_CLAUSE_12; - cob_flags_t tested = check_pic_duplicate & ~(allowed_clauses); - if (tested != SYN_CLAUSE_30 && tested != SYN_CLAUSE_31 - && tested != 0 /* USAGE as TYPE TO */) { - struct cb_field *fld = CB_FIELD (current_field->external_definition); - cb_error_x (CB_TREE(current_field), _("illegal combination of %s with other clauses"), - fld->flag_is_typedef ? "TYPE TO" : "SAME AS"); - current_field->flag_is_verified = 1; - current_field->flag_invalid = 1; - } else { + /* syntax checks */ + { + /* note: REDEFINES (clause 1) is allowed with RM/COBOL but not COBOL 2002+ */ + static const cob_flags_t allowed_clauses = + SYN_CLAUSE_1 | SYN_CLAUSE_2 | SYN_CLAUSE_3 | SYN_CLAUSE_7 | SYN_CLAUSE_12; + cob_flags_t tested = check_pic_duplicate & ~(allowed_clauses); + if (tested != SYN_CLAUSE_30 && tested != SYN_CLAUSE_31 + && tested != 0 /* USAGE as TYPE TO */) { + struct cb_field *fld = CB_FIELD (current_field->external_definition); + cb_error_x (CB_TREE(current_field), _("illegal combination of %s with other clauses"), + fld->flag_is_typedef ? "TYPE TO" : "SAME AS"); + current_field->flag_is_verified = 1; + current_field->flag_invalid = 1; + return; + } + } + /* actual copy */ + { struct cb_field *fld = CB_FIELD (current_field->external_definition); int new_level = lvl; int old_level = current_field->level; @@ -1878,8 +1884,8 @@ bit_set_attr (const cb_tree on_off, const cob_flags_t attr_val) } static void -set_field_attribs (cb_tree fgc, cb_tree bgc, cb_tree scroll, - cb_tree timeout, cb_tree prompt, cb_tree size_is) +set_field_attribs (cb_tree fgc, cb_tree bgc, cb_tree scroll, cb_tree timeout, + cb_tree prompt, cb_tree size_is, cb_tree control, cb_tree color, cb_tree cursor) { /* [WITH] FOREGROUND-COLOR [IS] */ if (fgc) { @@ -1905,15 +1911,27 @@ set_field_attribs (cb_tree fgc, cb_tree bgc, cb_tree scroll, if (size_is) { current_statement->attr_ptr->size_is = size_is; } + /* [WITH] CONTROL (variable named attributes) */ + if (control) { + current_statement->attr_ptr->control = control; + } + /* [WITH] COLOR (variable numeric added attributes) */ + if (color) { + current_statement->attr_ptr->color = color; + } + /* [WITH] CURSOR */ + if (cursor) { + current_statement->attr_ptr->cursor = cursor; + } } static void -set_attribs (cb_tree fgc, cb_tree bgc, cb_tree scroll, +set_attribs (const cob_flags_t attrib, cb_tree fgc, cb_tree bgc, cb_tree scroll, cb_tree timeout, cb_tree prompt, cb_tree size_is, - const cob_flags_t attrib) + cb_tree control, cb_tree color, cb_tree cursor) { attach_attrib_to_cur_stmt (); - set_field_attribs (fgc, bgc, scroll, timeout, prompt, size_is); + set_field_attribs (fgc, bgc, scroll, timeout, prompt, size_is, control, color, cursor); current_statement->attr_ptr->dispattrs |= attrib; } @@ -1925,7 +1943,7 @@ set_attribs_with_conflict (cb_tree fgc, cb_tree bgc, cb_tree scroll, const char *confl_name, const cob_flags_t confl_attrib) { attach_attrib_to_cur_stmt (); - set_field_attribs (fgc, bgc, scroll, timeout, prompt, size_is); + set_field_attribs (fgc, bgc, scroll, timeout, prompt, size_is, NULL, NULL, NULL); set_dispattr_with_conflict (clause_name, attrib, confl_name, confl_attrib); @@ -1960,6 +1978,54 @@ zero_conflicting_flags (const cob_flags_t screen_flag, cob_flags_t parent_flag) return parent_flag; } +static int +has_relative_pos (struct cb_field const *field) +{ + return !!(field->screen_flag + & ( COB_SCREEN_LINE_PLUS | COB_SCREEN_LINE_MINUS + | COB_SCREEN_COLUMN_PLUS | COB_SCREEN_COLUMN_MINUS)); +} + +static void +validate_screen_attributes (void) +{ + cob_flags_t flags; + + if (current_field->parent) { + flags = current_field->parent->screen_flag; + flags &= ~COB_SCREEN_BLANK_LINE; + flags &= ~COB_SCREEN_BLANK_SCREEN; + flags &= ~COB_SCREEN_ERASE_EOL; + flags &= ~COB_SCREEN_ERASE_EOS; + flags &= ~COB_SCREEN_LINE_PLUS; + flags &= ~COB_SCREEN_LINE_MINUS; + flags &= ~COB_SCREEN_COLUMN_PLUS; + flags &= ~COB_SCREEN_COLUMN_MINUS; + + flags = zero_conflicting_flags (current_field->screen_flag, flags); + + current_field->screen_flag |= flags; + } + + if (current_field->screen_flag & COB_SCREEN_INITIAL) { + if (!(current_field->screen_flag & COB_SCREEN_INPUT)) { + cb_error (_("INITIAL specified on non-input field")); + } + } + if (!qualifier) { + current_field->flag_filler = 1; + } + + if (!description_field) { + description_field = current_field; + } + if (current_field->flag_occurs + && !has_relative_pos (current_field)) { + cb_error (_("relative LINE/COLUMN clause required with OCCURS")); + } + cobc_cs_check = CB_CS_SCREEN; +} + static void check_and_set_usage (const enum cb_usage usage) { @@ -2011,14 +2077,6 @@ check_preceding_tallying_phrases (const enum tallying_phrase phrase) previous_tallying_phrase = phrase; } -static int -has_relative_pos (struct cb_field const *field) -{ - return !!(field->screen_flag - & ( COB_SCREEN_LINE_PLUS | COB_SCREEN_LINE_MINUS - | COB_SCREEN_COLUMN_PLUS | COB_SCREEN_COLUMN_MINUS)); -} - static int is_recursive_call (cb_tree target) { @@ -7006,8 +7064,10 @@ data_description: description_field = current_field; } } -| level_number error TOK_DOT +| level_number _entry_name error TOK_DOT { + /* note: this construct "eats" the error, the actual field + definition (level + name) is already parsed and added to the tree */ yyerrok; cb_unput_dot (); check_pic_duplicate = 0; @@ -7016,6 +7076,26 @@ data_description: current_field = cb_get_real_field (); #endif } +/* useful error handling, but needs either a hack to internally + make DISPLAY in DATA DIVISION to USAGE DISPLAY, or need to + drop "_usage_is usage" * / +| + { + cb_tree filler = cb_build_filler (); + qualifier = NULL; + keys_list = NULL; + non_const_word = 0; + cb_error (_("missing %s"), "level number"); + if (set_current_field (1, filler)) { + YYERROR; + } + } + data_description_clause_sequence TOK_DOT + { + check_pic_duplicate = 0; + check_duplicate = 0; + } +*/ ; level_number: @@ -7752,22 +7832,23 @@ _pic_locale_format_or_depending_on_or_byte_length: _("variable-length PICTURE"), enum_explain_storage (current_storage)); } else { - /* Implicitly translate `PIC Lc... DEPENDING N` (where - `c` may actually only be `X` or `A`) into a group - with a single sub-field `PIC c OCCURS 1 TO N`. */ - const char pic[2] = { current_field->pic->orig[1], 0}; - struct cb_field * const chld = - CB_FIELD (cb_build_field (cb_build_filler ())); - chld->pic = cb_build_picture (pic); - chld->storage = current_field->storage; - chld->depending = depending; - chld->flag_occurs = 1; - chld->occurs_min = 1; - chld->occurs_max = current_field->pic->size - 1; - chld->parent = current_field; - current_field->children = chld; - cobc_parse_free (current_field->pic); - current_field->pic = NULL; + /* Implicitly translate `PIC Lc... DEPENDING N` (where + `c` may actually only be `X` or `A`) into a group + with a single sub-field `PIC c OCCURS 1 TO N`. */ + struct cb_field * const chld = + CB_FIELD (cb_build_field (cb_build_filler ())); + char pic[2] = { 0 }; + pic[0] = current_field->pic->orig[1]; + chld->pic = cb_build_picture (pic); + chld->storage = current_field->storage; + chld->depending = depending; + chld->flag_occurs = 1; + chld->occurs_min = 1; + chld->occurs_max = current_field->pic->size - 1; + chld->parent = current_field; + current_field->children = chld; + cobc_parse_free (current_field->pic); + current_field->pic = NULL; } /* Raise this flag in the error cases above, to avoid unrelated warning or error messages upon tentative validation of @@ -9794,49 +9875,10 @@ screen_description: if (set_current_field (level, $2)) { YYERROR; } - if (current_field->parent) { - current_field->screen_foreg = current_field->parent->screen_foreg; - current_field->screen_backg = current_field->parent->screen_backg; - current_field->screen_prompt = current_field->parent->screen_prompt; - } } _screen_options { - cob_flags_t flags; - - if (current_field->parent) { - flags = current_field->parent->screen_flag; - flags &= ~COB_SCREEN_BLANK_LINE; - flags &= ~COB_SCREEN_BLANK_SCREEN; - flags &= ~COB_SCREEN_ERASE_EOL; - flags &= ~COB_SCREEN_ERASE_EOS; - flags &= ~COB_SCREEN_LINE_PLUS; - flags &= ~COB_SCREEN_LINE_MINUS; - flags &= ~COB_SCREEN_COLUMN_PLUS; - flags &= ~COB_SCREEN_COLUMN_MINUS; - - flags = zero_conflicting_flags (current_field->screen_flag, - flags); - - current_field->screen_flag |= flags; - } - - if (current_field->screen_flag & COB_SCREEN_INITIAL) { - if (!(current_field->screen_flag & COB_SCREEN_INPUT)) { - cb_error (_("INITIAL specified on non-input field")); - } - } - if (!qualifier) { - current_field->flag_filler = 1; - } - - if (!description_field) { - description_field = current_field; - } - if (current_field->flag_occurs - && !has_relative_pos (current_field)) { - cb_error (_("relative LINE/COLUMN clause required with OCCURS")); - } + validate_screen_attributes (); } /* ACUCOBOL-GT control definition */ | level_number _entry_name @@ -9845,11 +9887,6 @@ screen_description: if (set_current_field (level, $2)) { YYERROR; } - if (current_field->parent) { - current_field->screen_foreg = current_field->parent->screen_foreg; - current_field->screen_backg = current_field->parent->screen_backg; - current_field->screen_prompt = current_field->parent->screen_prompt; - } } control_definition { @@ -9858,41 +9895,7 @@ screen_description: } _control_attributes_and_screen_options { - cob_flags_t flags; - - if (current_field->parent) { - flags = current_field->parent->screen_flag; - flags &= ~COB_SCREEN_BLANK_LINE; - flags &= ~COB_SCREEN_BLANK_SCREEN; - flags &= ~COB_SCREEN_ERASE_EOL; - flags &= ~COB_SCREEN_ERASE_EOS; - flags &= ~COB_SCREEN_LINE_PLUS; - flags &= ~COB_SCREEN_LINE_MINUS; - flags &= ~COB_SCREEN_COLUMN_PLUS; - flags &= ~COB_SCREEN_COLUMN_MINUS; - - flags = zero_conflicting_flags (current_field->screen_flag, - flags); - - current_field->screen_flag |= flags; - } - - if (current_field->screen_flag & COB_SCREEN_INITIAL) { - if (!(current_field->screen_flag & COB_SCREEN_INPUT)) { - cb_error (_("INITIAL specified on non-input field")); - } - } - if (!qualifier) { - current_field->flag_filler = 1; - } - - if (!description_field) { - description_field = current_field; - } - if (current_field->flag_occurs - && !has_relative_pos (current_field)) { - cb_error (_("relative LINE/COLUMN clause required with OCCURS")); - } + validate_screen_attributes (); cobc_cs_check = CB_CS_SCREEN; } /* entry for error recovery */ @@ -10093,14 +10096,15 @@ screen_option: } | COLOR _is num_id_or_lit { -#if 0 /* TODO: implement, and add reverse to BACKGROUND/FOREGROUND-COLOR */ - check_repeated ("COLOR", SYN_CLAUSE_19, &check_pic_duplicate); - set_screen_attr_with_conflict ("COLOR", COB_SCREEN_COLOR, - "BACKGROUND-COLOR", COB_SCREEN_BACKGROUND_COLOR); - set_screen_attr_with_conflict ("COLOR", COB_SCREEN_COLOR, - "FOREGROUND-COLOR", FOREGROUND_COLOR); -#endif - CB_PENDING ("COLOR clause"); + check_repeated ("COLOR", SYN_CLAUSE_25, &check_pic_duplicate); + current_field->screen_color = $3; + CB_PENDING ("COLOR clause (SCREEN)"); /* no place in cob_screen */ + } +| CONTROL _is display_identifier + { + check_repeated ("CONTROL", SYN_CLAUSE_24, &check_duplicate); + current_field->screen_control = $3; + CB_PENDING ("CONTROL clause (SCREEN)"); /* no place in cob_screen */ } | FOREGROUND_COLOR _is num_id_or_lit { @@ -11879,7 +11883,7 @@ accept_clause: { check_repeated (_("TIME-OUT or BEFORE TIME clauses"), SYN_CLAUSE_4, &check_duplicate); - set_attribs (NULL, NULL, NULL, $3, NULL, NULL, 0); + set_attribs (0, NULL, NULL, NULL, $3, NULL, NULL, NULL, NULL, NULL); } ; @@ -11996,22 +12000,40 @@ accp_attr: check_repeated ("BLINK", SYN_CLAUSE_8, &check_duplicate); set_dispattr (COB_SCREEN_BLINK); } +| COLOR _is num_id_or_lit + { + /* FIXME: arithmetic expression should be possible, too! */ + check_repeated ("COLOR", SYN_CLAUSE_30, &check_duplicate); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, $3, NULL); + } +| CONTROL _is display_identifier + { + check_repeated ("CONTROL", SYN_CLAUSE_31, &check_duplicate); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, $3, NULL, NULL); + CB_UNFINISHED ("CONTROL clause"); + } | CONVERSION { + /* note: aliased by CONVERT */ check_repeated ("CONVERSION", SYN_CLAUSE_9, &check_duplicate); + set_dispattr (COB_SCREEN_CONV); CB_PENDING ("ACCEPT CONVERSION"); } -| CURSOR _is positive_id_or_lit +| CURSOR positive_id_or_lit { /* FIXME: arithmetic expression should be possible, too! */ - if (current_program->cursor_pos) { - emit_duplicate_clause_message ("CURSOR"); - } else { - /* TODO: actually reasonable and easy extension: an - *offset within the field* [auto-correct to 1/max] - (when variable also stored back on return) - */ - CB_PENDING ("ACCEPT ... WITH CURSOR"); + struct cb_program *prog = current_program; + while (prog) { + if (!prog->nested_level) { + if (prog->cursor_pos) { + emit_duplicate_clause_message ("CURSOR"); + } else { + check_repeated ("CURSOR", SYN_CLAUSE_32, &check_duplicate); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, $2); + } + break; + } + prog = prog->next_program; } } | FULL @@ -12085,7 +12107,7 @@ accp_attr: { /* Note: CHARACTER optional in ACUCOBOL, required by others */ check_repeated ("PROMPT", SYN_CLAUSE_17, &check_duplicate); - set_attribs (NULL, NULL, NULL, NULL, $4, NULL, COB_SCREEN_PROMPT); + set_attribs (COB_SCREEN_PROMPT, NULL, NULL, NULL, NULL, $4, NULL, NULL, NULL, NULL); } | PROMPT { @@ -12112,7 +12134,7 @@ accp_attr: { /* FIXME: arithmetic expression should be possible, too! */ check_repeated ("SIZE", SYN_CLAUSE_21, &check_duplicate); - set_attribs (NULL, NULL, NULL, NULL, NULL, $4, 0); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, $4, NULL, NULL, NULL); } | UNDERLINE { @@ -12137,22 +12159,15 @@ accp_attr: set_dispattr_with_conflict ("UPPER", COB_SCREEN_UPPER, "LOWER", COB_SCREEN_LOWER); } -| COLOR _is num_id_or_lit - { - /* FIXME: arithmetic expression should be possible, too! */ - check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_26, &check_duplicate); - check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_27, &check_duplicate); - CB_PENDING ("COLOR"); - } | FOREGROUND_COLOR _is num_id_or_lit { check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_26, &check_duplicate); - set_attribs ($3, NULL, NULL, NULL, NULL, NULL, 0); + set_attribs (0, $3, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL); } | BACKGROUND_COLOR _is num_id_or_lit { check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_27, &check_duplicate); - set_attribs (NULL, $3, NULL, NULL, NULL, NULL, 0); + set_attribs (0, NULL, $3, NULL, NULL, NULL, NULL, NULL, NULL, NULL); } | SCROLL _up _scroll_lines { @@ -12172,7 +12187,7 @@ accp_attr: { check_repeated (_("TIME-OUT or BEFORE TIME clauses"), SYN_CLAUSE_4, &check_duplicate); - set_attribs (NULL, NULL, NULL, $3, NULL, NULL, 0); + set_attribs (0, NULL, NULL, NULL, $3, NULL, NULL, NULL, NULL, NULL); } | _control KEY _in key_dest ; @@ -13135,6 +13150,8 @@ display_body: | screen_or_device_display _common_exception_phrases | _with CONVERSION screen_or_device_display _common_exception_phrases { + /* note: aliased by CONVERT */ + set_dispattr (COB_SCREEN_CONV); CB_PENDING ("DISPLAY WITH CONVERSION"); } | display_erase /* note: may also be part of display_pos_specifier */ @@ -13617,10 +13634,23 @@ disp_attr: check_repeated ("BLINK", SYN_CLAUSE_7, &check_duplicate); set_dispattr (COB_SCREEN_BLINK); } +| COLOR _is num_id_or_lit + { + check_repeated ("COLOR", SYN_CLAUSE_21, &check_duplicate); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, $3, NULL); + } +| CONTROL _is display_identifier + { + check_repeated ("CONTROL", SYN_CLAUSE_22, &check_duplicate); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, NULL, $3, NULL, NULL); + CB_UNFINISHED ("CONTROL clause"); + } | CONVERSION { + /* note: aliased by CONVERT */ check_repeated ("CONVERSION", SYN_CLAUSE_8, &check_duplicate); - cb_warning (COBC_WARN_FILLER, _("ignoring %s phrase"), "CONVERSION"); + set_dispattr (COB_SCREEN_CONV); + CB_PENDING ("CONVERSION"); } | ERASE eol { @@ -13682,28 +13712,22 @@ disp_attr: | SIZE _is num_id_or_lit { check_repeated ("SIZE", SYN_CLAUSE_15, &check_duplicate); - set_attribs (NULL, NULL, NULL, NULL, NULL, $3, 0); + set_attribs (0, NULL, NULL, NULL, NULL, NULL, $3, NULL, NULL, NULL); } | UNDERLINE { check_repeated ("UNDERLINE", SYN_CLAUSE_16, &check_duplicate); set_dispattr (COB_SCREEN_UNDERLINE); } -| COLOR _is num_id_or_lit - { - check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_17, &check_duplicate); - check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_18, &check_duplicate); - CB_PENDING ("COLOR"); - } | FOREGROUND_COLOR _is_equal num_id_or_lit { check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_17, &check_duplicate); - set_attribs ($3, NULL, NULL, NULL, NULL, NULL, 0); + set_attribs (0, $3, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL); } | BACKGROUND_COLOR _is_equal num_id_or_lit { check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_18, &check_duplicate); - set_attribs (NULL, $3, NULL, NULL, NULL, NULL, 0); + set_attribs (0, NULL, $3, NULL, NULL, NULL, NULL, NULL, NULL, NULL); } | SCROLL _up _scroll_lines { diff --git a/cobc/reserved.c b/cobc/reserved.c index 1e126aaf..acca5f4a 100644 --- a/cobc/reserved.c +++ b/cobc/reserved.c @@ -3964,30 +3964,32 @@ struct list_reserved_line { /* Upper-casing for reserved words. - We use cob_lower_tab (C locale table) instead of toupper for efficiency. + We use cob_lower_tab (7bit C locale table) instead of toupper for efficiency. */ static COB_INLINE COB_A_INLINE unsigned char res_toupper (unsigned char c) { - if (cob_lower_tab[c]) { - return cob_lower_tab[c]; + const unsigned char tab_entry = cob_lower_tab[c]; + if (tab_entry) { + return tab_entry; } return c; } -/* Upper-casing for reserved words using efficient C locale table lookup. */ +/* Upper-casing for reserved words using efficient 7bit C locale table lookup. */ unsigned char cb_toupper (const unsigned char c) { return res_toupper (c); } -/* Lower-casing for reserved words using efficient C locale table lookup. */ +/* Lower-casing for reserved words using efficient 7bit C locale table lookup. */ unsigned char cb_tolower (const unsigned char c) { - if (cob_upper_tab[c]) { - return cob_upper_tab[c]; + const unsigned char tab_entry = cob_upper_tab[c]; + if (tab_entry) { + return tab_entry; } return c; } diff --git a/cobc/scanner.l b/cobc/scanner.l index 0b2af1cb..5d50debf 100644 --- a/cobc/scanner.l +++ b/cobc/scanner.l @@ -1347,9 +1347,9 @@ H#[0-9A-Za-z]+ { %% static void -error_literal (const char *type, const char *literal, unsigned int literal_error) +error_literal (const char *type, const char *literal, int literal_error) { - if (!literal_error) { + if (literal_error < 1) { char lit_out[CB_ERR_LITMAX + 1] = { 0 }; /* snip literal for output, if too long or, unlikely error case, has a line break */ @@ -1369,6 +1369,8 @@ error_literal (const char *type, const char *literal, unsigned int literal_error cb_error (_("invalid numeric literal: '%s'"), lit_out); } else if (strcmp (type, "float") == 0) { cb_error (_("invalid floating-point literal: '%s'"), lit_out); + } else if (literal_error < 0) { + cb_warning (COBC_WARN_FILLER, _("invalid %s literal: '%s'"), type, lit_out); } else { cb_error (_("invalid %s literal: '%s'"), type, lit_out); } @@ -1392,7 +1394,7 @@ scan_ebcdic_char (int c) #endif unsigned int j = 0; do { - buff[j++] = c; + buff[j++] = (char)c; } while ((c = input ()) != EOF && '0' <= c && c <= '9' && j < 10); unput (c); buff[j++] = 0; @@ -1406,21 +1408,20 @@ scan_ebcdic_char (int c) #ifdef COB_EBCDIC_MACHINE return (cob_u8_t) c; #else - if (!ebcdic_to_ascii_initialized ){ - if (cob_load_collation (cb_ebcdic_table, - ebcdic_to_ascii, - NULL) < 0) { - cb_error (_("invalid parameter: %s"), "-febcdic-table"); + if (!ebcdic_to_ascii_initialized ) { + if (cob_load_collation (cb_ebcdic_table, ebcdic_to_ascii, NULL) < 0) { + cb_error (_("invalid parameter: %s"), "-febcdic-table"); ebcdic_to_ascii_initialized = -1; - } else { + } else { ebcdic_to_ascii_initialized = 1; } } - if (ebcdic_to_ascii_initialized > 0) + if (ebcdic_to_ascii_initialized > 0) { return ebcdic_to_ascii[c]; - else + } else { return '?'; + } #endif } @@ -1428,9 +1429,9 @@ static void read_literal (const char mark, const enum cb_literal_type type) { size_t i; - int c; - unsigned int literal_error = 0; - enum cb_sym_ebcdic_state ebcdic_flag = CB_SYM_EBCDIC_INACTIVE; + int c; + int literal_error = 0; + enum cb_sym_ebcdic_state ebcdic_flag = CB_SYM_EBCDIC_INACTIVE; i = 0; /* read until a not-escaped mark is found (see break) @@ -1591,7 +1592,7 @@ scan_x (const char *text, const char *type) size_t curr_len; size_t result_len; char c; - unsigned int literal_error = 0; + int literal_error = 0; /* Remark: The standard allows for 8,191 (normal/national/boolean) character positions */ @@ -1630,7 +1631,9 @@ scan_x (const char *text, const char *type) } memcpy (plex_buff, text, curr_len); if (type[0] == 'X' || type [0] == 'U') { - result_len = curr_len / 2; /* characters, two half-bytes (hex) = 1 byte */ + /* characters, two half-bytes (hex) = 1 byte, add 1 halfbyte to round up + to full bytes in case of odd digits */ + result_len = (curr_len + 1) / 2; } else if (type[0] == 'B') { result_len = curr_len * 4; /* boolean characters B -> 1110 */ if (!cb_verify (cb_hexadecimal_boolean, _("hexadecimal-boolean literal"))) { @@ -1689,9 +1692,8 @@ scan_x (const char *text, const char *type) plex_buff[curr_len] = 0; } error_literal (type, plex_buff, literal_error++); - /* By not breaking immediately, we detect any following - invalid chars - */ + /* Note: by not breaking immediately, we detect any following + invalid chars */ c = 0; } val = (val << 4) + c; @@ -1719,8 +1721,8 @@ scan_x (const char *text, const char *type) plex_buff[curr_len] = 0; } error_literal (type, plex_buff, literal_error++); - /* By not breaking immediately, we detect any following - invalid chars + /* Note: by not breaking immediately, we detect any following + invalid chars */ c = 0; } @@ -1734,13 +1736,19 @@ scan_x (const char *text, const char *type) if (!high) { /* This is non-standard behaviour */ + *dst = (*dst >> 4); + dst++; snprintf (err_msg, COB_MINI_MAX, _("literal does not have an even number of digits")); if (literal_error == 0) { memcpy (plex_buff, text, curr_len + 1); plex_buff[curr_len] = 0; } - error_literal (type, plex_buff, literal_error++); + if (cb_relaxed_syntax_checks && result_len == 1) { + error_literal (type, plex_buff, literal_error++ == 0 ? -1 : 1); + } else { + error_literal (type, plex_buff, literal_error++); + } } /* TODO: for type U needs additional checks */ if (type[0] != 'N') { @@ -1798,8 +1806,8 @@ scan_h (const char *text, const char *type) size_t curr_len; char *p; cob_u64_t val = 0; - int c; - unsigned int literal_error = 0; + int c; + int literal_error = 0; if (type[1] == '#' && !cb_verify (cb_acu_literals, _("ACUCOBOL numeric literal"))) { @@ -1883,8 +1891,8 @@ scan_b (const char *text, const char *type) size_t curr_len; char *p; cob_u64_t val = 0; - int c; - unsigned int literal_error = 0; + int c; + int literal_error = 0; /* curr_len can include the terminating quote */ curr_len = strlen (text); @@ -1970,7 +1978,7 @@ scan_o (const char *text, const char *type) cob_u64_t val = 0; char *p; char c; - unsigned int literal_error = 0; + int literal_error = 0; if (type[0] == '%') { if (!cb_verify (cb_hp_octal_literals, _("HP COBOL octal literal"))) { diff --git a/cobc/tree.c b/cobc/tree.c index 56373983..a8be9d9b 100644 --- a/cobc/tree.c +++ b/cobc/tree.c @@ -6832,7 +6832,8 @@ cb_build_funcall (const char *name, const int argc, const cb_tree a1, const cb_tree a2, const cb_tree a3, const cb_tree a4, const cb_tree a5, const cb_tree a6, const cb_tree a7, const cb_tree a8, const cb_tree a9, - const cb_tree a10, const cb_tree a11) + const cb_tree a10, const cb_tree a11, const cb_tree a12, + const cb_tree a13, const cb_tree a14) { struct cb_funcall *p; @@ -6853,6 +6854,9 @@ cb_build_funcall (const char *name, const int argc, p->argv[8] = a9; p->argv[9] = a10; p->argv[10] = a11; + p->argv[11] = a12; + p->argv[12] = a13; + p->argv[13] = a14; return CB_TREE (p); } diff --git a/cobc/tree.h b/cobc/tree.h index 5be562d4..dfdf8289 100644 --- a/cobc/tree.h +++ b/cobc/tree.h @@ -895,6 +895,8 @@ struct cb_field { cb_tree screen_foreg; /* FOREGROUND */ cb_tree screen_backg; /* BACKGROUND */ cb_tree screen_prompt; /* PROMPT */ + cb_tree screen_control; /* CONTROL identifier (variable named attributes) */ + cb_tree screen_color; /* COLOR identifier (variable bit-shifted attributes) */ cb_tree report_source; /* SOURCE field */ cb_tree report_from; /* SOURCE field subscripted; so MOVE to report_source */ cb_tree report_sum_counter;/* SUM counter */ @@ -1316,10 +1318,11 @@ struct cb_binary_op { /* Function call */ +#define CB_BUILD_FUNCALL_MAX 14 struct cb_funcall { struct cb_tree_common common; /* Common values */ const char *name; /* Function name */ - cb_tree argv[11]; /* Function arguments */ + cb_tree argv[CB_BUILD_FUNCALL_MAX]; /* Function arguments */ int argc; /* Number of arguments */ int varcnt; /* Variable argument count */ unsigned int screenptr; /* SCREEN usage */ @@ -1529,6 +1532,9 @@ struct cb_attr_struct { cb_tree timeout; /* TIMEOUT */ cb_tree prompt; /* PROMPT */ cb_tree size_is; /* [PROTECTED] SIZE [IS] */ + cb_tree control; /* CONTROL [IS] (named attributes) */ + cb_tree color; /* CONTROL (bit-shifted attributes) */ + cb_tree cursor; /* CURSOR */ cob_flags_t dispattrs; /* Attributes */ }; @@ -2197,7 +2203,8 @@ extern cb_tree cb_build_funcall (const char *, const int, const cb_tree, const cb_tree, const cb_tree, const cb_tree, const cb_tree, const cb_tree, - const cb_tree); + const cb_tree, const cb_tree, + const cb_tree, const cb_tree); extern cb_tree cb_build_cast (const enum cb_cast_type, const cb_tree); @@ -2691,51 +2698,63 @@ extern int cobc_has_areacheck_directive (const char *directive); #define CB_BUILD_FUNCALL_0(f) \ cb_build_funcall (f, 0, NULL, NULL, NULL, NULL, NULL, \ - NULL, NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_1(f,a1) \ cb_build_funcall (f, 1, a1, NULL, NULL, NULL, NULL, \ - NULL, NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_2(f,a1,a2) \ cb_build_funcall (f, 2, a1, a2, NULL, NULL, NULL, \ - NULL, NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_3(f,a1,a2,a3) \ cb_build_funcall (f, 3, a1, a2, a3, NULL, NULL, NULL, \ - NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_4(f,a1,a2,a3,a4) \ cb_build_funcall (f, 4, a1, a2, a3, a4, NULL, \ - NULL, NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_5(f,a1,a2,a3,a4,a5) \ cb_build_funcall (f, 5, a1, a2, a3, a4, a5, \ - NULL, NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_6(f,a1,a2,a3,a4,a5,a6) \ cb_build_funcall (f, 6, a1, a2, a3, a4, a5, a6, \ - NULL, NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_7(f,a1,a2,a3,a4,a5,a6,a7) \ cb_build_funcall (f, 7, a1, a2, a3, a4, a5, a6, a7, \ - NULL, NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_8(f,a1,a2,a3,a4,a5,a6,a7,a8) \ cb_build_funcall (f, 8, a1, a2, a3, a4, a5, a6, a7, a8, \ - NULL, NULL, NULL) + NULL, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_9(f,a1,a2,a3,a4,a5,a6,a7,a8,a9) \ cb_build_funcall (f, 9, a1, a2, a3, a4, a5, a6, a7, a8, \ - a9, NULL, NULL) + a9, NULL, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_10(f,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10) \ cb_build_funcall (f, 10, a1, a2, a3, a4, a5, a6, a7, a8, \ - a9, a10, NULL) + a9, a10, NULL, NULL, NULL, NULL) #define CB_BUILD_FUNCALL_11(f,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11) \ cb_build_funcall (f, 11, a1, a2, a3, a4, a5, a6, a7, a8, \ - a9, a10, a11) + a9, a10, a11, NULL, NULL, NULL) + +#define CB_BUILD_FUNCALL_12(f,a1,a2,a3,a4,a5,a6,a7,a8,a9,a11,a12) \ + cb_build_funcall (f, 9, a1, a2, a3, a4, a5, a6, a7, a8, \ + a9, a10, a11, a12, NULL, NULL) + +#define CB_BUILD_FUNCALL_13(f,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13) \ + cb_build_funcall (f, 10, a1, a2, a3, a4, a5, a6, a7, a8, \ + a9, a10, a11, a12, a13, NULL) + +#define CB_BUILD_FUNCALL_14(f,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14) \ + cb_build_funcall (f, 11, a1, a2, a3, a4, a5, a6, a7, a8, \ + a9, a10, a11, a12, a13, a14) /* Miscellaneous defines */ diff --git a/cobc/typeck.c b/cobc/typeck.c index 7b4fbe52..b4a6f752 100644 --- a/cobc/typeck.c +++ b/cobc/typeck.c @@ -8391,51 +8391,108 @@ get_line_and_column_from_pos (const cb_tree pos, cb_tree * const line_or_pos, } } +static COB_INLINE COB_A_INLINE int +line_col_zero_is_supported (void) +{ + return cb_accept_display_extensions == CB_OK + || cb_accept_display_extensions == CB_WARNING + || cb_accept_display_extensions == CB_ARCHAIC + || cb_accept_display_extensions == CB_OBSOLETE; +} + static void -cb_gen_field_accept (cb_tree var, cb_tree pos, cb_tree fgc, cb_tree bgc, - cb_tree scroll, cb_tree timeout, cb_tree prompt, - cb_tree size_is, cob_flags_t disp_attrs) +emit_field_accept_display (const enum cob_statement stmt, + cb_tree x, cob_flags_t disp_attrs, + cb_tree pos, cb_tree fgc, cb_tree bgc, cb_tree scroll, + cb_tree timeout, cb_tree prompt, cb_tree size_is, + cb_tree control, cb_tree color, cb_tree cursor) { - cb_tree line = NULL; - cb_tree column = NULL; + cb_tree params[CB_BUILD_FUNCALL_MAX - 3] = { 0 }; + char param_ids[CB_BUILD_FUNCALL_MAX - 3] = { 0 }; + unsigned char parnum = 0; + cb_tree parameter_ids = NULL; if (!pos) { - cb_emit (CB_BUILD_FUNCALL_10 ("cob_field_accept", - var, NULL, NULL, fgc, bgc, scroll, - timeout, prompt, size_is, cb_flags_t (disp_attrs))); + /* no position to pass */ } else if (CB_LIST_P (pos)) { + /* AT LINE/COL */ + cb_tree line = NULL; + cb_tree column = NULL; get_line_and_column_from_pos (pos, &line, &column); - cb_emit (CB_BUILD_FUNCALL_10 ("cob_field_accept", - var, line, column, fgc, bgc, scroll, - timeout, prompt, size_is, cb_flags_t (disp_attrs))); + if (line) { + param_ids[parnum] = 'l'; + params[parnum++] = line; + } + if (column) { + param_ids[parnum] = 'c'; + params[parnum++] = column; + } } else if (valid_screen_pos (pos)) { - cb_emit (CB_BUILD_FUNCALL_10 ("cob_field_accept", - var, pos, NULL, fgc, bgc, scroll, - timeout, prompt, size_is, cb_flags_t (disp_attrs))); + /* AT POS */ + param_ids[parnum] = 'p'; + params[parnum++] = pos; } -} - -static COB_INLINE COB_A_INLINE int -line_col_zero_is_supported (void) -{ - return cb_accept_display_extensions == CB_OK - || cb_accept_display_extensions == CB_WARNING - || cb_accept_display_extensions == CB_ARCHAIC - || cb_accept_display_extensions == CB_OBSOLETE; + if (fgc) { + param_ids[parnum] = 'f'; + params[parnum++] = fgc; + } + if (bgc) { + param_ids[parnum] = 'b'; + params[parnum++] = bgc; + } + if (scroll) { + param_ids[parnum] = 's'; + params[parnum++] = scroll; + } + if (timeout) { + param_ids[parnum] = 't'; + params[parnum++] = timeout; + } + if (prompt) { + param_ids[parnum] = 'P'; + params[parnum++] = prompt; + } + if (size_is) { + param_ids[parnum] = 'S'; + params[parnum++] = size_is; + } + if (control) { + param_ids[parnum] = 'C'; + params[parnum++] = control; + } + if (color) { + param_ids[parnum] = 'L'; + params[parnum++] = color; + } + if (cursor) { + param_ids[parnum] = 'R'; + params[parnum++] = cursor; + } + if (parnum) { + parameter_ids = cb_build_string (cobc_parse_strdup (param_ids), parnum); + } + cb_emit (cb_build_funcall ( + stmt == STMT_ACCEPT ? "cob_accept_field" : "cob_display_field", + parnum + 3, x, cb_flags_t (disp_attrs), parameter_ids, + params[0], params[1], params[2], params[3], params[4], params[5], + params[6], params[7], params[8], params[9], params[10])); } void cb_emit_accept (cb_tree var, cb_tree pos, struct cb_attr_struct *attr_ptr) { - cb_tree line; - cb_tree column; - cb_tree fgc; - cb_tree bgc; - cb_tree scroll; - cb_tree timeout; - cb_tree prompt; - cb_tree size_is; /* WITH SIZE IS */ - cob_flags_t disp_attrs; + cb_tree line = NULL; + cb_tree column = NULL; + cb_tree fgc = NULL; + cb_tree bgc = NULL; + cb_tree scroll = NULL; + cb_tree timeout = NULL; + cb_tree prompt = NULL; + cb_tree size_is = NULL; /* WITH SIZE IS */ + cb_tree control = NULL; /* variable named attributes */ + cb_tree color = NULL; /* variable numeric added attributes */ + cb_tree cursor = NULL; /* CURSOR (position within the field) */ + cob_flags_t disp_attrs = 0; if (current_program->flag_screen) { #ifndef WITH_EXTENDED_SCREENIO @@ -8460,6 +8517,9 @@ cb_emit_accept (cb_tree var, cb_tree pos, struct cb_attr_struct *attr_ptr) timeout = attr_ptr->timeout; prompt = attr_ptr->prompt; size_is = attr_ptr->size_is; + control = attr_ptr->control; + cursor = attr_ptr->cursor; + color = attr_ptr->color; disp_attrs = attr_ptr->dispattrs; if (cb_validate_one (pos) || cb_validate_one (fgc) @@ -8467,17 +8527,12 @@ cb_emit_accept (cb_tree var, cb_tree pos, struct cb_attr_struct *attr_ptr) || cb_validate_one (scroll) || cb_validate_one (timeout) || cb_validate_one (prompt) - || cb_validate_one (size_is)) { + || cb_validate_one (size_is) + || cb_validate_one (control) + || cb_validate_one (cursor) + || cb_validate_one (color)) { return; } - } else { - fgc = NULL; - bgc = NULL; - scroll = NULL; - timeout = NULL; - prompt = NULL; - size_is = NULL; - disp_attrs = 0; } if (prompt) { @@ -8541,22 +8596,20 @@ cb_emit_accept (cb_tree var, cb_tree pos, struct cb_attr_struct *attr_ptr) } gen_screen_ptr = 0; output_screen_to (CB_FIELD (cb_ref (var)), 0); - } else { - if (var == cb_null) { - var = NULL; - } - if (pos || fgc || bgc || scroll || disp_attrs) { - cb_gen_field_accept (var, pos, fgc, bgc, scroll, - timeout, prompt, size_is, disp_attrs); - } else { - cb_emit (CB_BUILD_FUNCALL_10 ("cob_field_accept", - var, NULL, NULL, fgc, bgc, - scroll, timeout, prompt, - size_is, cb_flags_t (disp_attrs))); - } + return; } - } else if (pos || fgc || bgc || scroll || disp_attrs - || timeout || prompt || size_is) { + } + + if (var == cb_null) { + var = NULL; + } + if (disp_attrs || pos || fgc || bgc || scroll + || timeout || prompt || size_is + || control || color || cursor) { + emit_field_accept_display (STMT_ACCEPT, var, disp_attrs, + pos, fgc, bgc, scroll, timeout, prompt, + size_is, control, color, cursor); + /* Bump ref count to force CRT STATUS field generation and include it in cross-reference */ if (current_program->crt_status) { @@ -8565,15 +8618,7 @@ cb_emit_accept (cb_tree var, cb_tree pos, struct cb_attr_struct *attr_ptr) cobc_xref_set_receiving (current_program->crt_status); } } - if (var == cb_null) { - var = NULL; - } - cb_gen_field_accept (var, pos, fgc, bgc, scroll, - timeout, prompt, size_is, disp_attrs); } else { - if (var == cb_null) { - var = NULL; - } cb_emit (CB_BUILD_FUNCALL_1 ("cob_accept", var)); } } @@ -9427,19 +9472,23 @@ cb_emit_delete_file (cb_tree file) static int -validate_attrs (cb_tree pos, cb_tree fgc, cb_tree bgc, cb_tree scroll, cb_tree size_is) +validate_attrs (cb_tree pos, cb_tree fgc, cb_tree bgc, cb_tree scroll, + cb_tree size_is, cb_tree control, cb_tree color) { return cb_validate_one (pos) || cb_validate_one (fgc) || cb_validate_one (bgc) || cb_validate_one (scroll) - || cb_validate_one (size_is); + || cb_validate_one (size_is) + || cb_validate_one (control) + || cb_validate_one (color); } static void initialize_attrs (const struct cb_attr_struct * const attr_ptr, cb_tree * const fgc, cb_tree * const bgc, cb_tree * const scroll, cb_tree * const size_is, + cb_tree * const control, cb_tree * const color, cob_flags_t * const dispattrs) { if (attr_ptr) { @@ -9447,12 +9496,16 @@ initialize_attrs (const struct cb_attr_struct * const attr_ptr, *bgc = attr_ptr->bgc; *scroll = attr_ptr->scroll; *size_is = attr_ptr->size_is; + *control = attr_ptr->control; + *color = attr_ptr->color; *dispattrs = attr_ptr->dispattrs; } else { *fgc = NULL; *bgc = NULL; *scroll = NULL; *size_is = NULL; + *control = NULL; + *color = NULL; *dispattrs = 0; } } @@ -9468,6 +9521,8 @@ cb_emit_display_window (cb_tree type, cb_tree own_handle, cb_tree upon_handle, cb_tree bgc; cb_tree scroll; cb_tree size_is; /* WITH SIZE IS */ + cb_tree control; /* CONTROL VALUE numeric added window attributes */ + cb_tree color; /* COLOR numeric added attributes */ cob_flags_t disp_attrs; int ret = 0; @@ -9480,8 +9535,9 @@ cb_emit_display_window (cb_tree type, cb_tree own_handle, cb_tree upon_handle, } /* Validate line_column and the attributes */ - initialize_attrs (attr_ptr, &fgc, &bgc, &scroll, &size_is, &disp_attrs); - if (validate_attrs (line_column, fgc, bgc, scroll, size_is)) { + initialize_attrs (attr_ptr, &fgc, &bgc, &scroll, &size_is, + &control, &color, &disp_attrs); + if (validate_attrs (line_column, fgc, bgc, scroll, size_is, control, color)) { ret++; } @@ -9499,6 +9555,8 @@ cb_emit_display_window (cb_tree type, cb_tree own_handle, cb_tree upon_handle, } #if 0 /* TODO, likely as multiple functions */ + /* note that CONTROL VALUE in WINDOW related statements + is different from CONTROL, which is not available for DISPLAY WINDOW */ cb_emit (CB_BUILD_FUNCALL_2 ("cob_display_window", own_handle, upon_handle)); #endif } @@ -9561,6 +9619,7 @@ cb_emit_destroy (cb_tree controls) /* DISPLAY statement */ +/* DISPLAY ... UPON ENVIRONMENT NAME */ void cb_emit_env_name (cb_tree value) { @@ -9570,6 +9629,7 @@ cb_emit_env_name (cb_tree value) cb_emit (CB_BUILD_FUNCALL_1 ("cob_display_environment", value)); } +/* DISPLAY ... UPON ENVIRONMENT VALUE */ void cb_emit_env_value (cb_tree value) { @@ -9579,6 +9639,7 @@ cb_emit_env_value (cb_tree value) cb_emit (CB_BUILD_FUNCALL_1 ("cob_display_env_value", value)); } +/* DISPLAY ... UPON ARGUMENT-NUMBER */ void cb_emit_arg_number (cb_tree value) { @@ -9588,6 +9649,7 @@ cb_emit_arg_number (cb_tree value) cb_emit (CB_BUILD_FUNCALL_1 ("cob_display_arg_number", value)); } +/* DISPLAY ... UPON COMMAND-LINE */ void cb_emit_command_line (cb_tree value) { @@ -9718,21 +9780,6 @@ process_special_values (cb_tree value, cb_tree * const size_is, cob_flags_t * co } } -static void -emit_field_display (const cb_tree x, const cb_tree pos, const cb_tree fgc, - const cb_tree bgc, const cb_tree scroll, - const cb_tree size_is, const cob_flags_t disp_attrs) -{ - cb_tree line_or_pos = NULL; - cb_tree column = NULL; - - get_line_and_column_from_pos (pos, &line_or_pos, &column); - cb_emit (CB_BUILD_FUNCALL_8 ("cob_field_display", - x, line_or_pos, column, fgc, bgc, - scroll, size_is, - cb_flags_t (disp_attrs))); -} - static cb_tree get_integer_literal_pair (const char *value) { @@ -9830,14 +9877,16 @@ emit_default_field_display_for_all_but_last (cb_tree values, cb_tree size_is, disp_attrs = 0; process_special_values (x, &size_is, &disp_attrs); - emit_field_display (x, pos, NULL, NULL, NULL, NULL, disp_attrs); + emit_field_accept_display (STMT_DISPLAY, x, disp_attrs, + pos, NULL, NULL, NULL, NULL, NULL, + size_is, NULL, NULL, NULL); } } static void emit_field_display_for_last (cb_tree values, cb_tree line_column, cb_tree fgc, cb_tree bgc, cb_tree scroll, cb_tree size_is, - cob_flags_t disp_attrs, + cb_tree control, cb_tree color, cob_flags_t disp_attrs, const int is_first_display_list) { cb_tree l; @@ -9865,8 +9914,9 @@ emit_field_display_for_last (cb_tree values, cb_tree line_column, cb_tree fgc, } process_special_values (last_elt, &size_is, &disp_attrs); - emit_field_display (last_elt, line_column, fgc, bgc, scroll, size_is, - disp_attrs); + emit_field_accept_display (STMT_DISPLAY, last_elt, disp_attrs, + line_column, fgc, bgc, scroll, NULL, NULL, + size_is, control, color, NULL); } void @@ -9879,6 +9929,8 @@ cb_emit_display (cb_tree values, cb_tree upon, cb_tree no_adv, cb_tree bgc; cb_tree scroll; cb_tree size_is; /* WITH SIZE IS */ + cb_tree control; /* CONTROL IS variable-named attributes */ + cb_tree color; /* COLOR variable numeric added attributes */ cob_flags_t disp_attrs; cb_tree m; struct cb_field *f = NULL; @@ -9886,7 +9938,7 @@ cb_emit_display (cb_tree values, cb_tree upon, cb_tree no_adv, /* Validate upon and values */ if (upon == cb_error_node || cb_validate_list (values) - || validate_types_of_display_values (CB_LIST(values))) { + || validate_types_of_display_values (CB_LIST (values))) { return; } if (current_statement->ex_handler == NULL @@ -9894,8 +9946,9 @@ cb_emit_display (cb_tree values, cb_tree upon, cb_tree no_adv, current_statement->handler_type = NO_HANDLER; /* Validate line_column and the attributes */ - initialize_attrs (attr_ptr, &fgc, &bgc, &scroll, &size_is, &disp_attrs); - if (validate_attrs (line_column, fgc, bgc, scroll, size_is)) { + initialize_attrs (attr_ptr, &fgc, &bgc, &scroll, &size_is, + &control, &color, &disp_attrs); + if (validate_attrs (line_column, fgc, bgc, scroll, size_is, control, color)) { return; } @@ -9905,7 +9958,7 @@ cb_emit_display (cb_tree values, cb_tree upon, cb_tree no_adv, /* CGI: DISPLAY external-form */ /* TODO: CHECKME, see Patch #27 */ - m = CB_LIST(values)->value; + m = CB_LIST (values)->value; if (CB_REF_OR_FIELD_P (m)) { f = CB_FIELD_PTR (m); } @@ -9948,7 +10001,7 @@ cb_emit_display (cb_tree values, cb_tree upon, cb_tree no_adv, is_first_display_list); } emit_field_display_for_last (values, line_column, fgc, bgc, - scroll, size_is, disp_attrs, + scroll, size_is, control, color, disp_attrs, is_first_display_list); break; @@ -12469,10 +12522,11 @@ cob_put_sign_ascii (unsigned char *p) } #endif +/* does an EBCDIC overpunch with the expected character values */ static void cob_put_sign_ebcdic (unsigned char *p, const int sign) { - if (sign < 0) { + if (sign == -1) { switch (*p) { case '0': *p = (unsigned char)'}'; @@ -12505,7 +12559,7 @@ cob_put_sign_ebcdic (unsigned char *p, const int sign) *p = (unsigned char)'R'; return; default: - /* What to do here */ + /* What to do here? */ *p = (unsigned char)'}'; return; } @@ -12551,21 +12605,16 @@ cob_put_sign_ebcdic (unsigned char *p, const int sign) static cb_tree cb_build_move_literal (cb_tree src, cb_tree dst) { - struct cb_literal *l; - struct cb_field *f; + const struct cb_literal *l = CB_LITERAL (src); + const struct cb_field *f = CB_FIELD_PTR (dst); + const enum cb_category cat = CB_TREE_CATEGORY (dst); + unsigned char *buff; - unsigned char *p; - enum cb_category cat; + unsigned char bbyte; struct cb_reference *r; int i; - int diff; int val; int n; - unsigned char bbyte; - - l = CB_LITERAL (src); - f = CB_FIELD_PTR (dst); - cat = CB_TREE_CATEGORY (dst); if (f->flag_any_length) { return CB_BUILD_FUNCALL_2 ("cob_move", src, dst); @@ -12627,15 +12676,14 @@ cb_build_move_literal (cb_tree src, cb_tree dst) if (( cat == CB_CATEGORY_NUMERIC && f->usage == CB_USAGE_DISPLAY && f->pic->scale == l->scale - && !f->flag_sign_leading - && !f->flag_sign_separate - && !f->flag_blank_zero) + && !f->flag_sign_separate) || ( (cat == CB_CATEGORY_ALPHABETIC || cat == CB_CATEGORY_ALPHANUMERIC) && f->size < (int) (l->size + 16) && !cb_field_variable_size (f))) { + const int diff = (int) (f->size - l->size); buff = cobc_parse_malloc ((size_t)f->size); - diff = (int) (f->size - l->size); if (cat == CB_CATEGORY_NUMERIC) { + unsigned char *p; if (diff <= 0) { memcpy (buff, l->data - diff, (size_t)f->size); } else { @@ -12651,16 +12699,25 @@ cb_build_move_literal (cb_tree src, cb_tree dst) } } if (f->pic->have_sign) { - p = &buff[f->size - 1]; + if (f->flag_sign_leading) { + p = buff; + } else { + p = buff + f->size - 1; + } +#if 0 /* Simon: negative zero back by disabling the following code +´ included without documentation by Roger in 2.0 */ if (!n) { /* Zeros */ /* EBCDIC - store sign otherwise nothing */ if (cb_ebcdic_sign) { cob_put_sign_ebcdic (p, 1); } - } else if (cb_ebcdic_sign) { + } else +#endif + if (cb_ebcdic_sign) { cob_put_sign_ebcdic (p, l->sign); - } else if (l->sign < 0) { + } else + if (l->sign == -1) { #ifdef COB_EBCDIC_MACHINE cob_put_sign_ascii (p); #else @@ -12668,6 +12725,13 @@ cb_build_move_literal (cb_tree src, cb_tree dst) #endif } } + if (f->flag_blank_zero && !n) { + cobc_parse_free (buff); + return CB_BUILD_FUNCALL_3 ("memset", + CB_BUILD_CAST_ADDRESS (dst), + cb_int (' '), + CB_BUILD_CAST_LENGTH (dst)); + } } else { if (f->flag_justified) { if (diff <= 0) { @@ -12734,6 +12798,7 @@ cb_build_move_literal (cb_tree src, cb_tree dst) val /= 10; } if (val == 0) { + /* binary cannot store negative zero */ return cb_build_move_num_zero (dst); } if (val < 0 && !f->pic->have_sign) { diff --git a/libcob/ChangeLog b/libcob/ChangeLog index 68c7498e..b73a9b5a 100644 --- a/libcob/ChangeLog +++ b/libcob/ChangeLog @@ -83,10 +83,129 @@ * fileio.c (cob_file_sort_options), common.h: new function to pass more options, so far only used to set flag_merge +2023-05-12 Simon Sobisch + + * screenio.c (cob_screen_attr): always parse COBOL and curses color value + * screenio.c (cob_to_curses_color): signature changed - operate on integer + to be reusable for CONTROL handling, + separate return value instead of setting the default color + * screenio.c (adjust_attr_from_extended_color): new function directly + handling the attribute adjustment, replaced (has_extended_color) + * screenio.c (handle_control_field_color, get_cob_color_from_color_value): + new functions to get COBOL color number from text and handling it + * common.h (cob_colors): changed color defines to enum + * move.c: fix some compiler warnings by explicit casts + * fix non-constant aggregate initializer for dynamic field/attr/pic + +2023-05-10 Simon Sobisch + + * screenio.c (adjust_attr_from_color_field, + adjust_attr_from_control_field): new functions to adjust screenio + attributes during runtime via COLOR and CONTROL fields + (later function mostly a stub with minimal "parsing" so far) + * screenio.c (cob_screen_attr): refactor to read colors first, allowing + later override via new functions + * screenio.c (cob_screen_set_mode, cob_screen_line_col): minor refactoring + +2023-05-09 Simon Sobisch + + * cconv.c (cob_field_to_string): moved from common.c + * cconv.c (cob_init_cconv), coblocal.h, common.c: added + * cconv.c (cob_toupper, cob_tolower, cob_init_cconv), coblocal.h: + included (copy from cobc/reserved.c) + * coblocal.h (enum cob_case_modifier): new enum to select case-adjustment + * cconv.c (cob_field_to_string), coblocal.h: adjusted function signature, + allowing for optional change of case during copy and returning the size + to process or negative error values in case of "no data to process" + * cconv.c (cob_field_to_string): return error if truncating would be + necessary + * reportio.c, intrinsic.c, fileio.c->fextfh.c,fsqlxfd.c, common.c, call.c: adjusted for new + signature of cob_field_to_string + * intrinsic.c (locale_time, cob_intr_locale_date, cob_intr_locale_compare): + always use full locale string passed, error handling improved + * common.c (cob_set_locale, cob_get_environment, cob_display_env_value): + use local buffer, error handling improved + + FR #189 + FR #355 - runtime-adjustable attributes for extended screenio + * screenio.c (cob_accept_field, cob_display_field), common.h: new vararg + functions to take variable attribute fields, including the new fields + CONTROL, COLOR and CURSOR + * screenio.c (field_accept): added cursor parameter and handle it for both + "initial cursor position" and - if it isn't a constant - also for "exit + cursor position", count max-pos on input allowing position to last + position if CURSOR is outside of the data + * screenio.c (field_accept, field_display, cob_screen_attr): added color + and control parameters + * common.h: COB_SCREEN_CONV new attribute, moved "parsing only" attribute + COB_SCREEN_GRID to higher number + +2023-05-05 Simon Sobisch + + cleanup for handling ASCII/EBCDIC sign overpunch + * common.c (cob_get_sign_ebcdic) [COB_EBCDIC_MACHINE]: direct check of + sign nibble + * common.c (cob_get_sign_ebcdic) [!COB_EBCDIC_MACHINE]: adjusted handling + of invalid data + * common.c (cob_real_get_sign), coblocal.h: additional argument to specify + if data has to be always unpunched (old behavior) or only for systems + not matching the sign (e. g. non-ebcdic machine with ebcdic-sign) where + unpunch is needed to get the numeric data (otherwise we already get it + by bit-masking); added new macros COB_GET_SIGN_ADJUST and + COB_PUT_SIGN_ADJUSTED that use this to only overwrite data when necessary + * common.c (cob_cmp_all, cob_cmp_alnum), + move.c (cob_move_display_to_packed, cob_move_display_to_binary, + cob_display_get_int, display_get_long_long), + numeric.c (cob_decimal_set_display, cob_display_add_int): use of + COB_GET_SIGN_ADJUST / COB_PUT_SIGN_ADJUSTED for better performance and + less "changing read-only source data" + * common.c (cob_cmp_all, cob_cmp_alnum): handle numeric fields with + SIGN LEADING SEPARATE correctly, minor optimization by reading the + data/size pointer only once + +2023-05-02 Simon Sobisch + + * numeric.c (cob_add, cob_addsub_optimized): also use (cob_add_bcd) if the + added/subtracted field is one of the usages DISPLAY/COMP-5/BINARY as + converting this to BCD and using this function is much faster than + converting everything to cob_decimal first, then using the fast GMP + compute, then converting the cob_decimal to BCD back + * move.c (cob_move_display_to_packed, cob_move_packed_to_display), + coblocal.h: make functions accessible within libcob + * move.c (cob_move_display_to_packed): performance adjustment by moving a + check out of a loop + +2023-04-29 Simon Sobisch + + * numeric.c (cob_add_bcd): don't execute rounding if COB_STORE_TRUNCATION + is requested + * numeric.c (cob_add_bcd): combined some code paths for less duplication + * numeric.c (handle_bcd_rounding): extracted from (cob_add_bcd) to remove + code duplication and allow code flow to be followed easier + +2023-04-28 Simon Sobisch + + * common.c (explain_field_type): distinguish COMP-6 and unsigned packed + from PACKED-DECIMAL + * (check_current_date): switched to iterating over COB_CURENT_DATE + by pointer + * numeric.c: integrated changes of Chuck Haatveet 2023-03-28 for BCD ADD + with tuning for even more speed by using best matching types and + refactoring, calling the new cob_add_bcd internally from + (cob_add, cob_sub) if all fields are BCD + * numeric.c (cob_add_bcd, check_overflow_fix_final_sign): fix handling + for COB_STORE_KEEP_ON_OVERFLOW and edge-case bugs + 2023-04-27 Simon Sobisch * move.c (cob_move_display_to_packed), numeric.c (cob_decimal_get_packed): simplify code, following idea by of Chuck Haatveet + * common.c (cob_is_numeric): speedup by using new macro IS_INVALID_BCD_DATA + which uses the new lookup table b2i + * common.c: new macros IS_VALID_DIGIT_DATA / IS_INVALID_DIGIT_DATA added + and used + * numeric.c (cob_decimal_do_round, cob_decimal_get_field): fix + COB_STORE_PROHIBITED to not overwrite target data and always raise an + exception if rounding would be necessary 2023-04-26 Simon Sobisch @@ -100,11 +219,13 @@ * move.c (store_common_region): speedup by not re-validating data if caller already provides that; adjusted callers to specify that * common.c (cob_sys_hosted): prefer memcmp over strncmp with known size + * common.c (, cob_sys_hosted): handling timezone functions 2023-04-18 Simon Sobisch - * numeric.c: integrated changes of Chuck Haatveet 2023-03-28 with tuning - for even more speed by using best matching types and refactoring + * numeric.c: integrated changes of Chuck Haatveet 2023-03-28 for BCD MOVE + with tuning for even more speed by using best matching types and + refactoring * common.h: added cob_move_bcd as external function declaration * move.c (cob_move): add call to cob_move_bcd for fields without negative scale @@ -178,6 +299,9 @@ insert_packed_aligned for cob_move_bcd * numeric.c (cob_move_bcd): added for highly improved BCD MOVE, saving more than 50% cpu cycles + * numeric.c (cob_add_bcd, check_overflow_fix_final_sign, + count_leading_zeros): added for highly improved BCD ADD, + saving more than 50% cpu cycles 2023-03-27 Simon Sobisch diff --git a/libcob/call.c b/libcob/call.c index 0f39040f..d5c51b88 100644 --- a/libcob/call.c +++ b/libcob/call.c @@ -1204,7 +1204,7 @@ void * cob_call_field (const cob_field *f, const struct cob_call_struct *cs, const unsigned int errind, const int fold_case) { - char *buff, *entry, *dirent; + char *name, *entry, *dirent; void *p; /* LCOV_EXCL_START */ @@ -1213,23 +1213,23 @@ cob_call_field (const cob_field *f, const struct cob_call_struct *cs, } /* LCOV_EXCL_STOP */ - buff = cob_get_buff (f->size + 1); - cob_field_to_string (f, buff, f->size); + name = cob_get_buff (f->size + 1); + cob_field_to_string (f, name, f->size, CCM_NONE); /* check for uncommon leading space - trim it */ - if (*buff == ' ') { + if (*name == ' ') { size_t len; /* same warning as in cobc/typeck.c */ cob_runtime_warning ( - _("'%s' literal includes leading spaces which are omitted"), buff); - len = strlen (buff); - while (*buff == ' ') { - memmove (buff, buff + 1, --len); + _("'%s' literal includes leading spaces which are omitted"), name); + len = strlen (name); + while (*name == ' ') { + memmove (name, name + 1, --len); } - buff[len] = 0; + name[len] = 0; } - entry = cob_chk_call_path (buff, &dirent); + entry = cob_chk_call_path (name, &dirent); cobglobptr->cob_call_name_hash = cob_get_name_hash (entry); /* Check if contained program - which may override otherwise @@ -1367,7 +1367,7 @@ cob_cancel_field (const cob_field *f, const struct cob_call_struct *cs) return; } name = cob_get_buff (f->size + 1); - cob_field_to_string (f, name, f->size); + cob_field_to_string (f, name, f->size, CCM_NONE); entry = cob_chk_dirp (name); /* Check if contained program */ diff --git a/libcob/cconv.c b/libcob/cconv.c index 2f91fcf4..9d41a8fb 100644 --- a/libcob/cconv.c +++ b/libcob/cconv.c @@ -1,5 +1,5 @@ /* - Copyright (C) 2005,2006,2022-2023 Free Software Foundation, Inc. + Copyright (C) 2005, 2006, 2013, 2022-2023 Free Software Foundation, Inc. Written by Roger While, Nicolas Berthier, Simon Sobisch, David Declerck This file is part of GnuCOBOL. @@ -31,12 +31,76 @@ #include "sysdefines.h" #include "coblocal.h" +#ifdef HAVE_DESIGNATED_INITS +static const unsigned char lower_tab[256] = { + ['a'] = 'A', + ['b'] = 'B', + ['c'] = 'C', + ['d'] = 'D', + ['e'] = 'E', + ['f'] = 'F', + ['g'] = 'G', + ['h'] = 'H', + ['i'] = 'I', + ['j'] = 'J', + ['k'] = 'K', + ['l'] = 'L', + ['m'] = 'M', + ['n'] = 'N', + ['o'] = 'O', + ['p'] = 'P', + ['q'] = 'Q', + ['r'] = 'R', + ['s'] = 'S', + ['t'] = 'T', + ['u'] = 'U', + ['v'] = 'V', + ['w'] = 'W', + ['x'] = 'X', + ['y'] = 'Y', + ['z'] = 'Z' +}; +static const unsigned char upper_tab[256] = { + ['A'] = 'a', + ['B'] = 'b', + ['C'] = 'c', + ['D'] = 'd', + ['E'] = 'e', + ['F'] = 'f', + ['G'] = 'g', + ['H'] = 'h', + ['I'] = 'i', + ['J'] = 'j', + ['K'] = 'k', + ['L'] = 'l', + ['M'] = 'm', + ['N'] = 'n', + ['O'] = 'o', + ['P'] = 'p', + ['Q'] = 'q', + ['R'] = 'r', + ['S'] = 's', + ['T'] = 't', + ['U'] = 'u', + ['V'] = 'v', + ['W'] = 'w', + ['X'] = 'x', + ['Y'] = 'y', + ['Z'] = 'z' +}; +#else +static unsigned char lower_tab[256]; +static unsigned char upper_tab[256]; +static const unsigned char plower_tab[] = "abcdefghijklmnopqrstuvwxyz"; +static const unsigned char plower_val[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; +#endif + static int cob_convert_hex_digit (char h) { - if (h >= '0' && h <= '9') return h - '0'; - else if (h >= 'A' && h <= 'F') return 10 + h - 'A'; - else if (h >= 'a' && h <= 'f') return 10 + h - 'a'; + if (h >= '0' && h <= '9') return COB_D2I (h); + h = cob_toupper (h); + if (h >= 'A' && h <= 'F') return 10 + h - 'A'; else return -1; } @@ -171,3 +235,138 @@ cob_load_collation (const char *col_name, return 0; } + +/* Upper-casing for internal words using efficient 7bit C locale table lookup. */ +unsigned char +cob_toupper (const unsigned char c) +{ + const unsigned char tab_entry = lower_tab[c]; + if (tab_entry) { + return tab_entry; + } + return c; +} + +/* Lower-casing for internal words using efficient 7bit C locale table lookup. */ +unsigned char +cob_tolower (const unsigned char c) +{ + const unsigned char tab_entry = upper_tab[c]; + if (tab_entry) { + return tab_entry; + } + return c; +} + +/* stores the field's rtrimmed string content into the given buffer + with maxlength, optionally doing upper-/lowercasing on the fly, + returns negative values on error, otherwise size of the data + processed */ +int +cob_field_to_string (const cob_field *f, void *str, const size_t maxsize, + const enum cob_case_modifier target_case) +{ + register unsigned char *end, *data, *s; + + s = (unsigned char *)str; + if (f == NULL) { + snprintf (str, maxsize, "%s", ("NULL field")); + *(s + maxsize - 1) = 0; + return -1; + } + + if (f->size == 0) { + *s = 0; + return -2; + } + data = f->data; + /* check if field has data assigned (may be a BASED / LINKAGE item) */ + if (data == NULL) { + snprintf (str, maxsize, "%s", ("field with NULL address")); + *(s + maxsize - 1) = 0; + return -3; + } + end = data + f->size - 1; + while (end > data) { + if (*end != ' ' && *end) { + break; + } + end--; + } + if (*end == ' ' || *end == 0) { + *s = 0; + return 0; + } + + /* note: the specified max does not contain the low-value */ + if ((size_t)(end - data) > maxsize) { +#if 0 /* Simon: it is likely not a good idea to just ignore the data */ + end = data + maxsize; +#else + *s = 0; + return -4; +#endif + } + switch (target_case) { + case CCM_NONE: + while (data <= end) { + *s++ = *data++; + } + break; + case CCM_LOWER: + while (data <= end) { + *s++ = cob_tolower (*data++); + } + break; + case CCM_UPPER: + while (data <= end) { + *s++ = cob_toupper (*data++); + } + break; + case CCM_LOWER_LOCALE: + while (data <= end) { + *s++ = tolower (*data++); + } + break; + case CCM_UPPER_LOCALE: + while (data <= end) { + *s++ = toupper (*data++); + } + break; + } + *s = 0; + return end + 1 - f->data; +} + + +#ifndef HAVE_DESIGNATED_INITS +/* initialize the 7bit upper/lower table */ +static void +init_upper_lower (void) +{ + const unsigned char *p, *v; + + memset (lower_tab, 0, sizeof (lower_tab)); + v = plower_val; + p = plower_tab; + for (; *p; ++p, ++v) { + lower_tab[*p] = *v; + } + memset (upper_tab, 0, sizeof (upper_tab)); + p = plower_val; + v = plower_tab; + for (; *p; ++p, ++v) { + upper_tab[*p] = *v; + } +} +#endif + + +void +cob_init_cconv (cob_global *lptr) +{ + COB_UNUSED (lptr); +#ifndef HAVE_DESIGNATED_INITS + init_upper_lower (); +#endif +} diff --git a/libcob/coblocal.h b/libcob/coblocal.h index 5799f229..f214ef9b 100644 --- a/libcob/coblocal.h +++ b/libcob/coblocal.h @@ -164,9 +164,14 @@ COB_ATTR_INIT_A(attr,u,v,x,y,z) #define COB_GET_SIGN(f) \ - (COB_FIELD_HAVE_SIGN (f) ? cob_real_get_sign (f) : 0) + (COB_FIELD_HAVE_SIGN (f) ? cob_real_get_sign (f, 0) : 0) +#define COB_GET_SIGN_ADJUST(f) \ + (COB_FIELD_HAVE_SIGN (f) ? cob_real_get_sign (f, 1) : 0) #define COB_PUT_SIGN(f,s) \ do { if (COB_FIELD_HAVE_SIGN (f)) cob_real_put_sign (f, s); } ONCE_COB +#define COB_PUT_SIGN_ADJUSTED(f,s) \ + do { if (s == -2) cob_real_put_sign (f, -1); \ + else if (s == 2) cob_real_put_sign (f, 1); } ONCE_COB #ifdef COB_PARAM_CHECK #define COB_CHK_PARMS(x,z) \ @@ -395,6 +400,7 @@ struct config_tbl { COB_EXPIMP const char * cob_io_version (const int, const int); COB_EXPIMP const char * cob_io_name (const int); COB_HIDDEN void cob_init_numeric (cob_global *); +COB_HIDDEN void cob_init_cconv (cob_global *); COB_HIDDEN void cob_init_termio (cob_global *, cob_settings *); COB_HIDDEN void cob_init_fileio (cob_global *, cob_settings *); COB_HIDDEN void cob_init_reportio (cob_global *, cob_settings *); @@ -435,7 +441,7 @@ COB_HIDDEN void cob_exit_mlio (void); COB_HIDDEN FILE *cob_create_tmpfile (const char *); COB_HIDDEN int cob_check_numval_f (const cob_field *); -COB_HIDDEN int cob_real_get_sign (cob_field *); +COB_HIDDEN int cob_real_get_sign (cob_field *, const int); COB_HIDDEN void cob_real_put_sign (cob_field *, const int); #ifndef COB_WITHOUT_DECIMAL @@ -446,6 +452,8 @@ COB_HIDDEN void cob_decimal_get_mpf (mpf_t, const cob_decimal *); COB_HIDDEN void cob_decimal_setget_fld (cob_field *, cob_field *, const int); COB_HIDDEN void cob_decimal_move_temp (cob_field *, cob_field *); +COB_HIDDEN void cob_move_display_to_packed (cob_field *, cob_field *); +COB_HIDDEN void cob_move_packed_to_display (cob_field *, cob_field *); COB_HIDDEN void cob_display_common (const cob_field *, FILE *); COB_HIDDEN void cob_print_ieeedec (const cob_field *, FILE *); @@ -460,10 +468,20 @@ COB_HIDDEN void cob_add_exception (const int); COB_HIDDEN int cob_check_env_true (char*); COB_HIDDEN int cob_check_env_false (char*); COB_HIDDEN const char *cob_get_last_exception_name (void); -COB_EXPIMP void cob_field_to_string (const cob_field *, void *, - const size_t); COB_HIDDEN void cob_parameter_check (const char *, const int); +enum cob_case_modifier { + CCM_NONE, + CCM_LOWER, + CCM_UPPER, + CCM_LOWER_LOCALE, + CCM_UPPER_LOCALE +}; +COB_HIDDEN unsigned char cob_toupper (const unsigned char); +COB_HIDDEN unsigned char cob_tolower (const unsigned char); +COB_EXPIMP int cob_field_to_string (const cob_field *, void *, + const size_t, const enum cob_case_modifier target_case); + COB_HIDDEN cob_settings *cob_get_settings_ptr (void); COB_HIDDEN char *cob_strndup (const char *, const size_t); diff --git a/libcob/common.c b/libcob/common.c index 8a32d169..799a21fd 100644 --- a/libcob/common.c +++ b/libcob/common.c @@ -350,6 +350,27 @@ static const int cob_exception_tab_code[] = { static int cob_switch[COB_SWITCH_MAX + 1]; +/* BCD to Integer translation (full byte -> 0 - 99) */ +static unsigned char b2i[256]= + { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 255, 255, 255, 255, 255, 255, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 255, 255, 255, 255, 255, 255, + 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 255, 255, 255, 255, 255, 255, + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 255, 255, 255, 255, 255, 255, + 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 255, 255, 255, 255, 255, 255, + 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 255, 255, 255, 255, 255, 255, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 255, 255, 255, 255, 255, 255, + 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 255, 255, 255, 255, 255, 255, + 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 255, 255, 255, 255, 255, 255, + 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 255, 255, 255, 255, 255, 255 }; + +#define IS_INVALID_BCD_DATA(c) (b2i[(unsigned char)c] == 255) + +/* note: use of table d2i was tested and seen to be + slower for checking validity/invalidity + and only 0.2% faster for GET_D2I than COB_D2I */ +#define IS_INVALID_DIGIT_DATA(c) (c < '0' || c > '9') /* not valid digits '0' - '9' */ +#define IS_VALID_DIGIT_DATA(c) (c >= '0' && c <= '9') /* valid digits '0' - '9' */ + /* Runtime exit handling */ static struct exit_handlerlist { struct exit_handlerlist *next; @@ -1461,7 +1482,9 @@ cob_set_dump_signal (void *hndlr) #endif } -/* ASCII Sign +/* ASCII Sign - Reading and undo the "overpunch"; + * Note: if used on an EBCDIC machine this is actually _not_ an overpunch + * but a replacement! * positive: 0123456789 * negative: pqrstuvwxy * returns one of: 1 = positive (non-negative), -1 = negative @@ -1518,18 +1541,21 @@ cob_get_sign_ascii (unsigned char *p) return 1; #else if (*p >= (unsigned char)'p' && *p <= (unsigned char)'y') { - *p &= ~64U; + *p &= ~0x40; /* 0x71 'q' -> 0x31 -> '1' */ return -1; } - if (*p >= (unsigned char)'0' && *p <= (unsigned char)'9') { + if (IS_VALID_DIGIT_DATA (*p)) { /* already without sign */ - return -1; + return 1; } *p = (unsigned char)'0'; return 1; #endif } +/* overpunches the pointer 'p' with the sign + * Note: if used on an EBCDIC machine this is actually _not_ an overpunch + * but a replacement! */ static void cob_put_sign_ascii (unsigned char *p) { @@ -1581,19 +1607,49 @@ cob_put_sign_ascii (unsigned char *p) *p = (unsigned char)'0'; } #else - *p |= 64U; + *p |= 0x40; #endif } -/* EBCDIC Sign +/* EBCDIC Sign - Reading and undo the "overpunch"; + * Note: if used on an ASCII machine this is actually _not_ an overpunch + * but a replacement! * positive: {ABCDEFGHI + * unsigned: 0123456789 * negative: }JKLMNOPQR - * returns one of: 1 = positive (non-negative), -1 = negative + * returns one of: 1 = positive (non-negative), -1 = negative, 0 = unsigned */ static int cob_get_sign_ebcdic (unsigned char *p) { +#ifdef COB_EBCDIC_MACHINE + char sign_nibble = *p & 0xF0; + /* What to do here outside of 0 - 9? */ + if ((*p & 0x0F) > 9) { + *p = sign_nibble; + } + switch (sign_nibble) { + /* negative */ + case 0xC0: + /* negative, non-preferred */ + case 0xA0: + case 0xE0: + return 1; + /* positive */ + case 0xD0: + /* positive, non-preferred */ + case 0xB0: + return -1; + /* unsigned */ + case 0xF0: + return 0; + return -1; + default: + /* What to do here outside of sign nibbles? */ + return 1; + } +#else switch (*p) { case '{': *p = (unsigned char)'0'; @@ -1656,13 +1712,18 @@ cob_get_sign_ebcdic (unsigned char *p) *p = (unsigned char)'9'; return -1; default: - /* What to do here */ - *p = (unsigned char)('0' + (*p & 0x0F)); - if (*p > (unsigned char)'9') { + if (*p >= '0' && *p <= '9') { + return 0; + } + /* What to do here outside of 0 - 9? */ + if ((*p & 0x0F) > 9) { *p = (unsigned char)'0'; + } else { + *p = (unsigned char)COB_I2D (COB_D2I (*p)); } return 1; } +#endif } static void @@ -1872,62 +1933,60 @@ static int cob_cmp_all (cob_field *f1, cob_field *f2) { const unsigned char *col = COB_MODULE_PTR->collating_sequence; - unsigned char *data; - unsigned char buff[COB_MAX_DIGITS + 1]; - - if (COB_FIELD_HAVE_SIGN (f1)) { - /* drop sign for comparision, using a copy to not change - the field during comparision */ - /* CHECKME: What should be returned if f1 is negative? */ - unsigned char *real_data = f1->data; - f1->data = data = buff; - memcpy (buff, real_data, f1->size); - (void)cob_real_get_sign (f1); - f1->data = real_data; - } else { - data = f1->data; - } + const unsigned char *data1 = COB_FIELD_DATA (f1); + const unsigned char *data2 = f2->data; + const size_t size1 = COB_FIELD_SIZE (f1); + const size_t size2 = f2->size; + /* CHECKME: What should be returned if f1 is negative? */ + /* CHECKME: Do we ever get here with f2 being numeric? */ + const int sign = COB_GET_SIGN_ADJUST (f1); + int ret = 0; /* check without collation */ if (col == NULL) { - if (f2->size == 1) { - if (f2->data[0] == ' ') { + if (size2 == 1) { + if (*data2 == ' ') { /* check for IF VAR = [ALL] SPACE[S] */ - return compare_spaces (f1->data, f1->size); - } - if (f2->data[0] == '0') { + ret = compare_spaces (data1, size1); + } else + if (*data2 == '0') { /* check for IF VAR = [ALL] ZERO[ES] */ - return compare_zeroes (f1->data, f1->size); + ret = compare_zeroes (data1, size1); + } else { + /* check for IF VAR = ALL '5' / HIGH-VALUE / ... */ + ret = compare_character (data1, size1, data2, 1); } - } - /* check for IF VAR = ALL ... / HIGH-VALUE / ... */ - if (f1->size > f2->size) { - return compare_character (f1->data, f1->size, f2->data, f2->size); + } else + /* check for IF VAR = ALL ... / ... */ + if (size1 > size2) { + ret = compare_character (data1, size1, data2, size2); } else { - return compare_character (f1->data, f1->size, f2->data, f1->size); + ret = compare_character (data1, size1, data2, size1); } - } - + } else /* check with collation */ - if (f2->size == 1) { + if (size2 == 1) { /* check for IF VAR = ALL "9" / IF VAR = ZERO */ - return common_cmpc (data, f2->data[0], f1->size, col); + ret = common_cmpc (data1, *data2, size1, col); } else { /* check for IF VAR = ALL "AB" ... */ - size_t size = f1->size; - int ret; - while (size >= f2->size) { - if ((ret = common_cmps (data, f2->data, f2->size, col)) != 0) { - return ret; + const size_t chunk_size = size2; + size_t size_loop = size1; + while (size_loop >= chunk_size) { + if ((ret = common_cmps (data1, data2, chunk_size, col)) != 0) { + break; } - size -= f2->size; - data += f2->size; + size_loop -= chunk_size; + data1 += chunk_size; } - if (size > 0) { - return common_cmps (data, f2->data, size, col); + if (!ret + && size1 > 0) { + ret = common_cmps (data1, data2, size_loop, col); } } - return 0; + + COB_PUT_SIGN_ADJUSTED (f1, sign); + return ret; } /* compare content of field 'f1' to content of 'f2', space padded, @@ -1936,39 +1995,43 @@ static int cob_cmp_alnum (cob_field *f1, cob_field *f2) { const unsigned char *col = COB_MODULE_PTR->collating_sequence; - const size_t min = (f1->size < f2->size) ? f1->size : f2->size; + const unsigned char *data1 = COB_FIELD_DATA (f1); + const unsigned char *data2 = COB_FIELD_DATA (f2); + const size_t size1 = COB_FIELD_SIZE (f1); + const size_t size2 = COB_FIELD_SIZE (f2); + const size_t min = (size1 < size2) ? size1 : size2; int ret; if (col == NULL) { /* check without collation */ /* Compare common substring */ - if ((ret = memcmp (f1->data, f2->data, min)) != 0) { + if ((ret = memcmp (data1, data2, min)) != 0) { return ret; } /* Compare the rest (if any) with spaces */ - if (f1->size > f2->size) { - const size_t spaces_to_test = f1->size - min; - return compare_spaces (f1->data + min, spaces_to_test); - } else if (f1->size < f2->size) { - const size_t spaces_to_test = f2->size - min; - return -compare_spaces (f2->data + min, spaces_to_test); + if (size1 > size2) { + const size_t spaces_to_test = size1 - min; + return compare_spaces (data1 + min, spaces_to_test); + } else if (size1 < size2) { + const size_t spaces_to_test = size2 - min; + return -compare_spaces (data2 + min, spaces_to_test); } } else { /* check with collation */ /* Compare common substring */ - if ((ret = common_cmps (f1->data, f2->data, min, col)) != 0) { + if ((ret = common_cmps (data1, data2, min, col)) != 0) { return ret; } /* Compare the rest (if any) with spaces */ - if (f1->size > f2->size) { - const size_t spaces_to_test = f1->size - min; - return common_cmpc (f1->data + min, ' ', spaces_to_test, col); - } else if (f1->size < f2->size) { - const size_t spaces_to_test = f2->size - min; - return -common_cmpc (f2->data + min, ' ', spaces_to_test, col); + if (size1 > size2) { + const size_t spaces_to_test = size1 - min; + return common_cmpc (data1 + min, ' ', spaces_to_test, col); + } else if (size1 < size2) { + const size_t spaces_to_test = size2 - min; + return -common_cmpc (data2 + min, ' ', spaces_to_test, col); } } @@ -3269,50 +3332,6 @@ cob_get_pointer (const void *srcptr) return (cob_u8_ptr)tmptr; } -/* stores the field's rtrimmed string content into the given buffer - with maxlength */ -void -cob_field_to_string (const cob_field *f, void *str, const size_t maxsize) -{ - register unsigned char *end, *data, *s; - - if (f == NULL) { - snprintf (str, maxsize, "%s", ("NULL field")); - return; - } - - if (f->size == 0) { - return; - } - data = f->data; - /* check if field has data assigned (may be a BASED / LINKAGE item) */ - if (data == NULL) { - snprintf (str, maxsize, "%s", ("field with NULL address")); - return; - } - end = data + f->size - 1; - while (end > data) { - if (*end != ' ' && *end) { - break; - } - end--; - } - s = (unsigned char *)str; - if (*end == ' ' || *end == 0) { - *s = 0; - return; - } - - /* note: the specified max does not contain the low-value */ - if ((size_t)(end - data) > maxsize) { - end = data + maxsize; - } - while (data <= end) { - *s++ = *data++; - } - *s = 0; -} - static void call_exit_handlers_and_terminate (void) { @@ -3938,7 +3957,7 @@ cob_correct_numeric (cob_field *f) break; default: if ((*p & 0x0F) <= 9) { - *p = (*p & 0x0F) + '0'; + *p = COB_I2D (*p & 0x0F); } break; } @@ -3964,78 +3983,58 @@ cob_check_numdisp (const cob_field *f) if (c != '+' && c != '-') { return 0; } - } else if (COB_MODULE_PTR->ebcdic_sign) { - switch (c) { - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': - case '{': - case 'A': - case 'B': - case 'C': - case 'D': - case 'E': - case 'F': - case 'G': - case 'H': - case 'I': - case '}': - case 'J': - case 'K': - case 'L': - case 'M': - case 'N': - case 'O': - case 'P': - case 'Q': - case 'R': - break; - default: - return 0; - } - } else { - switch (c) { - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': - case 'p': - case 'q': - case 'r': - case 's': - case 't': - case 'u': - case 'v': - case 'w': - case 'x': - case 'y': - break; - default: - return 0; + } else if (IS_INVALID_DIGIT_DATA (c)) { + if (COB_MODULE_PTR->ebcdic_sign) { + switch (c) { + case '{': + case 'A': + case 'B': + case 'C': + case 'D': + case 'E': + case 'F': + case 'G': + case 'H': + case 'I': + case '}': + case 'J': + case 'K': + case 'L': + case 'M': + case 'N': + case 'O': + case 'P': + case 'Q': + case 'R': + break; + default: + return 0; + } + } else { + switch (c) { + case 'p': + case 'q': + case 'r': + case 's': + case 't': + case 'u': + case 'v': + case 'w': + case 'x': + case 'y': + break; + default: + return 0; + } } } } while (p < end) { - if (*p >= '0' - && *p <= '9') { - p++; - } else { + if (IS_INVALID_DIGIT_DATA (*p)) { return 0; } + p++; } return 1; } @@ -4051,11 +4050,18 @@ locate_sign (cob_field *f) return f->data + f->size - 1; } -/* get sign from DISPLAY/PACKED fields - returns one of: 1 = positive (non-negative), -1 = negative, +/* get sign from DISPLAY/PACKED field 'f'; + + if 'adjust_ebcdic' is set then original DISPLAY data is "unpunched" + for `ebcdic_sign` and return adjusted; + that allows conversion without handling that afterwards + + returns one of: 1 = positive (non-negative); -1 = negative; + 2 = positive (non-negative), adjusted; + -2 = negative, adjusted; 0 = neither DISPLAY nor PACKED */ int -cob_real_get_sign (cob_field *f) +cob_real_get_sign (cob_field *f, const int adjust_ebcdic) { unsigned char *p; @@ -4067,7 +4073,7 @@ cob_real_get_sign (cob_field *f) if (COB_FIELD_SIGN_SEPARATE (f)) { return (*p == '-') ? -1 : 1; } - if (*p >= '0' && *p <= '9') { + if (IS_VALID_DIGIT_DATA (*p)) { return 1; } if (*p == ' ') { @@ -4076,10 +4082,24 @@ cob_real_get_sign (cob_field *f) #endif return 1; } - if (COB_MODULE_PTR->ebcdic_sign) { - return cob_get_sign_ebcdic (p); + if (adjust_ebcdic) { +#ifdef COB_EBCDIC_MACHINE + if (COB_MODULE_PTR->ebcdic_sign) { + return cob_get_sign_ebcdic (p); + } + return cob_get_sign_ascii (p) < 0 ? -2 : 2; +#else + if (COB_MODULE_PTR->ebcdic_sign) { + return cob_get_sign_ebcdic (p) < 0 ? -2 : 2; + } + return ((*p & 0xF0) == 0x70) ? -1 : 1; +#endif + } else { + if (COB_MODULE_PTR->ebcdic_sign) { + return cob_get_sign_ebcdic (p); + } + return cob_get_sign_ascii (p); } - return cob_get_sign_ascii (p); case COB_TYPE_NUMERIC_PACKED: if (COB_FIELD_NO_SIGN_NIBBLE (f)) { return 1; @@ -4172,7 +4192,7 @@ cob_cmp (cob_field *f1, cob_field *f2) const int f1_is_numeric = f1_type & COB_TYPE_NUMERIC; const int f2_is_numeric = f2_type & COB_TYPE_NUMERIC; - /* both numeric -> direct compare */ + /* both numeric -> direct numeric compare */ if (f1_is_numeric && f2_is_numeric) { return cob_numeric_cmp (f1, f2); } @@ -4208,17 +4228,16 @@ cob_cmp (cob_field *f1, cob_field *f2) only in test "Alphanumeric and binary numeric" */ if (f1_is_numeric || f2_is_numeric) { - /* CHECKME: What should be returned if field is negative? - We suspicously change -12 to 12 here... */ + /* Note: the standard explicit defines how to handle that: + intermediate MOVE to a NUMERIC_DISPLAY with same amount + of digits (= drop sign and implied decimal point), then + compare that */ cob_field field; cob_field_attr attr; unsigned char buff[COB_MAX_DIGITS + 10]; - /* CHECKME: may need to abort if we ever get here with float data */ - - /* FIXME: must be converted to COB_TYPE_NUMERIC_EDITED with an - internal PIC of COB_FIELD_DIGITS '9's and leading sign, - otherwise we'll fail as soon as we enable COB_MAX_BINARY */ + /* note: the standard explicit forbits floating-point numeric + in this scenario */ if (f1_is_numeric && f1_type != COB_TYPE_NUMERIC_DISPLAY) { COB_FIELD_INIT (COB_FIELD_DIGITS (f1), buff, &attr); @@ -4241,23 +4260,14 @@ cob_cmp (cob_field *f1, cob_field *f2) if (COB_FIELD_HAVE_SIGN (f1)) { /* Note: if field is numeric then it is always USAGE DISPLAY here */ - - if (f1 != &field) { - /* drop sign for comparision, using a copy to not change - the field during comparision */ - unsigned char buff2[COB_MAX_DIGITS + 10]; - const size_t size = f1->size; - int ret; - unsigned char *real_data = f1->data; - memcpy (buff2, real_data, size); - f1->data = buff2; - (void)cob_real_get_sign (f1); - ret = cob_cmp_alnum (f1, f2); - f1->data = real_data; + if (f1 != &field) { + const int sign = COB_GET_SIGN (f1); + int ret = cob_cmp_alnum (f1, f2); + COB_PUT_SIGN (f1, sign); return ret; } else { /* we operate on a buffer already, just go on */ - (void)cob_real_get_sign (f1); + (void)cob_real_get_sign (f1, 0); return cob_cmp_alnum (f1, f2); } } @@ -4265,23 +4275,14 @@ cob_cmp (cob_field *f1, cob_field *f2) if (COB_FIELD_HAVE_SIGN (f2)) { /* Note: if field is numeric then it is always USAGE DISPLAY here */ - if (f2 != &field) { - /* drop sign for comparision, using a copy to not change - the field during comparision */ - unsigned char buff2[COB_MAX_DIGITS + 10]; - const size_t size = f2->size; - int ret; - unsigned char *real_data = f2->data; - memcpy (buff2, real_data, size); - f2->data = buff2; - (void)cob_real_get_sign (f2); - ret = cob_cmp_alnum (f1, f2); - f2->data = real_data; + const int sign = COB_GET_SIGN (f2); + int ret = cob_cmp_alnum (f1, f2); + COB_PUT_SIGN (f2, sign); return ret; } else { /* we operate on a buffer already, just go on */ - (void)cob_real_get_sign (f2); + (void)cob_real_get_sign (f2, 0); return cob_cmp_alnum (f1, f2); } } @@ -4360,12 +4361,10 @@ cob_is_numeric (const cob_field *f) /* Check digits */ while (p < end) { - if (*p < 0x9A - && (*p & 0x0F) < 0x0A) { - p++; - } else { + if (IS_INVALID_BCD_DATA (*p)) { return 0; } + p++; } return 1; @@ -4390,11 +4389,10 @@ cob_is_numeric (const cob_field *f) const unsigned char *end = p + f->size; while (p < end) { - if (*p >= '0' && *p <= '9') { - p++; - } else { + if (IS_INVALID_DIGIT_DATA (*p)) { return 0; } + p++; } return 1; } @@ -4541,6 +4539,12 @@ explain_field_type (const cob_field *f) case COB_TYPE_NUMERIC_BINARY: return "BINARY"; case COB_TYPE_NUMERIC_PACKED: + if (COB_FIELD_NO_SIGN_NIBBLE (f)) { + return "COMP-6"; + } + if (!COB_FIELD_HAVE_SIGN (f)) { + return "PACKED-DECIMAL (unsigned)"; + } return "PACKED-DECIMAL"; case COB_TYPE_NUMERIC_FLOAT: return "FLOAT"; @@ -5078,16 +5082,14 @@ cob_get_current_datetime (const enum cob_datetime_res res) } int -cob_set_date_from_epoch (struct cob_time *cb_time, const char *config) +cob_set_date_from_epoch (struct cob_time *cb_time, const unsigned char *p) { struct tm *tmptr; time_t t = 0; long long seconds = 0; - unsigned char *p = (unsigned char *)config; - while (*p >= '0' && *p <= '9') { - seconds = seconds * 10 + COB_D2I (*p); - p++; + while (IS_VALID_DIGIT_DATA (*p)) { + seconds = seconds * 10 + COB_D2I (*p++); } if (*p != 0 || seconds > 253402300799) { /* The value (as a unix timestamp) corresponds to date @@ -5134,30 +5136,27 @@ check_current_date () { int yr, mm, dd, hh, mi, ss, ns; int offset = 9999; - int i, j, ret; + int i, ret; time_t t; struct tm *tmptr; char iso_timezone[7] = { 0 }; - char nanoseconds[10]; + unsigned char *p = (unsigned char*)cobsetptr->cob_date; - if (cobsetptr == NULL - || cobsetptr->cob_date == NULL) { + if (p == NULL) { return; } - j = 0; - /* skip quotes and space-characters */ - while (cobsetptr->cob_date[j] == '\'' - || cobsetptr->cob_date[j] == '"' - || isspace((unsigned char)cobsetptr->cob_date[j])) { - j++; + while (*p == '\'' + || *p == '"' + || isspace (*p)) { + p++; } /* extract epoch, if specified */ - if (cobsetptr->cob_date[j] == '@') { + if (*p == '@') { /* @sssssssss seconds since epoch */ - ret = cob_set_date_from_epoch (&cobsetptr->cob_time_constant, cobsetptr->cob_date + j + 1); + ret = cob_set_date_from_epoch (&cobsetptr->cob_time_constant, ++p); if (ret) { cob_runtime_warning (_("COB_CURRENT_DATE '%s' is invalid"), cobsetptr->cob_date); } @@ -5168,23 +5167,22 @@ check_current_date () ret = 0; /* extract date */ - if (cobsetptr->cob_date[j] != 0) { + if (*p) { yr = 0; - for (i = 0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - yr = yr * 10 + COB_D2I (cobsetptr->cob_date[j]); - } else { + for (i = 0; *p; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + yr = yr * 10 + COB_D2I (*p); if (++i == 4) { - j++; + p++; break; } } if (i != 2 && i != 4) { /* possible template with partial system lookup */ - if (cobsetptr->cob_date[j] == 'Y') { - while (cobsetptr->cob_date[j] == 'Y') j++; + if (*p == 'Y') { + while (*p == 'Y') p++; } else { ret = 1; } @@ -5192,28 +5190,27 @@ check_current_date () } else if (yr < 100) { yr += 2000; } - if (cobsetptr->cob_date[j] == '/' - || cobsetptr->cob_date[j] == '-') { - j++; + if (*p == '/' + || *p == '-') { + p++; } } - if (cobsetptr->cob_date[j] != 0) { + if (*p) { mm = 0; - for (i = 0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - mm = mm * 10 + COB_D2I (cobsetptr->cob_date[j]); - } else { + for (i = 0; *p; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + mm = mm * 10 + COB_D2I (*p); if (++i == 2) { - j++; + p++; break; } } if (i != 2) { /* possible template with partial system lookup */ - if (cobsetptr->cob_date[j] == 'M') { - while (cobsetptr->cob_date[j] == 'M') j++; + if (*p == 'M') { + while (*p == 'M') p++; } else { ret = 1; } @@ -5221,28 +5218,27 @@ check_current_date () } else if (mm < 1 || mm > 12) { ret = 1; } - if (cobsetptr->cob_date[j] == '/' - || cobsetptr->cob_date[j] == '-') { - j++; + if (*p == '/' + || *p == '-') { + p++; } } - if (cobsetptr->cob_date[j] != 0) { + if (*p) { dd = 0; - for (i = 0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - dd = dd * 10 + COB_D2I (cobsetptr->cob_date[j]); - } else { + for (i = 0; *p; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + dd = dd * 10 + COB_D2I (*p); if (++i == 2) { - j++; + p++; break; } } if (i != 2) { /* possible template with partial system lookup */ - if (cobsetptr->cob_date[j] == 'D') { - while (cobsetptr->cob_date[j] == 'D') j++; + if (*p == 'D') { + while (*p == 'D') p++; } else { ret = 1; } @@ -5253,25 +5249,24 @@ check_current_date () } /* extract time */ - if (cobsetptr->cob_date[j] != 0) { + if (*p) { hh = 0; - while (isspace ((unsigned char)cobsetptr->cob_date[j])) j++; - for (i = 0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - hh = hh * 10 + COB_D2I (cobsetptr->cob_date[j]); - } else { + while (isspace (*p)) p++; + for (i = 0; *p; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + hh = hh * 10 + COB_D2I (*p); if (++i == 2) { - j++; + p++; break; } } if (i != 2) { /* possible template with partial system lookup */ - if (cobsetptr->cob_date[j] == 'H') { - while (cobsetptr->cob_date[j] == 'H') j++; + if (*p == 'H') { + while (*p == 'H') p++; } else { ret = 1; } @@ -5279,27 +5274,26 @@ check_current_date () } else if (hh > 23) { ret = 1; } - if (cobsetptr->cob_date[j] == ':' - || cobsetptr->cob_date[j] == '-') - j++; + if (*p == ':' + || *p == '-') + p++; } - if (cobsetptr->cob_date[j] != 0) { + if (*p) { mi = 0; - for (i = 0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - mi = mi * 10 + COB_D2I (cobsetptr->cob_date[j]); - } else { + for (i = 0; *p; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + mi = mi * 10 + COB_D2I (*p); if (++i == 2) { - j++; + p++; break; } } if (i != 2) { /* possible template with partial system lookup */ - if (cobsetptr->cob_date[j] == 'M') { - while (cobsetptr->cob_date[j] == 'M') j++; + if (*p == 'M') { + while (*p == 'M') p++; } else { ret = 1; } @@ -5307,32 +5301,31 @@ check_current_date () } else if (mi > 59) { ret = 1; } - if (cobsetptr->cob_date[j] == ':' - || cobsetptr->cob_date[j] == '-') { - j++; + if (*p == ':' + || *p == '-') { + p++; } } - if (cobsetptr->cob_date[j] != 0 - && cobsetptr->cob_date[j] != 'Z' - && cobsetptr->cob_date[j] != '+' - && cobsetptr->cob_date[j] != '-') { + if (*p != 0 + && *p != 'Z' + && *p != '+' + && *p != '-') { ss = 0; - for (i = 0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - ss = ss * 10 + COB_D2I (cobsetptr->cob_date[j]); - } else { + for (i = 0; *p != 0; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + ss = ss * 10 + COB_D2I (*p); if (++i == 2) { - j++; + p++; break; } } if (i != 2) { /* possible template with partial system lookup */ - if (cobsetptr->cob_date[j] == 'S') { - while (cobsetptr->cob_date[j] == 'S') j++; + if (*p == 'S') { + while (*p == 'S') p++; } else { ret = 1; } @@ -5344,58 +5337,57 @@ check_current_date () } /* extract nanoseconds */ - if (cobsetptr->cob_date[j] != 0 - && cobsetptr->cob_date[j] != 'Z' - && cobsetptr->cob_date[j] != '+' - && cobsetptr->cob_date[j] != '-') { + if (*p != 0 + && *p != 'Z' + && *p != '+' + && *p != '-') { ns = 0; - if (cobsetptr->cob_date[j] == '.' - || cobsetptr->cob_date[j] == ':') { - j++; - } - strcpy (nanoseconds, "000000000"); - for (i=0; cobsetptr->cob_date[j] != 0; j++) { - if (isdigit ((unsigned char)cobsetptr->cob_date[j])) { - nanoseconds[i] = cobsetptr->cob_date[j]; - } else { + if (*p == '.' + || *p == ':') { + p++; + } + for (i = 0; *p; p++) { + if (IS_INVALID_DIGIT_DATA (*p)) { break; } + ns = ns * 10 + COB_D2I (*p); if (++i == 9) { - j++; + p++; break; } } - ns = atoi(nanoseconds); } /* extract UTC offset */ - if (cobsetptr->cob_date[j] == 'Z') { + if (*p == 'Z') { offset = 0; iso_timezone[0] = 'Z'; - } else if (cobsetptr->cob_date[j] == '+' - || cobsetptr->cob_date[j] == '-') { - int len = snprintf (&iso_timezone[0], 7, "%s", cobsetptr->cob_date + j); + } else + if (*p == '+' + || *p == '-') { + /* we operate on a buffer here to drop the included ":" */ + int len = snprintf (&iso_timezone[0], 7, "%s", p); if (len == 3) { memcpy (iso_timezone + 3, "00", 3); } else if (len >= 5 && iso_timezone[3] == ':') { - snprintf (&iso_timezone[3], 3, "%s", cobsetptr->cob_date + j + 4); + snprintf (&iso_timezone[3], 3, "%s", p + 4); len--; } if (len > 5) { ret = 1; } - for (i=1; i < 5 && iso_timezone[i] != 0; i++) { - if (!isdigit ((unsigned char)iso_timezone[i])) { + for (i = 1; i < 5 && iso_timezone[i] != 0; i++) { + if (IS_INVALID_DIGIT_DATA (iso_timezone[i])) { break; } } i--; if (i == 4) { offset = COB_D2I (iso_timezone[1]) * 60 * 10 - + COB_D2I (iso_timezone[2]) * 60 - + COB_D2I (iso_timezone[3]) * 10 - + COB_D2I (iso_timezone[4]); + + COB_D2I (iso_timezone[2]) * 60 + + COB_D2I (iso_timezone[3]) * 10 + + COB_D2I (iso_timezone[4]); if (iso_timezone[0] == '-') { offset *= -1; } @@ -5508,7 +5500,7 @@ cob_accept_date (cob_field *f) + (time.year % 100) * 10000; cob_field field; cob_field_attr attr; - const size_t digits = 6; + const unsigned short digits = 6; COB_FIELD_INIT (sizeof (cob_u32_t), (unsigned char *)&val, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5530,7 +5522,7 @@ cob_accept_date_yyyymmdd (cob_field *f) + time.year * 10000; cob_field field; cob_field_attr attr; - const size_t digits = 8; + const unsigned short digits = 8; COB_FIELD_INIT (sizeof (cob_u32_t), (unsigned char *)&val, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5550,7 +5542,7 @@ cob_accept_day (cob_field *f) const cob_u32_t val = time.day_of_year + (time.year % 100) * 1000; cob_field field; cob_field_attr attr; - const size_t digits = 5; + const unsigned short digits = 5; COB_FIELD_INIT (sizeof (cob_u32_t), (unsigned char *)&val, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5570,7 +5562,7 @@ cob_accept_day_yyyyddd (cob_field *f) const cob_u32_t val = time.day_of_year + time.year * 1000; cob_field field; cob_field_attr attr; - const size_t digits = 7; + const unsigned short digits = 7; COB_FIELD_INIT (sizeof (cob_u32_t), (unsigned char *)&val, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5588,7 +5580,7 @@ cob_accept_day_of_week (cob_field *f) { const struct cob_time time = cob_get_current_datetime (DTR_DATE); const unsigned char day = (unsigned char)(time.day_of_week + '0'); - const size_t digits = 1; + const unsigned short digits = 1; cob_move_intermediate (f, &day, digits); } @@ -5605,7 +5597,7 @@ cob_accept_time (cob_field *f) + time.hour * 1000000; cob_field field; cob_field_attr attr; - const size_t digits = 8; + const unsigned short digits = 8; COB_FIELD_INIT (sizeof (cob_u32_t), (unsigned char *)&val, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5628,7 +5620,7 @@ cob_accept_microsecond_time (cob_field *f) + (cob_u64_t)time.hour * 10000000000; cob_field field; cob_field_attr attr; - const size_t digits = 12; + const unsigned short digits = 12; COB_FIELD_INIT (sizeof (cob_u64_t), (unsigned char *)&val, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5702,7 +5694,7 @@ cob_display_arg_number (cob_field *f) int n; cob_field field; cob_field_attr attr; - const size_t digits = 9; + const unsigned short digits = 9; COB_FIELD_INIT (4, (unsigned char *)&n, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5720,7 +5712,7 @@ cob_accept_arg_number (cob_field *f) const cob_u32_t n = cob_argc - 1; cob_field field; cob_field_attr attr; - const size_t digits = 9; + const unsigned short digits = 9; COB_FIELD_INIT (sizeof (cob_u32_t), (unsigned char *)&n, &attr); COB_ATTR_INIT (COB_TYPE_NUMERIC_BINARY, digits, 0, 0, NULL); @@ -5830,7 +5822,7 @@ cob_putenv (char *name) void cob_display_environment (const cob_field *f) { - size_t i; + int ret; if (cob_local_env_size < f->size) { cob_local_env_size = f->size; @@ -5839,9 +5831,13 @@ cob_display_environment (const cob_field *f) } cob_local_env = cob_malloc (cob_local_env_size + 1U); } - cob_field_to_string (f, cob_local_env, cob_local_env_size); + ret = cob_field_to_string (f, cob_local_env, cob_local_env_size, CCM_NONE); + if (ret < 0) { + return; + } if (cobsetptr->cob_env_mangle) { - const size_t len = strlen (cob_local_env); + const size_t len = ret; + size_t i; for (i = 0; i < len; ++i) { if (!isalnum ((int)cob_local_env[i])) { cob_local_env[i] = '_'; @@ -5850,24 +5846,27 @@ cob_display_environment (const cob_field *f) } } +/* DISPLAY ... UPON ENVIRONMENT VALUE */ void cob_display_env_value (const cob_field *f) { - char *env2; int ret; - if (!cob_local_env) { + if (!cob_local_env + || !cob_local_env[0]) { cob_set_exception (COB_EC_IMP_DISPLAY); return; } - if (!*cob_local_env) { - cob_set_exception (COB_EC_IMP_DISPLAY); - return; + { + char buff[COB_MEDIUM_BUFF]; + int flen = cob_field_to_string (f, buff, + COB_MEDIUM_MAX, CCM_NONE); + if (flen < 0) { + cob_set_exception (COB_EC_IMP_DISPLAY); + return; + } + ret = cob_setenv (cob_local_env, buff, 1); } - env2 = cob_malloc (f->size + 1U); - cob_field_to_string (f, env2, f->size); - ret = cob_setenv (cob_local_env, env2, 1); - cob_free (env2); if (ret != 0) { cob_set_exception (COB_EC_IMP_DISPLAY); return; @@ -5886,32 +5885,37 @@ cob_set_environment (const cob_field *f1, const cob_field *f2) void cob_get_environment (const cob_field *envname, cob_field *envval) { - const char *p; - char *buff; - size_t size; + char buff[COB_MEDIUM_BUFF]; + char *p; + int flen; if (envname->size == 0 || envval->size == 0) { cob_set_exception (COB_EC_IMP_ACCEPT); return; } - buff = cob_malloc (envname->size + 1U); - cob_field_to_string (envname, buff, envname->size); + flen = cob_field_to_string (envname, buff, + COB_MEDIUM_MAX, CCM_NONE); + if (flen < 1) { + cob_set_exception (COB_EC_IMP_ACCEPT); + return; + } + if (cobsetptr->cob_env_mangle) { - const size_t len = strlen (buff); - for (size = 0; size < len; ++size) { - if (!isalnum ((int)buff[size])) { - buff[size] = '_'; + const char *p_end = buff + flen; + for (p = buff; p < p_end; ++p) { + if (!isalnum ((int)*p)) { + *p = '_'; } } } p = getenv (buff); - if (!p) { + if (p) { + cob_move_intermediate (envval, p, strlen (p)); + } else { cob_set_exception (COB_EC_IMP_ACCEPT); - p = " "; + cob_move_intermediate (envval, " ", 1); } - cob_move_intermediate (envval, p, strlen (p)); - cob_free (buff); } void @@ -5922,23 +5926,22 @@ cob_accept_environment (cob_field *f) if (cob_local_env) { p = getenv (cob_local_env); } - if (!p) { + if (p) { + cob_move_intermediate (f, p, strlen (p)); + } else { cob_set_exception (COB_EC_IMP_ACCEPT); - p = " "; + cob_move_intermediate (f, " ", 1); } - cob_move_intermediate (f, p, strlen (p)); } void cob_chain_setup (void *data, const size_t parm, const size_t size) { - size_t len; - /* only set if given on command-line, otherwise use normal program internal initialization */ if (parm <= (size_t)cob_argc - 1) { + const size_t len = strlen (cob_argv[parm]); memset (data, ' ', size); - len = strlen (cob_argv[parm]); if (len <= size) { memcpy (data, cob_argv[parm], len); } else { @@ -7489,7 +7492,8 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo /* add 0-termination to strings */ shortoptions = cob_malloc (so_size + 1U); if (COB_MODULE_PTR->cob_procedure_params[0]) { - cob_field_to_string (COB_MODULE_PTR->cob_procedure_params[0], shortoptions, so_size); + cob_field_to_string (COB_MODULE_PTR->cob_procedure_params[0], + shortoptions, so_size, CCM_NONE); } if (COB_MODULE_PTR->cob_procedure_params[1]) { @@ -7709,43 +7713,43 @@ void cob_set_locale (cob_field *locale, const int category) { #ifdef HAVE_SETLOCALE + char buff[COB_MINI_BUFF]; char *p; - char *buff; - p = NULL; if (locale) { - if (locale->size == 0) { + int flen = cob_field_to_string (locale, buff, + COB_MINI_MAX, CCM_NONE); + if (flen < 1) { return; } - buff = cob_malloc (locale->size + 1U); - cob_field_to_string (locale, buff, locale->size); + p = buff; } else { - buff = NULL; + p = NULL; } switch (category) { case COB_LC_COLLATE: - p = setlocale (LC_COLLATE, buff); + p = setlocale (LC_COLLATE, p); break; case COB_LC_CTYPE: - p = setlocale (LC_CTYPE, buff); + p = setlocale (LC_CTYPE, p); break; #ifdef LC_MESSAGES case COB_LC_MESSAGES: - p = setlocale (LC_MESSAGES, buff); + p = setlocale (LC_MESSAGES, p); break; #endif case COB_LC_MONETARY: - p = setlocale (LC_MONETARY, buff); + p = setlocale (LC_MONETARY, p); break; case COB_LC_NUMERIC: - p = setlocale (LC_NUMERIC, buff); + p = setlocale (LC_NUMERIC, p); break; case COB_LC_TIME: - p = setlocale (LC_TIME, buff); + p = setlocale (LC_TIME, p); break; case COB_LC_ALL: - p = setlocale (LC_ALL, buff); + p = setlocale (LC_ALL, p); break; case COB_LC_USER: if (cobglobptr->cob_locale_orig) { @@ -7759,9 +7763,6 @@ cob_set_locale (cob_field *locale, const int category) } break; } - if (buff) { - cob_free (buff); - } if (!p) { cob_set_exception (COB_EC_LOCALE_MISSING); return; @@ -8193,14 +8194,12 @@ set_config_val (char *value, int pos) sign = *ptr; ptr++; } - if ((unsigned char)*ptr > '9' - || (unsigned char)*ptr < '0') { + if (IS_INVALID_DIGIT_DATA (*ptr)) { conf_runtime_error_value (ptr, pos); conf_runtime_error (1, _("should be numeric")); return 1; } - while ((unsigned char)*ptr >= '0' - && (unsigned char)*ptr <= '9') { + while (IS_VALID_DIGIT_DATA (*ptr)) { numval = (numval * 10) + COB_D2I (*ptr++); } if (sign != 0 @@ -8312,7 +8311,7 @@ set_config_val (char *value, int pos) } /* call internal routines that do post-processing */ - if (data == (char *)cobsetptr->cob_date) { + if (data == (void *)cobsetptr->cob_date) { check_current_date (); } @@ -8900,7 +8899,7 @@ cob_load_config (void) } } } - check_current_date(); + check_current_date (); return 0; } @@ -9308,7 +9307,7 @@ cob_fatal_error (const enum cob_fatal_error fatal_error) err_cause = cob_get_filename_print (cobglobptr->cob_error_file, 1); /* FIXME: additional check if referenced program has active code location */ if (cobglobptr->last_exception_statement == STMT_UNKNOWN) { - cob_runtime_error (_ ("%s (status = %02d) for file %s"), + cob_runtime_error (_("%s (status = %02d) for file %s"), msg, status, err_cause); } else { cob_runtime_error (_("%s (status = %02d) for file %s on %s"), @@ -10430,6 +10429,7 @@ cob_init (const int argc, char **argv) /* Call inits with cobsetptr to get the addresses of all */ /* Screen-IO might be needed for error outputs */ cob_init_screenio (cobglobptr, cobsetptr); + cob_init_cconv (cobglobptr); cob_init_numeric (cobglobptr); cob_init_strings (cobglobptr); cob_init_move (cobglobptr, cobsetptr); diff --git a/libcob/common.h b/libcob/common.h index 1c46eebc..e7ca564a 100644 --- a/libcob/common.h +++ b/libcob/common.h @@ -1063,18 +1063,20 @@ enum cob_open_mode { #define COB_STORE_MASK \ (COB_STORE_ROUND | COB_STORE_KEEP_ON_OVERFLOW | \ - COB_STORE_TRUNC_ON_OVERFLOW) + COB_STORE_TRUNC_ON_OVERFLOW | COB_STORE_NO_SIZE_ERROR) /* Screen attribute defines */ -#define COB_SCREEN_BLACK 0 -#define COB_SCREEN_BLUE 1 -#define COB_SCREEN_GREEN 2 -#define COB_SCREEN_CYAN 3 -#define COB_SCREEN_RED 4 -#define COB_SCREEN_MAGENTA 5 -#define COB_SCREEN_YELLOW 6 -#define COB_SCREEN_WHITE 7 +enum cob_colors { + COB_SCREEN_BLACK = 0, + COB_SCREEN_BLUE = 1, + COB_SCREEN_GREEN = 2, + COB_SCREEN_CYAN = 3, + COB_SCREEN_RED = 4, + COB_SCREEN_MAGENTA = 5, + COB_SCREEN_YELLOW = 6, + COB_SCREEN_WHITE = 7 +}; typedef cob_s64_t cob_flags_t; @@ -1108,11 +1110,12 @@ typedef cob_s64_t cob_flags_t; #define COB_SCREEN_EMULATE_NL ((cob_flags_t)1 << 27) #define COB_SCREEN_UPPER ((cob_flags_t)1 << 28) #define COB_SCREEN_LOWER ((cob_flags_t)1 << 29) -#define COB_SCREEN_GRID ((cob_flags_t)1 << 30) +#define COB_SCREEN_CONV ((cob_flags_t)1 << 30) /*#define COB_SCREEN_reserved ((cob_flags_t)1 << 31) /+ reserved for next flag used in screenio */ #define COB_SCREEN_TAB ((cob_flags_t)1 << 32) /* used for syntax checking */ #define COB_SCREEN_NO_UPDATE ((cob_flags_t)1 << 33) /* used for syntax checking */ #define COB_SCREEN_SCROLL_UP ((cob_flags_t)1 << 34) /* used for syntax checking */ +#define COB_SCREEN_GRID ((cob_flags_t)1 << 35) /* used for syntax checking */ #define COB_SCREEN_TYPE_GROUP 0 #define COB_SCREEN_TYPE_FIELD 1 @@ -1468,7 +1471,9 @@ struct cob_func_loc { int save_num_params; }; -/* File connector */ + +/** File connector **/ + /* Key structure */ @@ -2066,7 +2071,7 @@ struct cob_time /* note: these are internal (cobc/libcob -> libcob) only functions */ COB_EXPIMP struct cob_time cob_get_current_date_and_time (void); /* returning datetime without nanos */ -COB_EXPIMP int cob_set_date_from_epoch (struct cob_time *, const char *); +COB_EXPIMP int cob_set_date_from_epoch (struct cob_time *, unsigned const char *); COB_EXPIMP void cob_sleep_msec (const unsigned int); @@ -2310,6 +2315,8 @@ COB_EXPIMP void cob_screen_display (cob_screen *, cob_field *, COB_EXPIMP void cob_screen_accept (cob_screen *, cob_field *, cob_field *, cob_field *, const int); +COB_EXPIMP void cob_accept_field (cob_field *, const cob_flags_t, const char *, ...); +COB_EXPIMP void cob_display_field (cob_field *, const cob_flags_t, const char *, ...); COB_EXPIMP void cob_field_display (cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, const cob_flags_t); diff --git a/libcob/fextfh.c b/libcob/fextfh.c index a7cfec3e..63a7e1d1 100644 --- a/libcob/fextfh.c +++ b/libcob/fextfh.c @@ -204,7 +204,7 @@ copy_file_to_fcd (cob_file *f, FCD3 *fcd) char assign_to[COB_FILE_BUFF]; size_t fnlen; if (f->assign) { - cob_field_to_string (f->assign, assign_to, COB_FILE_MAX); + cob_field_to_string (f->assign, assign_to, COB_FILE_MAX, CCM_NONE); } else if (f->select_name) { strncpy (assign_to, f->select_name, COB_FILE_MAX); assign_to[COB_FILE_MAX] = 0; diff --git a/libcob/fileio.c b/libcob/fileio.c index fdf7e7d8..512ee990 100644 --- a/libcob/fileio.c +++ b/libcob/fileio.c @@ -6917,7 +6917,7 @@ cob_pre_open (cob_file *f) /* Obtain the file name */ if (f->assign != NULL && f->assign->data != NULL) { - cob_field_to_string (f->assign, file_open_name, (size_t)COB_FILE_MAX); + cob_field_to_string (f->assign, file_open_name, (size_t)COB_FILE_MAX, CCM_NONE); f->flag_file_map = 1; cob_chk_file_mapping (f, NULL); @@ -6969,7 +6969,7 @@ cob_pre_open_def (cob_file *f, char *setdef, char *isdef, int checkfile) f->cur_rec_num = 0; if (f->assign != NULL && f->assign->data != NULL) { - cob_field_to_string (f->assign, file_open_name, (size_t)COB_FILE_MAX); + cob_field_to_string (f->assign, file_open_name, COB_FILE_MAX, CCM_NONE); } cob_set_file_defaults (f); @@ -8132,7 +8132,7 @@ cob_delete_file (cob_file *f, cob_field *fnstatus, const int override) } /* Obtain the file name */ - cob_field_to_string (f->assign, file_open_name, (size_t)COB_FILE_MAX); + cob_field_to_string (f->assign, file_open_name, COB_FILE_MAX, CCM_NONE); cob_chk_file_mapping (f, NULL); if (f->file_status[0] > '0') { cob_file_save_status (f, fnstatus, @@ -9707,9 +9707,9 @@ cob_get_filename_print (cob_file* file, const int show_resolved_name) { size_t offset = 0, len; /* Obtain the file name */ - cob_field_to_string (file->assign, file_open_env, (size_t)COB_FILE_MAX); + cob_field_to_string (file->assign, file_open_env, COB_FILE_MAX, CCM_NONE); if (show_resolved_name) { - strncpy (file_open_name, file_open_env, (size_t)COB_FILE_MAX); + strncpy (file_open_name, file_open_env, COB_FILE_MAX); file_open_name[COB_FILE_MAX] = 0; cob_chk_file_mapping (file, NULL); } diff --git a/libcob/fsqlxfd.c b/libcob/fsqlxfd.c index 225381f6..38f920bf 100644 --- a/libcob/fsqlxfd.c +++ b/libcob/fsqlxfd.c @@ -1062,7 +1062,7 @@ cob_load_xfd (struct db_state *db, cob_file *fl, char *alt_name, int indsize, in && fl->xfdname[0] > ' ') { fname = (char*)fl->xfdname; } else if (fl->assign) { - cob_field_to_string (fl->assign, asgname, (size_t)255); + cob_field_to_string (fl->assign, asgname, (size_t)255, CCM_NONE); if ((p = strrchr(asgname, SLASH_CHAR)) != NULL) fname = p + 1; else diff --git a/libcob/intrinsic.c b/libcob/intrinsic.c index 7cdbcf8f..40e282b4 100644 --- a/libcob/intrinsic.c +++ b/libcob/intrinsic.c @@ -1795,10 +1795,9 @@ static int locale_time (const int hours, const int minutes, const int seconds, cob_field *locale_field, char *buff) { - char *deflocale = NULL; + int deflocale = 0; struct tm tstruct; char buff2[LOCTIME_BUFSIZE] = { '\0' }; - char locale_buff[COB_SMALL_BUFF] = { '\0' }; /* Initialize tstruct to given time */ memset ((void *)&tstruct, 0, sizeof(struct tm)); @@ -1807,18 +1806,18 @@ locale_time (const int hours, const int minutes, const int seconds, tstruct.tm_sec = seconds; if (locale_field) { - if (locale_field->size >= COB_SMALL_BUFF) { + char locale_buff[COB_MINI_BUFF]; + deflocale = cob_field_to_string (locale_field, locale_buff, + COB_MINI_MAX, CCM_NONE); + if (deflocale < 1) { return 1; } - cob_field_to_string (locale_field, locale_buff, - (size_t)COB_SMALL_MAX); - deflocale = locale_buff; - (void) setlocale (LC_TIME, deflocale); + (void) setlocale (LC_TIME, locale_buff); } /* Get strftime format string for locale */ memset (buff2, 0, LOCTIME_BUFSIZE); - snprintf(buff2, LOCTIME_BUFSIZE - 1, "%s", nl_langinfo(T_FMT)); + snprintf (buff2, LOCTIME_BUFSIZE - 1, "%s", nl_langinfo (T_FMT)); /* Set locale if not done yet */ if (deflocale) { @@ -1835,10 +1834,8 @@ locale_time (const int hours, const int minutes, const int seconds, cob_field *locale_field, char *buff) { size_t len; - unsigned char *p; LCID localeid = LOCALE_USER_DEFAULT; SYSTEMTIME syst; - char locale_buff[COB_SMALL_BUFF] = { '\0' }; /* Initialize syst with given time */ memset ((void *)&syst, 0, sizeof(syst)); @@ -1848,13 +1845,13 @@ locale_time (const int hours, const int minutes, const int seconds, /* Get specified locale */ if (locale_field) { - if (locale_field->size >= COB_SMALL_BUFF) { - return 1; - } - cob_field_to_string (locale_field, locale_buff, - COB_SMALL_MAX); - - /* Null-terminate last char of the locale string */ + char locale_buff[COB_MINI_BUFF]; + int flen = cob_field_to_string (locale_field, locale_buff, + COB_MINI_MAX, CCM_NONE); +#if 0 /* re-null-terminate last char (first space/comma/...) + of the locale string + -> Simon: Why? We already have it rtrimmed */ + unsigned char *p; for (p = (unsigned char *)locale_buff; *p; ++p) { if (isalnum((int)*p) || *p == '_') { continue; @@ -1862,10 +1859,14 @@ locale_time (const int hours, const int minutes, const int seconds, break; } *p = 0; +#endif + if (flen < 1) { + return 1; + } /* Find locale ID */ for (len = 0; len < WINLOCSIZE; ++len) { - if (!strcmp(locale_buff, wintable[len].winlocalename)) { + if (!strcmp (locale_buff, wintable[len].winlocalename)) { localeid = wintable[len].winlocaleid; break; } @@ -5912,17 +5913,15 @@ cob_intr_locale_date (const int offset, const int length, int month; int year; #ifdef HAVE_LANGINFO_CODESET - unsigned char *p; - char *deflocale = NULL; + int deflocale = 0; struct tm tstruct; char buff2[128]; #else - unsigned char *p; LCID localeid = LOCALE_USER_DEFAULT; SYSTEMTIME syst; #endif char buff[128]; - char locale_buff[COB_SMALL_BUFF]; + char locale_buff[COB_MINI_BUFF]; #endif cobglobptr->cob_exception_code = 0; @@ -5931,6 +5930,7 @@ cob_intr_locale_date (const int offset, const int length, if (COB_FIELD_IS_NUMERIC (srcfield)) { indate = cob_get_int (srcfield); } else { + unsigned char *p; if (srcfield->size < 8) { goto derror; } @@ -5967,16 +5967,15 @@ cob_intr_locale_date (const int offset, const int length, tstruct.tm_mon = month; tstruct.tm_mday = days; if (locale_field) { - if (locale_field->size >= COB_SMALL_BUFF) { + deflocale = cob_field_to_string (locale_field, locale_buff, + COB_MINI_MAX, CCM_NONE); + if (deflocale < 1) { goto derror; } - cob_field_to_string (locale_field, locale_buff, - (size_t)COB_SMALL_MAX); - deflocale = locale_buff; - (void) setlocale (LC_TIME, deflocale); + (void) setlocale (LC_TIME, locale_buff); } memset (buff2, 0, sizeof(buff2)); - snprintf(buff2, sizeof(buff2) - 1, "%s", nl_langinfo(D_FMT)); + snprintf(buff2, sizeof(buff2) - 1, "%s", nl_langinfo (D_FMT)); if (deflocale) { (void) setlocale (LC_ALL, cobglobptr->cob_locale); } @@ -5987,21 +5986,25 @@ cob_intr_locale_date (const int offset, const int length, syst.wMonth = (WORD)month; syst.wDay = (WORD)days; if (locale_field) { - if (locale_field->size >= COB_SMALL_BUFF) { - goto derror; - } - cob_field_to_string (locale_field, locale_buff, - COB_SMALL_MAX); - locale_buff[COB_SMALL_MAX] = 0; /* silence warnings */ + int flen = cob_field_to_string (locale_field, locale_buff, + COB_MINI_MAX, CCM_NONE); +#if 0 /* re-null-terminate last char (first space/comma/...) + of the locale string + -> Simon: Why? We already have it rtrimmed */ + unsigned char *p; for (p = (unsigned char *)locale_buff; *p; ++p) { - if (isalnum(*p) || *p == '_') { + if (isalnum((int)*p) || *p == '_') { continue; } break; } *p = 0; +#endif + if (flen < 1) { + goto derror; + } for (len = 0; len < WINLOCSIZE; ++len) { - if (!strcmp(locale_buff, wintable[len].winlocalename)) { + if (!strcmp (locale_buff, wintable[len].winlocalename)) { localeid = wintable[len].winlocaleid; break; } @@ -6470,7 +6473,7 @@ cob_intr_locale_compare (const int params, ...) unsigned char *p; unsigned char *p1; unsigned char *p2; - char *deflocale; + int deflocale = 0; size_t size; size_t size2; int ret; @@ -6493,8 +6496,6 @@ cob_intr_locale_compare (const int params, ...) make_field_entry (&field); #ifdef HAVE_STRCOLL - deflocale = NULL; - size = f1->size; size2 = size; for (p = f1->data + size - 1U; p != f1->data; --p) { @@ -6518,14 +6519,14 @@ cob_intr_locale_compare (const int params, ...) memcpy (p2, f2->data, size2); if (locale_field) { - if (!locale_field->size) { + char locale_buff[COB_MINI_BUFF]; + deflocale = cob_field_to_string (locale_field, locale_buff, + COB_MINI_MAX, CCM_NONE); + if (deflocale < 1) { goto derror; } #ifdef HAVE_SETLOCALE - deflocale = cob_malloc (locale_field->size + 1U); - cob_field_to_string (locale_field, deflocale, - (size_t)(locale_field->size + 1U)); - (void) setlocale (LC_COLLATE, deflocale); + (void) setlocale (LC_COLLATE, locale_buff); #else goto derror; #endif @@ -6545,7 +6546,6 @@ cob_intr_locale_compare (const int params, ...) #ifdef HAVE_SETLOCALE if (deflocale) { (void) setlocale (LC_ALL, cobglobptr->cob_locale); - cob_free (deflocale); } #endif diff --git a/libcob/mlio.c b/libcob/mlio.c index ba1b602e..1c44fc39 100644 --- a/libcob/mlio.c +++ b/libcob/mlio.c @@ -1406,6 +1406,7 @@ void xml_parse (cob_field *in, cob_field *encoding, cob_field *validation, COB_UNUSED (in); COB_UNUSED (encoding); COB_UNUSED (validation); + COB_UNUSED (flags); if (first_xml) { first_xml = 0; cob_runtime_warning (_("runtime is not configured to support %s"), diff --git a/libcob/move.c b/libcob/move.c index 6c77fe4c..94101411 100644 --- a/libcob/move.c +++ b/libcob/move.c @@ -328,9 +328,8 @@ cob_move_alphanum_to_display (cob_field *f1, cob_field *f2) static void cob_move_display_to_display (cob_field *f1, cob_field *f2) { - int sign; + const int sign = COB_GET_SIGN (f1); - sign = COB_GET_SIGN (f1); store_common_region (f2, COB_FIELD_DATA (f1), COB_FIELD_SIZE (f1), COB_FIELD_SCALE (f1), 0); @@ -341,25 +340,22 @@ cob_move_display_to_display (cob_field *f1, cob_field *f2) static void cob_move_display_to_alphanum (cob_field *f1, cob_field *f2) { - unsigned char *data1; - unsigned char *data2; - size_t size1; - size_t size2; - int sign; + unsigned char *data1 = COB_FIELD_DATA (f1); + unsigned char *data2 = f2->data; + const size_t size1 = COB_FIELD_SIZE (f1); + size_t size2 = f2->size; + /* note: can't use the "adjust" variant here as we don't convert to digit; + CHECKME for using a buffer instead of original data or intermediate_move */ + const int sign = COB_GET_SIGN (f1); int diff; int zero_size; - data1 = COB_FIELD_DATA (f1); - size1 = COB_FIELD_SIZE (f1); - sign = COB_GET_SIGN (f1); if (COB_FIELD_SCALE (f1) < 0) { /* Scaling */ zero_size = (int)-COB_FIELD_SCALE (f1); } else { zero_size = 0; } - data2 = f2->data; - size2 = f2->size; if (COB_FIELD_JUSTIFIED (f2)) { /* Justified right */ if (zero_size) { @@ -434,11 +430,11 @@ cob_move_alphanum_to_alphanum (cob_field *f1, cob_field *f2) /* Binary Coded Decimal (BCD) - PACKED-DECIMAL (COMP-3) and COMP-6 */ -static void +void cob_move_display_to_packed (cob_field *f1, cob_field *f2) { unsigned char *data1 = COB_FIELD_DATA (f1); - const int sign = COB_GET_SIGN (f1); + const int sign = COB_GET_SIGN_ADJUST (f1); const short scale1 = COB_FIELD_SCALE (f1); const short scale2 = COB_FIELD_SCALE (f2); unsigned short digits1; @@ -467,14 +463,14 @@ cob_move_display_to_packed (cob_field *f1, cob_field *f2) /* skip not available positions */ p = data1 + (digits1 - scale1) - (digits2 - scale2); while (p < data1) { - p++; i++; + p++; i++; /* note: both p and i are digits */ } /* zero out target, then transfer data */ memset (f2->data, 0, f2->size); { register unsigned char *q = f2->data + i / 2; - const unsigned int i_end = digits2 + i; + const unsigned int i_end = digits2 + 1; /* FIXME: get rid of that, adjust i_end accordingly and always end at sign byte */ const unsigned char *p_end = data1 + digits1; @@ -486,13 +482,28 @@ cob_move_display_to_packed (cob_field *f1, cob_field *f2) we'll read 1 byte "too much = after" from the DISPLAY data; it is believed that this won't raise a SIGBUS anywhere, but we will need to "clean" the half-byte before setting the sign */ - for (; i < i_end && p < p_end; ++i, q++, p += 2) { - *q = (unsigned char) (*p << 4) /* -> dropping the higher bits = no use in COB_D2I */ - + COB_D2I (*(p + 1)); + + /* check for necessary loop (until we not need the p_end check) */ + if (i_end - i < (unsigned int)(p_end - p + 1) / 2) { + while (i <= i_end) { + *q = (unsigned char) (*p << 4) /* -> dropping the higher bits = no use in COB_D2I */ + + COB_D2I (*(p + 1)); + q++; + p += 2; + i += 2; + } + } else { + while (p < p_end) { + *q = (unsigned char) (*p << 4) /* -> dropping the higher bits = no use in COB_D2I */ + + COB_D2I (*(p + 1)); + q++; + p += 2; + } } } - COB_PUT_SIGN (f1, sign); + COB_PUT_SIGN_ADJUSTED (f1, sign); + if (COB_FIELD_NO_SIGN_NIBBLE (f2)) { return; } @@ -500,14 +511,14 @@ cob_move_display_to_packed (cob_field *f1, cob_field *f2) p = f2->data + f2->size - 1; /* TODO: ending at the sign byte means we can drop that */ if (!COB_FIELD_HAVE_SIGN (f2)) { *p |= 0x0F; - } else if (sign == -1) { + } else if (sign < 0) { *p = (*p & 0xF0) | 0x0D; } else { *p = (*p & 0xF0) | 0x0C; } } -static void +void cob_move_packed_to_display (cob_field *f1, cob_field *f2) { unsigned char buff[COB_MAX_DIGITS + 1]; @@ -540,7 +551,6 @@ cob_move_packed_to_display (cob_field *f1, cob_field *f2) } else { /* Unpack PACKED-DECIMAL / COMP-3 to integer */ const size_t offset = 1 - digits % 2; - int sign; if (offset == 1) { *b++ = COB_I2D (*d++ & 0x0F); } @@ -549,11 +559,10 @@ cob_move_packed_to_display (cob_field *f1, cob_field *f2) *b++ = COB_I2D (*d++ & 0x0F); } *b++ = COB_I2D (*d >> 4); - sign = ((*d & 0x0F) == 0x0D) ? -1 : 1; /* Store */ store_common_region (f2, buff, digits, COB_FIELD_SCALE (f1), 1); - COB_PUT_SIGN (f2, sign); + COB_PUT_SIGN (f2, ((*d & 0x0F) == 0x0D) ? -1 : 1); } } @@ -654,12 +663,12 @@ cob_move_binary_to_binary (cob_field *f1, cob_field *f2) static void cob_move_display_to_binary (cob_field *f1, cob_field *f2) { - const int sign = COB_GET_SIGN (f1); const unsigned char *data1 = COB_FIELD_DATA (f1); const size_t size1 = COB_FIELD_SIZE (f1); unsigned short target_digits; cob_u64_t val; size_t i, size; + int sign; if (f1->size > 18 || f2->size > sizeof (val)) { /* Large Binary field */ @@ -683,10 +692,10 @@ cob_move_display_to_binary (cob_field *f1, cob_field *f2) target_digits = scale > 0 ? digits : digits + scale; } if (target_digits > size) { - target_digits = size; + target_digits = (unsigned short)size; } } else { - target_digits = size; + target_digits = (unsigned short)size; } /* Skip leading zeros (and zero-like-data like space/low-value) */ @@ -708,6 +717,7 @@ cob_move_display_to_binary (cob_field *f1, cob_field *f2) return; } + sign = COB_GET_SIGN_ADJUST (f1); for ( ; i < size; ++i) { if (i < size1) { val = val * 10 + COB_D2I (data1[i]); @@ -728,7 +738,7 @@ cob_move_display_to_binary (cob_field *f1, cob_field *f2) cob_binary_mset_uint64 (f2, val); } - COB_PUT_SIGN (f1, sign); + COB_PUT_SIGN_ADJUSTED (f1, sign); } static void @@ -788,6 +798,9 @@ cob_move_display_to_edited (cob_field *f1, cob_field *f2) unsigned char *max = min + COB_FIELD_SIZE (f1); unsigned char *end = f2->data + f2->size; unsigned char *decimal_point = NULL; + /* note: can't use the "adjust" variant here as we don't convert to digit + to explicit keep invalid data "as is"; + CHECKME for using a buffer instead of original data */ const int sign = COB_GET_SIGN (f1); int neg = (sign < 0) ? 1 : 0; int count = 0; @@ -815,7 +828,7 @@ cob_move_display_to_edited (cob_field *f1, cob_field *f2) unsigned char *last_fixed_insertion_pos = NULL; unsigned char last_fixed_insertion_char = '\0'; - /* Count the number of digit places before decimal point */ + /* Setup counters (only before decimal point) */ /* TO-DO: This is computed in cb_build_picture; add computed results to cb_field / new overlay cb_field_edited and use those. @@ -845,7 +858,7 @@ cob_move_display_to_edited (cob_field *f1, cob_field *f2) } } - /* now go on after the decimal point */ + /* now insert data to destination */ src = max - COB_FIELD_SCALE (f1) - count; if(COB_FIELD_PIC (f2) == NULL) { /* There is no PIC present so assume all PIC 9s */ @@ -868,7 +881,7 @@ cob_move_display_to_edited (cob_field *f1, cob_field *f2) case '9': x = (min <= src && src < max) ? *src++ : (src++, '0'); if (x != '0') { - is_zero = suppress_zero = 0; + is_zero = 0; } suppress_zero = 0; trailing_sign = 1; @@ -1213,6 +1226,8 @@ cob_move_alphanum_to_edited (cob_field *f1, cob_field *f2) unsigned char *dst = f2->data; unsigned char *src = COB_FIELD_DATA (f1); const unsigned char *max = src + COB_FIELD_SIZE (f1); + /* note: can't use the "adjust" variant here as we don't convert to digit; + CHECKME for using a buffer instead of original data or intermediate_move */ const int sign = COB_GET_SIGN (f1); for (p = COB_FIELD_PIC (f2); p->symbol; ++p) { @@ -1237,6 +1252,7 @@ cob_move_alphanum_to_edited (cob_field *f1, cob_field *f2) } } } + COB_PUT_SIGN (f1, sign); } @@ -1558,7 +1574,7 @@ cob_move (cob_field *src, cob_field *dst) val /= cob_exp10_ll[diff_scale]; } if (val >= INT_MIN && val <= INT_MAX) { - cob_set_packed_int (dst, val); + cob_set_packed_int (dst, (int)val); return; } } @@ -1985,7 +2001,7 @@ cob_display_get_int (cob_field *f) { const short scale = COB_FIELD_SCALE (f); const unsigned char *data = COB_FIELD_DATA (f); - const int sign = COB_GET_SIGN (f); + const int sign = COB_GET_SIGN_ADJUST (f); size_t size = COB_FIELD_SIZE (f); size_t i; int val = 0; @@ -2013,7 +2029,7 @@ cob_display_get_int (cob_field *f) val = -val; } - COB_PUT_SIGN (f, sign); + COB_PUT_SIGN_ADJUSTED (f, sign); return val; } @@ -2022,7 +2038,7 @@ display_get_long_long (cob_field *f) { const short scale = COB_FIELD_SCALE (f); const unsigned char *data = COB_FIELD_DATA (f); - const int sign = COB_GET_SIGN (f); + const int sign = COB_GET_SIGN_ADJUST (f); size_t size = COB_FIELD_SIZE (f); size_t i; cob_s64_t val = 0; @@ -2050,7 +2066,7 @@ display_get_long_long (cob_field *f) val = -val; } - COB_PUT_SIGN (f, sign); + COB_PUT_SIGN_ADJUSTED (f, sign); return val; } @@ -2871,7 +2887,7 @@ cob_get_picx (void *cbl_data, size_t len, void *char_field, size_t num_chars) } void -cob_put_picx( void *cbl_data, size_t len, void *string) +cob_put_picx (void *cbl_data, size_t len, void *string) { size_t i, j; cob_u8_t *p = cbl_data; diff --git a/libcob/numeric.c b/libcob/numeric.c index e7b3693f..86942681 100644 --- a/libcob/numeric.c +++ b/libcob/numeric.c @@ -1254,11 +1254,11 @@ cob_decimal_get_packed (cob_decimal *d, cob_field *f, const int opt) we got from mpz_get_str above */ p = data + f->size - 1; if (!COB_FIELD_HAVE_SIGN (f)) { - *p |= 0x0FU; + *p |= 0x0F; } else if (sign == -1) { - *p |= 0x0DU; + *p |= 0x0D; } else { - *p |= 0x0CU; + *p |= 0x0C; } return 0; @@ -1337,7 +1337,7 @@ cob_decimal_set_display (cob_decimal *d, cob_field *f) { register unsigned char *data = COB_FIELD_DATA (f); register size_t size = COB_FIELD_SIZE (f); - int sign; + const int sign = COB_GET_SIGN_ADJUST (f); /* TODO: document special cases here */ if (*data == 255) { @@ -1352,8 +1352,6 @@ cob_decimal_set_display (cob_decimal *d, cob_field *f) return; } - sign = COB_GET_SIGN (f); - /* Skip leading zeros (also invalid space/low-value) */ while (size > 1 && (COB_D2I (*data) == 0)) { size--; @@ -1363,7 +1361,8 @@ cob_decimal_set_display (cob_decimal *d, cob_field *f) /* Set value */ if (size < MAX_LI_DIGITS_PLUS_1) { - /* note: we skipped leading zeros above, so n > 0 afterwards */ + /* note: we skipped leading zeros above, so either + "n > 0" " or "size = 0" afterwards */ register cob_uli_t n = COB_D2I (*data); data++; while (--size) { @@ -1392,35 +1391,46 @@ cob_decimal_set_display (cob_decimal *d, cob_field *f) } *pp = 0; } else { - /* bigger fields _must_ be _internal_ so there's no - need to handle invalid data via COB_D2I + COB_I2D - and we can copy as-is */ + /* bigger fields _must_ be _internal_ so there's no need to handle + invalid data via COB_D2I + COB_I2D and we can copy as-is */ memcpy (buff, data, size); + /* still we may need to unpunch the sign, which in this internal + case will always be at the last digit */ + if (sign == -1) { + char *p = buff + size - 1; + *p = COB_I2D (COB_D2I (*p)); + } buff[size] = 0; } mpz_set_str (d->value, (char *)buff, 10); } else { - /* Note: we get very seldom get here, commonly for - computations with functions like cob_intr_variance; - these fields _must_ be _internal_ so there's no - need to handle invalid data via COB_D2I + COB_I2D - and we can copy as-is; + /* Note: we get very seldom get here, commonly for computations with + intrinsic functions like cob_intr_variance; + these fields _must_ be _internal_ so there's no need to handle + invalid data via COB_D2I + COB_I2D and we can copy as-is; this code has shown to be faster than mpz ui multiplication */ char *buff = cob_fast_malloc (size + 1U); memcpy (buff, data, size); + /* still we may need to unpunch the sign, which in this internal + case will always be at the last digit */ + if (sign == -1) { + char *p = buff + size - 1; + *p = COB_I2D (COB_D2I (*p)); + } buff[size] = 0; mpz_set_str (d->value, buff, 10); cob_free (buff); } /* Set sign and scale */ - if (sign == -1) { + if (sign < 0) { mpz_neg (d->value, d->value); } d->scale = COB_FIELD_SCALE (f); - COB_PUT_SIGN (f, sign); + + COB_PUT_SIGN_ADJUSTED (f, sign); } static int @@ -1745,7 +1755,10 @@ cob_decimal_get_binary (cob_decimal *d, cob_field *f, const int opt) } overflow: - cob_set_exception (COB_EC_SIZE_OVERFLOW); + /* Overflow */ + if ((opt & COB_STORE_NO_SIZE_ERROR) == 0) { + cob_set_exception (COB_EC_SIZE_OVERFLOW); + } return cobglobptr->cob_exception_code; } @@ -1860,7 +1873,9 @@ cob_print_realbin (const cob_field *f, FILE *fp, const int size) } } -static void +/* do rounding on the decimal, + returns 1 if needed and PROHIBITED */ +static int cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) { cob_uli_t adj; @@ -1870,15 +1885,14 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) /* Nothing to do when value is 0 or when target has GE scale */ if (sign == 0 || scale >= d->scale) { - return; + return 0; } switch (opt & ~(COB_STORE_MASK)) { case COB_STORE_TRUNCATION: - return; + return 0; case COB_STORE_PROHIBITED: - cob_set_exception (COB_EC_SIZE_TRUNCATION); - return; + return 1; case COB_STORE_AWAY_FROM_ZERO: adj = d->scale - scale; cob_pow_10 (cob_mpzt, adj); @@ -1891,7 +1905,7 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) mpz_add (d->value, d->value, cob_mpzt); } } - return; + return 0; case COB_STORE_NEAR_TOWARD_ZERO: adj = d->scale - scale - 1; cob_pow_10 (cob_mpzt, adj); @@ -1904,14 +1918,14 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) } } if (mpz_sgn (cob_mpzt2) == 0) { - return; + return 0; } if (sign == 1) { mpz_add_ui (d->value, d->value, 5UL); } else { mpz_sub_ui (d->value, d->value, 5UL); } - return; + return 0; case COB_STORE_TOWARD_GREATER: adj = d->scale - scale; cob_pow_10 (cob_mpzt, adj); @@ -1922,7 +1936,7 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) mpz_add (d->value, d->value, cob_mpzt); } } - return; + return 0; case COB_STORE_TOWARD_LESSER: adj = d->scale - scale; cob_pow_10 (cob_mpzt, adj); @@ -1933,7 +1947,7 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) mpz_sub (d->value, d->value, cob_mpzt); } } - return; + return 0; case COB_STORE_NEAR_EVEN: adj = d->scale - scale - 1; cob_pow_10 (cob_mpzt, adj); @@ -1953,7 +1967,7 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) case 45: case 65: case 85: - return; + return 0; } } if (sign == 1) { @@ -1961,7 +1975,7 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) } else { mpz_sub_ui (d->value, d->value, 5UL); } - return; + return 0; case COB_STORE_NEAR_AWAY_FROM_ZERO: default: { @@ -1975,7 +1989,7 @@ cob_decimal_do_round (cob_decimal *d, cob_field *f, const int opt) } else { mpz_sub_ui (d->value, d->value, 5UL); } - return; + return 0; } } @@ -2005,7 +2019,10 @@ cob_decimal_get_field (cob_decimal *d, cob_field *f, const int opt) /* Rounding */ if ((opt & COB_STORE_ROUND)) { - cob_decimal_do_round (d, f, opt); + if (cob_decimal_do_round (d, f, opt)) { + cob_set_exception (COB_EC_SIZE_TRUNCATION); + return cobglobptr->cob_exception_code; + } } if (!COB_FIELD_IS_FP (f)) { /* Append or truncate decimal digits - useless for floating point */ @@ -2220,11 +2237,58 @@ cob_decimal_align (cob_decimal *d1, const int scale) } } -/* Convenience functions */ +/* Convenience functions that use either an optimized approach + or internally convert to decimals as needed */ + +static int cob_add_bcd (cob_field *fdst, cob_field *fsrc1, cob_field *fsrc2, + int opt, const enum cob_statement stmt); + +/* optimized ADD / SUBTRACT based on optimized BCD arithmetic */ +static COB_INLINE COB_A_INLINE int +cob_addsub_optimized (cob_field *f1, cob_field *f2, + const int opt, const enum cob_statement stmt) +{ + const unsigned short f1_type = COB_FIELD_TYPE (f1); + const unsigned short f2_type = COB_FIELD_TYPE (f2); + if (f1_type == COB_TYPE_NUMERIC_PACKED) { + if (f2_type == COB_TYPE_NUMERIC_PACKED) { + cob_add_bcd (f1, f2, f1, opt, stmt); + return 1; + } else { + const unsigned short f2_digits = COB_FIELD_DIGITS (f2); + if ((f2_type == COB_TYPE_NUMERIC_DISPLAY + && f2_digits <= COB_MAX_DIGITS) + || f2_type == COB_TYPE_NUMERIC_BINARY + || f2_type == COB_TYPE_NUMERIC_COMP5) { + cob_field field; + cob_field_attr attr; + unsigned char buff[COB_MAX_DIGITS / 2 + 1]; + COB_FIELD_INIT (f2_digits / 2 + 1, buff, &attr); + COB_ATTR_INIT (COB_TYPE_NUMERIC_PACKED, f2_digits, + COB_FIELD_SCALE (f2), COB_FLAG_HAVE_SIGN, NULL); + if (f2_type == COB_TYPE_NUMERIC_DISPLAY) { + cob_move_display_to_packed (f2, &field); + } else { + /* wrapper handling P and other things */ + cob_move (f2, &field); + } + cob_add_bcd (f1, &field, f1, opt, stmt); + return 1; + } + } + } + + /* no optimization done, execute ADD/SUBTRACT in the caller */ + return 0; +} + void cob_add (cob_field *f1, cob_field *f2, const int opt) { + if (cob_addsub_optimized (f1, f2, opt, STMT_ADD)) { + return; /* optimized ADD done, get out */ + } cob_decimal_set_field (&cob_d1, f1); cob_decimal_set_field (&cob_d2, f2); cob_decimal_add (&cob_d1, &cob_d2); @@ -2234,6 +2298,9 @@ cob_add (cob_field *f1, cob_field *f2, const int opt) void cob_sub (cob_field *f1, cob_field *f2, const int opt) { + if (cob_addsub_optimized (f1, f2, opt, STMT_SUBTRACT)) { + return; /* optimized SUBTRACT done, get out */ + } cob_decimal_set_field (&cob_d1, f1); cob_decimal_set_field (&cob_d2, f2); cob_decimal_sub (&cob_d1, &cob_d2); @@ -2333,23 +2400,22 @@ cob_shift_left_nibble (unsigned char *ptr_buff, unsigned char *ptr_start_data_by any changes to that function should probaby require that this function be examined for */ -# ifndef WORDS_BIGENDIAN - cob_u64_t chunk; -# endif - register cob_u64_t *ptr_long; - unsigned char carry_nibble, move_nibble; - register int shift_cntr; - int len1; + unsigned char carry_nibble; + unsigned char move_nibble = 0xFF; /* calculate the length of data to be shifted */ - len1 = 48 - (ptr_start_data_byte - ptr_buff); + const int len1 = 48 - (ptr_start_data_byte - ptr_buff); - shift_cntr = len1 + 1; /* add one to ensure the carry nibble is moved */ - move_nibble = 0xFF; + /* add one to ensure the carry nibble is moved */ + register int shift_cntr = len1 + 1; /* point at the last byte in buffer as we will shift from right to left !! */ + register cob_u64_t *ptr_long = (cob_u64_t *)(ptr_buff + 48 - 8); + +# ifndef WORDS_BIGENDIAN + cob_u64_t chunk; +# endif - ptr_long = (cob_u64_t *)(ptr_buff + 48 - 8); do { # ifdef WORDS_BIGENDIAN /* shift and include old nibble */ @@ -2394,24 +2460,21 @@ cob_shift_right_nibble (unsigned char *ptr_buff, unsigned char *ptr_start_data_b # ifndef WORDS_BIGENDIAN cob_u64_t chunk; # endif - register cob_u64_t *ptr_long; /* note that the carry & move nibbles have to be 64 bit because we need to use binary OR the high order bits when shifting to the right !! */ - cob_u64_t carry_nibble, move_nibble; - register int shift_cntr; - int len1; + cob_u64_t carry_nibble; + cob_u64_t move_nibble = 0xFF; /* calculate the length of data to be shifted */ - len1 = 48 - (ptr_start_data_byte - ptr_buff); + const int len1 = 48 - (ptr_start_data_byte - ptr_buff); - shift_cntr = len1; - move_nibble = 0xFF; + register int shift_cntr = len1; /* note that since we are shifting from left to right we have to start in the first 64 bit area containing the high order 64 bit integer which contains the starting position of the data to be shifted */ - ptr_long = (cob_u64_t *)(ptr_buff + 48); + register cob_u64_t *ptr_long = (cob_u64_t *)(ptr_buff + 48); do { ptr_long--; } while (ptr_long > (cob_u64_t *)ptr_start_data_byte); /* we want to be there - or before! */ @@ -2601,6 +2664,641 @@ cob_move_bcd (cob_field *f1, cob_field *f2) } +/* Optimized arithmetic for BCD fiields */ + +static unsigned char h2b[256] = +{ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 255, 255, 255, 255, 255, 255, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 255, 255, 255, 255, 255, 255, + 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 255, 255, 255, 255, 255, 255, + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 255, 255, 255, 255, 255, 255, + 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 255, 255, 255, 255, 255, 255, + 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 255, 255, 255, 255, 255, 255, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 255, 255, 255, 255, 255, 255, + 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 255, 255, 255, 255, 255, 255, + 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 255, 255, 255, 255, 255, 255, + 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 255, 255, 255, 255, 255, 255 }; + +static unsigned char b2h[256] = +{ 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, + 0x08, 0x09, 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, + 0x16, 0x17, 0x18, 0x19, 0x20, 0x21, 0x22, 0x23, + 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x30, 0x31, + 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, + 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, + 0x48, 0x49, 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, + 0x56, 0x57, 0x58, 0x59, 0x60, 0x61, 0x62, 0x63, + 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x70, 0x71, + 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, + 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, + 0x88, 0x89, 0x90, 0x91, 0x92, 0x93, 0x94, 0x95, + 0x96, 0x97, 0x98, 0x99, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, + 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff }; + + +static COB_INLINE COB_A_INLINE int +handle_bcd_rounding (int *byte, const int round_half_nibble, + const int all_zeros, const int final_positive, + const int opt) +{ + unsigned char round; + if (*byte < 0) { + round = b2h[*byte + 100]; + } else + if (*byte >= 100) { + round = b2h[*byte - 100]; + } else { + round = b2h[*byte]; + } + + if (round_half_nibble) { + switch (opt & ~COB_STORE_MASK) { + case COB_STORE_PROHIBITED: + if ((opt & COB_STORE_NO_SIZE_ERROR) == 0) { + if (!all_zeros || (round & 0x0F)) { + cob_set_exception (COB_EC_SIZE_TRUNCATION); + /* cobglobptr->cob_exception_code returned by caller */ + return 1; + } + return COB_EC_SIZE_TRUNCATION; + } + break; + case COB_STORE_AWAY_FROM_ZERO: + if (!all_zeros || (round & 0x0F)) { + *byte += 10; + } + break; + case COB_STORE_NEAR_TOWARD_ZERO: + if ( (round & 0x0F) > 0x05 + || ((round & 0x0F) == 0x05 && !all_zeros)) { + *byte += 10; + } + break; + case COB_STORE_TOWARD_GREATER: + if (final_positive) + if (!all_zeros || (round & 0x0F)) { + *byte += 10; + } + break; + case COB_STORE_TOWARD_LESSER: + if (!final_positive) + if (!all_zeros || (round & 0x0F)) { + *byte += 10; + } + break; + case COB_STORE_NEAR_EVEN: + if (all_zeros && (round & 0x0F) == 0x05) { + if (round & 0x10) { + *byte += 5; + } + } else { + *byte += 5; + } + break; + case COB_STORE_NEAR_AWAY_FROM_ZERO: + default: + *byte += 5; + break; + } + } else { + switch (opt & ~COB_STORE_MASK) { + case COB_STORE_PROHIBITED: + if ((opt & COB_STORE_NO_SIZE_ERROR) == 0) { + if (!all_zeros || (round)) { + cob_set_exception (COB_EC_SIZE_TRUNCATION); + /* cobglobptr->cob_exception_code returned by caller */ + return 1; + } + } + break; + case COB_STORE_AWAY_FROM_ZERO: + if (!all_zeros || (round)) { + *byte += 100; + } + break; + case COB_STORE_NEAR_TOWARD_ZERO: + if ((round > 0x50) + || (round == 0x50 && !all_zeros)) { + *byte += 100; + } + break; + case COB_STORE_TOWARD_GREATER: + if (final_positive && (!all_zeros || (round))) { + *byte += 100; + } + break; + case COB_STORE_TOWARD_LESSER: + if (!final_positive && (!all_zeros || (round))) { + *byte += 100; + } + break; + case COB_STORE_NEAR_EVEN: + if (all_zeros && (round == 0x50)) { + return -2; /* "check next *byte" */ + } else { + *byte += 50; + } + break; + case COB_STORE_NEAR_AWAY_FROM_ZERO: + default: + *byte += 50; + break; + } + } + return -1; +} + +static COB_INLINE COB_A_INLINE int +count_leading_zeros (unsigned char *ptr_char, int len) +{ + int cntr = 0; + while (*ptr_char++ == 0x00 && cntr++ < len); + return cntr; +} + +/* check for overflow and set the final sign into the working buffer */ +static int +check_overflow_and_set_sign (cob_field *f, const int opt, + int final_positive, unsigned char *buff, unsigned char *pos) +{ + const int buff_size = 48 - (pos - buff); + const int fsize = (int)f->size; + int cmp_size = buff_size - fsize; + unsigned char *last_buff_pos = buff + 48 - 1; + + if (!COB_FIELD_NO_SIGN_NIBBLE (f)) { + *last_buff_pos &= 0xF0; + } + + if (cmp_size >= 0) { + const int lead_zeros = count_leading_zeros (pos, buff_size); + const int has_pad_digit = + (COB_FIELD_DIGITS (f) % 2 == 1 && COB_FIELD_NO_SIGN_NIBBLE (f)) + || (COB_FIELD_DIGITS (f) % 2 == 0 && !COB_FIELD_NO_SIGN_NIBBLE (f)); + + cmp_size -= lead_zeros; + + if ((cmp_size > 0) /* more data than possible to store - definitely an overflow */ + || (cmp_size == 0 /* check if we only expect a single digit but have two set */ + && has_pad_digit + && *(pos + lead_zeros) > 0x0F)) { + /* Overflow */ + if ((opt & COB_STORE_NO_SIZE_ERROR) == 0) { + cob_set_exception (COB_EC_SIZE_OVERFLOW); + if (opt & COB_STORE_KEEP_ON_OVERFLOW) { + /* cobglobptr->cob_exception_code returned by caller */ + return 1; + } + } + if (has_pad_digit) { + /* check and set last leading digit if needed */ + *(buff + 48 - f->size) &= 0x0F; + } + if (!final_positive + && COB_FIELD_HAVE_SIGN (f)) { + /* check for all zero after truncation - have that as positive */ + unsigned char *end = buff + 48; + pos = end - fsize; + final_positive = 1; /* "guess" it is zero */ + while (pos < end) { + if (*pos++) { + final_positive = 0; /* no, it isn't - set back and get out */ + break; + } + } + } + } + } + +#if 0 + /* check for special truncation error: + a negative value which the receiver field does not allow + + note: the COBOL standard "since ever" asks only for exceptions + if absolute values do not fit a missing sign is silently dropped; + therefore no exception is returned */ + + if (!final_positive && !COB_FIELD_HAVE_SIGN (f)) { + if (opt & COB_STORE_CHECK_SIGN_DROP) { + cob_runtime_error ("negative result value with unsigned result-item"); + } + } +#endif + + /* note: we did clean the sign from the buffer when entering the function */ + if (!COB_FIELD_NO_SIGN_NIBBLE (f)) { + if (!COB_FIELD_HAVE_SIGN (f)) { + *last_buff_pos |= 0x0F; + } else + if (final_positive) { + *last_buff_pos |= 0x0C; + } else { + *last_buff_pos |= 0x0D; + } + } + + return 0; + +} + +/* BCD (COMP-3/COMP-6) ADD / SUBTRACT with GIVING, where + the GIVING field may be one of the source fields */ +static int +cob_add_bcd (cob_field *fdst, + cob_field *fsrc1, cob_field *fsrc2, + int opt, const enum cob_statement stmt) +{ + /* function overview: + + This function internally converts the source fields to COMP-6 + while moving them to intermediate buffers, aligning them to + the scale of the field with the largest scale and keeping track + of the signs with indicator variables. + Note that for the addition logic to work correctly, the field + with the largest absolute value must be the positive field, + we therefore reverse the signs of the fields if necessary. + + Requested rounding is done during the addition operation + and finally the data is moved to the receiving field after + checking for overflow and setting the final result sign. */ + + register int byte; + register int carry = 0; + register int loop_limit, cntr; + + unsigned char fld1_buff[48] = { 0 }; + unsigned char fld2_buff[48] = { 0 }; + + const int fld1_size = (int)fsrc1->size; + const int fld2_size = (int)fsrc2->size; + const int dest_size = (int)fdst->size; + + const unsigned char *src1_data = COB_FIELD_DATA (fsrc1); + const unsigned char *src2_data = COB_FIELD_DATA (fsrc2); + + unsigned char fld1_sign = COB_FIELD_NO_SIGN_NIBBLE (fsrc1) ? 0x00 + : *(src1_data + fld1_size - 1) & 0X0F; + const unsigned char fld2_sign = COB_FIELD_NO_SIGN_NIBBLE (fsrc2) ? 0x00 + : *(src2_data + fld2_size - 1) & 0X0F; + + const signed short src1_scale = COB_FIELD_SCALE (fsrc1); + const signed short src2_scale = COB_FIELD_SCALE (fsrc2); + const signed short dst_scale = COB_FIELD_SCALE (fdst); + + const signed short used_original_scale + = src1_scale > src2_scale ? src1_scale : src2_scale; + + const signed short fld1_scale = (fld1_sign == 0x00) ? src1_scale : src1_scale + 1; + const signed short fld2_scale = (fld2_sign == 0x00) ? src2_scale : src2_scale + 1; + const signed short dest_scale = (COB_FIELD_NO_SIGN_NIBBLE (fdst)) ? dst_scale : dst_scale + 1; + + const signed short used_scale + = fld1_scale > fld2_scale ? fld1_scale : fld2_scale; + + unsigned char *fld1, *fld2; + unsigned char *rslt, *pos, *neg; + + int rounding_digit = 0; + int rounding_byte = 0; + int final_positive = 1; + int check_rounding = 0; + int check_all_zeros = 0; + int all_zeros = 0; + + /* the following code is used to determine if we need to check for rounding + and if so, then which digit and byte we need to check for this; + note that we need to know both because the addition loop processes + a byte at a time rather than a digit; + because some rounding operations need to determine if the value is exactly + between the next higher digit, we keep track of "all digits to the right + of the rounding digit are zero" */ + if ((used_original_scale <= dst_scale) + || (used_scale < dest_scale) + || (opt & COB_STORE_TRUNCATION) + || !(opt & ~COB_STORE_MASK)) { + check_rounding = 0; + check_all_zeros = 0; + all_zeros = 0; + } else { + /* for all those rounding options we need we need a check for + the result being exactly between the two nearest values */ + if (opt + & ( COB_STORE_AWAY_FROM_ZERO | COB_STORE_PROHIBITED + | COB_STORE_TOWARD_GREATER | COB_STORE_TOWARD_LESSER + | COB_STORE_NEAR_TOWARD_ZERO)) { + check_all_zeros = 1; + all_zeros = 1; + } + /* note that when calculating the rounding digit it is 1 digit to the right + of the last digit in the data which is kept; + also because there are 2 digits in every byte, before dividing by 2 we + need to add 1 so that we find the byte number where the rounding digit + exists; we finally subtract 1 to get to the C offzet (zero based) */ + rounding_digit = used_scale - dest_scale; + if (!COB_FIELD_NO_SIGN_NIBBLE (fdst)) { + rounding_digit += 1; + } + rounding_byte = (rounding_digit + 1) / 2; + rounding_byte -= 1; + check_rounding = 1; + } + + + /* transfer data of both BCD source fields to their buffers using the bigger + scale of them and drop the sign nibble (handled separately); + note: if the scale isn't identical and the buffer can't be placed at the + same position we finally shift it by one half-byte */ + + /* most common case: same scale first */ + if (fld1_scale == fld2_scale) { + fld1 = fld1_buff + 48 - fld1_size; + memcpy (fld1, src1_data, fld1_size); + if (fld1_sign) { + *(fld1_buff + 48 - 1) &= 0xF0; + } + fld2 = fld2_buff + 48 - fld2_size; + memcpy (fld2, src2_data, fld2_size); + if (fld2_sign) { + *(fld2_buff + 48 - 1) &= 0xF0; + } + } else + /* source has smaller scale than target */ + if (fld1_scale < fld2_scale) { + const int diff = fld2_scale - fld1_scale; + const int offset = diff >> 1; + fld2 = fld2_buff + 48 - fld2_size; + memcpy (fld2, src2_data, fld2_size); + if (fld2_sign) { + *(fld2_buff + 48 - 1) &= 0xF0; + } + fld1 = fld1_buff + 48 - fld1_size - offset; + memcpy (fld1, src1_data, fld1_size); + if (fld1_sign) { + *(fld1_buff + 48 - 1 - offset) &= 0xF0; + } + if (diff % 2 == 1) { + cob_shift_left_nibble (fld1_buff, fld1); + fld1--; + } + } else + /* if (fld1_scale > fld2_scale) */ + { + const int diff = fld1_scale - fld2_scale; + const int offset = diff >> 1; + fld1 = fld1_buff + 48 - fld1_size; + memcpy (fld1, src1_data, fld1_size); + if (fld1_sign) { + *(fld1_buff + 48 - 1) &= 0xF0; + } + fld2 = fld2_buff + 48 - fld2_size - offset; + memcpy (fld2, src2_data, fld2_size); + if (fld2_sign) { + *(fld2_buff + 48 - 1 - offset) &= 0xF0; + } + if (diff % 2 == 1) { + cob_shift_left_nibble (fld2_buff, fld2); + fld2--; + } + } + + /* do actual computation after finding the length of the size-adjusted buffer + (after possible padding + shifting to align size + scale); + note that the result will be stored in fld2_buff */ + + /* find the length of the longer buffer data */ + if (fld1 - fld1_buff > fld2 - fld2_buff) { + loop_limit = 48 - (fld2 - fld2_buff) + 1; + } else { + loop_limit = 48 - (fld1 - fld1_buff) + 1; + } + + /* note: both fl1 and fld2 point at the _last_ position of the + buffers as we are processing right to left */ + fld1 = fld1_buff + 48 - 1; + fld2 = fld2_buff + 48 - 1; + rslt = fld2; + + /* determine if the signs are different for the two fields, this allows + us to use two sepearate addition loops, keeping the sign check + outside of those */ + + if (stmt == STMT_SUBTRACT) { + /* reverse the sign of field 1 to handle SUBTRACT mode */ + if (fld1_sign == 0x0D) { + fld1_sign = 0x0C; + } else { + fld1_sign = 0x0D; + } + } + + /* we have an internal addition if either both signs are identical + or none is negative (note: each of 0x0f 0x0c 0x00 are positive) */ + if (fld1_sign == fld2_sign + || (fld1_sign != 0x0D + && fld2_sign != 0x0D)) { + int check_next_byte = 0; + if (fld1_sign == 0x0D) { + final_positive = 0; + } + + for (cntr = 0; cntr < loop_limit; cntr++, fld1--, fld2--, rslt--) { + /* actual addition */ + byte = carry + h2b[*fld1] + h2b[*fld2]; + + if (check_rounding) { + if (check_next_byte) { + /* if we already did the rounding with NEAREST-EVEN and + the rounding digit was even, then we may adjust the + next byte here, then are "really done" with rounding */ + if (byte % 2 == 1) { + byte += 1; + } + check_rounding = 0; + } else + if (cntr == rounding_byte) { + /* position for rounding */ + int byte_adj = byte; + int rtn = handle_bcd_rounding (&byte_adj, rounding_digit % 2 == 1, + all_zeros, final_positive, opt); + if (rtn == -1) { + /* rounding done and finished, no further checks needed */ + byte = byte_adj; + check_rounding = 0; + check_all_zeros = 0; + } else + if (rtn == -2) { + /* rounding done, still need to handle "check next byte" */ + check_next_byte = 1; + check_all_zeros = 0; + } else { + /* exception */ + return cobglobptr->cob_exception_code; + } + } else { + /* no rounding yet */ + } + } + + if (byte >= 200) { + byte -= 200; + carry = 2; + } else + if (byte >= 100) { + byte -= 100; + carry = 1; + } else { + carry = 0; + } + + if (check_all_zeros + && byte != 0) { + check_all_zeros = 0; + all_zeros = 0; + } + *rslt = b2h[byte]; + } + } else { + /* subtraction - check which field's data has the highest absolute value + to know how to do that */ + const int compare_result = memcmp (fld1_buff + 48 - loop_limit, + fld2_buff + 48 - loop_limit, + loop_limit); + int check_next_byte = 0; + /* subtract smaller value from larger - directly possibly to do... */ + if (compare_result < 0) { + if (fld1_sign != 0x0D) { + final_positive = 0; + } + neg = fld1; + pos = fld2; + } else + /* ...but if the negative data has a greater absolute value, then we + need to reverse the sign for addition (setting the final sign as + negative already) */ + if (compare_result > 0) { + if (fld1_sign == 0x0D) { + final_positive = 0; + } + neg = fld2; + pos = fld1; + } else + /* special case (as we have that information already) - both data are + identical, only sign is the reverse -> the result has to be zero */ + /* if (compare_result == 0) */ { + cob_set_packed_zero (fdst); + return 0; + } + + for (cntr = 0; cntr < loop_limit; cntr++, neg--, pos--, rslt--) { + /* actual subtraction */ + byte = carry + h2b[*pos] - h2b[*neg]; + + if (check_rounding) { + if (check_next_byte) { + /* if we already did the rounding with NEAREST-EVEN and + the rounding digit was even, then we may adjust the + next byte here, then are "really done" with rounding */ + if (byte % 2 == 1) { + byte += 1; + } + check_rounding = 0; + } else + if (cntr == rounding_byte) { + int byte_adj = byte; + int rtn = handle_bcd_rounding (&byte_adj, rounding_digit % 2 == 1, + all_zeros, final_positive, opt); + if (rtn == -1) { + /* rounding done and finished, no further checks needed */ + byte = byte_adj; + check_rounding = 0; + check_all_zeros = 0; + } else + if (rtn == -2) { + /* rounding done, still need to handle "check next byte" */ + check_next_byte = 1; + check_all_zeros = 0; + } else { + /* exception */ + return cobglobptr->cob_exception_code; + } + } else { + /* no rounding yet */ + } + } + + if (byte < 0) { + byte += 100; + carry = -1; + } else if (byte >= 100) { + byte -= 100; + carry = 1; + } else { + carry = 0; + } + + if (check_all_zeros && byte != 0 && byte != 100 && byte != 200) { + check_all_zeros = 0; + all_zeros = 0; + } + *rslt = b2h[byte]; + } + } + + + /* computation done, check for SIZE ERROR, then copy result to target */ + + /* reset fld2 to point to start of the data for following memmove / checks */ + fld2 = fld2_buff + 48 - loop_limit; + + if (used_scale == dest_scale) { + /* most common case: identical scale, no need to shift buffer */ + } else + if (used_scale > dest_scale) { + const int diff = used_scale - dest_scale; + const int offset = diff / 2; + memmove (fld2 + offset, fld2, loop_limit - offset); + memset (fld2, 0, offset); + fld2 += offset; + if (diff & 1) { + cob_shift_right_nibble (fld2_buff, fld2); + } + /* may happen if fdst != fsrc2: */ + } else + /* if (used_scale < dest_scale) */ { + const int diff = dest_scale - used_scale; + const int offset = diff / 2; + memmove (fld2 - offset, fld2, loop_limit); + memset (fld2_buff + 48 - offset, 0, offset); + if (diff % 2 == 1) { + cob_shift_left_nibble (fld2_buff, fld2); + } + } + + if (check_overflow_and_set_sign (fdst, opt, final_positive, fld2_buff, fld2)) { + return cobglobptr->cob_exception_code; + } + memcpy (COB_FIELD_DATA (fdst), fld2_buff + 48 - dest_size, dest_size); + return 0; +} + + #if 0 /* RXWRXW - Buggy */ /* Optimized arithmetic for DISPLAY */ @@ -2699,22 +3397,17 @@ display_sub_int (unsigned char *data, const size_t size, int n, const int opt) static int cob_display_add_int (cob_field *f, int n, const int opt) { - unsigned char *data; - size_t osize; - size_t size; + const unsigned char *data = COB_FIELD_DATA (f); + size_t size = COB_FIELD_SIZE (f); + const size_t osize = size; size_t i; - int scale; + int scale = COB_FIELD_SCALE (f); int sign; unsigned char tfield[256]; - data = COB_FIELD_DATA (f); - size = COB_FIELD_SIZE (f); - osize = size; if (opt & COB_STORE_KEEP_ON_OVERFLOW) { memcpy (tfield, data, size); } - scale = COB_FIELD_SCALE (f); - sign = COB_GET_SIGN (f); /* -x +v = -(x - v), -x -v = -(x + v) */ if (sign == -1) { n = -n; @@ -2739,7 +3432,6 @@ cob_display_add_int (cob_field *f, int n, const int opt) /* PIC 9(n)V9(m) */ size -= scale; if (!size) { - COB_PUT_SIGN (f, sign); cob_set_exception (COB_EC_SIZE_OVERFLOW); if (opt & COB_STORE_KEEP_ON_OVERFLOW) { return cobglobptr->cob_exception_code; @@ -2747,12 +3439,12 @@ cob_display_add_int (cob_field *f, int n, const int opt) return 0; } } + sign = COB_GET_SIGN_ADJUST (f); if (n > 0) { /* Add n to the field */ if (display_add_int (data, size, n, opt) != 0) { /* Overflow */ - COB_PUT_SIGN (f, sign); cob_set_exception (COB_EC_SIZE_OVERFLOW); /* If we need to restore */ if (opt & COB_STORE_KEEP_ON_OVERFLOW) { @@ -2779,7 +3471,7 @@ cob_display_add_int (cob_field *f, int n, const int opt) } } - COB_PUT_SIGN (f, sign); + COB_PUT_SIGN_ADJUSTED (f, sign); return 0; } #endif /* Buggy */ @@ -3438,7 +4130,7 @@ cmp_packed_intern (cob_field *f, cob_u64_t n, const int both_are_negative) { register int ret; for (size = 0; size < sizeof(val1); size++) { - if ((ret = val1[size] - packed_value[size])) { + if ((ret = val1[size] - packed_value[size]) != 0) { if (both_are_negative) { return -ret; } else { diff --git a/libcob/reportio.c b/libcob/reportio.c index 22d41f23..6ffdf92f 100644 --- a/libcob/reportio.c +++ b/libcob/reportio.c @@ -287,11 +287,9 @@ cob_add_fields (cob_field *op1, cob_field *op2, cob_field *rslt) cob_move(op1, &fld1); #ifdef COB_DEBUG_LOG - if(DEBUG_ISON("rw")) { - cob_field_to_string(op1, wrk, sizeof(wrk)-1); + if (DEBUG_ISON("rw")) { + (void)cob_field_to_string (op1, wrk, sizeof(wrk)-1, CCM_NONE); DEBUG_LOG("rw",("'%s' ",wrk)); - cob_field_to_string(op2, wrk, sizeof(wrk)-1); - DEBUG_LOG("rw",("to '%s' ",wrk)); } #endif @@ -302,13 +300,21 @@ cob_add_fields (cob_field *op1, cob_field *op2, cob_field *rslt) fld2.data = (unsigned char*)data2; memset(data2,'0',fld2.size); cob_move(op2, &fld2); + +#ifdef COB_DEBUG_LOG + if (DEBUG_ISON ("rw")) { + (void)cob_field_to_string (op2, wrk, sizeof(wrk) - 1, CCM_NONE); + DEBUG_LOG("rw",("to '%s' ",wrk)); + } +#endif + cob_add(&fld1,&fld2,0); cob_move(&fld1, rslt); /* Copy SUM back to result field */ #ifdef COB_DEBUG_LOG - if(DEBUG_ISON("rw")) { - cob_field_to_string(&fld1, wrk, sizeof(wrk)-1); + if (DEBUG_ISON("rw")) { + (void)cob_field_to_string (&fld1, wrk, sizeof(wrk)-1, CCM_NONE); DEBUG_LOG("rw",("--> '%s' ",wrk)); DEBUG_LOG("rw",("\n")); } @@ -323,48 +329,48 @@ dumpFlags(int flags, int ln, char *name) return; } - if(name == NULL) + if (name == NULL) name = (char*)""; - if(flags & COB_REPORT_HEADING) DEBUG_LOG("rw",("REPORT HEADING ")); - if(flags & COB_REPORT_FOOTING) DEBUG_LOG("rw",("REPORT FOOTING ")); - if(flags & COB_REPORT_PAGE_HEADING) DEBUG_LOG("rw",("PAGE HEADING ")); - if(flags & COB_REPORT_PAGE_FOOTING) DEBUG_LOG("rw",("PAGE FOOTING ")); - if(flags & COB_REPORT_CONTROL_HEADING) + if (flags & COB_REPORT_HEADING) DEBUG_LOG("rw",("REPORT HEADING ")); + if (flags & COB_REPORT_FOOTING) DEBUG_LOG("rw",("REPORT FOOTING ")); + if (flags & COB_REPORT_PAGE_HEADING) DEBUG_LOG("rw",("PAGE HEADING ")); + if (flags & COB_REPORT_PAGE_FOOTING) DEBUG_LOG("rw",("PAGE FOOTING ")); + if (flags & COB_REPORT_CONTROL_HEADING) DEBUG_LOG("rw",("CONTROL HEADING %s ",(flags & COB_REPORT_ALL)?"ALL":name)); - if(flags & COB_REPORT_CONTROL_HEADING_FINAL) DEBUG_LOG("rw",("CONTROL HEADING FINAL ")); - if(flags & COB_REPORT_CONTROL_FOOTING) + if (flags & COB_REPORT_CONTROL_HEADING_FINAL) DEBUG_LOG("rw",("CONTROL HEADING FINAL ")); + if (flags & COB_REPORT_CONTROL_FOOTING) DEBUG_LOG("rw",("CONTROL FOOTING %s ",(flags & COB_REPORT_ALL)?"ALL":name)); - if(flags & COB_REPORT_CONTROL_FOOTING_FINAL) DEBUG_LOG("rw",("CONTROL FOOTING FINAL ")); - if(flags & COB_REPORT_DETAIL) DEBUG_LOG("rw",("DETAIL ")); - if(flags & COB_REPORT_LINE_PLUS) {if(ln > 0) DEBUG_LOG("rw",("LINE PLUS %d ",ln));} - else if(flags & COB_REPORT_LINE) DEBUG_LOG("rw",("LINE %d ",ln)); - if(flags & COB_REPORT_LINE_NEXT_PAGE) DEBUG_LOG("rw",("LINE NEXT PAGE ")); - if(flags & COB_REPORT_NEXT_PAGE) DEBUG_LOG("rw",("NEXT PAGE ")); - if(flags & COB_REPORT_GROUP_INDICATE) DEBUG_LOG("rw",("GROUP INDICATE ")); - if(flags & COB_REPORT_COLUMN_PLUS) DEBUG_LOG("rw",("COLUMN PLUS ")); - if(flags & COB_REPORT_RESET_FINAL) DEBUG_LOG("rw",("RESET FINAL ")); - if(flags & COB_REPORT_COLUMN_LEFT) DEBUG_LOG("rw",("LEFT ")); - if(flags & COB_REPORT_COLUMN_RIGHT) DEBUG_LOG("rw",("RIGHT ")); - if(flags & COB_REPORT_COLUMN_CENTER) DEBUG_LOG("rw",("CENTER ")); - if(flags & COB_REPORT_GROUP_ITEM) DEBUG_LOG("rw",("GROUP ")); - if(flags & COB_REPORT_PRESENT) { - if(flags & COB_REPORT_NEGATE) { - if(flags & COB_REPORT_BEFORE) { + if (flags & COB_REPORT_CONTROL_FOOTING_FINAL) DEBUG_LOG("rw",("CONTROL FOOTING FINAL ")); + if (flags & COB_REPORT_DETAIL) DEBUG_LOG("rw",("DETAIL ")); + if (flags & COB_REPORT_LINE_PLUS) {if(ln > 0) DEBUG_LOG("rw",("LINE PLUS %d ",ln));} + else if (flags & COB_REPORT_LINE) DEBUG_LOG("rw",("LINE %d ",ln)); + if (flags & COB_REPORT_LINE_NEXT_PAGE) DEBUG_LOG("rw",("LINE NEXT PAGE ")); + if (flags & COB_REPORT_NEXT_PAGE) DEBUG_LOG("rw",("NEXT PAGE ")); + if (flags & COB_REPORT_GROUP_INDICATE) DEBUG_LOG("rw",("GROUP INDICATE ")); + if (flags & COB_REPORT_COLUMN_PLUS) DEBUG_LOG("rw",("COLUMN PLUS ")); + if (flags & COB_REPORT_RESET_FINAL) DEBUG_LOG("rw",("RESET FINAL ")); + if (flags & COB_REPORT_COLUMN_LEFT) DEBUG_LOG("rw",("LEFT ")); + if (flags & COB_REPORT_COLUMN_RIGHT) DEBUG_LOG("rw",("RIGHT ")); + if (flags & COB_REPORT_COLUMN_CENTER) DEBUG_LOG("rw",("CENTER ")); + if (flags & COB_REPORT_GROUP_ITEM) DEBUG_LOG("rw",("GROUP ")); + if (flags & COB_REPORT_PRESENT) { + if (flags & COB_REPORT_NEGATE) { + if (flags & COB_REPORT_BEFORE) { DEBUG_LOG("rw",("ABSENT BEFORE ")); } else { DEBUG_LOG("rw",("ABSENT AFTER ")); } } else { - if(flags & COB_REPORT_BEFORE) { + if (flags & COB_REPORT_BEFORE) { DEBUG_LOG("rw",("PRESENT BEFORE ")); } else { DEBUG_LOG("rw",("PRESENT AFTER ")); } } - if(flags & COB_REPORT_PAGE) DEBUG_LOG("rw",("PAGE ")); - if(flags & COB_REPORT_ALL) DEBUG_LOG("rw",("ALL ")); + if (flags & COB_REPORT_PAGE) DEBUG_LOG("rw",("PAGE ")); + if (flags & COB_REPORT_ALL) DEBUG_LOG("rw",("ALL ")); } - else if(flags & COB_REPORT_HAD_WHEN) DEBUG_LOG("rw",("WHEN ")); + else if (flags & COB_REPORT_HAD_WHEN) DEBUG_LOG("rw",("WHEN ")); } #endif @@ -412,25 +418,25 @@ reportDumpOneLine(const cob_report *r, cob_report_line *fl, int indent, int dump if(fl->report_flags & COB_REPORT_NEXT_GROUP_PAGE) DEBUG_LOG("rw",("NEXT GROUP PAGE ")); } if(fl->control) { - cob_field_to_string(fl->control, wrk, sizeof(wrk)-1); - if(wrk[0] >= ' ') + (void)cob_field_to_string (fl->control, wrk, sizeof(wrk) - 1, CCM_NONE); + if (wrk[0] >= ' ') DEBUG_LOG("rw",("Line Control %d is '%s' ",sequence,wrk)); } DEBUG_LOG("rw",("\n")); if(!(fl->flags & COB_REPORT_DETAIL)) dumpdata = 1; for(rf = fl->fields; rf; rf = rf->next) { DEBUG_LOG("rw",("%s %02d Field ",idnt,rf->level)); - if(rf->line) DEBUG_LOG("rw",("Line %2d ",rf->line)); - if(rf->column) DEBUG_LOG("rw",("Col %3d ",rf->column)); - if(rf->step_count) DEBUG_LOG("rw",("Step %3d ",rf->step_count)); - if(rf->next_group_line) DEBUG_LOG("rw",("NextGrp %d ",rf->next_group_line)); - if(dumpdata) { - if(!(rf->flags & COB_REPORT_GROUP_ITEM)) { - if(rf->f) { - if(rf->litval) { + if (rf->line) DEBUG_LOG("rw",("Line %2d ",rf->line)); + if (rf->column) DEBUG_LOG("rw",("Col %3d ",rf->column)); + if (rf->step_count) DEBUG_LOG("rw",("Step %3d ",rf->step_count)); + if (rf->next_group_line) DEBUG_LOG("rw",("NextGrp %d ",rf->next_group_line)); + if (dumpdata) { + if (!(rf->flags & COB_REPORT_GROUP_ITEM)) { + if (rf->f) { + if (rf->litval) { DEBUG_LOG("rw",(" \"%s\" ",rf->litval)); } else { - cob_field_to_string(rf->f, wrk, sizeof(wrk)-1); + (void)cob_field_to_string (rf->f, wrk, sizeof (wrk) - 1, CCM_NONE); if (wrk[0] >= ' ') { DEBUG_LOG("rw",(" '%s' ",wrk)); } @@ -445,7 +451,7 @@ reportDumpOneLine(const cob_report *r, cob_report_line *fl, int indent, int dump DEBUG_LOG("rw",("ABSENT")); else DEBUG_LOG("rw",("Not PRESENT")); - } else + } else if((rf->flags & COB_REPORT_GROUP_ITEM) && rf->suppress) { dumpFlags(rf->flags& ~(COB_REPORT_GROUP_ITEM|COB_REPORT_HAD_WHEN),rf->line,NULL); @@ -457,7 +463,7 @@ reportDumpOneLine(const cob_report *r, cob_report_line *fl, int indent, int dump && (!(rf->flags & COB_REPORT_PRESENT) || rf->present_now || !r->initiate_done) ) { strcpy(wrk,""); for(rc = r->controls; rc; rc = rc->next) { - if(rc->f == rf->control) { + if(rc->f == rf->control) { strcpy(wrk,rc->name); break; } @@ -467,7 +473,7 @@ reportDumpOneLine(const cob_report *r, cob_report_line *fl, int indent, int dump } } if(!(rf->flags & COB_REPORT_GROUP_ITEM) - && rf->suppress) + && rf->suppress) DEBUG_LOG("rw",("Suppress field")); DEBUG_LOG("rw",("\n")); } @@ -557,13 +563,13 @@ reportDump(const cob_report *r, const char *msg) for(c=r->controls; c; c = c->next) { DEBUG_LOG("rw",(" Control %d %s ",c->sequence,c->name)); if(c->f) { - cob_field_to_string(c->f, wrk, sizeof(wrk)-1); - if(wrk[0] >= ' ') + (void)cob_field_to_string (c->f, wrk, sizeof (wrk) - 1, CCM_NONE); + if (wrk[0] >= ' ') DEBUG_LOG("rw",("has '%s' ",wrk)); } if(c->val) { - cob_field_to_string(c->val, wrk, sizeof(wrk)-1); - if(wrk[0] >= ' ') + (void)cob_field_to_string (c->val, wrk, sizeof (wrk) - 1, CCM_NONE); + if (wrk[0] >= ' ') DEBUG_LOG("rw",("Value '%s' ",wrk)); } DEBUG_LOG("rw",("\n")); @@ -775,9 +781,9 @@ write_rec (cob_report *r, int opt) static void write_to_line (cob_report *r, int linen) { - if(r->curr_line <= linen) { + if (r->curr_line <= linen) { int adv = (linen - r->curr_line + 1); - write_rec (r, COB_WRITE_BEFORE|COB_WRITE_LINES|adv); + write_rec (r, COB_WRITE_BEFORE | COB_WRITE_LINES | adv); r->curr_line = linen + 1; r->incr_line = FALSE; if (r->curr_line > r->def_lines) { @@ -879,38 +885,40 @@ do_page_heading(cob_report *r) * Format one field into print line */ static void -print_field(cob_report_field *rf, char *rec) +print_field (cob_report_field *rf, char *rec) { char wrk[COB_SMALL_BUFF]; - int ln, k, i; - int dest_pos = (size_t)rf->column - 1; + size_t ln = 0, k, i; + size_t dest_pos = (size_t)rf->column - 1; + int ret; - cob_field_to_string(rf->f, wrk, sizeof(wrk)-1); - wrk[COB_SMALL_MAX] = 0; /* keep analyzer happy */ - ln = strlen(wrk); + ret = cob_field_to_string (rf->f, wrk, COB_SMALL_MAX, CCM_NONE); + if (ret > 0) { + ln = ret; + } if (rf->step_count > 0) memset (&rec[dest_pos], ' ', rf->step_count); - if(cobrpsetptr - && !cobrpsetptr->cob_col_just_lrc) { + if (cobrpsetptr + && !cobrpsetptr->cob_col_just_lrc) { /* Data justify is turned off, no adjustment */ } else - if((rf->flags & COB_REPORT_COLUMN_RIGHT) - && ln < rf->f->size) { + if ((rf->flags & COB_REPORT_COLUMN_RIGHT) + && ln < rf->f->size) { dest_pos += rf->f->size - ln; - } else - if((rf->flags & COB_REPORT_COLUMN_CENTER)) { - for(k=0; k < rf->f->size && wrk[0] == ' ' && ln > 0; k++) { /* remove leading spaces */ - memmove(wrk,&wrk[1],ln); + } else + if ((rf->flags & COB_REPORT_COLUMN_CENTER)) { + for (k=0; k < rf->f->size && wrk[0] == ' ' && ln > 0; k++) { /* remove leading spaces */ + memmove (wrk,&wrk[1],ln); ln--; } i = 1- (ln & 1); if (ln < rf->f->size) { dest_pos += (rf->f->size - ln - i) / 2; } - } else - if((rf->flags & COB_REPORT_COLUMN_LEFT)) { - for(k=0; k < rf->f->size && wrk[0] == ' ' && ln > 0; k++) { /* remove leading spaces */ - memmove(wrk,&wrk[1],ln); + } else + if ((rf->flags & COB_REPORT_COLUMN_LEFT)) { + for (k=0; k < rf->f->size && wrk[0] == ' ' && ln > 0; k++) { /* remove leading spaces */ + memmove (wrk,&wrk[1],ln); ln--; } } @@ -936,9 +944,9 @@ copy_line_fields (cob_report *r, cob_report_line *l, int doset) /* * Copy fields to print line area */ - for(rf = l->fields; rf; rf = rf->next) { - if((rf->flags & COB_REPORT_GROUP_ITEM)) { - if(rf->suppress) { + for (rf = l->fields; rf; rf = rf->next) { + if ((rf->flags & COB_REPORT_GROUP_ITEM)) { + if (rf->suppress) { /* group item SUPPRESSed printing, so skip to next field */ if (doset) rf->suppress = FALSE; @@ -958,19 +966,19 @@ copy_line_fields (cob_report *r, cob_report_line *l, int doset) && !rf->present_now) { continue; } - if(rf->suppress - || rf->group_indicate) { + if (rf->suppress + || rf->group_indicate) { if (rf->step_count > 0) memset (&rec[rf->column-1], ' ', rf->step_count); continue; } - if(rf->from.data) { /* Copy source field in */ - cob_move(&rf->from,rf->f); - print_field(rf, rec); - } else if(rf->sum) { /* Copy SUM field in */ - cob_move(rf->sum,rf->f); - print_field(rf, rec); - } else if(rf->litval) { /* Refresh literal value */ + if (rf->from.data) { /* Copy source field in */ + cob_move (&rf->from, rf->f); + print_field (rf, rec); + } else if (rf->sum) { /* Copy SUM field in */ + cob_move (rf->sum, rf->f); + print_field (rf, rec); + } else if (rf->litval) { /* Refresh literal value */ if (rf->f && COB_FIELD_IS_NUMERIC (rf->f)) { cob_field temp; @@ -983,7 +991,7 @@ copy_line_fields (cob_report *r, cob_report_line *l, int doset) } else { memcpy(&rec[rf->column-1], rf->litval, rf->litlen); } - } else if(rf->f) { + } else if (rf->f) { print_field(rf, rec); } if (doset @@ -999,7 +1007,7 @@ copy_fields (cob_report *r, cob_report_line *l, int doset) if (l == NULL || l->suppress) return; - + if((l->flags & COB_REPORT_LINE) || l->child == NULL) { copy_line_fields (r,l,doset); @@ -1022,24 +1030,29 @@ report_line (cob_report *r, cob_report_line *l) { cob_report_field *rf; cob_file *f = r->report_file; - char *rec,wrk[COB_SMALL_BUFF]; + char *rec; +#if 0 /* unused */ + char wrk[COB_SMALL_BUFF]; +#endif int bChkLinePlus = FALSE; rec = (char *)f->record->data; - if(rec) { - memset(rec,' ',f->record_max); - memset(wrk,0,sizeof(wrk)); + if (rec) { + memset (rec, ' ', f->record_max); +#if 0 /* unused */ + memset (wrk, 0, COB_SMALL_BUFF); +#endif if(r->curr_line > r->def_last_detail && !r->in_report_footing && !r->in_page_footing) { /* Page overflow */ r->incr_page = TRUE; - do_page_footing(r); - do_page_heading(r); + do_page_footing (r); + do_page_heading (r); } while( !(l->flags & COB_REPORT_LINE_PLUS) && !(l->flags & COB_REPORT_LINE) && l->child - && ((l->flags & COB_REPORT_CONTROL_FOOTING_FINAL) + && ((l->flags & COB_REPORT_CONTROL_FOOTING_FINAL) || (l->flags & COB_REPORT_CONTROL_HEADING_FINAL) )) { l = l->child; } @@ -1151,18 +1164,18 @@ report_line (cob_report *r, cob_report_line *l) return; } #ifdef COB_DEBUG_LOG - if(DEBUG_ISON("rw")) { - reportDumpOneLine(r,l,0,1); + if (DEBUG_ISON ("rw")) { + reportDumpOneLine (r, l, 0, 1); } #endif - for(rf = l->fields; rf; rf = rf->next) { + for (rf = l->fields; rf; rf = rf->next) { rf->present_now = (rf->flags & COB_REPORT_NEGATE)?1:0; } - if(rec) { + if (rec) { write_to_line (r, r->curr_line); } - set_next_info(r,l); + set_next_info (r,l); } /* @@ -1181,7 +1194,7 @@ report_line_and(cob_report *r, cob_report_line *l, int type) report_line_type(r,l->child,COB_REPORT_LINE); } return; - } + } l = l->child; } report_line_type(r,l,type); @@ -1789,12 +1802,12 @@ static int maxctl,ln,num,gengrp,last_use,ctlidx; for(rc = r->controls; rc; rc = rc->next) { rc->data_change = (cob_cmp(rc->f,rc->val) != 0); if(rc->data_change) { /* Data change, implies control break at lower levels */ -#if defined(COB_DEBUG_LOG) +#if defined(COB_DEBUG_LOG) DEBUG_LOG("rw",(" Control Break %s order %d changed from ", rc->name,rc->sequence)); - cob_field_to_string(rc->val, wrk, sizeof(wrk)-1); + (void)cob_field_to_string (rc->val, wrk, sizeof(wrk)-1, CCM_NONE); DEBUG_LOG("rw",("'%s' to ",wrk)); - cob_field_to_string(rc->f, wrk, sizeof(wrk)-1); + (void)cob_field_to_string (rc->f, wrk, sizeof(wrk)-1, CCM_NONE); DEBUG_LOG("rw",("'%s'\n",wrk)); #endif cob_move(rc->f, rc->sf); /* Save new CONTROL value */ @@ -1808,12 +1821,12 @@ static int maxctl,ln,num,gengrp,last_use,ctlidx; if(rc->sequence < maxctl && !rc->data_change) { rc->data_change = TRUE; -#if defined(COB_DEBUG_LOG) +#if defined(COB_DEBUG_LOG) DEBUG_LOG("rw",(" Control Break %s order %d also ", rc->name,rc->sequence)); - cob_field_to_string(rc->val, wrk, sizeof(wrk)-1); + cob_field_to_string(rc->val, wrk, sizeof(wrk)-1, CCM_NONE); DEBUG_LOG("rw",("'%s' to ",wrk)); - cob_field_to_string(rc->f, wrk, sizeof(wrk)-1); + cob_field_to_string(rc->f, wrk, sizeof(wrk)-1, CCM_NONE); DEBUG_LOG("rw",("'%s'\n",wrk)); #endif cob_move(rc->f, rc->sf); /* Save CONTROL value */ diff --git a/libcob/screenio.c b/libcob/screenio.c index 50ca5b37..b5d55b01 100644 --- a/libcob/screenio.c +++ b/libcob/screenio.c @@ -350,43 +350,6 @@ cob_move_to_beg_of_last_line (void) } #endif -static short -cob_to_curses_color (cob_field *f, const short default_color) -{ - if (!f) { - return default_color; - } - /* compat for MF/ACU/... only use first 3 bits -> 0-7, - bit 4 is "included highlight/blink attribute" */ - switch (cob_get_int (f) & 7) { - case COB_SCREEN_BLACK: - return COLOR_BLACK; - case COB_SCREEN_BLUE: - return COLOR_BLUE; - case COB_SCREEN_GREEN: - return COLOR_GREEN; - case COB_SCREEN_CYAN: - return COLOR_CYAN; - case COB_SCREEN_RED: - return COLOR_RED; - case COB_SCREEN_MAGENTA: - return COLOR_MAGENTA; - case COB_SCREEN_YELLOW: - return COLOR_YELLOW; - case COB_SCREEN_WHITE: - return COLOR_WHITE; - default: - return default_color; - } -} - -/* compat for MF/ACU/... only use first 3 bits are colors -> 0-7, - bit 4 is "included highlight/blink attribute" -> an "extended" color */ -static int -has_extended_color (cob_field* f) -{ - return f && (cob_get_int (f) & 8); -} static short cob_get_color_pair (const short fg_color, const short bg_color) @@ -443,41 +406,349 @@ cob_activate_color_pair (const short color_pair_number) return ret; } + +static int +cob_to_curses_color (const int cob_color, short *curses_color) +{ + if (cob_color < 0 + || cob_color > 15) { + /* "invalid" color - nothing to do */ + return -1; + } + + /* compat for MF/ACU/... only use first 3 bits -> 0-7, + bit 4 is "included highlight/blink attribute" */ + switch (cob_color & 7) { + case COB_SCREEN_BLACK: + *curses_color = COLOR_BLACK; + return 0; + case COB_SCREEN_BLUE: + *curses_color = COLOR_BLUE; + return 0; + case COB_SCREEN_GREEN: + *curses_color = COLOR_GREEN; + return 0; + case COB_SCREEN_CYAN: + *curses_color = COLOR_CYAN; + return 0; + case COB_SCREEN_RED: + *curses_color = COLOR_RED; + return 0; + case COB_SCREEN_MAGENTA: + *curses_color = COLOR_MAGENTA; + return 0; + case COB_SCREEN_YELLOW: + *curses_color = COLOR_YELLOW; + return 0; + case COB_SCREEN_WHITE: + *curses_color = COLOR_WHITE; + return 0; + default: + return -1; + } +} + +/* compat for MF/ACU/... only first 3 bits are colors -> 0-7, + bit 4 is "included highlight/blink attribute" -> an "extended" color */ static void -cob_screen_attr (cob_field *fgc, cob_field *bgc, const cob_flags_t attr, - const enum screen_statement stmt) +adjust_attr_from_extended_color (cob_flags_t *attr, const int color, + const int handle_background) +{ + /* check for "valid" color and "extended attribute" set - return */ + if (color >= 0 + && (color & 8)) { + if (handle_background) { + *attr |= COB_SCREEN_BLINK; + } else { + *attr |= COB_SCREEN_HIGHLIGHT; + } + } +} + +/* adjust screenio attributes and color values from numeric attributes + added together in the COLOR field */ +static void +adjust_attr_from_color_field (cob_flags_t *attr, cob_field *color, + short *fg_color, short *bg_color) +{ + int col_attr = cob_get_int (color); /* added numeric value */ + + if (col_attr >= 131072) { + col_attr -= 131072; + /* BACKGROUND-HIGH pending */ + } + if (col_attr >= 65536) { + col_attr -= 65536; + /* BACKGROUND-LOW pending */ + } + if (col_attr >= 32768) { + col_attr -= 32768; + /* Protected - only relevant for SCREEN SECTION items + to have them temporarily as "output only"*/ + } + if (col_attr >= 16384) { + col_attr -= 16384; + *attr |= COB_SCREEN_BLINK; + } + if (col_attr >= 8192) { + col_attr -= 8192; + *attr |= COB_SCREEN_UNDERLINE; + } + if (col_attr >= 4096) { + col_attr -= 4096; + *attr |= COB_SCREEN_HIGHLIGHT; + } + if (col_attr >= 2048) { + col_attr -= 2048; + *attr |= COB_SCREEN_LOWLIGHT; + } + if (col_attr >= 1024) { + col_attr -= 1024; + *attr |= COB_SCREEN_REVERSE; + } + + if (col_attr >= 256) { + col_attr -= 256; + *bg_color = COLOR_WHITE; + } else if (col_attr >= 224) { + col_attr -= 224; + *bg_color = COLOR_YELLOW; + } else if (col_attr >= 192) { + col_attr -= 192; + *bg_color = COLOR_MAGENTA; + } else if (col_attr >= 160) { + col_attr -= 160; + *bg_color = COLOR_RED; + } else if (col_attr >= 128) { + col_attr -= 128; + *bg_color = COB_SCREEN_CYAN; + } else if (col_attr >= 96) { + col_attr -= 96; + *bg_color = COLOR_GREEN; + } else if (col_attr >= 64) { + col_attr -= 64; + *bg_color = COLOR_BLUE; + } else if (col_attr >= 32) { + col_attr -= 32; + *bg_color = COLOR_BLACK; + } + + if (col_attr >= 8) { + col_attr -= 8; + *fg_color = COLOR_WHITE; + } else if (col_attr >= 7) { + col_attr -= 7; + *fg_color = COLOR_YELLOW; + } else if (col_attr >= 6) { + col_attr -= 6; + *fg_color = COLOR_MAGENTA; + } else if (col_attr >= 5) { + col_attr -= 5; + *fg_color = COLOR_RED; + } else if (col_attr >= 4) { + col_attr -= 4; + *fg_color = COB_SCREEN_CYAN; + } else if (col_attr >= 3) { + col_attr -= 3; + *fg_color = COLOR_GREEN; + } else if (col_attr >= 2) { + col_attr -= 2; + *fg_color = COLOR_BLUE; + } else if (col_attr >= 1) { + col_attr -= 1; + *fg_color = COLOR_BLACK; + } +} + +static int +get_cob_color_from_color_value (const char *p) +{ + /* translate number */ + { + char *endptr; + const int cob_color = strtol (p, &endptr, 10); + /* number parsed - return as is */ + if (endptr != p) { + return cob_color; + } + } + + /* text translation */ + { + const size_t len = strlen (p); + if (len == 5) { + if (memcmp (p, "BLACK", 5) == 0) { + return COB_SCREEN_BLACK; + } + if (memcmp (p, "WHITE", 5) == 0) { + return COB_SCREEN_WHITE; + } + if (memcmp (p, "GREEN", 5) == 0) { + return COB_SCREEN_GREEN; + } + return -1; + } + if (len == 4) { + if (memcmp (p, "BLUE", 4) == 0) { + return COB_SCREEN_BLUE; + } + if (memcmp (p, "CYAN", 4) == 0) { + return COB_SCREEN_CYAN; + } + return -1; + } + if (len == 3) { + if (memcmp (p, "RED", 3) == 0) { + return COB_SCREEN_RED; + } + return -1; + } + if (len == 7) { + if (memcmp (p, "MAGENTA", 7) == 0) { + return COB_SCREEN_MAGENTA; + } + return -1; + } + if (len == 6 && memcmp (p, "YELLOW", 6) == 0) { + return COB_SCREEN_YELLOW; + } + } + + return -1; +} + +/* parse COBOL color name / number and set curses color number + attribute accordingly */ +static int +handle_control_field_color (cob_flags_t *attr, const char *p, + short *curses_color, const int handle_background) +{ + const int cob_color = get_cob_color_from_color_value (p); + int short curses_color_val; + + /* translate to curses, arly error return if not possible */ + if (cob_to_curses_color (cob_color, &curses_color_val) < 0) { + return -1; + } + + /* take over color */ + *curses_color = curses_color_val; + + /* attribute via renamed colors */ + adjust_attr_from_extended_color (attr, cob_color, handle_background); + + return 0; +} + +/* adjust screenio attributes and color values from named attributes + in CONTROL field */ +static void +adjust_attr_from_control_field (cob_flags_t *attr, cob_field *control, + short *fg_color, short *bg_color) +{ + char buffer[COB_MEDIUM_BUFF]; + cob_field_to_string (control, buffer, COB_MEDIUM_MAX, CCM_UPPER); + buffer[COB_MEDIUM_MAX] = 0; /* drop noise warning */ + + /* TODO: parse buffer here, adjusting attr, fg_color, bg_color + just some hard-coded examples... + that needs a real parsing logic from left to right, alias, tokens,... */ + if (strstr (buffer, "FGCOLOR=BLACK")) { + handle_control_field_color (attr, "BLACK", fg_color, 0); + } else if (strstr (buffer, "FGCOLOR=RED")) { + handle_control_field_color (attr, "RED", fg_color, 0); + } else if (strstr (buffer, "FGCOLOR = 6")) { + handle_control_field_color (attr, "6", fg_color, 0); + } else if (strstr (buffer, "FGCOLOR=MAGENTA")) { + handle_control_field_color (attr, "MAGENTA", fg_color, 0); + } + if (strstr (buffer, "BGCOLOR=WHITE")) { + handle_control_field_color (attr, "WHITE", bg_color, 1); + } + if (strstr (buffer, "NO-ECHO")) { + *attr |= COB_SCREEN_SECURE; + } + if (strstr (buffer, "NO REVERSE")) { + *attr &= ~COB_SCREEN_REVERSE; + } else if (strstr (buffer, "REVERSE")) { + *attr |= COB_SCREEN_REVERSE; + } + if (strstr (buffer, "NO ECHO")) { + *attr |= COB_SCREEN_NO_ECHO; + } + if (strstr (buffer, "NO HIGH")) { + *attr &= ~COB_SCREEN_HIGHLIGHT; + } else if (strstr (buffer, "HIGHLIGHT")) { + *attr |= COB_SCREEN_HIGHLIGHT; + } + if (strstr (buffer, "NO BLINK")) { + *attr &= ~COB_SCREEN_BLINK; + } else if (strstr (buffer, "BLINK")) { + *attr |= COB_SCREEN_BLINK; + } +} + +static void +cob_screen_attr (cob_field *fgc, cob_field *bgc, cob_flags_t attr, + cob_field *control, cob_field *color, const enum screen_statement stmt) { int line; int column; + const int cob_fg_color = fgc ? cob_get_int (fgc) : -1; + const int cob_bg_color = bgc ? cob_get_int (bgc) : -1; + short fg_color = -1; + short bg_color = -1; chtype styles = A_NORMAL; - attrset (A_NORMAL); + /* pre-set color value */ + cob_to_curses_color (cob_fg_color, &fg_color); + cob_to_curses_color (cob_bg_color, &bg_color); + + /* attribute via renamed colors */ + adjust_attr_from_extended_color (&attr, cob_fg_color, 0); + adjust_attr_from_extended_color (&attr, cob_bg_color, 1); + + /* ACU / RM? extension that may override colors + some attributes */ + if (color) { + adjust_attr_from_color_field (&attr, color, &fg_color, &bg_color); + } + + /* CONTROL - extension to override attributes and colors */ + if (control) { + adjust_attr_from_control_field (&attr, control, &fg_color, &bg_color); + } + + /* curses attributes from (possibly adjusted) COBOL attributes */ if (attr & COB_SCREEN_REVERSE) { styles |= A_REVERSE; } - if (attr & COB_SCREEN_HIGHLIGHT - || has_extended_color (fgc)) { + if (attr & COB_SCREEN_HIGHLIGHT) { styles |= A_BOLD; } if (attr & COB_SCREEN_LOWLIGHT) { styles |= A_DIM; } - if (attr & COB_SCREEN_BLINK - || has_extended_color (bgc)) { + if (attr & COB_SCREEN_BLINK) { styles |= A_BLINK; } if (attr & COB_SCREEN_UNDERLINE) { styles |= A_UNDERLINE; } - if (styles) { + + /* apply attributes */ + attrset (A_NORMAL); + if (styles != A_NORMAL) { attron (styles); } + + /* apply colors */ if (cob_has_color) { - short fg_color; - short bg_color; short color_pair_number; - fg_color = cob_to_curses_color (fgc, fore_color); - bg_color = cob_to_curses_color (bgc, back_color); + if (fg_color == -1) { + fg_color = fore_color; + } + if (bg_color == -1) { + bg_color = back_color; + } color_pair_number = cob_get_color_pair (fg_color, bg_color); cob_activate_color_pair (color_pair_number); } @@ -1112,10 +1383,10 @@ cob_screen_puts (cob_screen *s, cob_field *f, const cob_u32_t is_input, cob_current_y = line; cob_current_x = column; #if 0 /* RXWRXW - Attr */ - cob_screen_attr (s->foreg, s->backg, s->attr); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, stmt); #endif if (s->attr & COB_SCREEN_INPUT) { - cob_screen_attr (s->foreg, s->backg, s->attr, stmt); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, stmt); if (s->prompt) { default_prompt_char = s->prompt->data[0]; } else { @@ -1133,7 +1404,7 @@ cob_screen_puts (cob_screen *s, cob_field *f, const cob_u32_t is_input, } } } else if (!is_input) { - cob_screen_attr (s->foreg, s->backg, s->attr, stmt); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, stmt); cob_addnstr ((char *)f->data, (int)f->size); } else { column += (int)f->size; @@ -1714,7 +1985,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) if (status != ERR) { pending_accept = 0; } - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); /* position for the SPECIAL-NAMES CURSOR clause, if given */ { @@ -1727,7 +1998,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) curr_index = fld_index; SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); cob_move_cursor (cursor_clause_line, cursor_clause_col); } else { /* note: COBOL 2002 states that in this case the CURSOR clause is ignored, @@ -1818,7 +2089,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; move_to_initial_field_pos (s->field, sline, scolumn, right_pos, 0, &p); - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); continue; case KEY_BTAB: finalize_field_input (s); @@ -1832,7 +2103,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) at_eof = 0; move_to_initial_field_pos (s->field, sline, scolumn, right_pos, ungetched, &p); ungetched = 0; - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); continue; case KEY_UP: finalize_field_input (s); @@ -1841,7 +2112,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; move_to_initial_field_pos (s->field, sline, scolumn, right_pos, 0, &p); - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); continue; case KEY_DOWN: finalize_field_input (s); @@ -1850,7 +2121,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; move_to_initial_field_pos (s->field, sline, scolumn, right_pos, 0, &p); - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); continue; case KEY_HOME: finalize_field_input (s); @@ -1859,7 +2130,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; cob_move_cursor (sline, scolumn); - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); continue; case KEY_END: finalize_field_input (s); @@ -1868,7 +2139,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; cob_move_cursor (sline, scolumn); - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); continue; case KEY_BACKSPACE: /* Backspace key. */ @@ -2055,7 +2326,7 @@ cob_screen_get_all (const int initial_curs, const int accept_timeout) curr_index = fld_index; SET_FLD_AND_DATA_REFS (curr_index, sptr, s, sline, scolumn, right_pos, p); at_eof = 0; - cob_screen_attr (s->foreg, s->backg, s->attr, ACCEPT_STATEMENT); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, ACCEPT_STATEMENT); cob_move_cursor (mline, mcolumn); continue; } @@ -2329,7 +2600,7 @@ cob_prep_input (cob_screen *s) break; case COB_SCREEN_TYPE_ATTRIBUTE: #if 0 /* RXWRXW - Attr */ - cob_screen_attr (s->foreg, s->backg, s->attr); + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, stmt); #endif break; default: @@ -2362,7 +2633,7 @@ cob_screen_iterate (cob_screen *s) } break; case COB_SCREEN_TYPE_ATTRIBUTE: - cob_screen_attr (s->foreg, s->backg, s->attr, + cob_screen_attr (s->foreg, s->backg, s->attr, NULL, NULL, DISPLAY_STATEMENT); break; default: @@ -2398,6 +2669,8 @@ line_where_last_stmt_ended (const enum screen_statement stmt) return stmt == DISPLAY_STATEMENT ? display_cursor_y : accept_cursor_y; } +/* resolve line + column from COBOL variables (several combinations + sizes) + and store them in the passed sline/column */ static void extract_line_and_col_vals (cob_field *line, cob_field *column, const enum screen_statement stmt, @@ -2596,9 +2869,9 @@ screen_accept (cob_screen *s, const int line, const int column, } static void -field_display (cob_field *f, const int line, const int column, cob_field *fgc, - cob_field *bgc, cob_field *fscroll, cob_field *size_is, - const cob_flags_t fattr) +field_display (cob_field *f, cob_flags_t fattr, const int line, const int column, + cob_field *fgc, cob_field *bgc, cob_field *fscroll, + cob_field *size_is, cob_field *control, cob_field *color) { int sline; int scolumn; @@ -2655,7 +2928,8 @@ field_display (cob_field *f, const int line, const int column, cob_field *fgc, pending_accept = 1; } - cob_screen_attr (fgc, bgc, fattr, DISPLAY_STATEMENT); + cob_screen_attr (fgc, bgc, fattr, control, color, DISPLAY_STATEMENT); + if (!(fattr & COB_SCREEN_NO_DISP)) { /* figurative constant and WITH SIZE repeats the literal */ if (size_is @@ -2692,9 +2966,10 @@ field_display (cob_field *f, const int line, const int column, cob_field *fgc, } static void -field_accept (cob_field *f, const int sline, const int scolumn, cob_field *fgc, - cob_field *bgc, cob_field *fscroll, cob_field *ftimeout, - cob_field *prompt, cob_field *size_is, const cob_flags_t fattr) +field_accept (cob_field *f, cob_flags_t fattr, const int sline, const int scolumn, + cob_field *fgc, cob_field *bgc, cob_field *fscroll, cob_field *ftimeout, + cob_field *prompt, cob_field *size_is, cob_field *cursor, + cob_field *control, cob_field *color) { unsigned char *p; unsigned char *p2; @@ -2760,13 +3035,13 @@ field_accept (cob_field *f, const int sline, const int scolumn, cob_field *fgc, pending_accept = 0; } - cob_screen_attr (fgc, bgc, fattr, ACCEPT_STATEMENT); + cob_screen_attr (fgc, bgc, fattr, control, color, ACCEPT_STATEMENT); if (f) { if (size_is) { size_accept = cob_get_int (size_is); /* SIZE ZERO is ignored */ - if (size_accept == 0) { + if (size_accept < 1) { size_accept = (int)f->size; } } else { @@ -2784,26 +3059,61 @@ field_accept (cob_field *f, const int sline, const int scolumn, cob_field *fgc, } raise_ec_on_truncation (size_accept); - for (count = 0; count < (size_t) cob_min_int (size_accept, f->size); count++) { - if (fattr & COB_SCREEN_SECURE) { - cob_addch_no_trunc_check (COB_CH_AS); - } else if (fattr & COB_SCREEN_NO_ECHO) { - cob_addch_no_trunc_check (COB_CH_SP); - } else if (fattr & COB_SCREEN_UPDATE) { - cob_addch_no_trunc_check ((const chtype)*p++); - } else if (COB_FIELD_IS_NUMERIC (f)) { - cob_addch_no_trunc_check ('0'); - } else if (fattr & COB_SCREEN_PROMPT) { - cob_addch_no_trunc_check (default_prompt_char); - } else { - cob_addch_no_trunc_check (COB_CH_SP); + { + const size_t disp_size = (size_t)cob_min_int (size_accept, f->size); + const unsigned char *p_set = p; + for (count = 0; count < disp_size; count++) { + if (*p && *p != ' ') { + p_set = p; + } + if (fattr & COB_SCREEN_SECURE) { + cob_addch_no_trunc_check (COB_CH_AS); + } else if (fattr & COB_SCREEN_NO_ECHO) { + cob_addch_no_trunc_check (COB_CH_SP); + } else if (fattr & COB_SCREEN_UPDATE) { + cob_addch_no_trunc_check ((const chtype)*p++); + } else if (COB_FIELD_IS_NUMERIC (f)) { + cob_addch_no_trunc_check ('0'); + } else if (fattr & COB_SCREEN_PROMPT) { + cob_addch_no_trunc_check (default_prompt_char); + } else { + cob_addch_no_trunc_check (COB_CH_SP); + } + } + /* SIZE IS greater than field, blank out trailing screen */ + if (size_accept > (int)f->size) { + cob_addnch (size_accept - f->size, COB_CH_SP); + } + /* start position within the field, if specified (all 1-based) */ + { + int cursor_off = 1; + if (cursor) { + /* position according to CURSOR clause */ + cursor_off = cob_get_int (cursor); + if (cursor_off >= 1) { + /* max: last_position with data */ + int last_data = p_set - COB_TERM_BUFF + 1; + if (last_data < cursor_off) { + cursor_off = last_data; + } + } else { + cursor_off = 1; + } + } else { + /* position from the SPECIAL-NAMES CURSOR clause */ + int cursor_clause_line; + int cursor_clause_col; + get_cursor_from_program (&cursor_clause_line, &cursor_clause_col); + + if (cursor_clause_line == sline + && cursor_clause_col > scolumn + && cursor_clause_col < scolumn + disp_size) { + cursor_off = cursor_clause_col - scolumn + 1; + } + } + move (sline, scolumn + cursor_off - 1); } } - /* SIZE IS greater than field, blank out trailing screen */ - if (size_accept > (int)f->size) { - cob_addnch (size_accept - f->size, COB_CH_SP); - } - cob_move_cursor (sline, scolumn); #if 0 /* RXWRXW - Screen update */ if (!(fattr & COB_SCREEN_UPDATE)) { if (cob_field_is_numeric_or_numeric_edited (f)) { @@ -2814,22 +3124,10 @@ field_accept (cob_field *f, const int sline, const int scolumn, cob_field *fgc, } #endif + /* positioning for following ACCEPTs */ accept_cursor_y = sline; accept_cursor_x = scolumn + size_accept; - /* position for the SPECIAL-NAMES CURSOR clause, if given */ - { - int cursor_clause_line; - int cursor_clause_col; - get_cursor_from_program (&cursor_clause_line, &cursor_clause_col); - - if (cursor_clause_line == sline - && cursor_clause_col > scolumn - && cursor_clause_col < scolumn + (int)f->size) { - cob_move_cursor (cursor_clause_line, cursor_clause_col); - } - } - right_pos = scolumn + size_accept - 1; p = COB_TERM_BUFF; } else { @@ -3363,8 +3661,23 @@ field_accept (cob_field *f, const int sline, const int scolumn, cob_field *fgc, cob_beep (); } + field_return: - pass_cursor_to_program (); + /* return position within the field, if specified (all 1-based) */ + if (cursor) { + /* horizontal position stored in CURSOR clause */ + if (!COB_FIELD_CONSTANT (cursor)) { + int cline; + int ccolumn; + getyx (stdscr, cline, ccolumn); + if (cline == sline) { + cob_set_int (cursor, ccolumn + 1 - scolumn); + } + } + } else { + /* screen position stored in the SPECIAL-NAMES CURSOR clause */ + pass_cursor_to_program (); + } handle_status (fret, ACCEPT_STATEMENT); if (f) { cob_move (&temp_field, f); @@ -3388,7 +3701,8 @@ field_accept_from_curpos (cob_field *f, cob_field *fgc, getyx (stdscr, cline, ccolumn); /* accept field */ - field_accept (f, cline, ccolumn, fgc, bgc, fscroll, ftimeout, prompt, size_is, fattr); + field_accept (f, (cob_flags_t)fattr, cline, ccolumn, fgc, bgc, + fscroll, ftimeout, prompt, size_is, NULL, NULL, NULL); } static void @@ -3402,11 +3716,13 @@ field_display_at_curpos (cob_field *f, /* Get current line, column. */ getyx (stdscr, cline, ccolumn); - field_display (f, cline, ccolumn, fgc, bgc, fscroll, size_is, fattr); + field_display (f, (cob_flags_t)fattr, cline, ccolumn, + fgc, bgc, fscroll, size_is, NULL, NULL); } /* Global functions */ +/* DISPLAY scr-name */ void cob_screen_display (cob_screen *s, cob_field *line, cob_field *column, const int zero_line_col_allowed) @@ -3416,9 +3732,11 @@ cob_screen_display (cob_screen *s, cob_field *line, cob_field *column, init_cob_screen_if_needed (); extract_line_and_col_vals (line, column, DISPLAY_STATEMENT, - zero_line_col_allowed, &sline, &scolumn); + zero_line_col_allowed, &sline, &scolumn); screen_display (s, sline, scolumn); } + +/* ACCEPT scr-name */ void cob_screen_accept (cob_screen *s, cob_field *line, cob_field *column, cob_field *ftimeout, const int zero_line_col_allowed) @@ -3427,46 +3745,201 @@ cob_screen_accept (cob_screen *s, cob_field *line, cob_field *column, int scolumn; extract_line_and_col_vals (line, column, ACCEPT_STATEMENT, - zero_line_col_allowed, &sline, &scolumn); + zero_line_col_allowed, &sline, &scolumn); screen_accept (s, sline, scolumn, ftimeout); } +/* DISPLAY scr-item WITH/AT */ +void +cob_display_field (cob_field *f, const cob_flags_t fattr, const char *parms, ...) +{ + cob_field *line = NULL; + cob_field *column = NULL; + cob_field *fgc = NULL; + cob_field *bgc = NULL; + cob_field *fscroll = NULL; + cob_field *size_is = NULL; + cob_field *control = NULL; + cob_field *color = NULL; + + /* + LINE/COL 0 is always allowed here as it is impossible to specify it in + the standard format (DISPLAY ... UPON CRT) and all implementations of + the extended screen format (DISPLAY ... WITH UNDERLINE, HIGHLIGHT, etc.) + require it. + */ + const int zero_line_col_allowed = 1; + + int sline; + int scolumn; + + va_list args; + const char *p = parms; + + va_start (args, parms); + for (;;) { + char type = *p++; + if (type == 0) { + break; + } + switch (type) { + case 'p': /* AT POS, currently combined, likely to be changed later */ + case 'l': /* AT LINE */ + line = va_arg (args, cob_field *); + break; + case 'c': /* AT COLUMN */ + column = va_arg (args, cob_field *); + break; + case 'f': /* FOREGROUND-COLOR IS */ + fgc = va_arg (args, cob_field *); + break; + case 'b': /* BACKGROUND-COLOR IS */ + bgc = va_arg (args, cob_field *); + break; + case 's': /* SCROLL UP | DOWN */ + fscroll = va_arg (args, cob_field *); + break; + case 'S': /* SIZE IS */ + size_is = va_arg (args, cob_field *); + break; + case 'C': /* CONTROL -> variable named attributes */ + control = va_arg (args, cob_field *); + break; + case 'L': /* CONTROL -> variable numeric added attributes */ + color = va_arg (args, cob_field *); + break; + default: + /* unknown attributes are explicit ignored */ + break; + } + parms++; + } + va_end (args); + + init_cob_screen_if_needed (); + + extract_line_and_col_vals (line, column, DISPLAY_STATEMENT, + zero_line_col_allowed, &sline, &scolumn); + field_display (f, fattr, sline, scolumn, fgc, bgc, + fscroll, size_is, control, color); +} + +/* ACCEPT scr-item WITH/AT */ +void +cob_accept_field (cob_field *f, const cob_flags_t fattr, const char *parms, ...) +{ + cob_field *line = NULL; + cob_field *column = NULL; + cob_field *fgc = NULL; + cob_field *bgc = NULL; + cob_field *fscroll = NULL; + cob_field *ftimeout = NULL; + cob_field *prompt = NULL; + cob_field *size_is = NULL; + cob_field *control = NULL; + cob_field *color = NULL; + cob_field *cursor = NULL; + + const int zero_line_col_allowed = 1; /* see comment in cob_display_field */ + + int sline; + int scolumn; + + va_list args; + const char *p = parms; + + va_start (args, parms); + for (;;) { + char type = *p++; + if (type == 0) { + break; + } + switch (type) { + case 'p': /* AT POS, currently combined, likely to be changed later */ + case 'l': /* AT LINE */ + line = va_arg (args, cob_field *); + break; + case 'c': /* AT COLUMN */ + column = va_arg (args, cob_field *); + break; + case 'f': /* FOREGROUND-COLOR IS */ + fgc = va_arg (args, cob_field *); + break; + case 'b': /* BACKGROUND-COLOR IS */ + bgc = va_arg (args, cob_field *); + break; + case 's': /* SCROLL UP | DOWN */ + fscroll = va_arg (args, cob_field *); + break; + case 't': /* TIME-OUT [AFTER] */ + ftimeout = va_arg (args, cob_field *); + break; + case 'P': /* PROMPT CHARACTER OS */ + prompt = va_arg (args, cob_field *); + break; + case 'S': /* SIZE IS */ + size_is = va_arg (args, cob_field *); + break; + case 'C': /* CONTROL -> variable named attributes */ + control = va_arg (args, cob_field *); + break; + case 'L': /* CONTROL -> variable numeric added attributes */ + color = va_arg (args, cob_field *); + break; + case 'R': /* CURSOR -> offset within field */ + cursor = va_arg (args, cob_field *); + break; + default: + /* unknown attributes are explicit ignored */ + break; + } + parms++; + } + va_end (args); + + extract_line_and_col_vals (line, column, ACCEPT_STATEMENT, + zero_line_col_allowed, &sline, &scolumn); + field_accept (f, fattr, sline, scolumn, fgc, bgc, + fscroll, ftimeout, prompt, size_is, cursor, control, color); +} + +/* DISPLAY scr-item WITH/AT - compat-function for < 3.2 */ void cob_field_display (cob_field *f, cob_field *line, cob_field *column, - cob_field *fgc, cob_field *bgc, cob_field *fscroll, - cob_field *size_is, const cob_flags_t fattr) + cob_field *fgc, cob_field *bgc, cob_field *fscroll, + cob_field *size_is, const cob_flags_t fattr) { + const int zero_line_col_allowed = 1; /* see comment in cob_display_field */ + int sline; int scolumn; init_cob_screen_if_needed (); - /* - LINE/COL 0 is always allowed as it is impossible to specify it in the - standard format (DISPLAY ... UPON CRT) and all implementations of the - extended screen format (DISPLAY ... WITH UNDERLINE, HIGHLIGHT, etc.) - require it. - */ - extract_line_and_col_vals (line, column, DISPLAY_STATEMENT, 1, &sline, - &scolumn); - field_display (f, sline, scolumn, fgc, bgc, fscroll, size_is, fattr); + extract_line_and_col_vals (line, column, DISPLAY_STATEMENT, + zero_line_col_allowed, &sline, &scolumn); + field_display (f, (cob_flags_t)fattr, sline, scolumn, fgc, bgc, + fscroll, size_is, NULL, NULL); } +/* ACCEPT scr-item WITH/AT - compat-function for < 3.2 */ void cob_field_accept (cob_field *f, cob_field *line, cob_field *column, cob_field *fgc, cob_field *bgc, cob_field *fscroll, cob_field *ftimeout, cob_field *prompt, cob_field *size_is, const cob_flags_t fattr) { + const int zero_line_col_allowed = 1; /* see comment in cob_display_field */ + int sline; int scolumn; - /* See above comment in cob_field_display. */ - extract_line_and_col_vals (line, column, ACCEPT_STATEMENT, 1, &sline, - &scolumn); - field_accept (f, sline, scolumn, fgc, bgc, fscroll, ftimeout, prompt, - size_is, fattr); + extract_line_and_col_vals (line, column, ACCEPT_STATEMENT, + zero_line_col_allowed, &sline, &scolumn); + field_accept (f, (cob_flags_t)fattr, sline, scolumn, fgc, bgc, + fscroll, ftimeout, prompt, size_is, NULL, NULL, NULL); } +/* x'E4' system call - clear screen */ int cob_sys_clear_screen (void) { @@ -3479,18 +3952,27 @@ cob_sys_clear_screen (void) return 0; } +/* internal function to temporarily set "extended screen mode" + to either on=1 or off=0; + note: does _not_ adjust cob_screen_initialized */ void cob_screen_set_mode (const cob_u32_t smode) { - init_cob_screen_if_needed (); + /* note: called internally only, so no need to check for cobglobptr */ if (!smode) { - refresh (); - def_prog_mode (); - endwin (); + if (cobglobptr->cob_screen_initialized) { + refresh (); + def_prog_mode (); + endwin (); + } } else { - reset_prog_mode (); - refresh (); + if (cobglobptr->cob_screen_initialized) { + reset_prog_mode (); + refresh (); + } else { + cob_screen_init (); + } } } @@ -3556,7 +4038,7 @@ cob_get_text (char *text, int size) COB_ATTR_INIT (COB_TYPE_ALPHANUMERIC, 0, 0, 0, NULL); field_accept_from_curpos (&field, NULL, NULL, NULL, NULL, NULL, NULL, 0); } else { - field_accept (NULL, 0, 0, NULL, NULL, NULL, NULL, NULL, NULL, 0); + field_accept (NULL, 0, 0, 0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL); } return COB_ACCEPT_STATUS; @@ -3689,39 +4171,30 @@ cob_exit_screen_from_signal (int signal_safe_only) COB_UNUSED (signal_safe_only); } +/* DISPLAY scr-name */ void -cob_field_display (cob_field *f, cob_field *line, cob_field *column, - cob_field *fgc, cob_field *bgc, cob_field *fscroll, - cob_field *size_is, const cob_flags_t fattr) +cob_screen_display (cob_screen *s, cob_field *line, cob_field *column, + const int zero_line_col_allowed) { - COB_UNUSED (f); + COB_UNUSED (s); COB_UNUSED (line); COB_UNUSED (column); - COB_UNUSED (fgc); - COB_UNUSED (bgc); - COB_UNUSED (fscroll); - COB_UNUSED (size_is); - COB_UNUSED (fattr); + COB_UNUSED (zero_line_col_allowed); handle_status (9000, DISPLAY_STATEMENT); } +/* ACCEPT scr-name */ void -cob_field_accept (cob_field *f, cob_field *line, cob_field *column, - cob_field *fgc, cob_field *bgc, cob_field *fscroll, - cob_field *ftimeout, cob_field *prompt, - cob_field *size_is, const cob_flags_t fattr) +cob_screen_accept (cob_screen *s, cob_field *line, + cob_field *column, cob_field *ftimeout, + const int zero_line_col_allowed) { static int first_accept = 1; - COB_UNUSED (f); + COB_UNUSED (s); COB_UNUSED (line); COB_UNUSED (column); - COB_UNUSED (fgc); - COB_UNUSED (bgc); - COB_UNUSED (fscroll); COB_UNUSED (ftimeout); - COB_UNUSED (prompt); - COB_UNUSED (size_is); - COB_UNUSED (fattr); + COB_UNUSED (zero_line_col_allowed); if (first_accept) { first_accept = 0; cob_runtime_warning (_("runtime is not configured to support %s"), @@ -3730,28 +4203,24 @@ cob_field_accept (cob_field *f, cob_field *line, cob_field *column, handle_status (9000, ACCEPT_STATEMENT); } +/* DISPLAY scr-item WITH/AT */ void -cob_screen_display (cob_screen *s, cob_field *line, cob_field *column, - const int zero_line_col_allowed) +cob_display_field (cob_field *f, const cob_flags_t fattr, const char * parms, ...) { - COB_UNUSED (s); - COB_UNUSED (line); - COB_UNUSED (column); - COB_UNUSED (zero_line_col_allowed); + COB_UNUSED (f); + COB_UNUSED (fattr); + COB_UNUSED (parms); handle_status (9000, DISPLAY_STATEMENT); } +/* ACCEPT scr-item WITH/AT */ void -cob_screen_accept (cob_screen *s, cob_field *line, - cob_field *column, cob_field *ftimeout, - const int zero_line_col_allowed) +cob_accept_field (cob_field *f, const cob_flags_t fattr, const char *parms, ...) { static int first_accept = 1; - COB_UNUSED (s); - COB_UNUSED (line); - COB_UNUSED (column); - COB_UNUSED (ftimeout); - COB_UNUSED (zero_line_col_allowed); + COB_UNUSED (f); + COB_UNUSED (fattr); + COB_UNUSED (parms); if (first_accept) { first_accept = 0; cob_runtime_warning (_("runtime is not configured to support %s"), @@ -3760,6 +4229,42 @@ cob_screen_accept (cob_screen *s, cob_field *line, handle_status (9000, ACCEPT_STATEMENT); } +/* DISPLAY scr-item WITH/AT - compat-function for < 3.2 */ +void +cob_field_display (cob_field *f, cob_field *line, cob_field *column, + cob_field *fgc, cob_field *bgc, cob_field *fscroll, + cob_field *size_is, const cob_flags_t fattr) +{ + COB_UNUSED (line); + COB_UNUSED (column); + COB_UNUSED (fgc); + COB_UNUSED (bgc); + COB_UNUSED (fscroll); + COB_UNUSED (size_is); + cob_display_field (f, fattr, ""); +} + +/* ACCEPT scr-item WITH/AT - compat-function for < 3.2 */ +void +cob_field_accept (cob_field *f, cob_field *line, cob_field *column, + cob_field *fgc, cob_field *bgc, cob_field *fscroll, + cob_field *ftimeout, cob_field *prompt, + cob_field *size_is, const cob_flags_t fattr) +{ + COB_UNUSED (line); + COB_UNUSED (column); + COB_UNUSED (fgc); + COB_UNUSED (bgc); + COB_UNUSED (fscroll); + COB_UNUSED (ftimeout); + COB_UNUSED (prompt); + COB_UNUSED (size_is); + cob_accept_field (f, fattr, ""); +} + +/* internal function to temporarily set "extended screen mode" + to either on=1 or off=0; + note: does _not_ adjust cob_screen_initialized */ void cob_screen_set_mode (const cob_u32_t smode) { @@ -3767,30 +4272,31 @@ cob_screen_set_mode (const cob_u32_t smode) /* TODO: raise exception */ } +/* x'E4' system call - clear screen */ int cob_sys_clear_screen (void) { /* TODO: raise exception */ - return 0; + return 0; /* CHECKME: Should likely set an error code */ } #endif /* WITH_EXTENDED_SCREENIO */ void -cob_screen_line_col (cob_field *f, const int l_or_c) +cob_screen_line_col (cob_field *f, const int get_columns) { init_cob_screen_if_needed (); #ifdef WITH_EXTENDED_SCREENIO - if (!l_or_c) { - cob_set_int (f, (int)LINES); - } else { + if (get_columns) { cob_set_int (f, (int)COLS); + } else { + cob_set_int (f, (int)LINES); } #else - if (!l_or_c) { - cob_set_int (f, 24); - } else { + if (get_columns) { cob_set_int (f, 80); + } else { + cob_set_int (f, 24); } /* TODO: _possibly_ raise exception */ #endif @@ -4087,7 +4593,6 @@ cob_settings_screenio (void) #endif } - void cob_init_screenio (cob_global *lptr, cob_settings *sptr) { diff --git a/libcob/strings.c b/libcob/strings.c index 7e631e35..488aa900 100644 --- a/libcob/strings.c +++ b/libcob/strings.c @@ -475,10 +475,10 @@ cob_inspect_init_common (cob_field *var) if (COB_FIELD_HAVE_SIGN (var) && !COB_FIELD_SIGN_SEPARATE(var)) { /* it is allowed to TRANSFORM / INSPECT a numeric display signed element; if it isn't stored separately we need to "remove" it here and add it back - in inspect_finish */ + in inspect_finish; note: we only handle NUMERIC DISPLAY here */ inspect_var_copy = *var; inspect_var = &inspect_var_copy; - inspect_sign = cob_real_get_sign (var); + inspect_sign = cob_real_get_sign (var, 0); } else { inspect_var = NULL; } diff --git a/tests/testsuite.src/data_packed.at b/tests/testsuite.src/data_packed.at index d29f3153..75fd3d2e 100644 --- a/tests/testsuite.src/data_packed.at +++ b/tests/testsuite.src/data_packed.at @@ -1668,7 +1668,7 @@ AT_DATA([prog.cob], [ LENGTH OF WRK-DS-LS-1P17-1 ".". DISPLAY "MOVE A-E : " WRK-AE-3 ".". IF WRK-AE-3 NOT EQUAL TO "1 000/000/000/000/000 00" - DISPLAY "MOVE 1P17 failed: " WRK-AE-3. + DISPLAY "MOVE 1P17 TO A-E failed". DISPLAY "INIT X-1 : " X-1 " .". DISPLAY "INIT X-2 : " X-2 " .". DISPLAY "INIT X-4 : " X-4 " .". @@ -1884,1999 +1884,1999 @@ AT_DATA([prog.cob], [ * DATA-AREA 77 FLD0001A PIC 9(08)V9(19) COMP-3 - VALUE 72210483.5706116943150334464. + VALUE 72210483.5706116943150334464. 77 FLD0001C PIC 9(01) COMP-6. 77 FLD0002A PIC 9(05)V9(26) COMP-6 - VALUE 83954.98773698940597753903603006. + VALUE 83954.98773698940597753903603006. 77 FLD0002C PIC 9(05)V9(27) COMP-6. 77 FLD0003A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0003C PIC 9(10)V9(08) COMP-6. 77 FLD0004A PIC S9(08)V9(03) COMP-3 - VALUE +31348416.669. + VALUE +31348416.669. 77 FLD0004C PIC 9(05)V9(01) COMP-6. 77 FLD0005A PIC S9(07)V9(01) COMP-3 - VALUE +2337334.8. + VALUE +2337334.8. 77 FLD0005C PIC S9(09)V9(03) COMP-3. 77 FLD0006A PIC 9(04) COMP-6 - VALUE 1169. + VALUE 1169. 77 FLD0006C PIC 9(03)V9(31) COMP-3. 77 FLD0007A PIC S9(04) COMP-3 - VALUE +1123. + VALUE +1123. 77 FLD0007C PIC S9(08)V9(02) COMP-3. 77 FLD0008A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0008C PIC S9(03) COMP-3. 77 FLD0009A PIC 9(10)V9(07) COMP-6 - VALUE 4695987895.4491957. + VALUE 4695987895.4491957. 77 FLD0009C PIC 9(05)V9(28) COMP-3. 77 FLD0010A PIC 9(03)V9(32) COMP-3 - VALUE 932.59120224122482589734772773226723. + VALUE 932.59120224122482589734772773226723. 77 FLD0010C PIC S9(09)V9(06) COMP-3. 77 FLD0011A PIC 9(09)V9(04) COMP-6 - VALUE 356168291.4830. + VALUE 356168291.4830. 77 FLD0011C PIC 9(04)V9(29) COMP-6. 77 FLD0012A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0012C PIC 9(08)V9(19) COMP-3. 77 FLD0013A PIC 9(06)V9(25) COMP-6 - VALUE 829630.0004717120923913853403064. + VALUE 829630.0004717120923913853403064. 77 FLD0013C PIC 9(07)V9(02) COMP-6. 77 FLD0014A PIC 9(09)V9(13) COMP-3 - VALUE 592943121.2490873237541. + VALUE 592943121.2490873237541. 77 FLD0014C PIC 9(06)V9(01) COMP-6. 77 FLD0015A PIC 9(07)V9(23) COMP-6 - VALUE 7984732.71412134533164817185024. + VALUE 7984732.71412134533164817185024. 77 FLD0015C PIC 9(10)V9(08) COMP-6. 77 FLD0016A PIC 9(05)V9(28) COMP-3 - VALUE 87275.9557853607148558694461826235. + VALUE 87275.9557853607148558694461826235. 77 FLD0016C PIC S9(10)V9(06) COMP-3. 77 FLD0017A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0017C PIC 9(04)V9(30) COMP-6. 77 FLD0018A PIC 9(07)V9(21) COMP-3 - VALUE 7619026.805277494540646898713. + VALUE 7619026.805277494540646898713. 77 FLD0018C PIC S9(01) COMP-3. 77 FLD0019A PIC S9(10)V9(08) COMP-3 - VALUE -4930528885.68236813. + VALUE -4930528885.68236813. 77 FLD0019C PIC S9(09)V9(06) COMP-3. 77 FLD0020A PIC 9(09)V9(15) COMP-3 - VALUE 643887452.720044328735582. + VALUE 643887452.720044328735582. 77 FLD0020C PIC 9(09)V9(11) COMP-3. 77 FLD0021A PIC 9(01)V9(36) COMP-6 - VALUE 9.880441680787707126043528660375159233. + VALUE 9.880441680787707126043528660375159233. 77 FLD0021C PIC S9(01) COMP-3. 77 FLD0022A PIC 9(06)V9(24) COMP-3 - VALUE 810040.192546636172998830716096. + VALUE 810040.192546636172998830716096. 77 FLD0022C PIC 9(07)V9(21) COMP-3. 77 FLD0023A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0023C PIC 9(02)V9(34) COMP-3. 77 FLD0024A PIC 9(09)V9(03) COMP-6 - VALUE 329406009.124. + VALUE 329406009.124. 77 FLD0024C PIC S9(09)V9(06) COMP-3. 77 FLD0025A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0025C PIC 9(07)V9(02) COMP-6. 77 FLD0026A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0026C PIC S9(09)V9(05) COMP-3. 77 FLD0027A PIC 9(09)V9(13) COMP-3 - VALUE 601026867.0937520818498. + VALUE 601026867.0937520818498. 77 FLD0027C PIC 9(06)V9(25) COMP-6. 77 FLD0028A PIC 9(04)V9(29) COMP-6 - VALUE 8794.72782911061568000832266989164. + VALUE 8794.72782911061568000832266989164. 77 FLD0028C PIC S9(01) COMP-3. 77 FLD0029A PIC 9(05) COMP-6 - VALUE 13697. + VALUE 13697. 77 FLD0029C PIC 9(09)V9(17) COMP-3. 77 FLD0030A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0030C PIC 9(08)V9(18) COMP-3. 77 FLD0031A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0031C PIC 9(08)V9(18) COMP-3. 77 FLD0032A PIC 9(10)V9(10) COMP-6 - VALUE 5269599769.4606222516. + VALUE 5269599769.4606222516. 77 FLD0032C PIC S9(09)V9(03) COMP-3. 77 FLD0033A PIC 9(09)V9(15) COMP-3 - VALUE 641903038.069859710468278. + VALUE 641903038.069859710468278. 77 FLD0033C PIC 9(09)V9(03) COMP-6. 77 FLD0034A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0034C PIC S9(07)V9(01) COMP-3. 77 FLD0035A PIC 9(06)V9(25) COMP-6 - VALUE 816285.5924199176049782522568420. + VALUE 816285.5924199176049782522568420. 77 FLD0035C PIC 9(07)V9(01) COMP-6. 77 FLD0036A PIC 9(01)V9(36) COMP-6 - VALUE 9.789384107274801127829277902492322027. + VALUE 9.789384107274801127829277902492322027. 77 FLD0036C PIC 9(05)V9(27) COMP-6. 77 FLD0037A PIC 9(10)V9(11) COMP-6 - VALUE 5559560836.79804091701. + VALUE 5559560836.79804091701. 77 FLD0037C PIC S9(05) COMP-3. 77 FLD0038A PIC 9(02)V9(34) COMP-6 - VALUE 95.5897506417712539139586169767426326. + VALUE 95.5897506417712539139586169767426326. 77 FLD0038C PIC 9(06)V9(25) COMP-6. 77 FLD0039A PIC 9(04)V9(29) COMP-3 - VALUE 8933.20399454893721014059337903745. + VALUE 8933.20399454893721014059337903745. 77 FLD0039C PIC 9(06)V9(01) COMP-6. 77 FLD0040A PIC S9(06) COMP-3 - VALUE -162227. + VALUE -162227. 77 FLD0040C PIC S9(03) COMP-3. 77 FLD0041A PIC 9(09)V9(17) COMP-6 - VALUE 687709210.19485042879892944. + VALUE 687709210.19485042879892944. 77 FLD0041C PIC 9(10)V9(09) COMP-3. 77 FLD0042A PIC 9(07)V9(22) COMP-6 - VALUE 7680734.5400734650109342283030. + VALUE 7680734.5400734650109342283030. 77 FLD0042C PIC 9(10)V9(10) COMP-6. 77 FLD0043A PIC S9(08)V9(02) COMP-3 - VALUE -28038049.48. + VALUE -28038049.48. 77 FLD0043C PIC 9(04)V9(30) COMP-3. 77 FLD0044A PIC 9(06)V9(01) COMP-6 - VALUE 206224.3. + VALUE 206224.3. 77 FLD0044C PIC 9(09)V9(04) COMP-6. 77 FLD0045A PIC 9(08)V9(02) COMP-6 - VALUE 28592495.81. + VALUE 28592495.81. 77 FLD0045C PIC 9(09)V9(05) COMP-6. 77 FLD0046A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0046C PIC 9(05)V9(27) COMP-3. 77 FLD0047A PIC 9(08)V9(02) COMP-6 - VALUE 26966592.97. + VALUE 26966592.97. 77 FLD0047C PIC 9(10)V9(08) COMP-6. 77 FLD0048A PIC 9(05)V9(26) COMP-6 - VALUE 83962.84254838164429202151950448. + VALUE 83962.84254838164429202151950448. 77 FLD0048C PIC S9(05)V9(01) COMP-3. 77 FLD0049A PIC 9(09)V9(16) COMP-6 - VALUE 677621907.0336453320635428. + VALUE 677621907.0336453320635428. 77 FLD0049C PIC 9(01)V9(36) COMP-6. 77 FLD0050A PIC 9(09)V9(03) COMP-6 - VALUE 329667670.988. + VALUE 329667670.988. 77 FLD0050C PIC 9(09)V9(06) COMP-6. 77 FLD0051A PIC 9(09)V9(15) COMP-3 - VALUE 643375703.689413991348544. + VALUE 643375703.689413991348544. 77 FLD0051C PIC 9(04)V9(30) COMP-6. 77 FLD0052A PIC 9(09)V9(04) COMP-6 - VALUE 367200483.8576. + VALUE 367200483.8576. 77 FLD0052C PIC 9(09)V9(11) COMP-3. 77 FLD0053A PIC 9(07)V9(01) COMP-6 - VALUE 2260324.6. + VALUE 2260324.6. 77 FLD0053C PIC S9(09)V9(04) COMP-3. 77 FLD0054A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0054C PIC 9(09)V9(03) COMP-6. 77 FLD0055A PIC 9(09)V9(14) COMP-3 - VALUE 622232417.66982828604426. + VALUE 622232417.66982828604426. 77 FLD0055C PIC 9(08)V9(17) COMP-3. 77 FLD0056A PIC 9(07)V9(01) COMP-6 - VALUE 2161993.9. + VALUE 2161993.9. 77 FLD0056C PIC 9(08)V9(02) COMP-6. 77 FLD0057A PIC 9(03)V9(32) COMP-6 - VALUE 929.20878243011406638629523513372987. + VALUE 929.20878243011406638629523513372987. 77 FLD0057C PIC S9(02) COMP-3. 77 FLD0058A PIC 9(02)V9(34) COMP-6 - VALUE 96.6574119281082611010447180888149887. + VALUE 96.6574119281082611010447180888149887. 77 FLD0058C PIC S9(09)V9(04) COMP-3. 77 FLD0059A PIC 9(07)V9(02) COMP-6 - VALUE 2566438.61. + VALUE 2566438.61. 77 FLD0059C PIC 9(09)V9(14) COMP-6. 77 FLD0060A PIC 9(01)V9(36) COMP-6 - VALUE 9.888752946983269120906356874911580234. + VALUE 9.888752946983269120906356874911580234. 77 FLD0060C PIC 9(06) COMP-6. 77 FLD0061A PIC 9(03) COMP-6 - VALUE 095. + VALUE 095. 77 FLD0061C PIC 9(06)V9(25) COMP-6. 77 FLD0062A PIC 9(10)V9(11) COMP-6 - VALUE 5579259193.81647705819. + VALUE 5579259193.81647705819. 77 FLD0062C PIC 9(09)V9(13) COMP-3. 77 FLD0063A PIC S9(07)V9(01) COMP-3 - VALUE +2106925.6. + VALUE +2106925.6. 77 FLD0063C PIC 9(08)V9(19) COMP-3. 77 FLD0064A PIC 9(06)V9(25) COMP-6 - VALUE 828553.1635867423583263757791428. + VALUE 828553.1635867423583263757791428. 77 FLD0064C PIC S9(04) COMP-3. 77 FLD0065A PIC 9(08)V9(02) COMP-6 - VALUE 26934154.73. + VALUE 26934154.73. 77 FLD0065C PIC S9(04) COMP-3. 77 FLD0066A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0066C PIC 9(05)V9(27) COMP-3. 77 FLD0067A PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0067C PIC S9(01) COMP-3. 77 FLD0068A PIC 9(06)V9(25) COMP-6 - VALUE 838055.6814082209537986045688739. + VALUE 838055.6814082209537986045688739. 77 FLD0068C PIC 9(01) COMP-6. 77 FLD0069A PIC 9(10)V9(08) COMP-6 - VALUE 4880885916.76487937. + VALUE 4880885916.76487937. 77 FLD0069C PIC 9(03) COMP-6. 77 FLD0070A PIC 9(08)V9(18) COMP-6 - VALUE 69654747.914044090606466852. + VALUE 69654747.914044090606466852. 77 FLD0070C PIC S9(06)V9(01) COMP-3. 77 FLD0071A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0071C PIC 9(04) COMP-6. 77 FLD0072A PIC 9(01)V9(36) COMP-3 - VALUE 9.925387953744267965916492357791867107. + VALUE 9.925387953744267965916492357791867107. 77 FLD0072C PIC 9(09)V9(15) COMP-6. 77 FLD0073A PIC 9(01)V9(36) COMP-3 - VALUE 9.812328554525302504174533169134519994. + VALUE 9.812328554525302504174533169134519994. 77 FLD0073C PIC 9(08)V9(18) COMP-6. 77 FLD0074A PIC 9(03)V9(32) COMP-6 - VALUE 925.84903592679257400277492706663906. + VALUE 925.84903592679257400277492706663906. 77 FLD0074C PIC 9(01)V9(36) COMP-3. 77 FLD0075A PIC 9(10)V9(10) COMP-3 - VALUE 5446083738.8683014381. + VALUE 5446083738.8683014381. 77 FLD0075C PIC S9(07)V9(01) COMP-3. 77 FLD0076A PIC S9(07)V9(02) COMP-3 - VALUE +2412584.18. + VALUE +2412584.18. 77 FLD0076C PIC 9(02)V9(34) COMP-3. 77 FLD0077A PIC 9(10)V9(08) COMP-6 - VALUE 4971042025.86989840. + VALUE 4971042025.86989840. 77 FLD0077C PIC 9(05)V9(28) COMP-6. 77 FLD0078A PIC 9(06)V9(01) COMP-6 - VALUE 186044.2. + VALUE 186044.2. 77 FLD0078C PIC 9(10)V9(10) COMP-6. 77 FLD0079A PIC 9(09)V9(15) COMP-6 - VALUE 638119223.314542294289708. + VALUE 638119223.314542294289708. 77 FLD0079C PIC S9(03) COMP-3. 77 FLD0080A PIC 9(07)V9(23) COMP-3 - VALUE 7905587.67133311302011122734256. + VALUE 7905587.67133311302011122734256. 77 FLD0080C PIC S9(09)V9(04) COMP-3. 77 FLD0081A PIC 9(01)V9(36) COMP-6 - VALUE 9.951308658902108250643436804239172488. + VALUE 9.951308658902108250643436804239172488. 77 FLD0081C PIC 9(09)V9(04) COMP-6. 77 FLD0082A PIC S9(08)V9(02) COMP-3 - VALUE -26324419.10. + VALUE -26324419.10. 77 FLD0082C PIC 9(07)V9(22) COMP-6. 77 FLD0083A PIC 9(09)V9(14) COMP-3 - VALUE 631384121.39469823891602. + VALUE 631384121.39469823891602. 77 FLD0083C PIC S9(07)V9(02) COMP-3. 77 FLD0084A PIC 9(04)V9(29) COMP-3 - VALUE 8913.08379718931953483718189090723. + VALUE 8913.08379718931953483718189090723. 77 FLD0084C PIC 9(09)V9(06) COMP-6. 77 FLD0085A PIC 9(05) COMP-6 - VALUE 15779. + VALUE 15779. 77 FLD0085C PIC 9(10)V9(06) COMP-6. 77 FLD0086A PIC 9(01)V9(36) COMP-6 - VALUE 9.766547774737049936177868403319735080. + VALUE 9.766547774737049936177868403319735080. 77 FLD0086C PIC 9(10)V9(11) COMP-3. 77 FLD0087A PIC 9(09)V9(14) COMP-6 - VALUE 617158605.01368802193411. + VALUE 617158605.01368802193411. 77 FLD0087C PIC 9(04) COMP-6. 77 FLD0088A PIC 9(10)V9(12) COMP-3 - VALUE 5809468198.000283800652. + VALUE 5809468198.000283800652. 77 FLD0088C PIC 9(09)V9(03) COMP-6. 77 FLD0089A PIC 9(06)V9(24) COMP-3 - VALUE 802942.222446262787727278009697. + VALUE 802942.222446262787727278009697. 77 FLD0089C PIC 9(03)V9(31) COMP-3. 77 FLD0090A PIC S9(08)V9(02) COMP-3 - VALUE -28271627.31. + VALUE -28271627.31. 77 FLD0090C PIC S9(08)V9(03) COMP-3. 77 FLD0091A PIC 9(09)V9(07) COMP-6 - VALUE 438808038.0901770. + VALUE 438808038.0901770. 77 FLD0091C PIC 9(08)V9(18) COMP-6. 77 FLD0092A PIC S9(07)V9(01) COMP-3 - VALUE +2146587.0. + VALUE +2146587.0. 77 FLD0092C PIC 9(06)V9(25) COMP-6. 77 FLD0093A PIC 9(06)V9(25) COMP-3 - VALUE 831848.6927757260396276706160278. + VALUE 831848.6927757260396276706160278. 77 FLD0093C PIC 9(07)V9(23) COMP-3. 77 FLD0094A PIC 9(07)V9(01) COMP-6 - VALUE 2260698.5. + VALUE 2260698.5. 77 FLD0094C PIC 9(10)V9(10) COMP-3. 77 FLD0095A PIC 9(07)V9(22) COMP-6 - VALUE 7681159.7607563408818265315858. + VALUE 7681159.7607563408818265315858. 77 FLD0095C PIC 9(06)V9(25) COMP-6. 77 FLD0096A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0096C PIC 9(05)V9(28) COMP-6. 77 FLD0097A PIC 9(03) COMP-6 - VALUE 085. + VALUE 085. 77 FLD0097C PIC 9(07)V9(22) COMP-6. 77 FLD0098A PIC 9(05)V9(28) COMP-6 - VALUE 87637.1310136299430659789777564583. + VALUE 87637.1310136299430659789777564583. 77 FLD0098C PIC 9(08)V9(04) COMP-6. 77 FLD0099A PIC S9(10)V9(08) COMP-3 - VALUE -4946809917.70565292. + VALUE -4946809917.70565292. 77 FLD0099C PIC S9(08)V9(03) COMP-3. 77 FLD0100A PIC 9(10)V9(09) COMP-3 - VALUE 5148281813.288457797. + VALUE 5148281813.288457797. 77 FLD0100C PIC 9(09)V9(14) COMP-6. 77 FLD0101A PIC S9(07)V9(02) COMP-3 - VALUE -2605358.58. + VALUE -2605358.58. 77 FLD0101C PIC S9(07)V9(02) COMP-3. 77 FLD0102A PIC 9(05) COMP-6 - VALUE 13880. + VALUE 13880. 77 FLD0102C PIC 9(09)V9(14) COMP-6. 77 FLD0103A PIC 9(03)V9(32) COMP-6 - VALUE 929.51599988912647631877916865050792. + VALUE 929.51599988912647631877916865050792. 77 FLD0103C PIC 9(01) COMP-6. 77 FLD0104A PIC 9(07)V9(01) COMP-6 - VALUE 2254306.3. + VALUE 2254306.3. 77 FLD0104C PIC S9(10)V9(08) COMP-3. 77 FLD0105A PIC S9(08)V9(03) COMP-3 - VALUE -29081388.428. + VALUE -29081388.428. 77 FLD0105C PIC 9(08)V9(02) COMP-6. 77 FLD0106A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0106C PIC S9(08)V9(02) COMP-3. 77 FLD0107A PIC 9(09)V9(16) COMP-6 - VALUE 677462443.7557797973497031. + VALUE 677462443.7557797973497031. 77 FLD0107C PIC 9(08)V9(19) COMP-6. 77 FLD0108A PIC 9(09)V9(14) COMP-3 - VALUE 610210882.31341436003418. + VALUE 610210882.31341436003418. 77 FLD0108C PIC S9(08)V9(02) COMP-3. 77 FLD0109A PIC S9(04) COMP-3 - VALUE +1136. + VALUE +1136. 77 FLD0109C PIC 9(04)V9(30) COMP-3. 77 FLD0110A PIC 9(07)V9(23) COMP-3 - VALUE 7940109.55673497886841971649118. + VALUE 7940109.55673497886841971649118. 77 FLD0110C PIC 9(08)V9(18) COMP-6. 77 FLD0111A PIC 9(09)V9(03) COMP-6 - VALUE 326472185.831. + VALUE 326472185.831. 77 FLD0111C PIC 9(10)V9(09) COMP-6. 77 FLD0112A PIC 9(08)V9(19) COMP-3 - VALUE 71238052.4624002697819946661. + VALUE 71238052.4624002697819946661. 77 FLD0112C PIC S9(08)V9(02) COMP-3. 77 FLD0113A PIC 9(04)V9(30) COMP-6 - VALUE 9092.566324157485002643852567416615. + VALUE 9092.566324157485002643852567416615. 77 FLD0113C PIC 9(04) COMP-6. 77 FLD0114A PIC 9(09)V9(07) COMP-6 - VALUE 437805064.1539988. + VALUE 437805064.1539988. 77 FLD0114C PIC 9(05)V9(01) COMP-6. 77 FLD0115A PIC 9(02)V9(34) COMP-3 - VALUE 96.2362934933669089687668929400388151. + VALUE 96.2362934933669089687668929400388151. 77 FLD0115C PIC S9(08)V9(03) COMP-3. 77 FLD0116A PIC 9(07)V9(22) COMP-3 - VALUE 7646463.4359510952332783517704. + VALUE 7646463.4359510952332783517704. 77 FLD0116C PIC 9(01) COMP-6. 77 FLD0117A PIC 9(09)V9(14) COMP-6 - VALUE 617509561.34001855346582. + VALUE 617509561.34001855346582. 77 FLD0117C PIC 9(05) COMP-6. 77 FLD0118A PIC 9(10)V9(10) COMP-3 - VALUE 5408402726.5490597358. + VALUE 5408402726.5490597358. 77 FLD0118C PIC S9(03) COMP-3. 77 FLD0119A PIC S9(08)V9(03) COMP-3 - VALUE +30078875.458. + VALUE +30078875.458. 77 FLD0119C PIC 9(07)V9(02) COMP-6. 77 FLD0120A PIC 9(06)V9(25) COMP-3 - VALUE 830160.1137616416714593015058198. + VALUE 830160.1137616416714593015058198. 77 FLD0120C PIC S9(02) COMP-3. 77 FLD0121A PIC S9(07)V9(01) COMP-3 - VALUE +2338292.2. + VALUE +2338292.2. 77 FLD0121C PIC S9(09)V9(03) COMP-3. 77 FLD0122A PIC S9(06)V9(01) COMP-3 - VALUE -184951.8. + VALUE -184951.8. 77 FLD0122C PIC 9(08)V9(02) COMP-6. 77 FLD0123A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0123C PIC 9(07)V9(21) COMP-3. 77 FLD0124A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0124C PIC S9(10)V9(06) COMP-3. 77 FLD0125A PIC 9(04)V9(29) COMP-3 - VALUE 8800.31826789913984576685379579430. + VALUE 8800.31826789913984576685379579430. 77 FLD0125C PIC 9(09)V9(15) COMP-6. 77 FLD0126A PIC 9(06)V9(24) COMP-6 - VALUE 807990.071015203703552742808824. + VALUE 807990.071015203703552742808824. 77 FLD0126C PIC 9(07)V9(01) COMP-6. 77 FLD0127A PIC 9(04)V9(30) COMP-6 - VALUE 8981.860178820127993404298649693373. + VALUE 8981.860178820127993404298649693373. 77 FLD0127C PIC 9(05)V9(28) COMP-6. 77 FLD0128A PIC 9(10)V9(06) COMP-6 - VALUE 4298489587.591516. + VALUE 4298489587.591516. 77 FLD0128C PIC 9(08)V9(02) COMP-6. 77 FLD0129A PIC S9(08)V9(04) COMP-3 - VALUE +33460508.1048. + VALUE +33460508.1048. 77 FLD0129C PIC 9(09)V9(14) COMP-6. 77 FLD0130A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0130C PIC 9(08)V9(03) COMP-6. 77 FLD0131A PIC 9(08)V9(02) COMP-6 - VALUE 26916210.05. + VALUE 26916210.05. 77 FLD0131C PIC 9(08)V9(18) COMP-6. 77 FLD0132A PIC 9(04) COMP-6 - VALUE 1270. + VALUE 1270. 77 FLD0132C PIC 9(07)V9(01) COMP-6. 77 FLD0133A PIC 9(01)V9(36) COMP-6 - VALUE 9.890353542063604619372085835493635386. + VALUE 9.890353542063604619372085835493635386. 77 FLD0133C PIC S9(07)V9(02) COMP-3. 77 FLD0134A PIC 9(08)V9(18) COMP-3 - VALUE 70385499.741438917187252855. + VALUE 70385499.741438917187252855. 77 FLD0134C PIC 9(09)V9(16) COMP-3. 77 FLD0135A PIC 9(10)V9(07) COMP-6 - VALUE 4678335500.0128495. + VALUE 4678335500.0128495. 77 FLD0135C PIC 9(07)V9(02) COMP-6. 77 FLD0136A PIC S9(05) COMP-3 - VALUE -15169. + VALUE -15169. 77 FLD0136C PIC 9(08)V9(19) COMP-3. 77 FLD0137A PIC S9(08)V9(02) COMP-3 - VALUE -27190319.39. + VALUE -27190319.39. 77 FLD0137C PIC 9(03)V9(32) COMP-3. 77 FLD0138A PIC S9(10)V9(08) COMP-3 - VALUE -4824223828.94490853. + VALUE -4824223828.94490853. 77 FLD0138C PIC 9(04)V9(30) COMP-6. 77 FLD0139A PIC 9(09)V9(03) COMP-6 - VALUE 319644653.394. + VALUE 319644653.394. 77 FLD0139C PIC 9(06)V9(25) COMP-6. 77 FLD0140A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0140C PIC 9(03)V9(31) COMP-3. 77 FLD0141A PIC 9(09)V9(14) COMP-3 - VALUE 612266512.11346116987499. + VALUE 612266512.11346116987499. 77 FLD0141C PIC 9(06)V9(01) COMP-6. 77 FLD0142A PIC 9(09)V9(04) COMP-6 - VALUE 356201246.7531. + VALUE 356201246.7531. 77 FLD0142C PIC S9(04) COMP-3. 77 FLD0143A PIC S9(07)V9(02) COMP-3 - VALUE -2608987.15. + VALUE -2608987.15. 77 FLD0143C PIC 9(06)V9(01) COMP-6. 77 FLD0144A PIC 9(10)V9(11) COMP-6 - VALUE 5664625691.64754570216. + VALUE 5664625691.64754570216. 77 FLD0144C PIC 9(07)V9(01) COMP-6. 77 FLD0145A PIC 9(09)V9(13) COMP-3 - VALUE 592809780.4295365813587. + VALUE 592809780.4295365813587. 77 FLD0145C PIC 9(09)V9(06) COMP-6. 77 FLD0146A PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0146C PIC 9(09)V9(13) COMP-3. 77 FLD0147A PIC 9(03) COMP-6 - VALUE 085. + VALUE 085. 77 FLD0147C PIC 9(10)V9(05) COMP-6. 77 FLD0148A PIC 9(04) COMP-6 - VALUE 1189. + VALUE 1189. 77 FLD0148C PIC 9(08)V9(04) COMP-6. 77 FLD0149A PIC 9(05)V9(27) COMP-3 - VALUE 86469.811002464236349140946913394. + VALUE 86469.811002464236349140946913394. 77 FLD0149C PIC S9(02) COMP-3. 77 FLD0150A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0150C PIC 9(01)V9(36) COMP-6. 77 FLD0151A PIC 9(09)V9(13) COMP-3 - VALUE 602633749.4884196344102. + VALUE 602633749.4884196344102. 77 FLD0151C PIC 9(07)V9(22) COMP-3. 77 FLD0152A PIC S9(08)V9(02) COMP-3 - VALUE -28005400.65. + VALUE -28005400.65. 77 FLD0152C PIC 9(02)V9(34) COMP-6. 77 FLD0153A PIC 9(08)V9(18) COMP-3 - VALUE 69246387.672994647033419823. + VALUE 69246387.672994647033419823. 77 FLD0153C PIC 9(07)V9(22) COMP-3. 77 FLD0154A PIC 9(09)V9(14) COMP-6 - VALUE 618531644.61004783714059. + VALUE 618531644.61004783714059. 77 FLD0154C PIC 9(10)V9(07) COMP-6. 77 FLD0155A PIC 9(10)V9(12) COMP-3 - VALUE 5816028861.286740569980. + VALUE 5816028861.286740569980. 77 FLD0155C PIC 9(03)V9(31) COMP-3. 77 FLD0156A PIC 9(02)V9(34) COMP-3 - VALUE 95.3830714078202746009083057288080453. + VALUE 95.3830714078202746009083057288080453. 77 FLD0156C PIC 9(04)V9(30) COMP-6. 77 FLD0157A PIC 9(09)V9(16) COMP-6 - VALUE 659745695.0483697735165833. + VALUE 659745695.0483697735165833. 77 FLD0157C PIC 9(10)V9(06) COMP-6. 77 FLD0158A PIC S9(09)V9(06) COMP-3 - VALUE +412656981.234114. + VALUE +412656981.234114. 77 FLD0158C PIC 9(09)V9(14) COMP-3. 77 FLD0159A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0159C PIC 9(09)V9(15) COMP-3. 77 FLD0160A PIC 9(08)V9(20) COMP-6 - VALUE 74656107.83998073429756914265. + VALUE 74656107.83998073429756914265. 77 FLD0160C PIC 9(06)V9(01) COMP-6. 77 FLD0161A PIC 9(07)V9(22) COMP-6 - VALUE 7887170.9741627593626134284932. + VALUE 7887170.9741627593626134284932. 77 FLD0161C PIC 9(08)V9(19) COMP-6. 77 FLD0162A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0162C PIC 9(10)V9(11) COMP-6. 77 FLD0163A PIC 9(09)V9(14) COMP-6 - VALUE 618392824.19829444403802. + VALUE 618392824.19829444403802. 77 FLD0163C PIC 9(09)V9(15) COMP-3. 77 FLD0164A PIC S9(06)V9(01) COMP-3 - VALUE +204076.7. + VALUE +204076.7. 77 FLD0164C PIC 9(04) COMP-6. 77 FLD0165A PIC 9(09)V9(14) COMP-3 - VALUE 610409164.63927785695631. + VALUE 610409164.63927785695631. 77 FLD0165C PIC 9(04) COMP-6. 77 FLD0166A PIC 9(07)V9(02) COMP-6 - VALUE 2460589.98. + VALUE 2460589.98. 77 FLD0166C PIC 9(05)V9(01) COMP-6. 77 FLD0167A PIC S9(09)V9(03) COMP-3 - VALUE +323253458.962. + VALUE +323253458.962. 77 FLD0167C PIC 9(06)V9(25) COMP-6. 77 FLD0168A PIC S9(04) COMP-3 - VALUE +1200. + VALUE +1200. 77 FLD0168C PIC S9(10)V9(06) COMP-3. 77 FLD0169A PIC 9(06)V9(25) COMP-3 - VALUE 834885.7368063762329768451309064. + VALUE 834885.7368063762329768451309064. 77 FLD0169C PIC 9(08)V9(18) COMP-6. 77 FLD0170A PIC 9(08)V9(19) COMP-3 - VALUE 72325482.4666709539293663056. + VALUE 72325482.4666709539293663056. 77 FLD0170C PIC 9(01)V9(36) COMP-6. 77 FLD0171A PIC 9(09)V9(16) COMP-6 - VALUE 675345293.4675296948086042. + VALUE 675345293.4675296948086042. 77 FLD0171C PIC 9(10)V9(06) COMP-6. 77 FLD0172A PIC 9(02)V9(34) COMP-3 - VALUE 96.0216523360032936373897882731398567. + VALUE 96.0216523360032936373897882731398567. 77 FLD0172C PIC 9(04)V9(30) COMP-6. 77 FLD0173A PIC S9(09)V9(06) COMP-3 - VALUE +412472914.336663. + VALUE +412472914.336663. 77 FLD0173C PIC 9(10)V9(08) COMP-6. 77 FLD0174A PIC S9(04) COMP-3 - VALUE +1244. + VALUE +1244. 77 FLD0174C PIC 9(10)V9(09) COMP-6. 77 FLD0175A PIC S9(05) COMP-3 - VALUE +13456. + VALUE +13456. 77 FLD0175C PIC S9(02) COMP-3. 77 FLD0176A PIC 9(07)V9(23) COMP-3 - VALUE 7902178.74582138546379894705751. + VALUE 7902178.74582138546379894705751. 77 FLD0176C PIC 9(08)V9(03) COMP-6. 77 FLD0177A PIC 9(07)V9(21) COMP-3 - VALUE 7618839.577049143496623173632. + VALUE 7618839.577049143496623173632. 77 FLD0177C PIC 9(07)V9(02) COMP-6. 77 FLD0178A PIC 9(09)V9(04) COMP-6 - VALUE 355502105.3348. + VALUE 355502105.3348. 77 FLD0178C PIC S9(08)V9(03) COMP-3. 77 FLD0179A PIC 9(09)V9(05) COMP-6 - VALUE 388560564.63472. + VALUE 388560564.63472. 77 FLD0179C PIC 9(03) COMP-6. 77 FLD0180A PIC 9(05)V9(27) COMP-6 - VALUE 85946.157652659294079455776227405. + VALUE 85946.157652659294079455776227405. 77 FLD0180C PIC 9(10)V9(10) COMP-3. 77 FLD0181A PIC 9(06)V9(01) COMP-6 - VALUE 188908.8. + VALUE 188908.8. 77 FLD0181C PIC S9(10)V9(08) COMP-3. 77 FLD0182A PIC 9(10)V9(13) COMP-6 - VALUE 6061401860.3468300394609. + VALUE 6061401860.3468300394609. 77 FLD0182C PIC 9(09)V9(15) COMP-3. 77 FLD0183A PIC 9(07)V9(23) COMP-3 - VALUE 7910108.10526126539876656806882. + VALUE 7910108.10526126539876656806882. 77 FLD0183C PIC S9(02) COMP-3. 77 FLD0184A PIC 9(09)V9(15) COMP-6 - VALUE 635945742.812533687526865. + VALUE 635945742.812533687526865. 77 FLD0184C PIC S9(07)V9(01) COMP-3. 77 FLD0185A PIC 9(05) COMP-6 - VALUE 15666. + VALUE 15666. 77 FLD0185C PIC 9(08)V9(20) COMP-6. 77 FLD0186A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0186C PIC 9(05)V9(26) COMP-3. 77 FLD0187A PIC 9(09)V9(13) COMP-3 - VALUE 604672028.7423602568921. + VALUE 604672028.7423602568921. 77 FLD0187C PIC 9(10)V9(12) COMP-6. 77 FLD0188A PIC 9(08)V9(17) COMP-3 - VALUE 68008236.87569536035724127. + VALUE 68008236.87569536035724127. 77 FLD0188C PIC 9(07)V9(21) COMP-3. 77 FLD0189A PIC 9(10)V9(09) COMP-3 - VALUE 5115071016.238050827. + VALUE 5115071016.238050827. 77 FLD0189C PIC 9(10)V9(11) COMP-6. 77 FLD0190A PIC 9(07)V9(02) COMP-6 - VALUE 2382137.54. + VALUE 2382137.54. 77 FLD0190C PIC 9(09)V9(14) COMP-6. 77 FLD0191A PIC 9(05) COMP-6 - VALUE 13720. + VALUE 13720. 77 FLD0191C PIC 9(06)V9(24) COMP-3. 77 FLD0192A PIC 9(01)V9(36) COMP-6 - VALUE 9.894259454195439840162862310535274446. + VALUE 9.894259454195439840162862310535274446. 77 FLD0192C PIC 9(09)V9(04) COMP-6. 77 FLD0193A PIC 9(10)V9(06) COMP-6 - VALUE 4252943677.090519. + VALUE 4252943677.090519. 77 FLD0193C PIC 9(09)V9(14) COMP-3. 77 FLD0194A PIC 9(09)V9(06) COMP-6 - VALUE 417168379.939779. + VALUE 417168379.939779. 77 FLD0194C PIC 9(09)V9(15) COMP-3. 77 FLD0195A PIC 9(08)V9(02) COMP-6 - VALUE 26645846.45. + VALUE 26645846.45. 77 FLD0195C PIC 9(05) COMP-6. 77 FLD0196A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0196C PIC S9(05)V9(01) COMP-3. 77 FLD0197A PIC 9(01)V9(36) COMP-3 - VALUE 9.847788375924405590566834689525421708. + VALUE 9.847788375924405590566834689525421708. 77 FLD0197C PIC 9(02) COMP-6. 77 FLD0198A PIC 9(09)V9(13) COMP-3 - VALUE 593293108.5591157671643. + VALUE 593293108.5591157671643. 77 FLD0198C PIC S9(05) COMP-3. 77 FLD0199A PIC 9(07)V9(02) COMP-6 - VALUE 2483287.24. + VALUE 2483287.24. 77 FLD0199C PIC 9(07)V9(23) COMP-6. 77 FLD0200A PIC S9(10)V9(08) COMP-3 - VALUE -4935972790.60619176. + VALUE -4935972790.60619176. 77 FLD0200C PIC 9(10)V9(07) COMP-6. 77 FLD0201A PIC 9(04) COMP-6 - VALUE 1282. + VALUE 1282. 77 FLD0201C PIC 9(07)V9(23) COMP-3. 77 FLD0202A PIC S9(09)V9(04) COMP-3 - VALUE -360603443.7503. + VALUE -360603443.7503. 77 FLD0202C PIC 9(03)V9(32) COMP-6. 77 FLD0203A PIC 9(09)V9(14) COMP-6 - VALUE 628607663.38264040253847. + VALUE 628607663.38264040253847. 77 FLD0203C PIC 9(03)V9(31) COMP-3. 77 FLD0204A PIC 9(01)V9(35) COMP-3 - VALUE 9.73054030732718233664968465745914727. + VALUE 9.73054030732718233664968465745914727. 77 FLD0204C PIC 9(07)V9(01) COMP-6. 77 FLD0205A PIC 9(09)V9(15) COMP-6 - VALUE 648926914.508991536933990. + VALUE 648926914.508991536933990. 77 FLD0205C PIC 9(09)V9(15) COMP-6. 77 FLD0206A PIC 9(06)V9(01) COMP-6 - VALUE 186967.7. + VALUE 186967.7. 77 FLD0206C PIC 9(08)V9(18) COMP-6. 77 FLD0207A PIC 9(05)V9(26) COMP-6 - VALUE 83944.39242287422553445708217623. + VALUE 83944.39242287422553445708217623. 77 FLD0207C PIC 9(07)V9(21) COMP-3. 77 FLD0208A PIC 9(02)V9(34) COMP-6 - VALUE 96.7940040016311842308027735271025449. + VALUE 96.7940040016311842308027735271025449. 77 FLD0208C PIC 9(07)V9(01) COMP-6. 77 FLD0209A PIC 9(03)V9(32) COMP-6 - VALUE 926.61149050802726900855077474261634. + VALUE 926.61149050802726900855077474261634. 77 FLD0209C PIC 9(07)V9(23) COMP-6. 77 FLD0210A PIC 9(08)V9(19) COMP-3 - VALUE 72323528.1456575562764044207. + VALUE 72323528.1456575562764044207. 77 FLD0210C PIC 9(01) COMP-6. 77 FLD0211A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0211C PIC S9(09)V9(07) COMP-3. 77 FLD0212A PIC 9(10)V9(08) COMP-6 - VALUE 4892032792.55731038. + VALUE 4892032792.55731038. 77 FLD0212C PIC S9(09)V9(05) COMP-3. 77 FLD0213A PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0213C PIC 9(07)V9(21) COMP-3. 77 FLD0214A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0214C PIC 9(09)V9(16) COMP-6. 77 FLD0215A PIC 9(03)V9(32) COMP-6 - VALUE 926.34033699271633999217101518297567. + VALUE 926.34033699271633999217101518297567. 77 FLD0215C PIC S9(05)V9(01) COMP-3. 77 FLD0216A PIC S9(08)V9(02) COMP-3 - VALUE -28095374.87. + VALUE -28095374.87. 77 FLD0216C PIC 9(08)V9(02) COMP-6. 77 FLD0217A PIC 9(08)V9(20) COMP-6 - VALUE 74562962.48658396130792880285. + VALUE 74562962.48658396130792880285. 77 FLD0217C PIC S9(09)V9(07) COMP-3. 77 FLD0218A PIC S9(05)V9(01) COMP-3 - VALUE -18094.6. + VALUE -18094.6. 77 FLD0218C PIC 9(01)V9(36) COMP-6. 77 FLD0219A PIC 9(09)V9(12) COMP-6 - VALUE 578788992.127507229135. + VALUE 578788992.127507229135. 77 FLD0219C PIC 9(10)V9(10) COMP-6. 77 FLD0220A PIC 9(09)V9(12) COMP-3 - VALUE 573343525.907533679841. + VALUE 573343525.907533679841. 77 FLD0220C PIC S9(05) COMP-3. 77 FLD0221A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0221C PIC 9(04)V9(29) COMP-6. 77 FLD0222A PIC 9(09)V9(14) COMP-6 - VALUE 628182805.25174396977661. + VALUE 628182805.25174396977661. 77 FLD0222C PIC S9(05) COMP-3. 77 FLD0223A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0223C PIC 9(08)V9(18) COMP-6. 77 FLD0224A PIC 9(06)V9(25) COMP-6 - VALUE 838187.2267509891116787912324070. + VALUE 838187.2267509891116787912324070. 77 FLD0224C PIC S9(09)V9(05) COMP-3. 77 FLD0225A PIC 9(05) COMP-6 - VALUE 13797. + VALUE 13797. 77 FLD0225C PIC 9(09)V9(12) COMP-3. 77 FLD0226A PIC 9(05) COMP-6 - VALUE 14900. + VALUE 14900. 77 FLD0226C PIC S9(07)V9(01) COMP-3. 77 FLD0227A PIC 9(09)V9(14) COMP-6 - VALUE 629583055.15940859997670. + VALUE 629583055.15940859997670. 77 FLD0227C PIC 9(04)V9(30) COMP-6. 77 FLD0228A PIC S9(07)V9(01) COMP-3 - VALUE +2225916.3. + VALUE +2225916.3. 77 FLD0228C PIC 9(01)V9(36) COMP-3. 77 FLD0229A PIC 9(01)V9(36) COMP-6 - VALUE 9.870473603260505601753038718015886843. + VALUE 9.870473603260505601753038718015886843. 77 FLD0229C PIC 9(08)V9(20) COMP-6. 77 FLD0230A PIC S9(06)V9(01) COMP-3 - VALUE +201492.2. + VALUE +201492.2. 77 FLD0230C PIC S9(02) COMP-3. 77 FLD0231A PIC 9(05)V9(28) COMP-6 - VALUE 87781.6812716511907233041256404248. + VALUE 87781.6812716511907233041256404248. 77 FLD0231C PIC S9(08)V9(02) COMP-3. 77 FLD0232A PIC 9(09)V9(04) COMP-6 - VALUE 356308264.5328. + VALUE 356308264.5328. 77 FLD0232C PIC 9(06)V9(25) COMP-3. 77 FLD0233A PIC 9(07)V9(21) COMP-6 - VALUE 7552156.809035388551620826547. + VALUE 7552156.809035388551620826547. 77 FLD0233C PIC 9(08)V9(04) COMP-6. 77 FLD0234A PIC 9(08)V9(04) COMP-6 - VALUE 33831052.6754. + VALUE 33831052.6754. 77 FLD0234C PIC 9(09)V9(13) COMP-3. 77 FLD0235A PIC S9(05) COMP-3 - VALUE +14123. + VALUE +14123. 77 FLD0235C PIC S9(10)V9(08) COMP-3. 77 FLD0236A PIC 9(04)V9(29) COMP-3 - VALUE 8818.23528289915170574886360554955. + VALUE 8818.23528289915170574886360554955. 77 FLD0236C PIC 9(08)V9(18) COMP-3. 77 FLD0237A PIC 9(08)V9(02) COMP-6 - VALUE 28742037.59. + VALUE 28742037.59. 77 FLD0237C PIC 9(04)V9(29) COMP-6. 77 FLD0238A PIC 9(09)V9(15) COMP-3 - VALUE 634521096.430120334908053. + VALUE 634521096.430120334908053. 77 FLD0238C PIC 9(06)V9(01) COMP-6. 77 FLD0239A PIC 9(09)V9(16) COMP-6 - VALUE 678585779.2924817610824561. + VALUE 678585779.2924817610824561. 77 FLD0239C PIC 9(09)V9(14) COMP-3. 77 FLD0240A PIC 9(10)V9(06) COMP-6 - VALUE 4289853576.446766. + VALUE 4289853576.446766. 77 FLD0240C PIC 9(06)V9(25) COMP-3. 77 FLD0241A PIC S9(05) COMP-3 - VALUE +14407. + VALUE +14407. 77 FLD0241C PIC 9(09)V9(14) COMP-6. 77 FLD0242A PIC 9(10)V9(12) COMP-6 - VALUE 5860383854.989427154791. + VALUE 5860383854.989427154791. 77 FLD0242C PIC S9(06)V9(01) COMP-3. 77 FLD0243A PIC 9(02)V9(34) COMP-3 - VALUE 97.0409660969254295181940506154205650. + VALUE 97.0409660969254295181940506154205650. 77 FLD0243C PIC 9(05)V9(28) COMP-6. 77 FLD0244A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0244C PIC 9(09)V9(13) COMP-6. 77 FLD0245A PIC S9(09)V9(05) COMP-3 - VALUE -371716886.14542. + VALUE -371716886.14542. 77 FLD0245C PIC 9(09)V9(15) COMP-6. 77 FLD0246A PIC 9(05)V9(28) COMP-3 - VALUE 87216.9313623637143528810611314838. + VALUE 87216.9313623637143528810611314838. 77 FLD0246C PIC 9(06)V9(01) COMP-6. 77 FLD0247A PIC 9(06)V9(25) COMP-3 - VALUE 834494.8214770686600871840710169. + VALUE 834494.8214770686600871840710169. 77 FLD0247C PIC 9(08)V9(19) COMP-3. 77 FLD0248A PIC 9(04)V9(29) COMP-6 - VALUE 8885.56418584546814365410227765096. + VALUE 8885.56418584546814365410227765096. 77 FLD0248C PIC 9(10)V9(11) COMP-6. 77 FLD0249A PIC 9(09)V9(16) COMP-6 - VALUE 678470839.5950102000071524. + VALUE 678470839.5950102000071524. 77 FLD0249C PIC 9(09)V9(16) COMP-3. 77 FLD0250A PIC 9(09)V9(15) COMP-3 - VALUE 643468324.926731005675151. + VALUE 643468324.926731005675151. 77 FLD0250C PIC 9(04)V9(30) COMP-6. 77 FLD0251A PIC S9(09)V9(06) COMP-3 - VALUE +402548910.007195. + VALUE +402548910.007195. 77 FLD0251C PIC 9(06)V9(25) COMP-3. 77 FLD0252A PIC S9(05)V9(01) COMP-3 - VALUE -18339.3. + VALUE -18339.3. 77 FLD0252C PIC S9(07)V9(01) COMP-3. 77 FLD0253A PIC 9(06)V9(25) COMP-3 - VALUE 822593.8518184680026124055984837. + VALUE 822593.8518184680026124055984837. 77 FLD0253C PIC 9(07)V9(01) COMP-6. 77 FLD0254A PIC 9(10)V9(10) COMP-3 - VALUE 5401895692.3872574193. + VALUE 5401895692.3872574193. 77 FLD0254C PIC S9(07)V9(02) COMP-3. 77 FLD0255A PIC 9(02)V9(34) COMP-6 - VALUE 94.8299297085154591080424779647728428. + VALUE 94.8299297085154591080424779647728428. 77 FLD0255C PIC 9(10)V9(10) COMP-3. 77 FLD0256A PIC S9(09)V9(08) COMP-3 - VALUE -473179644.06591722. + VALUE -473179644.06591722. 77 FLD0256C PIC 9(04)V9(30) COMP-3. 77 FLD0257A PIC 9(09)V9(12) COMP-6 - VALUE 577029491.737192756772. + VALUE 577029491.737192756772. 77 FLD0257C PIC S9(03) COMP-3. 77 FLD0258A PIC 9(10)V9(12) COMP-3 - VALUE 5908893351.960881057394. + VALUE 5908893351.960881057394. 77 FLD0258C PIC 9(05)V9(27) COMP-6. 77 FLD0259A PIC 9(03)V9(32) COMP-6 - VALUE 937.55337057593879368511124994256533. + VALUE 937.55337057593879368511124994256533. 77 FLD0259C PIC S9(09)V9(05) COMP-3. 77 FLD0260A PIC 9(05)V9(27) COMP-6 - VALUE 86648.984966754782899300835197209. + VALUE 86648.984966754782899300835197209. 77 FLD0260C PIC 9(09)V9(13) COMP-3. 77 FLD0261A PIC S9(09)V9(05) COMP-3 - VALUE -374213925.47904. + VALUE -374213925.47904. 77 FLD0261C PIC 9(09)V9(05) COMP-6. 77 FLD0262A PIC S9(05)V9(01) COMP-3 - VALUE -17015.9. + VALUE -17015.9. 77 FLD0262C PIC 9(09)V9(17) COMP-6. 77 FLD0263A PIC 9(05)V9(26) COMP-3 - VALUE 84046.29767805690265802809335582. + VALUE 84046.29767805690265802809335582. 77 FLD0263C PIC S9(02) COMP-3. 77 FLD0264A PIC 9(03)V9(32) COMP-6 - VALUE 935.78568596491340514376133796758949. + VALUE 935.78568596491340514376133796758949. 77 FLD0264C PIC 9(05)V9(01) COMP-6. 77 FLD0265A PIC S9(09)V9(05) COMP-3 - VALUE -380334582.15301. + VALUE -380334582.15301. 77 FLD0265C PIC 9(01)V9(36) COMP-6. 77 FLD0266A PIC 9(05)V9(27) COMP-6 - VALUE 84707.693570856212872399737534578. + VALUE 84707.693570856212872399737534578. 77 FLD0266C PIC 9(02)V9(34) COMP-3. 77 FLD0267A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0267C PIC S9(07)V9(01) COMP-3. 77 FLD0268A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0268C PIC 9(06)V9(25) COMP-3. 77 FLD0269A PIC 9(08)V9(18) COMP-6 - VALUE 69955495.182247551255727557. + VALUE 69955495.182247551255727557. 77 FLD0269C PIC 9(01) COMP-6. 77 FLD0270A PIC 9(08)V9(18) COMP-6 - VALUE 69584936.933990082508216801. + VALUE 69584936.933990082508216801. 77 FLD0270C PIC S9(04) COMP-3. 77 FLD0271A PIC 9(10)V9(07) COMP-6 - VALUE 4478155927.4435323. + VALUE 4478155927.4435323. 77 FLD0271C PIC 9(07)V9(02) COMP-6. 77 FLD0272A PIC S9(09)V9(06) COMP-3 - VALUE +411514667.070764. + VALUE +411514667.070764. 77 FLD0272C PIC S9(10)V9(08) COMP-3. 77 FLD0273A PIC 9(10)V9(07) COMP-6 - VALUE 4698099460.5024867. + VALUE 4698099460.5024867. 77 FLD0273C PIC S9(10)V9(06) COMP-3. 77 FLD0274A PIC 9(07)V9(01) COMP-6 - VALUE 2190249.4. + VALUE 2190249.4. 77 FLD0274C PIC 9(10)V9(10) COMP-6. 77 FLD0275A PIC 9(04) COMP-6 - VALUE 1157. + VALUE 1157. 77 FLD0275C PIC S9(07)V9(02) COMP-3. 77 FLD0276A PIC 9(04)V9(30) COMP-3 - VALUE 9021.044697283423507983002309629227. + VALUE 9021.044697283423507983002309629227. 77 FLD0276C PIC 9(02)V9(33) COMP-6. 77 FLD0277A PIC 9(01)V9(36) COMP-3 - VALUE 9.749582162084949876756923003995325416. + VALUE 9.749582162084949876756923003995325416. 77 FLD0277C PIC 9(10)V9(08) COMP-6. 77 FLD0278A PIC 9(10)V9(06) COMP-6 - VALUE 4251062706.993476. + VALUE 4251062706.993476. 77 FLD0278C PIC 9(03)V9(31) COMP-3. 77 FLD0279A PIC S9(08)V9(02) COMP-3 - VALUE -27159201.10. + VALUE -27159201.10. 77 FLD0279C PIC 9(03)V9(32) COMP-3. 77 FLD0280A PIC 9(07)V9(02) COMP-6 - VALUE 2571968.92. + VALUE 2571968.92. 77 FLD0280C PIC 9(08)V9(19) COMP-3. 77 FLD0281A PIC S9(09)V9(04) COMP-3 - VALUE +342861689.3811. + VALUE +342861689.3811. 77 FLD0281C PIC 9(10)V9(07) COMP-6. 77 FLD0282A PIC S9(10)V9(07) COMP-3 - VALUE -4600147325.4430291. + VALUE -4600147325.4430291. 77 FLD0282C PIC 9(07)V9(22) COMP-6. 77 FLD0283A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0283C PIC S9(05)V9(01) COMP-3. 77 FLD0284A PIC 9(09)V9(17) COMP-6 - VALUE 689733171.20512533939802324. + VALUE 689733171.20512533939802324. 77 FLD0284C PIC 9(01) COMP-6. 77 FLD0285A PIC 9(03)V9(32) COMP-6 - VALUE 928.78828230193799520009179104818031. + VALUE 928.78828230193799520009179104818031. 77 FLD0285C PIC 9(08)V9(20) COMP-6. 77 FLD0286A PIC 9(08)V9(18) COMP-3 - VALUE 70426964.322731444578806758. + VALUE 70426964.322731444578806758. 77 FLD0286C PIC 9(07)V9(01) COMP-6. 77 FLD0287A PIC S9(07)V9(02) COMP-3 - VALUE -2521413.84. + VALUE -2521413.84. 77 FLD0287C PIC 9(06) COMP-6. 77 FLD0288A PIC 9(09)V9(17) COMP-6 - VALUE 688074525.02240640246355951. + VALUE 688074525.02240640246355951. 77 FLD0288C PIC 9(04)V9(29) COMP-3. 77 FLD0289A PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0289C PIC 9(10)V9(11) COMP-6. 77 FLD0290A PIC S9(09)V9(05) COMP-3 - VALUE -382951207.35442. + VALUE -382951207.35442. 77 FLD0290C PIC S9(03) COMP-3. 77 FLD0291A PIC 9(01)V9(36) COMP-6 - VALUE 9.859384124391753490002088256005663424. + VALUE 9.859384124391753490002088256005663424. 77 FLD0291C PIC 9(06)V9(25) COMP-3. 77 FLD0292A PIC S9(08)V9(03) COMP-3 - VALUE +31020519.916. + VALUE +31020519.916. 77 FLD0292C PIC 9(01) COMP-6. 77 FLD0293A PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0293C PIC 9(08)V9(03) COMP-6. 77 FLD0294A PIC S9(09)V9(06) COMP-3 - VALUE +412445339.504106. + VALUE +412445339.504106. 77 FLD0294C PIC 9(01) COMP-6. 77 FLD0295A PIC S9(07)V9(02) COMP-3 - VALUE -2502548.06. + VALUE -2502548.06. 77 FLD0295C PIC S9(07)V9(01) COMP-3. 77 FLD0296A PIC S9(06) COMP-3 - VALUE -160918. + VALUE -160918. 77 FLD0296C PIC 9(09)V9(12) COMP-3. 77 FLD0297A PIC 9(08)V9(03) COMP-6 - VALUE 30843552.269. + VALUE 30843552.269. 77 FLD0297C PIC 9(10)V9(09) COMP-6. 77 FLD0298A PIC S9(10)V9(08) COMP-3 - VALUE -4831587379.88150510. + VALUE -4831587379.88150510. 77 FLD0298C PIC 9(01)V9(36) COMP-6. 77 FLD0299A PIC 9(10)V9(13) COMP-6 - VALUE 6064872573.5835784522720. + VALUE 6064872573.5835784522720. 77 FLD0299C PIC 9(09)V9(16) COMP-6. 77 FLD0300A PIC 9(08)V9(20) COMP-6 - VALUE 73956142.30661028409841151187. + VALUE 73956142.30661028409841151187. 77 FLD0300C PIC 9(09)V9(14) COMP-3. 77 FLD0301A PIC S9(10)V9(07) COMP-3 - VALUE -4524568495.0704084. + VALUE -4524568495.0704084. 77 FLD0301C PIC S9(01) COMP-3. 77 FLD0302A PIC 9(02)V9(34) COMP-6 - VALUE 94.9764690231816866017311440373305231. + VALUE 94.9764690231816866017311440373305231. 77 FLD0302C PIC 9(10)V9(06) COMP-6. 77 FLD0303A PIC 9(01)V9(36) COMP-6 - VALUE 9.998247249142951931233369577967096120. + VALUE 9.998247249142951931233369577967096120. 77 FLD0303C PIC 9(01) COMP-6. 77 FLD0304A PIC S9(03) COMP-3 - VALUE -083. + VALUE -083. 77 FLD0304C PIC 9(10)V9(11) COMP-6. 77 FLD0305A PIC 9(09)V9(03) COMP-6 - VALUE 328435884.788. + VALUE 328435884.788. 77 FLD0305C PIC S9(01) COMP-3. 77 FLD0306A PIC S9(03) COMP-3 - VALUE -083. + VALUE -083. 77 FLD0306C PIC S9(10)V9(08) COMP-3. 77 FLD0307A PIC 9(10)V9(10) COMP-3 - VALUE 5430567751.9659767416. + VALUE 5430567751.9659767416. 77 FLD0307C PIC 9(03)V9(32) COMP-6. 77 FLD0308A PIC 9(09)V9(05) COMP-6 - VALUE 377189267.62120. + VALUE 377189267.62120. 77 FLD0308C PIC 9(02)V9(34) COMP-3. 77 FLD0309A PIC 9(09)V9(03) COMP-6 - VALUE 325461096.612. + VALUE 325461096.612. 77 FLD0309C PIC S9(03) COMP-3. 77 FLD0310A PIC 9(09)V9(05) COMP-6 - VALUE 377541451.37210. + VALUE 377541451.37210. 77 FLD0310C PIC 9(09)V9(06) COMP-6. 77 FLD0311A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0311C PIC 9(01)V9(36) COMP-3. 77 FLD0312A PIC S9(10)V9(07) COMP-3 - VALUE -4631183834.9707568. + VALUE -4631183834.9707568. 77 FLD0312C PIC 9(01) COMP-6. 77 FLD0313A PIC 9(05)V9(27) COMP-3 - VALUE 86493.365621715367907995641871821. + VALUE 86493.365621715367907995641871821. 77 FLD0313C PIC 9(09)V9(05) COMP-6. 77 FLD0314A PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0314C PIC 9(08)V9(18) COMP-6. 77 FLD0315A PIC 9(07)V9(23) COMP-3 - VALUE 7933336.74589681625555215305212. + VALUE 7933336.74589681625555215305212. 77 FLD0315C PIC 9(09)V9(17) COMP-6. 77 FLD0316A PIC 9(06)V9(01) COMP-6 - VALUE 195827.4. + VALUE 195827.4. 77 FLD0316C PIC 9(10)V9(11) COMP-3. 77 FLD0317A PIC 9(10)V9(08) COMP-6 - VALUE 4983225307.65216153. + VALUE 4983225307.65216153. 77 FLD0317C PIC S9(09)V9(03) COMP-3. 77 FLD0318A PIC 9(08)V9(02) COMP-6 - VALUE 26926374.69. + VALUE 26926374.69. 77 FLD0318C PIC 9(04)V9(29) COMP-3. 77 FLD0319A PIC 9(08)V9(18) COMP-6 - VALUE 69931441.978879860243978328. + VALUE 69931441.978879860243978328. 77 FLD0319C PIC 9(09)V9(15) COMP-3. 77 FLD0320A PIC 9(08)V9(19) COMP-6 - VALUE 71973495.8824565840274090078. + VALUE 71973495.8824565840274090078. 77 FLD0320C PIC 9(10)V9(11) COMP-3. 77 FLD0321A PIC 9(10)V9(09) COMP-3 - VALUE 5005504874.853489161. + VALUE 5005504874.853489161. 77 FLD0321C PIC 9(09)V9(16) COMP-3. 77 FLD0322A PIC S9(09)V9(07) COMP-3 - VALUE +442005310.2249054. + VALUE +442005310.2249054. 77 FLD0322C PIC 9(09)V9(14) COMP-6. 77 FLD0323A PIC S9(05) COMP-3 - VALUE -15097. + VALUE -15097. 77 FLD0323C PIC 9(01)V9(35) COMP-3. 77 FLD0324A PIC 9(10)V9(11) COMP-3 - VALUE 5601604504.75820970162. + VALUE 5601604504.75820970162. 77 FLD0324C PIC 9(10)V9(10) COMP-3. 77 FLD0325A PIC 9(04) COMP-6 - VALUE 1169. + VALUE 1169. 77 FLD0325C PIC 9(08)V9(19) COMP-3. 77 FLD0326A PIC S9(08)V9(03) COMP-3 - VALUE +31312044.720. + VALUE +31312044.720. 77 FLD0326C PIC S9(02) COMP-3. 77 FLD0327A PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0327C PIC S9(07)V9(01) COMP-3. 77 FLD0328A PIC 9(08)V9(19) COMP-3 - VALUE 71147504.7716873310044150002. + VALUE 71147504.7716873310044150002. 77 FLD0328C PIC S9(09)V9(05) COMP-3. 77 FLD0329A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0329C PIC 9(02)V9(34) COMP-3. 77 FLD0330A PIC 9(09)V9(07) COMP-6 - VALUE 445280746.1581723. + VALUE 445280746.1581723. 77 FLD0330C PIC 9(07)V9(23) COMP-6. 77 FLD0331A PIC S9(07)V9(01) COMP-3 - VALUE +2232816.8. + VALUE +2232816.8. 77 FLD0331C PIC 9(08)V9(02) COMP-6. 77 FLD0332A PIC 9(05)V9(27) COMP-6 - VALUE 86562.988696340348315771962006692. + VALUE 86562.988696340348315771962006692. 77 FLD0332C PIC 9(09)V9(04) COMP-6. 77 FLD0333A PIC 9(02)V9(34) COMP-6 - VALUE 95.6494138775326296908474432711955159. + VALUE 95.6494138775326296908474432711955159. 77 FLD0333C PIC S9(07)V9(02) COMP-3. 77 FLD0334A PIC 9(08)V9(03) COMP-6 - VALUE 28999492.466. + VALUE 28999492.466. 77 FLD0334C PIC 9(09)V9(03) COMP-6. 77 FLD0335A PIC S9(08)V9(03) COMP-3 - VALUE +30334218.791. + VALUE +30334218.791. 77 FLD0335C PIC 9(10)V9(09) COMP-6. 77 FLD0336A PIC 9(05)V9(27) COMP-6 - VALUE 85800.255545984371874368434873758. + VALUE 85800.255545984371874368434873758. 77 FLD0336C PIC S9(08)V9(03) COMP-3. 77 FLD0337A PIC 9(08)V9(19) COMP-3 - VALUE 72003996.5448931451597047725. + VALUE 72003996.5448931451597047725. 77 FLD0337C PIC 9(08)V9(19) COMP-3. 77 FLD0338A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0338C PIC 9(10)V9(10) COMP-3. 77 FLD0339A PIC S9(06) COMP-3 - VALUE -160552. + VALUE -160552. 77 FLD0339C PIC 9(09)V9(13) COMP-3. 77 FLD0340A PIC 9(10)V9(09) COMP-3 - VALUE 5028381651.473269320. + VALUE 5028381651.473269320. 77 FLD0340C PIC S9(09)V9(04) COMP-3. 77 FLD0341A PIC 9(10)V9(11) COMP-6 - VALUE 5676316159.01010966318. + VALUE 5676316159.01010966318. 77 FLD0341C PIC 9(09)V9(12) COMP-3. 77 FLD0342A PIC S9(07)V9(01) COMP-3 - VALUE +2347143.0. + VALUE +2347143.0. 77 FLD0342C PIC S9(10)V9(07) COMP-3. 77 FLD0343A PIC 9(08)V9(19) COMP-6 - VALUE 72866356.1504289902792663724. + VALUE 72866356.1504289902792663724. 77 FLD0343C PIC 9(06)V9(01) COMP-6. 77 FLD0344A PIC 9(09)V9(07) COMP-6 - VALUE 439744878.9947105. + VALUE 439744878.9947105. 77 FLD0344C PIC 9(04)V9(29) COMP-3. 77 FLD0345A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0345C PIC 9(09)V9(06) COMP-6. 77 FLD0346A PIC 9(07)V9(22) COMP-3 - VALUE 7807860.0333687642187641131386. + VALUE 7807860.0333687642187641131386. 77 FLD0346C PIC 9(09)V9(16) COMP-3. 77 FLD0347A PIC 9(08)V9(18) COMP-3 - VALUE 70165985.253748408556617732. + VALUE 70165985.253748408556617732. 77 FLD0347C PIC 9(06) COMP-6. 77 FLD0348A PIC 9(08)V9(04) COMP-6 - VALUE 33778742.7133. + VALUE 33778742.7133. 77 FLD0348C PIC 9(09)V9(12) COMP-6. 77 FLD0349A PIC 9(10)V9(09) COMP-3 - VALUE 5122785066.779668161. + VALUE 5122785066.779668161. 77 FLD0349C PIC 9(03)V9(32) COMP-3. 77 FLD0350A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0350C PIC 9(06)V9(25) COMP-6. 77 FLD0351A PIC 9(05)V9(27) COMP-6 - VALUE 84942.576912519174303639601930626. + VALUE 84942.576912519174303639601930626. 77 FLD0351C PIC 9(10)V9(10) COMP-6. 77 FLD0352A PIC 9(03)V9(32) COMP-6 - VALUE 937.88592938035042489985926295048557. + VALUE 937.88592938035042489985926295048557. 77 FLD0352C PIC 9(06)V9(01) COMP-6. 77 FLD0353A PIC S9(07)V9(02) COMP-3 - VALUE -2544588.73. + VALUE -2544588.73. 77 FLD0353C PIC 9(02)V9(33) COMP-3. 77 FLD0354A PIC 9(07)V9(01) COMP-6 - VALUE 2152460.4. + VALUE 2152460.4. 77 FLD0354C PIC S9(08)V9(03) COMP-3. 77 FLD0355A PIC 9(06)V9(01) COMP-6 - VALUE 208715.4. + VALUE 208715.4. 77 FLD0355C PIC S9(05) COMP-3. 77 FLD0356A PIC S9(09)V9(05) COMP-3 - VALUE -391398983.37050. + VALUE -391398983.37050. 77 FLD0356C PIC 9(05)V9(27) COMP-6. 77 FLD0357A PIC 9(10)V9(10) COMP-3 - VALUE 5323345989.0667944591. + VALUE 5323345989.0667944591. 77 FLD0357C PIC 9(03) COMP-6. 77 FLD0358A PIC 9(08)V9(03) COMP-6 - VALUE 29848403.943. + VALUE 29848403.943. 77 FLD0358C PIC 9(09)V9(17) COMP-6. 77 FLD0359A PIC 9(07)V9(22) COMP-6 - VALUE 7654789.5985185210321333215688. + VALUE 7654789.5985185210321333215688. 77 FLD0359C PIC 9(01)V9(36) COMP-3. 77 FLD0360A PIC S9(09)V9(06) COMP-3 - VALUE +400277612.276280. + VALUE +400277612.276280. 77 FLD0360C PIC 9(08)V9(02) COMP-6. 77 FLD0361A PIC 9(06)V9(25) COMP-3 - VALUE 823089.8044061112361902132761315. + VALUE 823089.8044061112361902132761315. 77 FLD0361C PIC 9(05)V9(27) COMP-6. 77 FLD0362A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0362C PIC 9(04)V9(30) COMP-6. 77 FLD0363A PIC 9(09)V9(04) COMP-6 - VALUE 358575926.2078. + VALUE 358575926.2078. 77 FLD0363C PIC 9(04)V9(30) COMP-3. 77 FLD0364A PIC S9(04) COMP-3 - VALUE +1234. + VALUE +1234. 77 FLD0364C PIC 9(06)V9(25) COMP-3. 77 FLD0365A PIC 9(09)V9(11) COMP-3 - VALUE 551967009.62472056151. + VALUE 551967009.62472056151. 77 FLD0365C PIC 9(09)V9(16) COMP-6. 77 FLD0366A PIC 9(06)V9(25) COMP-3 - VALUE 822414.3642778768414913770357088. + VALUE 822414.3642778768414913770357088. 77 FLD0366C PIC 9(06)V9(25) COMP-6. 77 FLD0367A PIC 9(09)V9(13) COMP-6 - VALUE 595975436.9256639039420. + VALUE 595975436.9256639039420. 77 FLD0367C PIC S9(06)V9(01) COMP-3. 77 FLD0368A PIC 9(05) COMP-6 - VALUE 15663. + VALUE 15663. 77 FLD0368C PIC 9(01) COMP-6. 77 FLD0369A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0369C PIC S9(08)V9(03) COMP-3. 77 FLD0370A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0370C PIC S9(01) COMP-3. 77 FLD0371A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0371C PIC S9(03) COMP-3. 77 FLD0372A PIC 9(10)V9(09) COMP-6 - VALUE 5067586024.551302692. + VALUE 5067586024.551302692. 77 FLD0372C PIC 9(10)V9(09) COMP-3. 77 FLD0373A PIC 9(09)V9(16) COMP-3 - VALUE 660730415.8912360447786227. + VALUE 660730415.8912360447786227. 77 FLD0373C PIC S9(09)V9(04) COMP-3. 77 FLD0374A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0374C PIC 9(08)V9(19) COMP-3. 77 FLD0375A PIC 9(07)V9(22) COMP-3 - VALUE 7816763.9605777072819847717255. + VALUE 7816763.9605777072819847717255. 77 FLD0375C PIC 9(01) COMP-6. 77 FLD0376A PIC 9(05)V9(27) COMP-6 - VALUE 84980.958923270843996533585595898. + VALUE 84980.958923270843996533585595898. 77 FLD0376C PIC 9(10)V9(09) COMP-3. 77 FLD0377A PIC 9(02)V9(34) COMP-6 - VALUE 96.7759547981370871205797357106348499. + VALUE 96.7759547981370871205797357106348499. 77 FLD0377C PIC 9(07)V9(22) COMP-3. 77 FLD0378A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0378C PIC S9(06) COMP-3. 77 FLD0379A PIC 9(10)V9(10) COMP-6 - VALUE 5351160784.1302399890. + VALUE 5351160784.1302399890. 77 FLD0379C PIC 9(01) COMP-6. 77 FLD0380A PIC 9(09)V9(03) COMP-6 - VALUE 318886259.138. + VALUE 318886259.138. 77 FLD0380C PIC S9(01) COMP-3. 77 FLD0381A PIC 9(10)V9(09) COMP-6 - VALUE 5188977124.912377281. + VALUE 5188977124.912377281. 77 FLD0381C PIC 9(03) COMP-6. 77 FLD0382A PIC 9(10)V9(10) COMP-6 - VALUE 5469463185.9002762475. + VALUE 5469463185.9002762475. 77 FLD0382C PIC 9(04) COMP-6. 77 FLD0383A PIC 9(04)V9(29) COMP-3 - VALUE 8846.28028341020278269013488170458. + VALUE 8846.28028341020278269013488170458. 77 FLD0383C PIC 9(06)V9(24) COMP-3. 77 FLD0384A PIC S9(07)V9(02) COMP-3 - VALUE +2410021.83. + VALUE +2410021.83. 77 FLD0384C PIC 9(01) COMP-6. 77 FLD0385A PIC 9(09)V9(14) COMP-6 - VALUE 616198826.41569234671408. + VALUE 616198826.41569234671408. 77 FLD0385C PIC 9(04)V9(29) COMP-3. 77 FLD0386A PIC 9(10)V9(11) COMP-6 - VALUE 5671006446.22052230126. + VALUE 5671006446.22052230126. 77 FLD0386C PIC 9(07)V9(21) COMP-3. 77 FLD0387A PIC 9(08)V9(03) COMP-6 - VALUE 30516405.931. + VALUE 30516405.931. 77 FLD0387C PIC 9(09)V9(16) COMP-3. 77 FLD0388A PIC 9(10)V9(11) COMP-6 - VALUE 5691303425.20841603359. + VALUE 5691303425.20841603359. 77 FLD0388C PIC 9(03) COMP-6. 77 FLD0389A PIC S9(10)V9(06) COMP-3 - VALUE +4300560615.719126. + VALUE +4300560615.719126. 77 FLD0389C PIC 9(10)V9(12) COMP-6. 77 FLD0390A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0390C PIC 9(03) COMP-6. 77 FLD0391A PIC S9(08)V9(03) COMP-3 - VALUE +30066642.536. + VALUE +30066642.536. 77 FLD0391C PIC S9(08)V9(02) COMP-3. 77 FLD0392A PIC 9(02)V9(34) COMP-6 - VALUE 95.7627258628673261320329856971511617. + VALUE 95.7627258628673261320329856971511617. 77 FLD0392C PIC 9(10)V9(07) COMP-6. 77 FLD0393A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0393C PIC 9(04)V9(30) COMP-6. 77 FLD0394A PIC 9(05)V9(01) COMP-6 - VALUE 16807.8. + VALUE 16807.8. 77 FLD0394C PIC S9(10)V9(08) COMP-3. 77 FLD0395A PIC 9(10)V9(09) COMP-3 - VALUE 5206691882.901124390. + VALUE 5206691882.901124390. 77 FLD0395C PIC S9(01) COMP-3. 77 FLD0396A PIC 9(09)V9(06) COMP-6 - VALUE 419939827.280791. + VALUE 419939827.280791. 77 FLD0396C PIC 9(09)V9(07) COMP-6. 77 FLD0397A PIC 9(05)V9(27) COMP-6 - VALUE 85569.982924983467587054519754019. + VALUE 85569.982924983467587054519754019. 77 FLD0397C PIC S9(02) COMP-3. 77 FLD0398A PIC 9(05)V9(26) COMP-3 - VALUE 84110.85692078776876456913669244. + VALUE 84110.85692078776876456913669244. 77 FLD0398C PIC S9(08)V9(02) COMP-3. 77 FLD0399A PIC 9(05)V9(27) COMP-3 - VALUE 86215.377080746946614198122915695. + VALUE 86215.377080746946614198122915695. 77 FLD0399C PIC 9(07)V9(02) COMP-6. 77 FLD0400A PIC 9(10)V9(08) COMP-6 - VALUE 4880703034.67910082. + VALUE 4880703034.67910082. 77 FLD0400C PIC 9(06)V9(25) COMP-6. 77 FLD0401A PIC 9(08)V9(03) COMP-6 - VALUE 30757829.425. + VALUE 30757829.425. 77 FLD0401C PIC 9(01) COMP-6. 77 FLD0402A PIC 9(04)V9(29) COMP-3 - VALUE 8843.41306989221531686951038864208. + VALUE 8843.41306989221531686951038864208. 77 FLD0402C PIC 9(08)V9(18) COMP-6. 77 FLD0403A PIC 9(10)V9(10) COMP-6 - VALUE 5351391185.2119278034. + VALUE 5351391185.2119278034. 77 FLD0403C PIC 9(03)V9(32) COMP-6. 77 FLD0404A PIC S9(10)V9(08) COMP-3 - VALUE -4810592903.51378177. + VALUE -4810592903.51378177. 77 FLD0404C PIC 9(09)V9(16) COMP-3. 77 FLD0405A PIC S9(09)V9(04) COMP-3 - VALUE -360620744.0007. + VALUE -360620744.0007. 77 FLD0405C PIC S9(05) COMP-3. 77 FLD0406A PIC S9(07)V9(02) COMP-3 - VALUE -2503018.94. + VALUE -2503018.94. 77 FLD0406C PIC 9(07)V9(23) COMP-6. 77 FLD0407A PIC 9(09)V9(13) COMP-3 - VALUE 592634898.8738083800598. + VALUE 592634898.8738083800598. 77 FLD0407C PIC 9(01)V9(36) COMP-6. 77 FLD0408A PIC 9(09)V9(07) COMP-6 - VALUE 438100099.1119252. + VALUE 438100099.1119252. 77 FLD0408C PIC 9(08)V9(02) COMP-6. 77 FLD0409A PIC 9(08)V9(02) COMP-6 - VALUE 28575188.65. + VALUE 28575188.65. 77 FLD0409C PIC 9(09)V9(12) COMP-6. 77 FLD0410A PIC 9(09)V9(14) COMP-6 - VALUE 615937928.60877261130525. + VALUE 615937928.60877261130525. 77 FLD0410C PIC 9(01)V9(36) COMP-3. 77 FLD0411A PIC 9(09)V9(17) COMP-6 - VALUE 688573322.26995748847286904. + VALUE 688573322.26995748847286904. 77 FLD0411C PIC 9(07)V9(22) COMP-6. 77 FLD0412A PIC 9(09)V9(12) COMP-3 - VALUE 572677017.522024045526. + VALUE 572677017.522024045526. 77 FLD0412C PIC S9(01) COMP-3. 77 FLD0413A PIC 9(06)V9(25) COMP-6 - VALUE 828822.6462986850728853482905833. + VALUE 828822.6462986850728853482905833. 77 FLD0413C PIC S9(01) COMP-3. 77 FLD0414A PIC 9(05)V9(27) COMP-3 - VALUE 84413.303017262042438062508153961. + VALUE 84413.303017262042438062508153961. 77 FLD0414C PIC S9(05) COMP-3. 77 FLD0415A PIC 9(09)V9(15) COMP-3 - VALUE 650722988.227690701812377. + VALUE 650722988.227690701812377. 77 FLD0415C PIC 9(03)V9(31) COMP-6. 77 FLD0416A PIC 9(09)V9(16) COMP-6 - VALUE 675584038.8269652718733482. + VALUE 675584038.8269652718733482. 77 FLD0416C PIC S9(01) COMP-3. 77 FLD0417A PIC 9(03)V9(32) COMP-3 - VALUE 942.59186417160190085695603556814603. + VALUE 942.59186417160190085695603556814603. 77 FLD0417C PIC 9(04)V9(29) COMP-3. 77 FLD0418A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0418C PIC 9(01) COMP-6. 77 FLD0419A PIC 9(09)V9(06) COMP-6 - VALUE 415695619.544491. + VALUE 415695619.544491. 77 FLD0419C PIC 9(10)V9(10) COMP-3. 77 FLD0420A PIC 9(08)V9(02) COMP-6 - VALUE 26881191.37. + VALUE 26881191.37. 77 FLD0420C PIC 9(04)V9(30) COMP-6. 77 FLD0421A PIC 9(08)V9(19) COMP-3 - VALUE 71124707.9077118260492795798. + VALUE 71124707.9077118260492795798. 77 FLD0421C PIC S9(06)V9(01) COMP-3. 77 FLD0422A PIC 9(08)V9(18) COMP-3 - VALUE 69276472.004700051510184266. + VALUE 69276472.004700051510184266. 77 FLD0422C PIC 9(02)V9(34) COMP-6. 77 FLD0423A PIC 9(09)V9(13) COMP-6 - VALUE 595417774.2919815052857. + VALUE 595417774.2919815052857. 77 FLD0423C PIC 9(09)V9(17) COMP-6. 77 FLD0424A PIC 9(09)V9(11) COMP-3 - VALUE 551151541.59885582085. + VALUE 551151541.59885582085. 77 FLD0424C PIC 9(08)V9(19) COMP-6. 77 FLD0425A PIC S9(10)V9(08) COMP-3 - VALUE -4741628720.81754727. + VALUE -4741628720.81754727. 77 FLD0425C PIC 9(10)V9(12) COMP-3. 77 FLD0426A PIC 9(10)V9(11) COMP-3 - VALUE 5601456695.80725313885. + VALUE 5601456695.80725313885. 77 FLD0426C PIC 9(10)V9(11) COMP-6. 77 FLD0427A PIC 9(09)V9(04) COMP-6 - VALUE 365284621.5641. + VALUE 365284621.5641. 77 FLD0427C PIC 9(07)V9(22) COMP-6. 77 FLD0428A PIC 9(05)V9(27) COMP-6 - VALUE 85913.234918316627730661139139556. + VALUE 85913.234918316627730661139139556. 77 FLD0428C PIC 9(01)V9(36) COMP-6. 77 FLD0429A PIC 9(07)V9(22) COMP-3 - VALUE 7833347.6062909002113343603923. + VALUE 7833347.6062909002113343603923. 77 FLD0429C PIC 9(09)V9(06) COMP-6. 77 FLD0430A PIC 9(08)V9(03) COMP-6 - VALUE 30820998.502. + VALUE 30820998.502. 77 FLD0430C PIC 9(09)V9(04) COMP-6. 77 FLD0431A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0431C PIC 9(03)V9(31) COMP-3. 77 FLD0432A PIC 9(10)V9(11) COMP-3 - VALUE 5612307034.00538710745. + VALUE 5612307034.00538710745. 77 FLD0432C PIC S9(06) COMP-3. 77 FLD0433A PIC 9(08)V9(19) COMP-3 - VALUE 72012955.8244768763763943297. + VALUE 72012955.8244768763763943297. 77 FLD0433C PIC 9(06)V9(01) COMP-6. 77 FLD0434A PIC S9(10)V9(07) COMP-3 - VALUE -4547054675.3415619. + VALUE -4547054675.3415619. 77 FLD0434C PIC 9(03)V9(32) COMP-3. 77 FLD0435A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0435C PIC 9(10)V9(12) COMP-3. 77 FLD0436A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0436C PIC 9(06)V9(25) COMP-3. 77 FLD0437A PIC 9(09)V9(15) COMP-3 - VALUE 632897272.198471361193128. + VALUE 632897272.198471361193128. 77 FLD0437C PIC 9(09)V9(15) COMP-3. 77 FLD0438A PIC 9(09)V9(16) COMP-3 - VALUE 664694021.6365745390802999. + VALUE 664694021.6365745390802999. 77 FLD0438C PIC 9(05)V9(28) COMP-3. 77 FLD0439A PIC 9(10)V9(08) COMP-6 - VALUE 4961134805.43429519. + VALUE 4961134805.43429519. 77 FLD0439C PIC 9(10)V9(11) COMP-3. 77 FLD0440A PIC 9(04)V9(29) COMP-6 - VALUE 8899.07507055040514210020319296745. + VALUE 8899.07507055040514210020319296745. 77 FLD0440C PIC 9(10)V9(07) COMP-6. 77 FLD0441A PIC 9(08)V9(19) COMP-3 - VALUE 71126905.4406556744396539215. + VALUE 71126905.4406556744396539215. 77 FLD0441C PIC S9(10)V9(06) COMP-3. 77 FLD0442A PIC 9(05)V9(01) COMP-6 - VALUE 16995.1. + VALUE 16995.1. 77 FLD0442C PIC 9(03)V9(31) COMP-6. 77 FLD0443A PIC S9(10)V9(08) COMP-3 - VALUE -4744984255.46487689. + VALUE -4744984255.46487689. 77 FLD0443C PIC 9(09)V9(14) COMP-3. 77 FLD0444A PIC 9(02)V9(33) COMP-6 - VALUE 94.673816662087151296844922399031929. + VALUE 94.673816662087151296844922399031929. 77 FLD0444C PIC 9(10)V9(09) COMP-3. 77 FLD0445A PIC 9(10)V9(10) COMP-3 - VALUE 5416554544.5299512206. + VALUE 5416554544.5299512206. 77 FLD0445C PIC S9(10)V9(07) COMP-3. 77 FLD0446A PIC 9(10)V9(09) COMP-3 - VALUE 5044897846.697211640. + VALUE 5044897846.697211640. 77 FLD0446C PIC 9(09)V9(16) COMP-6. 77 FLD0447A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0447C PIC 9(08)V9(02) COMP-6. 77 FLD0448A PIC 9(06)V9(01) COMP-6 - VALUE 186565.4. + VALUE 186565.4. 77 FLD0448C PIC 9(10)V9(10) COMP-6. 77 FLD0449A PIC S9(09)V9(05) COMP-3 - VALUE -384988094.18704. + VALUE -384988094.18704. 77 FLD0449C PIC S9(08)V9(04) COMP-3. 77 FLD0450A PIC 9(09)V9(14) COMP-6 - VALUE 625578375.50228334588808. + VALUE 625578375.50228334588808. 77 FLD0450C PIC 9(09)V9(13) COMP-6. 77 FLD0451A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0451C PIC S9(07)V9(02) COMP-3. 77 FLD0452A PIC 9(08)V9(02) COMP-6 - VALUE 26826484.18. + VALUE 26826484.18. 77 FLD0452C PIC 9(10)V9(11) COMP-6. 77 FLD0453A PIC 9(10)V9(10) COMP-6 - VALUE 5383526546.5392911909. + VALUE 5383526546.5392911909. 77 FLD0453C PIC 9(02)V9(34) COMP-6. 77 FLD0454A PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0454C PIC S9(01) COMP-3. 77 FLD0455A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0455C PIC 9(05)V9(27) COMP-3. 77 FLD0456A PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0456C PIC 9(05) COMP-6. 77 FLD0457A PIC 9(04)V9(30) COMP-6 - VALUE 9063.641671624598217249513254500925. + VALUE 9063.641671624598217249513254500925. 77 FLD0457C PIC 9(01) COMP-6. 77 FLD0458A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0458C PIC 9(09)V9(03) COMP-6. 77 FLD0459A PIC 9(06)V9(01) COMP-6 - VALUE 198479.9. + VALUE 198479.9. 77 FLD0459C PIC 9(10)V9(11) COMP-3. 77 FLD0460A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0460C PIC 9(07)V9(22) COMP-3. 77 FLD0461A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0461C PIC S9(07)V9(01) COMP-3. 77 FLD0462A PIC 9(08)V9(02) COMP-6 - VALUE 26776595.69. + VALUE 26776595.69. 77 FLD0462C PIC 9(02)V9(34) COMP-3. 77 FLD0463A PIC 9(05)V9(27) COMP-3 - VALUE 85490.666934027292889197724434779. + VALUE 85490.666934027292889197724434779. 77 FLD0463C PIC 9(09)V9(06) COMP-6. 77 FLD0464A PIC 9(10)V9(07) COMP-6 - VALUE 4587031190.3834293. + VALUE 4587031190.3834293. 77 FLD0464C PIC 9(08)V9(19) COMP-6. 77 FLD0465A PIC 9(10)V9(12) COMP-3 - VALUE 5816563985.597106301028. + VALUE 5816563985.597106301028. 77 FLD0465C PIC 9(06)V9(25) COMP-6. 77 FLD0466A PIC 9(09)V9(15) COMP-3 - VALUE 654381306.333900236715805. + VALUE 654381306.333900236715805. 77 FLD0466C PIC 9(05) COMP-6. 77 FLD0467A PIC S9(07)V9(01) COMP-3 - VALUE +2343287.0. + VALUE +2343287.0. 77 FLD0467C PIC 9(04)V9(29) COMP-3. 77 FLD0468A PIC S9(10)V9(06) COMP-3 - VALUE +4344132145.767680. + VALUE +4344132145.767680. 77 FLD0468C PIC 9(08)V9(03) COMP-6. 77 FLD0469A PIC 9(08)V9(18) COMP-6 - VALUE 70961503.876956555370014712. + VALUE 70961503.876956555370014712. 77 FLD0469C PIC 9(10)V9(09) COMP-3. 77 FLD0470A PIC 9(03)V9(31) COMP-3 - VALUE 913.6810028966669827710234130790922. + VALUE 913.6810028966669827710234130790922. 77 FLD0470C PIC S9(09)V9(05) COMP-3. 77 FLD0471A PIC S9(07)V9(02) COMP-3 - VALUE -2507103.69. + VALUE -2507103.69. 77 FLD0471C PIC 9(01) COMP-6. 77 FLD0472A PIC 9(10)V9(09) COMP-3 - VALUE 5103990869.050332168. + VALUE 5103990869.050332168. 77 FLD0472C PIC 9(06)V9(26) COMP-3. 77 FLD0473A PIC 9(08)V9(20) COMP-3 - VALUE 74367162.06805468187823748849. + VALUE 74367162.06805468187823748849. 77 FLD0473C PIC 9(08)V9(18) COMP-3. 77 FLD0474A PIC 9(08)V9(19) COMP-6 - VALUE 72625744.5118117406224200749. + VALUE 72625744.5118117406224200749. 77 FLD0474C PIC S9(05) COMP-3. 77 FLD0475A PIC 9(10)V9(07) COMP-6 - VALUE 4588724634.2999971. + VALUE 4588724634.2999971. 77 FLD0475C PIC S9(09)V9(06) COMP-3. 77 FLD0476A PIC 9(08)V9(02) COMP-6 - VALUE 28869933.49. + VALUE 28869933.49. 77 FLD0476C PIC 9(06)V9(01) COMP-6. 77 FLD0477A PIC 9(08)V9(20) COMP-3 - VALUE 74492482.99155191155307420558. + VALUE 74492482.99155191155307420558. 77 FLD0477C PIC S9(09)V9(05) COMP-3. 77 FLD0478A PIC 9(08)V9(19) COMP-6 - VALUE 72616162.5751895356550846827. + VALUE 72616162.5751895356550846827. 77 FLD0478C PIC 9(09)V9(04) COMP-6. 77 FLD0479A PIC S9(09)V9(06) COMP-3 - VALUE +413502052.896697. + VALUE +413502052.896697. 77 FLD0479C PIC 9(06)V9(25) COMP-3. 77 FLD0480A PIC S9(06)V9(01) COMP-3 - VALUE +203017.8. + VALUE +203017.8. 77 FLD0480C PIC 9(08)V9(20) COMP-6. 77 FLD0481A PIC 9(05) COMP-6 - VALUE 15658. + VALUE 15658. 77 FLD0481C PIC 9(01)V9(36) COMP-3. 77 FLD0482A PIC 9(08)V9(18) COMP-6 - VALUE 70905037.950447225014727337. + VALUE 70905037.950447225014727337. 77 FLD0482C PIC S9(10)V9(08) COMP-3. 77 FLD0483A PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0483C PIC S9(09)V9(03) COMP-3. 77 FLD0484A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0484C PIC 9(09)V9(12) COMP-6. 77 FLD0485A PIC 9(07)V9(02) COMP-6 - VALUE 2567572.97. + VALUE 2567572.97. 77 FLD0485C PIC 9(05)V9(01) COMP-6. 77 FLD0486A PIC 9(05) COMP-6 - VALUE 13937. + VALUE 13937. 77 FLD0486C PIC 9(10)V9(07) COMP-6. 77 FLD0487A PIC 9(06)V9(01) COMP-6 - VALUE 209384.2. + VALUE 209384.2. 77 FLD0487C PIC 9(08)V9(18) COMP-3. 77 FLD0488A PIC S9(10)V9(07) COMP-3 - VALUE -4519198906.7966076. + VALUE -4519198906.7966076. 77 FLD0488C PIC 9(09)V9(16) COMP-6. 77 FLD0489A PIC S9(05)V9(01) COMP-3 - VALUE -17360.6. + VALUE -17360.6. 77 FLD0489C PIC 9(01)V9(36) COMP-6. 77 FLD0490A PIC 9(10)V9(10) COMP-6 - VALUE 5352566580.2623056954. + VALUE 5352566580.2623056954. 77 FLD0490C PIC 9(08)V9(02) COMP-6. 77 FLD0491A PIC 9(03)V9(31) COMP-6 - VALUE 918.2459205467069507378141679510008. + VALUE 918.2459205467069507378141679510008. 77 FLD0491C PIC 9(09)V9(16) COMP-3. 77 FLD0492A PIC 9(06)V9(25) COMP-6 - VALUE 819266.4570447540928199714471702. + VALUE 819266.4570447540928199714471702. 77 FLD0492C PIC S9(09)V9(04) COMP-3. 77 FLD0493A PIC S9(05)V9(01) COMP-3 - VALUE -18038.5. + VALUE -18038.5. 77 FLD0493C PIC 9(06)V9(24) COMP-6. 77 FLD0494A PIC 9(05)V9(28) COMP-6 - VALUE 87574.5417791477964719604187848744. + VALUE 87574.5417791477964719604187848744. 77 FLD0494C PIC 9(10)V9(09) COMP-3. 77 FLD0495A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0495C PIC 9(09)V9(15) COMP-6. 77 FLD0496A PIC 9(06)V9(25) COMP-6 - VALUE 816763.6415427422802437718019064. + VALUE 816763.6415427422802437718019064. 77 FLD0496C PIC S9(04) COMP-3. 77 FLD0497A PIC 9(06)V9(25) COMP-6 - VALUE 836230.6435874340415637107071233. + VALUE 836230.6435874340415637107071233. 77 FLD0497C PIC 9(09)V9(16) COMP-6. 77 FLD0498A PIC 9(10)V9(08) COMP-6 - VALUE 4792455293.49441590. + VALUE 4792455293.49441590. 77 FLD0498C PIC 9(06)V9(01) COMP-6. 77 FLD0499A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0499C PIC 9(09)V9(15) COMP-3. * RESULTS-AREA @@ -6917,2003 +6917,2003 @@ AT_DATA([prog2.cob], [ * DATA-AREA 77 FLD0500A PIC S9(10)V9(08) COMP-3 - VALUE -4830218621.81680639. + VALUE -4830218621.81680639. 77 FLD0500C PIC 9(03) COMP-6. 77 FLD0501A PIC 9(09)V9(15) COMP-3 - VALUE 652910855.370784748430423. + VALUE 652910855.370784748430423. 77 FLD0501C PIC 9(09)V9(14) COMP-6. 77 FLD0502A PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0502C PIC 9(07)V9(22) COMP-6. 77 FLD0503A PIC 9(10)V9(11) COMP-6 - VALUE 5662523582.77427925159. + VALUE 5662523582.77427925159. 77 FLD0503C PIC 9(04)V9(29) COMP-3. 77 FLD0504A PIC S9(08)V9(02) COMP-3 - VALUE -28360864.01. + VALUE -28360864.01. 77 FLD0504C PIC 9(10)V9(09) COMP-3. 77 FLD0505A PIC 9(04)V9(30) COMP-3 - VALUE 9110.332843503369248949752545740921. + VALUE 9110.332843503369248949752545740921. 77 FLD0505C PIC 9(10)V9(10) COMP-3. 77 FLD0506A PIC 9(10)V9(11) COMP-3 - VALUE 5546838940.35467472960. + VALUE 5546838940.35467472960. 77 FLD0506C PIC S9(07)V9(01) COMP-3. 77 FLD0507A PIC 9(08)V9(18) COMP-6 - VALUE 70736506.262277043521891073. + VALUE 70736506.262277043521891073. 77 FLD0507C PIC 9(10)V9(09) COMP-3. 77 FLD0508A PIC 9(09)V9(16) COMP-6 - VALUE 658855971.9467786957025623. + VALUE 658855971.9467786957025623. 77 FLD0508C PIC S9(09)V9(07) COMP-3. 77 FLD0509A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0509C PIC 9(10)V9(08) COMP-6. 77 FLD0510A PIC 9(04) COMP-6 - VALUE 1295. + VALUE 1295. 77 FLD0510C PIC S9(03) COMP-3. 77 FLD0511A PIC 9(06)V9(25) COMP-6 - VALUE 815863.7850571600624860479911149. + VALUE 815863.7850571600624860479911149. 77 FLD0511C PIC 9(10)V9(09) COMP-6. 77 FLD0512A PIC 9(05) COMP-6 - VALUE 13945. + VALUE 13945. 77 FLD0512C PIC 9(01)V9(36) COMP-3. 77 FLD0513A PIC 9(09)V9(15) COMP-3 - VALUE 653773832.246937192103075. + VALUE 653773832.246937192103075. 77 FLD0513C PIC 9(08)V9(20) COMP-3. 77 FLD0514A PIC 9(08)V9(18) COMP-3 - VALUE 70109343.593910689040882289. + VALUE 70109343.593910689040882289. 77 FLD0514C PIC 9(09)V9(04) COMP-6. 77 FLD0515A PIC 9(09)V9(16) COMP-6 - VALUE 658210435.7548693718271692. + VALUE 658210435.7548693718271692. 77 FLD0515C PIC 9(03)V9(32) COMP-3. 77 FLD0516A PIC 9(01)V9(36) COMP-6 - VALUE 9.884403805479323734672902901365887373. + VALUE 9.884403805479323734672902901365887373. 77 FLD0516C PIC 9(01) COMP-6. 77 FLD0517A PIC 9(10)V9(07) COMP-6 - VALUE 4497620438.0577999. + VALUE 4497620438.0577999. 77 FLD0517C PIC S9(10)V9(08) COMP-3. 77 FLD0518A PIC 9(09)V9(16) COMP-3 - VALUE 664556684.1155496895510168. + VALUE 664556684.1155496895510168. 77 FLD0518C PIC S9(02) COMP-3. 77 FLD0519A PIC 9(09)V9(14) COMP-3 - VALUE 630097608.79846921088898. + VALUE 630097608.79846921088898. 77 FLD0519C PIC 9(08)V9(17) COMP-3. 77 FLD0520A PIC 9(04)V9(30) COMP-6 - VALUE 9052.329380117529744609328190563246. + VALUE 9052.329380117529744609328190563246. 77 FLD0520C PIC 9(09)V9(14) COMP-3. 77 FLD0521A PIC 9(05) COMP-6 - VALUE 13956. + VALUE 13956. 77 FLD0521C PIC S9(05) COMP-3. 77 FLD0522A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0522C PIC S9(09)V9(04) COMP-3. 77 FLD0523A PIC 9(08)V9(18) COMP-6 - VALUE 70807149.512639711019801325. + VALUE 70807149.512639711019801325. 77 FLD0523C PIC S9(08)V9(02) COMP-3. 77 FLD0524A PIC S9(06)V9(01) COMP-3 - VALUE +201515.3. + VALUE +201515.3. 77 FLD0524C PIC 9(10)V9(09) COMP-3. 77 FLD0525A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0525C PIC 9(04)V9(29) COMP-6. 77 FLD0526A PIC 9(07)V9(22) COMP-3 - VALUE 7812896.0072540409864672028561. + VALUE 7812896.0072540409864672028561. 77 FLD0526C PIC 9(07)V9(02) COMP-6. 77 FLD0527A PIC 9(10)V9(12) COMP-6 - VALUE 5853770318.384275972434. + VALUE 5853770318.384275972434. 77 FLD0527C PIC 9(10)V9(09) COMP-3. 77 FLD0528A PIC 9(10)V9(08) COMP-6 - VALUE 4856797949.89136714. + VALUE 4856797949.89136714. 77 FLD0528C PIC S9(04) COMP-3. 77 FLD0529A PIC 9(10)V9(10) COMP-6 - VALUE 5298570971.4885653731. + VALUE 5298570971.4885653731. 77 FLD0529C PIC S9(10)V9(07) COMP-3. 77 FLD0530A PIC 9(05)V9(28) COMP-6 - VALUE 87536.5484141958027919372398173436. + VALUE 87536.5484141958027919372398173436. 77 FLD0530C PIC S9(02) COMP-3. 77 FLD0531A PIC 9(09)V9(03) COMP-6 - VALUE 317487049.751. + VALUE 317487049.751. 77 FLD0531C PIC S9(07)V9(01) COMP-3. 77 FLD0532A PIC 9(09)V9(15) COMP-3 - VALUE 653250626.044252880042506. + VALUE 653250626.044252880042506. 77 FLD0532C PIC S9(01) COMP-3. 77 FLD0533A PIC 9(07)V9(02) COMP-6 - VALUE 2559928.55. + VALUE 2559928.55. 77 FLD0533C PIC 9(03) COMP-6. 77 FLD0534A PIC 9(09)V9(06) COMP-6 - VALUE 408226706.354108. + VALUE 408226706.354108. 77 FLD0534C PIC 9(10)V9(09) COMP-3. 77 FLD0535A PIC 9(10)V9(11) COMP-6 - VALUE 5556101599.27967472981. + VALUE 5556101599.27967472981. 77 FLD0535C PIC 9(05)V9(27) COMP-3. 77 FLD0536A PIC S9(08)V9(03) COMP-3 - VALUE -29061270.882. + VALUE -29061270.882. 77 FLD0536C PIC S9(01) COMP-3. 77 FLD0537A PIC 9(08)V9(03) COMP-6 - VALUE 29943354.242. + VALUE 29943354.242. 77 FLD0537C PIC 9(04) COMP-6. 77 FLD0538A PIC 9(03)V9(32) COMP-3 - VALUE 922.29859860523566439383102988358587. + VALUE 922.29859860523566439383102988358587. 77 FLD0538C PIC 9(04)V9(29) COMP-6. 77 FLD0539A PIC 9(05)V9(27) COMP-6 - VALUE 85666.721070025741990860979058197. + VALUE 85666.721070025741990860979058197. 77 FLD0539C PIC 9(05)V9(27) COMP-3. 77 FLD0540A PIC S9(04) COMP-3 - VALUE +1227. + VALUE +1227. 77 FLD0540C PIC 9(01) COMP-6. 77 FLD0541A PIC 9(09)V9(05) COMP-6 - VALUE 387240740.80744. + VALUE 387240740.80744. 77 FLD0541C PIC 9(07)V9(22) COMP-6. 77 FLD0542A PIC 9(06)V9(25) COMP-3 - VALUE 831706.5789473143677668076634290. + VALUE 831706.5789473143677668076634290. 77 FLD0542C PIC 9(10)V9(11) COMP-3. 77 FLD0543A PIC 9(06)V9(01) COMP-6 - VALUE 188772.9. + VALUE 188772.9. 77 FLD0543C PIC 9(07)V9(02) COMP-6. 77 FLD0544A PIC 9(10)V9(09) COMP-3 - VALUE 5241766194.366106468. + VALUE 5241766194.366106468. 77 FLD0544C PIC 9(08)V9(02) COMP-6. 77 FLD0545A PIC 9(09)V9(14) COMP-3 - VALUE 622229285.46684597161942. + VALUE 622229285.46684597161942. 77 FLD0545C PIC 9(08)V9(19) COMP-3. 77 FLD0546A PIC 9(06)V9(25) COMP-3 - VALUE 820358.8689269564193651262939965. + VALUE 820358.8689269564193651262939965. 77 FLD0546C PIC 9(09)V9(14) COMP-3. 77 FLD0547A PIC 9(06)V9(25) COMP-3 - VALUE 821925.7242001770658035297856258. + VALUE 821925.7242001770658035297856258. 77 FLD0547C PIC S9(09)V9(04) COMP-3. 77 FLD0548A PIC 9(07)V9(23) COMP-6 - VALUE 7955385.78445739497091437897324. + VALUE 7955385.78445739497091437897324. 77 FLD0548C PIC 9(09)V9(17) COMP-6. 77 FLD0549A PIC 9(07)V9(01) COMP-6 - VALUE 2367856.7. + VALUE 2367856.7. 77 FLD0549C PIC 9(09)V9(06) COMP-6. 77 FLD0550A PIC 9(09)V9(15) COMP-6 - VALUE 656651700.520587522369453. + VALUE 656651700.520587522369453. 77 FLD0550C PIC 9(02) COMP-6. 77 FLD0551A PIC 9(07)V9(02) COMP-6 - VALUE 2589973.73. + VALUE 2589973.73. 77 FLD0551C PIC 9(09)V9(15) COMP-3. 77 FLD0552A PIC 9(10)V9(07) COMP-6 - VALUE 4579590761.6898545. + VALUE 4579590761.6898545. 77 FLD0552C PIC 9(05) COMP-6. 77 FLD0553A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0553C PIC S9(09)V9(04) COMP-3. 77 FLD0554A PIC 9(07)V9(02) COMP-6 - VALUE 2568219.15. + VALUE 2568219.15. 77 FLD0554C PIC 9(03)V9(32) COMP-3. 77 FLD0555A PIC 9(09)V9(05) COMP-6 - VALUE 388184875.66560. + VALUE 388184875.66560. 77 FLD0555C PIC 9(10)V9(09) COMP-3. 77 FLD0556A PIC 9(04)V9(30) COMP-6 - VALUE 8983.209260005348140154524116951506. + VALUE 8983.209260005348140154524116951506. 77 FLD0556C PIC 9(10)V9(11) COMP-6. 77 FLD0557A PIC 9(09)V9(15) COMP-3 - VALUE 650877011.601572519339242. + VALUE 650877011.601572519339242. 77 FLD0557C PIC S9(05) COMP-3. 77 FLD0558A PIC 9(09)V9(13) COMP-6 - VALUE 595830550.3266489999703. + VALUE 595830550.3266489999703. 77 FLD0558C PIC 9(06)V9(01) COMP-6. 77 FLD0559A PIC 9(10)V9(09) COMP-3 - VALUE 5242032248.235551916. + VALUE 5242032248.235551916. 77 FLD0559C PIC 9(07)V9(22) COMP-6. 77 FLD0560A PIC S9(09)V9(06) COMP-3 - VALUE +403640603.914505. + VALUE +403640603.914505. 77 FLD0560C PIC 9(09)V9(07) COMP-6. 77 FLD0561A PIC 9(05) COMP-6 - VALUE 14931. + VALUE 14931. 77 FLD0561C PIC 9(01) COMP-6. 77 FLD0562A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0562C PIC 9(02)V9(34) COMP-6. 77 FLD0563A PIC 9(10)V9(09) COMP-3 - VALUE 5040974749.501065943. + VALUE 5040974749.501065943. 77 FLD0563C PIC S9(08)V9(03) COMP-3. 77 FLD0564A PIC 9(09)V9(16) COMP-6 - VALUE 666123633.8391588462926051. + VALUE 666123633.8391588462926051. 77 FLD0564C PIC 9(03)V9(32) COMP-6. 77 FLD0565A PIC 9(04)V9(30) COMP-6 - VALUE 8999.472704059103822515908177592791. + VALUE 8999.472704059103822515908177592791. 77 FLD0565C PIC 9(06)V9(01) COMP-6. 77 FLD0566A PIC 9(10)V9(10) COMP-6 - VALUE 5451645287.6426646501. + VALUE 5451645287.6426646501. 77 FLD0566C PIC 9(09)V9(03) COMP-6. 77 FLD0567A PIC S9(07)V9(02) COMP-3 - VALUE -2621767.34. + VALUE -2621767.34. 77 FLD0567C PIC 9(04)V9(29) COMP-6. 77 FLD0568A PIC S9(08)V9(02) COMP-3 - VALUE -28119737.76. + VALUE -28119737.76. 77 FLD0568C PIC 9(09)V9(14) COMP-6. 77 FLD0569A PIC 9(10)V9(10) COMP-3 - VALUE 5301098669.5201622875. + VALUE 5301098669.5201622875. 77 FLD0569C PIC S9(09)V9(06) COMP-3. 77 FLD0570A PIC 9(05) COMP-6 - VALUE 13775. + VALUE 13775. 77 FLD0570C PIC 9(08)V9(19) COMP-3. 77 FLD0571A PIC 9(10)V9(08) COMP-6 - VALUE 4995844884.12155025. + VALUE 4995844884.12155025. 77 FLD0571C PIC 9(09)V9(16) COMP-6. 77 FLD0572A PIC 9(06)V9(01) COMP-6 - VALUE 199648.9. + VALUE 199648.9. 77 FLD0572C PIC S9(06) COMP-3. 77 FLD0573A PIC 9(10)V9(11) COMP-6 - VALUE 5579051586.61930800079. + VALUE 5579051586.61930800079. 77 FLD0573C PIC 9(01)V9(36) COMP-3. 77 FLD0574A PIC 9(10)V9(09) COMP-3 - VALUE 5021035726.447702352. + VALUE 5021035726.447702352. 77 FLD0574C PIC S9(01) COMP-3. 77 FLD0575A PIC 9(02)V9(34) COMP-3 - VALUE 96.0495649054037059499933093320578336. + VALUE 96.0495649054037059499933093320578336. 77 FLD0575C PIC S9(01) COMP-3. 77 FLD0576A PIC 9(09)V9(11) COMP-3 - VALUE 551289746.02273483895. + VALUE 551289746.02273483895. 77 FLD0576C PIC 9(10)V9(10) COMP-6. 77 FLD0577A PIC S9(10)V9(06) COMP-3 - VALUE +4245433083.607936. + VALUE +4245433083.607936. 77 FLD0577C PIC 9(02)V9(34) COMP-6. 77 FLD0578A PIC S9(07)V9(02) COMP-3 - VALUE +2444375.29. + VALUE +2444375.29. 77 FLD0578C PIC 9(05)V9(01) COMP-6. 77 FLD0579A PIC 9(09)V9(17) COMP-6 - VALUE 688719854.55414208576740975. + VALUE 688719854.55414208576740975. 77 FLD0579C PIC 9(10)V9(09) COMP-3. 77 FLD0580A PIC S9(08)V9(04) COMP-3 - VALUE +33455460.0291. + VALUE +33455460.0291. 77 FLD0580C PIC 9(02)V9(34) COMP-3. 77 FLD0581A PIC S9(08)V9(02) COMP-3 - VALUE -28271118.43. + VALUE -28271118.43. 77 FLD0581C PIC 9(09)V9(15) COMP-6. 77 FLD0582A PIC 9(02)V9(34) COMP-3 - VALUE 95.0957041455027018983514608407858759. + VALUE 95.0957041455027018983514608407858759. 77 FLD0582C PIC 9(09)V9(14) COMP-6. 77 FLD0583A PIC 9(04)V9(30) COMP-3 - VALUE 9004.015213488590907431330379040446. + VALUE 9004.015213488590907431330379040446. 77 FLD0583C PIC S9(01) COMP-3. 77 FLD0584A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0584C PIC 9(02)V9(34) COMP-6. 77 FLD0585A PIC S9(10)V9(06) COMP-3 - VALUE +4326355872.600766. + VALUE +4326355872.600766. 77 FLD0585C PIC 9(03)V9(32) COMP-6. 77 FLD0586A PIC 9(05)V9(27) COMP-6 - VALUE 85722.001340062370378092282408033. + VALUE 85722.001340062370378092282408033. 77 FLD0586C PIC 9(07)V9(22) COMP-6. 77 FLD0587A PIC S9(09)V9(05) COMP-3 - VALUE -381433349.51035. + VALUE -381433349.51035. 77 FLD0587C PIC S9(04) COMP-3. 77 FLD0588A PIC 9(10)V9(09) COMP-6 - VALUE 5181115773.570048599. + VALUE 5181115773.570048599. 77 FLD0588C PIC 9(04)V9(30) COMP-3. 77 FLD0589A PIC S9(09)V9(06) COMP-3 - VALUE +401102073.275349. + VALUE +401102073.275349. 77 FLD0589C PIC S9(04) COMP-3. 77 FLD0590A PIC 9(08)V9(18) COMP-3 - VALUE 70309799.830174168899787900. + VALUE 70309799.830174168899787900. 77 FLD0590C PIC S9(06)V9(01) COMP-3. 77 FLD0591A PIC 9(09)V9(12) COMP-6 - VALUE 576933255.371857245386. + VALUE 576933255.371857245386. 77 FLD0591C PIC 9(10)V9(09) COMP-3. 77 FLD0592A PIC 9(09)V9(15) COMP-3 - VALUE 644514829.253344467829833. + VALUE 644514829.253344467829833. 77 FLD0592C PIC S9(08)V9(03) COMP-3. 77 FLD0593A PIC 9(08)V9(19) COMP-3 - VALUE 72063942.4137167527995018190. + VALUE 72063942.4137167527995018190. 77 FLD0593C PIC S9(02) COMP-3. 77 FLD0594A PIC S9(08)V9(02) COMP-3 - VALUE -27405154.91. + VALUE -27405154.91. 77 FLD0594C PIC 9(07)V9(22) COMP-3. 77 FLD0595A PIC 9(08)V9(18) COMP-3 - VALUE 70489201.749069052560514592. + VALUE 70489201.749069052560514592. 77 FLD0595C PIC 9(06)V9(25) COMP-3. 77 FLD0596A PIC 9(04)V9(30) COMP-6 - VALUE 9050.358418523600789740157779306173. + VALUE 9050.358418523600789740157779306173. 77 FLD0596C PIC 9(09)V9(15) COMP-6. 77 FLD0597A PIC S9(10)V9(07) COMP-3 - VALUE -4611492066.1642122. + VALUE -4611492066.1642122. 77 FLD0597C PIC 9(06)V9(25) COMP-6. 77 FLD0598A PIC 9(10)V9(12) COMP-6 - VALUE 5888650589.753158248740. + VALUE 5888650589.753158248740. 77 FLD0598C PIC S9(09)V9(06) COMP-3. 77 FLD0599A PIC 9(05)V9(27) COMP-6 - VALUE 85689.140306102984379066356268594. + VALUE 85689.140306102984379066356268594. 77 FLD0599C PIC 9(01) COMP-6. 77 FLD0600A PIC S9(09)V9(06) COMP-3 - VALUE +401694362.049109. + VALUE +401694362.049109. 77 FLD0600C PIC 9(06)V9(24) COMP-3. 77 FLD0601A PIC 9(01)V9(36) COMP-6 - VALUE 9.763793413809590537866256454435642808. + VALUE 9.763793413809590537866256454435642808. 77 FLD0601C PIC 9(08)V9(03) COMP-6. 77 FLD0602A PIC 9(09)V9(17) COMP-6 - VALUE 685435627.00727922454291274. + VALUE 685435627.00727922454291274. 77 FLD0602C PIC 9(07)V9(02) COMP-6. 77 FLD0603A PIC 9(09)V9(16) COMP-6 - VALUE 679265807.5584466770280300. + VALUE 679265807.5584466770280300. 77 FLD0603C PIC S9(05)V9(01) COMP-3. 77 FLD0604A PIC 9(08)V9(19) COMP-6 - VALUE 72862711.3591577502127449861. + VALUE 72862711.3591577502127449861. 77 FLD0604C PIC 9(10)V9(11) COMP-6. 77 FLD0605A PIC 9(04) COMP-6 - VALUE 1194. + VALUE 1194. 77 FLD0605C PIC 9(10)V9(06) COMP-6. 77 FLD0606A PIC 9(07)V9(23) COMP-6 - VALUE 7955557.56926823565144957228767. + VALUE 7955557.56926823565144957228767. 77 FLD0606C PIC S9(08)V9(04) COMP-3. 77 FLD0607A PIC 9(10)V9(08) COMP-6 - VALUE 4950511846.00309279. + VALUE 4950511846.00309279. 77 FLD0607C PIC 9(05) COMP-6. 77 FLD0608A PIC 9(09)V9(03) COMP-6 - VALUE 328182518.441. + VALUE 328182518.441. 77 FLD0608C PIC 9(02)V9(34) COMP-6. 77 FLD0609A PIC 9(08)V9(04) COMP-6 - VALUE 33948712.4475. + VALUE 33948712.4475. 77 FLD0609C PIC 9(10)V9(07) COMP-6. 77 FLD0610A PIC 9(06)V9(24) COMP-6 - VALUE 807988.537497822956190418608457. + VALUE 807988.537497822956190418608457. 77 FLD0610C PIC 9(08)V9(02) COMP-6. 77 FLD0611A PIC 9(07)V9(22) COMP-3 - VALUE 7747853.4043620861382350994972. + VALUE 7747853.4043620861382350994972. 77 FLD0611C PIC 9(01) COMP-6. 77 FLD0612A PIC 9(10)V9(11) COMP-3 - VALUE 5644161799.14422944108. + VALUE 5644161799.14422944108. 77 FLD0612C PIC 9(07)V9(22) COMP-6. 77 FLD0613A PIC 9(05) COMP-6 - VALUE 15551. + VALUE 15551. 77 FLD0613C PIC S9(07)V9(01) COMP-3. 77 FLD0614A PIC 9(10)V9(09) COMP-3 - VALUE 5201647014.630440546. + VALUE 5201647014.630440546. 77 FLD0614C PIC 9(09)V9(13) COMP-6. 77 FLD0615A PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0615C PIC S9(07)V9(01) COMP-3. 77 FLD0616A PIC 9(07)V9(22) COMP-3 - VALUE 7639230.3574527464782306651613. + VALUE 7639230.3574527464782306651613. 77 FLD0616C PIC 9(02) COMP-6. 77 FLD0617A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0617C PIC 9(01) COMP-6. 77 FLD0618A PIC 9(01)V9(36) COMP-3 - VALUE 9.817148549708982763206677191192284226. + VALUE 9.817148549708982763206677191192284226. 77 FLD0618C PIC 9(03) COMP-6. 77 FLD0619A PIC 9(06)V9(24) COMP-3 - VALUE 801850.998363624500875346257089. + VALUE 801850.998363624500875346257089. 77 FLD0619C PIC 9(10)V9(10) COMP-3. 77 FLD0620A PIC 9(08)V9(19) COMP-6 - VALUE 71717267.3810957062023874186. + VALUE 71717267.3810957062023874186. 77 FLD0620C PIC 9(09)V9(15) COMP-6. 77 FLD0621A PIC 9(04)V9(30) COMP-3 - VALUE 9035.013690395441443570234696380794. + VALUE 9035.013690395441443570234696380794. 77 FLD0621C PIC 9(08)V9(19) COMP-3. 77 FLD0622A PIC 9(09)V9(13) COMP-3 - VALUE 592420192.5737704321761. + VALUE 592420192.5737704321761. 77 FLD0622C PIC S9(09)V9(04) COMP-3. 77 FLD0623A PIC S9(03) COMP-3 - VALUE +104. + VALUE +104. 77 FLD0623C PIC 9(09)V9(15) COMP-3. 77 FLD0624A PIC S9(06) COMP-3 - VALUE -162056. + VALUE -162056. 77 FLD0624C PIC 9(10)V9(06) COMP-6. 77 FLD0625A PIC 9(04) COMP-6 - VALUE 1296. + VALUE 1296. 77 FLD0625C PIC 9(07)V9(22) COMP-3. 77 FLD0626A PIC 9(04)V9(29) COMP-3 - VALUE 8839.60373056715265072114107169909. + VALUE 8839.60373056715265072114107169909. 77 FLD0626C PIC S9(09)V9(05) COMP-3. 77 FLD0627A PIC 9(04) COMP-6 - VALUE 1093. + VALUE 1093. 77 FLD0627C PIC S9(07)V9(01) COMP-3. 77 FLD0628A PIC 9(01)V9(36) COMP-3 - VALUE 9.943034041886028573387079632084351032. + VALUE 9.943034041886028573387079632084351032. 77 FLD0628C PIC 9(08)V9(03) COMP-6. 77 FLD0629A PIC 9(03)V9(32) COMP-6 - VALUE 925.54391942612090904418664649710990. + VALUE 925.54391942612090904418664649710990. 77 FLD0629C PIC 9(05)V9(28) COMP-3. 77 FLD0630A PIC S9(09)V9(06) COMP-3 - VALUE +400669561.119235. + VALUE +400669561.119235. 77 FLD0630C PIC 9(09)V9(12) COMP-6. 77 FLD0631A PIC 9(09)V9(15) COMP-3 - VALUE 644864894.904831453814608. + VALUE 644864894.904831453814608. 77 FLD0631C PIC 9(05)V9(01) COMP-6. 77 FLD0632A PIC 9(08)V9(18) COMP-6 - VALUE 69998401.036213298009869276. + VALUE 69998401.036213298009869276. 77 FLD0632C PIC 9(10)V9(09) COMP-6. 77 FLD0633A PIC 9(08)V9(19) COMP-3 - VALUE 72186800.0789349095747127194. + VALUE 72186800.0789349095747127194. 77 FLD0633C PIC S9(09)V9(03) COMP-3. 77 FLD0634A PIC S9(10)V9(06) COMP-3 - VALUE +4236607402.255205. + VALUE +4236607402.255205. 77 FLD0634C PIC 9(07)V9(23) COMP-3. 77 FLD0635A PIC S9(06)V9(01) COMP-3 - VALUE -190863.2. + VALUE -190863.2. 77 FLD0635C PIC 9(10)V9(11) COMP-6. 77 FLD0636A PIC S9(07)V9(01) COMP-3 - VALUE +2326055.8. + VALUE +2326055.8. 77 FLD0636C PIC 9(05) COMP-6. 77 FLD0637A PIC 9(08)V9(19) COMP-3 - VALUE 73470187.3111827330475875896. + VALUE 73470187.3111827330475875896. 77 FLD0637C PIC 9(10)V9(10) COMP-3. 77 FLD0638A PIC 9(07)V9(22) COMP-6 - VALUE 7752451.2041246673721417437263. + VALUE 7752451.2041246673721417437263. 77 FLD0638C PIC 9(06)V9(25) COMP-3. 77 FLD0639A PIC S9(09)V9(03) COMP-3 - VALUE +320313574.327. + VALUE +320313574.327. 77 FLD0639C PIC 9(01)V9(36) COMP-6. 77 FLD0640A PIC 9(04)V9(29) COMP-3 - VALUE 8818.61493829378950692898797569796. + VALUE 8818.61493829378950692898797569796. 77 FLD0640C PIC 9(03)V9(32) COMP-3. 77 FLD0641A PIC 9(07)V9(22) COMP-6 - VALUE 7672056.2697199168322725881807. + VALUE 7672056.2697199168322725881807. 77 FLD0641C PIC 9(08)V9(19) COMP-6. 77 FLD0642A PIC 9(08)V9(18) COMP-6 - VALUE 70806494.663622721041917884. + VALUE 70806494.663622721041917884. 77 FLD0642C PIC 9(09)V9(13) COMP-3. 77 FLD0643A PIC 9(07)V9(01) COMP-6 - VALUE 2194714.9. + VALUE 2194714.9. 77 FLD0643C PIC 9(08)V9(02) COMP-6. 77 FLD0644A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0644C PIC 9(03)V9(32) COMP-6. 77 FLD0645A PIC 9(03)V9(31) COMP-3 - VALUE 913.1000502995376688630813077907077. + VALUE 913.1000502995376688630813077907077. 77 FLD0645C PIC 9(07)V9(02) COMP-6. 77 FLD0646A PIC 9(07)V9(21) COMP-3 - VALUE 7520596.805608434909373727350. + VALUE 7520596.805608434909373727350. 77 FLD0646C PIC 9(09)V9(13) COMP-6. 77 FLD0647A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0647C PIC 9(09)V9(16) COMP-6. 77 FLD0648A PIC S9(04) COMP-3 - VALUE +1149. + VALUE +1149. 77 FLD0648C PIC 9(09)V9(15) COMP-3. 77 FLD0649A PIC 9(07)V9(23) COMP-3 - VALUE 7912687.10466688007798552462190. + VALUE 7912687.10466688007798552462190. 77 FLD0649C PIC 9(10)V9(09) COMP-3. 77 FLD0650A PIC 9(01)V9(36) COMP-6 - VALUE 9.878734262172308433491707546636462211. + VALUE 9.878734262172308433491707546636462211. 77 FLD0650C PIC 9(09)V9(16) COMP-3. 77 FLD0651A PIC 9(08)V9(18) COMP-6 - VALUE 69993795.648145529231243244. + VALUE 69993795.648145529231243244. 77 FLD0651C PIC S9(09)V9(05) COMP-3. 77 FLD0652A PIC 9(05)V9(01) COMP-6 - VALUE 16676.6. + VALUE 16676.6. 77 FLD0652C PIC S9(07)V9(01) COMP-3. 77 FLD0653A PIC 9(09)V9(14) COMP-3 - VALUE 620233215.83922497168828. + VALUE 620233215.83922497168828. 77 FLD0653C PIC 9(06) COMP-6. 77 FLD0654A PIC 9(09)V9(15) COMP-6 - VALUE 639337130.284049814932245. + VALUE 639337130.284049814932245. 77 FLD0654C PIC 9(08)V9(02) COMP-6. 77 FLD0655A PIC 9(06)V9(25) COMP-6 - VALUE 818013.3890362937254536745967925. + VALUE 818013.3890362937254536745967925. 77 FLD0655C PIC 9(09)V9(13) COMP-3. 77 FLD0656A PIC S9(06)V9(01) COMP-3 - VALUE +200859.7. + VALUE +200859.7. 77 FLD0656C PIC 9(09)V9(15) COMP-3. 77 FLD0657A PIC 9(03)V9(32) COMP-6 - VALUE 936.17194619070143168926279031438753. + VALUE 936.17194619070143168926279031438753. 77 FLD0657C PIC 9(08)V9(18) COMP-3. 77 FLD0658A PIC 9(08)V9(18) COMP-3 - VALUE 70069365.832955088357891781. + VALUE 70069365.832955088357891781. 77 FLD0658C PIC 9(10)V9(10) COMP-3. 77 FLD0659A PIC 9(04)V9(30) COMP-3 - VALUE 9044.337793801533464943531726021319. + VALUE 9044.337793801533464943531726021319. 77 FLD0659C PIC 9(08)V9(19) COMP-6. 77 FLD0660A PIC 9(10)V9(09) COMP-3 - VALUE 5240012407.843260833. + VALUE 5240012407.843260833. 77 FLD0660C PIC S9(05) COMP-3. 77 FLD0661A PIC 9(02)V9(34) COMP-6 - VALUE 96.5581569624071600621562083688331767. + VALUE 96.5581569624071600621562083688331767. 77 FLD0661C PIC 9(10)V9(11) COMP-3. 77 FLD0662A PIC S9(07)V9(01) COMP-3 - VALUE +2131985.0. + VALUE +2131985.0. 77 FLD0662C PIC 9(09)V9(16) COMP-6. 77 FLD0663A PIC 9(05) COMP-6 - VALUE 15788. + VALUE 15788. 77 FLD0663C PIC 9(04)V9(29) COMP-6. 77 FLD0664A PIC S9(05) COMP-3 - VALUE +14371. + VALUE +14371. 77 FLD0664C PIC S9(09)V9(07) COMP-3. 77 FLD0665A PIC 9(07)V9(02) COMP-6 - VALUE 2455875.37. + VALUE 2455875.37. 77 FLD0665C PIC 9(09)V9(16) COMP-3. 77 FLD0666A PIC 9(05)V9(27) COMP-3 - VALUE 86015.549175288641414738322055200. + VALUE 86015.549175288641414738322055200. 77 FLD0666C PIC 9(02) COMP-6. 77 FLD0667A PIC 9(02)V9(33) COMP-3 - VALUE 94.482499794694274619644147605868056. + VALUE 94.482499794694274619644147605868056. 77 FLD0667C PIC 9(09)V9(15) COMP-3. 77 FLD0668A PIC 9(03)V9(32) COMP-6 - VALUE 935.15331845029669999291854765033349. + VALUE 935.15331845029669999291854765033349. 77 FLD0668C PIC 9(10)V9(09) COMP-3. 77 FLD0669A PIC 9(01)V9(36) COMP-3 - VALUE 9.937328225295053441001869032334070652. + VALUE 9.937328225295053441001869032334070652. 77 FLD0669C PIC 9(10)V9(05) COMP-6. 77 FLD0670A PIC 9(07)V9(02) COMP-6 - VALUE 2567113.54. + VALUE 2567113.54. 77 FLD0670C PIC 9(02)V9(34) COMP-3. 77 FLD0671A PIC 9(09)V9(03) COMP-6 - VALUE 326622169.718. + VALUE 326622169.718. 77 FLD0671C PIC 9(06)V9(01) COMP-6. 77 FLD0672A PIC 9(10)V9(07) COMP-6 - VALUE 4564917934.3294549. + VALUE 4564917934.3294549. 77 FLD0672C PIC 9(09)V9(15) COMP-6. 77 FLD0673A PIC 9(10)V9(06) COMP-6 - VALUE 4285002333.462958. + VALUE 4285002333.462958. 77 FLD0673C PIC 9(07)V9(02) COMP-6. 77 FLD0674A PIC 9(10)V9(10) COMP-6 - VALUE 5491650640.0821929467. + VALUE 5491650640.0821929467. 77 FLD0674C PIC 9(06)V9(25) COMP-6. 77 FLD0675A PIC 9(05)V9(27) COMP-6 - VALUE 84609.285471017914304070473008323. + VALUE 84609.285471017914304070473008323. 77 FLD0675C PIC 9(10)V9(09) COMP-6. 77 FLD0676A PIC 9(03) COMP-6 - VALUE 096. + VALUE 096. 77 FLD0676C PIC 9(02)V9(34) COMP-3. 77 FLD0677A PIC S9(07)V9(01) COMP-3 - VALUE +2248183.1. + VALUE +2248183.1. 77 FLD0677C PIC 9(04)V9(29) COMP-3. 77 FLD0678A PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0678C PIC 9(05)V9(27) COMP-6. 77 FLD0679A PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0679C PIC 9(10)V9(07) COMP-6. 77 FLD0680A PIC S9(08)V9(02) COMP-3 - VALUE -28119381.66. + VALUE -28119381.66. 77 FLD0680C PIC 9(10)V9(11) COMP-3. 77 FLD0681A PIC 9(08)V9(17) COMP-3 - VALUE 68244115.95644890304868113. + VALUE 68244115.95644890304868113. 77 FLD0681C PIC 9(06)V9(25) COMP-3. 77 FLD0682A PIC S9(10)V9(08) COMP-3 - VALUE -4949729784.45772315. + VALUE -4949729784.45772315. 77 FLD0682C PIC 9(06)V9(25) COMP-3. 77 FLD0683A PIC 9(05)V9(28) COMP-6 - VALUE 86894.3068817851549390240961656672. + VALUE 86894.3068817851549390240961656672. 77 FLD0683C PIC 9(10)V9(12) COMP-3. 77 FLD0684A PIC 9(10)V9(13) COMP-6 - VALUE 6059233373.6406744915115. + VALUE 6059233373.6406744915115. 77 FLD0684C PIC 9(09)V9(07) COMP-6. 77 FLD0685A PIC S9(07)V9(02) COMP-3 - VALUE -2545714.99. + VALUE -2545714.99. 77 FLD0685C PIC 9(07)V9(23) COMP-3. 77 FLD0686A PIC 9(09)V9(14) COMP-3 - VALUE 621044693.11257093355749. + VALUE 621044693.11257093355749. 77 FLD0686C PIC 9(09)V9(13) COMP-3. 77 FLD0687A PIC S9(09)V9(05) COMP-3 - VALUE -394005874.76898. + VALUE -394005874.76898. 77 FLD0687C PIC 9(10)V9(08) COMP-6. 77 FLD0688A PIC 9(03)V9(32) COMP-3 - VALUE 932.26844955554755145499257196206599. + VALUE 932.26844955554755145499257196206599. 77 FLD0688C PIC 9(04) COMP-6. 77 FLD0689A PIC 9(10)V9(07) COMP-6 - VALUE 4559306991.4341932. + VALUE 4559306991.4341932. 77 FLD0689C PIC S9(08)V9(04) COMP-3. 77 FLD0690A PIC 9(01)V9(36) COMP-6 - VALUE 9.793660005922469879990899244148749858. + VALUE 9.793660005922469879990899244148749858. 77 FLD0690C PIC S9(08)V9(02) COMP-3. 77 FLD0691A PIC 9(09)V9(07) COMP-6 - VALUE 439500550.5938089. + VALUE 439500550.5938089. 77 FLD0691C PIC S9(10)V9(06) COMP-3. 77 FLD0692A PIC 9(09)V9(04) COMP-6 - VALUE 358382577.7464. + VALUE 358382577.7464. 77 FLD0692C PIC 9(09)V9(15) COMP-6. 77 FLD0693A PIC S9(07)V9(01) COMP-3 - VALUE +2127399.6. + VALUE +2127399.6. 77 FLD0693C PIC S9(01) COMP-3. 77 FLD0694A PIC 9(09)V9(05) COMP-6 - VALUE 378019656.01658. + VALUE 378019656.01658. 77 FLD0694C PIC 9(01) COMP-6. 77 FLD0695A PIC S9(09)V9(04) COMP-3 - VALUE -354304867.1111. + VALUE -354304867.1111. 77 FLD0695C PIC 9(09)V9(15) COMP-6. 77 FLD0696A PIC 9(04)V9(30) COMP-6 - VALUE 9067.945209731629319094281527213752. + VALUE 9067.945209731629319094281527213752. 77 FLD0696C PIC 9(09)V9(03) COMP-6. 77 FLD0697A PIC S9(09)V9(06) COMP-3 - VALUE +414586353.841170. + VALUE +414586353.841170. 77 FLD0697C PIC 9(10)V9(09) COMP-6. 77 FLD0698A PIC 9(08)V9(18) COMP-3 - VALUE 69447533.832122987362822641. + VALUE 69447533.832122987362822641. 77 FLD0698C PIC S9(03) COMP-3. 77 FLD0699A PIC 9(09)V9(13) COMP-6 - VALUE 597064952.5204202445749. + VALUE 597064952.5204202445749. 77 FLD0699C PIC 9(09)V9(14) COMP-3. 77 FLD0700A PIC 9(06)V9(25) COMP-3 - VALUE 820234.3139012789885455845251271. + VALUE 820234.3139012789885455845251271. 77 FLD0700C PIC S9(01) COMP-3. 77 FLD0701A PIC 9(06)V9(24) COMP-6 - VALUE 809485.363390515577641792788199. + VALUE 809485.363390515577641792788199. 77 FLD0701C PIC 9(02)V9(34) COMP-3. 77 FLD0702A PIC 9(04)V9(30) COMP-3 - VALUE 9021.848589518318695112952809722628. + VALUE 9021.848589518318695112952809722628. 77 FLD0702C PIC 9(07)V9(01) COMP-6. 77 FLD0703A PIC S9(04) COMP-3 - VALUE +1126. + VALUE +1126. 77 FLD0703C PIC 9(08)V9(04) COMP-6. 77 FLD0704A PIC 9(10)V9(07) COMP-6 - VALUE 4696322933.5995404. + VALUE 4696322933.5995404. 77 FLD0704C PIC 9(09)V9(14) COMP-3. 77 FLD0705A PIC 9(10)V9(10) COMP-6 - VALUE 5381864238.0664638569. + VALUE 5381864238.0664638569. 77 FLD0705C PIC 9(10)V9(07) COMP-6. 77 FLD0706A PIC 9(07)V9(22) COMP-3 - VALUE 7815442.4104873465584120140192. + VALUE 7815442.4104873465584120140192. 77 FLD0706C PIC S9(05)V9(01) COMP-3. 77 FLD0707A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0707C PIC 9(10)V9(09) COMP-3. 77 FLD0708A PIC 9(02)V9(34) COMP-3 - VALUE 95.1225570140109555339336111501324921. + VALUE 95.1225570140109555339336111501324921. 77 FLD0708C PIC 9(08)V9(04) COMP-6. 77 FLD0709A PIC S9(04) COMP-3 - VALUE +1124. + VALUE +1124. 77 FLD0709C PIC 9(09)V9(05) COMP-6. 77 FLD0710A PIC 9(01)V9(36) COMP-3 - VALUE 9.946833086486408515014545628218911588. + VALUE 9.946833086486408515014545628218911588. 77 FLD0710C PIC S9(09)V9(03) COMP-3. 77 FLD0711A PIC 9(09)V9(16) COMP-6 - VALUE 677754067.1912668512888444. + VALUE 677754067.1912668512888444. 77 FLD0711C PIC 9(02) COMP-6. 77 FLD0712A PIC 9(09)V9(14) COMP-3 - VALUE 610433230.32745544498567. + VALUE 610433230.32745544498567. 77 FLD0712C PIC S9(10)V9(08) COMP-3. 77 FLD0713A PIC S9(08)V9(03) COMP-3 - VALUE -29280564.557. + VALUE -29280564.557. 77 FLD0713C PIC 9(07)V9(01) COMP-6. 77 FLD0714A PIC 9(10)V9(07) COMP-6 - VALUE 4593980567.3719869. + VALUE 4593980567.3719869. 77 FLD0714C PIC 9(09)V9(04) COMP-6. 77 FLD0715A PIC 9(09)V9(06) COMP-6 - VALUE 406643755.503527. + VALUE 406643755.503527. 77 FLD0715C PIC 9(10)V9(10) COMP-6. 77 FLD0716A PIC S9(08)V9(03) COMP-3 - VALUE -29497495.128. + VALUE -29497495.128. 77 FLD0716C PIC 9(03)V9(31) COMP-3. 77 FLD0717A PIC 9(05)V9(28) COMP-6 - VALUE 86936.9843469434133709228262887336. + VALUE 86936.9843469434133709228262887336. 77 FLD0717C PIC 9(07)V9(21) COMP-6. 77 FLD0718A PIC 9(06) COMP-6 - VALUE 158746. + VALUE 158746. 77 FLD0718C PIC 9(10)V9(06) COMP-6. 77 FLD0719A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0719C PIC 9(07)V9(02) COMP-6. 77 FLD0720A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0720C PIC S9(09)V9(06) COMP-3. 77 FLD0721A PIC S9(09)V9(03) COMP-3 - VALUE +332294869.962. + VALUE +332294869.962. 77 FLD0721C PIC 9(07)V9(01) COMP-6. 77 FLD0722A PIC S9(05)V9(01) COMP-3 - VALUE -17094.9. + VALUE -17094.9. 77 FLD0722C PIC 9(07)V9(21) COMP-3. 77 FLD0723A PIC 9(05)V9(28) COMP-3 - VALUE 87349.0901765646254872876852459739. + VALUE 87349.0901765646254872876852459739. 77 FLD0723C PIC 9(02) COMP-6. 77 FLD0724A PIC 9(09)V9(03) COMP-6 - VALUE 317474559.928. + VALUE 317474559.928. 77 FLD0724C PIC 9(10)V9(09) COMP-6. 77 FLD0725A PIC 9(03)V9(31) COMP-6 - VALUE 915.1169879467740964074096154945436. + VALUE 915.1169879467740964074096154945436. 77 FLD0725C PIC S9(09)V9(07) COMP-3. 77 FLD0726A PIC 9(05) COMP-6 - VALUE 14771. + VALUE 14771. 77 FLD0726C PIC S9(09)V9(06) COMP-3. 77 FLD0727A PIC 9(10)V9(10) COMP-3 - VALUE 5412169008.2113094177. + VALUE 5412169008.2113094177. 77 FLD0727C PIC 9(09)V9(16) COMP-6. 77 FLD0728A PIC 9(09)V9(07) COMP-6 - VALUE 439411444.5456123. + VALUE 439411444.5456123. 77 FLD0728C PIC S9(09)V9(05) COMP-3. 77 FLD0729A PIC 9(02)V9(33) COMP-6 - VALUE 94.514768998125520127473464526701718. + VALUE 94.514768998125520127473464526701718. 77 FLD0729C PIC 9(07)V9(23) COMP-6. 77 FLD0730A PIC 9(06)V9(25) COMP-3 - VALUE 822685.8594490329412707296796725. + VALUE 822685.8594490329412707296796725. 77 FLD0730C PIC 9(09)V9(14) COMP-3. 77 FLD0731A PIC 9(10)V9(12) COMP-3 - VALUE 5808279049.356201984011. + VALUE 5808279049.356201984011. 77 FLD0731C PIC 9(09)V9(13) COMP-3. 77 FLD0732A PIC 9(03)V9(31) COMP-6 - VALUE 915.5080332184045710519626481982413. + VALUE 915.5080332184045710519626481982413. 77 FLD0732C PIC S9(04) COMP-3. 77 FLD0733A PIC 9(09)V9(03) COMP-6 - VALUE 328019305.824. + VALUE 328019305.824. 77 FLD0733C PIC 9(09)V9(15) COMP-6. 77 FLD0734A PIC S9(06) COMP-3 - VALUE -164821. + VALUE -164821. 77 FLD0734C PIC 9(02) COMP-6. 77 FLD0735A PIC S9(06)V9(01) COMP-3 - VALUE -190229.8. + VALUE -190229.8. 77 FLD0735C PIC 9(09)V9(15) COMP-3. 77 FLD0736A PIC 9(10)V9(09) COMP-3 - VALUE 5128678158.202983894. + VALUE 5128678158.202983894. 77 FLD0736C PIC 9(07)V9(23) COMP-6. 77 FLD0737A PIC S9(07)V9(02) COMP-3 - VALUE -2601084.10. + VALUE -2601084.10. 77 FLD0737C PIC S9(07)V9(02) COMP-3. 77 FLD0738A PIC 9(10)V9(09) COMP-6 - VALUE 5071467647.954436275. + VALUE 5071467647.954436275. 77 FLD0738C PIC 9(02)V9(34) COMP-6. 77 FLD0739A PIC S9(09)V9(03) COMP-3 - VALUE +324797211.447. + VALUE +324797211.447. 77 FLD0739C PIC S9(10)V9(08) COMP-3. 77 FLD0740A PIC S9(08)V9(03) COMP-3 - VALUE +30394739.303. + VALUE +30394739.303. 77 FLD0740C PIC 9(05)V9(28) COMP-3. 77 FLD0741A PIC S9(09)V9(03) COMP-3 - VALUE +322386723.831. + VALUE +322386723.831. 77 FLD0741C PIC S9(09)V9(03) COMP-3. 77 FLD0742A PIC 9(09)V9(06) COMP-6 - VALUE 419367234.713135. + VALUE 419367234.713135. 77 FLD0742C PIC S9(08)V9(03) COMP-3. 77 FLD0743A PIC 9(05)V9(27) COMP-6 - VALUE 85864.867305029812794003873932524. + VALUE 85864.867305029812794003873932524. 77 FLD0743C PIC 9(06)V9(01) COMP-6. 77 FLD0744A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0744C PIC 9(08)V9(02) COMP-6. 77 FLD0745A PIC 9(01)V9(36) COMP-6 - VALUE 9.759709501186564217789509712019935250. + VALUE 9.759709501186564217789509712019935250. 77 FLD0745C PIC 9(05) COMP-6. 77 FLD0746A PIC 9(10)V9(10) COMP-3 - VALUE 5435731573.3552813430. + VALUE 5435731573.3552813430. 77 FLD0746C PIC 9(10)V9(09) COMP-3. 77 FLD0747A PIC 9(10)V9(11) COMP-6 - VALUE 5681676571.07930934579. + VALUE 5681676571.07930934579. 77 FLD0747C PIC 9(03)V9(31) COMP-6. 77 FLD0748A PIC 9(03) COMP-6 - VALUE 086. + VALUE 086. 77 FLD0748C PIC S9(05)V9(01) COMP-3. 77 FLD0749A PIC S9(10)V9(07) COMP-3 - VALUE -4609096560.3942379. + VALUE -4609096560.3942379. 77 FLD0749C PIC 9(06)V9(25) COMP-3. 77 FLD0750A PIC 9(07)V9(22) COMP-6 - VALUE 7666736.3171436386792834127845. + VALUE 7666736.3171436386792834127845. 77 FLD0750C PIC 9(08)V9(04) COMP-6. 77 FLD0751A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0751C PIC S9(05) COMP-3. 77 FLD0752A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0752C PIC 9(03)V9(32) COMP-3. 77 FLD0753A PIC 9(08)V9(19) COMP-3 - VALUE 73379118.3872512742247806727. + VALUE 73379118.3872512742247806727. 77 FLD0753C PIC S9(01) COMP-3. 77 FLD0754A PIC S9(09)V9(03) COMP-3 - VALUE +322061792.108. + VALUE +322061792.108. 77 FLD0754C PIC 9(07)V9(02) COMP-6. 77 FLD0755A PIC 9(06)V9(25) COMP-6 - VALUE 835592.8333445592492978448717622. + VALUE 835592.8333445592492978448717622. 77 FLD0755C PIC 9(10)V9(10) COMP-3. 77 FLD0756A PIC 9(09)V9(04) COMP-6 - VALUE 366295057.8421. + VALUE 366295057.8421. 77 FLD0756C PIC S9(05) COMP-3. 77 FLD0757A PIC 9(08)V9(19) COMP-3 - VALUE 71466976.1113856494283425035. + VALUE 71466976.1113856494283425035. 77 FLD0757C PIC S9(07)V9(02) COMP-3. 77 FLD0758A PIC 9(07)V9(01) COMP-6 - VALUE 2293699.9. + VALUE 2293699.9. 77 FLD0758C PIC S9(06) COMP-3. 77 FLD0759A PIC 9(03)V9(32) COMP-3 - VALUE 931.38963166127219928114300273591652. + VALUE 931.38963166127219928114300273591652. 77 FLD0759C PIC 9(07)V9(21) COMP-3. 77 FLD0760A PIC 9(06)V9(01) COMP-6 - VALUE 188511.3. + VALUE 188511.3. 77 FLD0760C PIC 9(04)V9(30) COMP-3. 77 FLD0761A PIC 9(09)V9(17) COMP-3 - VALUE 690006529.44346418937726639. + VALUE 690006529.44346418937726639. 77 FLD0761C PIC 9(09)V9(14) COMP-6. 77 FLD0762A PIC 9(09)V9(16) COMP-3 - VALUE 671435372.9957326377686399. + VALUE 671435372.9957326377686399. 77 FLD0762C PIC 9(07)V9(02) COMP-6. 77 FLD0763A PIC 9(08)V9(19) COMP-3 - VALUE 71468145.3175585401638159055. + VALUE 71468145.3175585401638159055. 77 FLD0763C PIC 9(06)V9(24) COMP-6. 77 FLD0764A PIC 9(10)V9(11) COMP-3 - VALUE 5535007698.50315821329. + VALUE 5535007698.50315821329. 77 FLD0764C PIC 9(10)V9(08) COMP-6. 77 FLD0765A PIC 9(04)V9(29) COMP-6 - VALUE 8855.80582773889624093044403707608. + VALUE 8855.80582773889624093044403707608. 77 FLD0765C PIC S9(04) COMP-3. 77 FLD0766A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0766C PIC 9(07)V9(01) COMP-6. 77 FLD0767A PIC S9(10)V9(08) COMP-3 - VALUE -4848285740.27346248. + VALUE -4848285740.27346248. 77 FLD0767C PIC S9(01) COMP-3. 77 FLD0768A PIC 9(09)V9(17) COMP-3 - VALUE 684230789.92735519854306858. + VALUE 684230789.92735519854306858. 77 FLD0768C PIC S9(02) COMP-3. 77 FLD0769A PIC 9(07)V9(02) COMP-6 - VALUE 2565731.27. + VALUE 2565731.27. 77 FLD0769C PIC 9(09)V9(04) COMP-6. 77 FLD0770A PIC 9(09)V9(12) COMP-3 - VALUE 574214303.174467532997. + VALUE 574214303.174467532997. 77 FLD0770C PIC 9(10)V9(13) COMP-6. 77 FLD0771A PIC 9(08)V9(18) COMP-6 - VALUE 69721614.519732855175249142. + VALUE 69721614.519732855175249142. 77 FLD0771C PIC 9(09)V9(17) COMP-3. 77 FLD0772A PIC 9(10)V9(08) COMP-6 - VALUE 4868623585.10471993. + VALUE 4868623585.10471993. 77 FLD0772C PIC 9(10)V9(05) COMP-6. 77 FLD0773A PIC S9(07)V9(01) COMP-3 - VALUE +2339835.9. + VALUE +2339835.9. 77 FLD0773C PIC 9(03)V9(32) COMP-3. 77 FLD0774A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0774C PIC S9(07)V9(02) COMP-3. 77 FLD0775A PIC 9(09)V9(06) COMP-6 - VALUE 418947899.183504. + VALUE 418947899.183504. 77 FLD0775C PIC 9(03)V9(32) COMP-3. 77 FLD0776A PIC 9(09)V9(06) COMP-6 - VALUE 418950765.017868. + VALUE 418950765.017868. 77 FLD0776C PIC 9(05)V9(27) COMP-6. 77 FLD0777A PIC S9(08)V9(03) COMP-3 - VALUE +31438250.184. + VALUE +31438250.184. 77 FLD0777C PIC 9(10)V9(11) COMP-3. 77 FLD0778A PIC S9(06)V9(01) COMP-3 - VALUE -192739.4. + VALUE -192739.4. 77 FLD0778C PIC 9(03)V9(31) COMP-6. 77 FLD0779A PIC 9(04)V9(30) COMP-3 - VALUE 9029.333248069044692840634525055065. + VALUE 9029.333248069044692840634525055065. 77 FLD0779C PIC S9(10)V9(08) COMP-3. 77 FLD0780A PIC 9(09)V9(03) COMP-6 - VALUE 318241207.749. + VALUE 318241207.749. 77 FLD0780C PIC 9(06)V9(25) COMP-3. 77 FLD0781A PIC 9(10)V9(08) COMP-6 - VALUE 4967153543.73054196. + VALUE 4967153543.73054196. 77 FLD0781C PIC 9(08)V9(03) COMP-6. 77 FLD0782A PIC 9(05) COMP-6 - VALUE 13793. + VALUE 13793. 77 FLD0782C PIC 9(02)V9(34) COMP-6. 77 FLD0783A PIC 9(04)V9(29) COMP-3 - VALUE 8813.39219378433402773964644438819. + VALUE 8813.39219378433402773964644438819. 77 FLD0783C PIC S9(10)V9(06) COMP-3. 77 FLD0784A PIC 9(09)V9(15) COMP-3 - VALUE 641964802.793786426526878. + VALUE 641964802.793786426526878. 77 FLD0784C PIC 9(06)V9(25) COMP-3. 77 FLD0785A PIC 9(08)V9(17) COMP-3 - VALUE 68097654.34600172362422654. + VALUE 68097654.34600172362422654. 77 FLD0785C PIC 9(09)V9(03) COMP-6. 77 FLD0786A PIC 9(01)V9(36) COMP-3 - VALUE 9.820249933224565186407062356011010706. + VALUE 9.820249933224565186407062356011010706. 77 FLD0786C PIC 9(05)V9(27) COMP-3. 77 FLD0787A PIC 9(10)V9(11) COMP-6 - VALUE 5592847098.07636559730. + VALUE 5592847098.07636559730. 77 FLD0787C PIC 9(06)V9(01) COMP-6. 77 FLD0788A PIC 9(02)V9(34) COMP-6 - VALUE 95.6557531637097668841818176588276401. + VALUE 95.6557531637097668841818176588276401. 77 FLD0788C PIC 9(07)V9(22) COMP-6. 77 FLD0789A PIC S9(05)V9(01) COMP-3 - VALUE -17101.7. + VALUE -17101.7. 77 FLD0789C PIC 9(09)V9(16) COMP-3. 77 FLD0790A PIC 9(07)V9(02) COMP-6 - VALUE 2384369.54. + VALUE 2384369.54. 77 FLD0790C PIC S9(08)V9(03) COMP-3. 77 FLD0791A PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0791C PIC 9(08)V9(20) COMP-6. 77 FLD0792A PIC 9(02)V9(34) COMP-6 - VALUE 95.5230059106088935649836457741912454. + VALUE 95.5230059106088935649836457741912454. 77 FLD0792C PIC 9(09)V9(05) COMP-6. 77 FLD0793A PIC 9(06)V9(01) COMP-6 - VALUE 199221.9. + VALUE 199221.9. 77 FLD0793C PIC 9(10)V9(11) COMP-6. 77 FLD0794A PIC S9(08)V9(04) COMP-3 - VALUE +33437009.5807. + VALUE +33437009.5807. 77 FLD0794C PIC S9(01) COMP-3. 77 FLD0795A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0795C PIC S9(08)V9(04) COMP-3. 77 FLD0796A PIC 9(07)V9(21) COMP-6 - VALUE 7565685.006144580171394409262. + VALUE 7565685.006144580171394409262. 77 FLD0796C PIC 9(08)V9(19) COMP-6. 77 FLD0797A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0797C PIC 9(09)V9(04) COMP-6. 77 FLD0798A PIC S9(09)V9(03) COMP-3 - VALUE +332243375.906. + VALUE +332243375.906. 77 FLD0798C PIC 9(09)V9(16) COMP-3. 77 FLD0799A PIC 9(09)V9(17) COMP-3 - VALUE 690866271.33683375934225523. + VALUE 690866271.33683375934225523. 77 FLD0799C PIC 9(09)V9(11) COMP-3. 77 FLD0800A PIC 9(08)V9(18) COMP-3 - VALUE 70036112.416705975647346349. + VALUE 70036112.416705975647346349. 77 FLD0800C PIC 9(08)V9(02) COMP-6. 77 FLD0801A PIC S9(09)V9(07) COMP-3 - VALUE +443093279.8052367. + VALUE +443093279.8052367. 77 FLD0801C PIC 9(01)V9(36) COMP-3. 77 FLD0802A PIC S9(07)V9(02) COMP-3 - VALUE +2449505.23. + VALUE +2449505.23. 77 FLD0802C PIC 9(04)V9(29) COMP-3. 77 FLD0803A PIC S9(05)V9(01) COMP-3 - VALUE -17467.0. + VALUE -17467.0. 77 FLD0803C PIC 9(10)V9(11) COMP-6. 77 FLD0804A PIC 9(07)V9(02) COMP-6 - VALUE 2599541.84. + VALUE 2599541.84. 77 FLD0804C PIC 9(01) COMP-6. 77 FLD0805A PIC 9(07)V9(01) COMP-6 - VALUE 2358341.0. + VALUE 2358341.0. 77 FLD0805C PIC 9(10)V9(08) COMP-6. 77 FLD0806A PIC 9(10)V9(11) COMP-3 - VALUE 5703927562.80738821850. + VALUE 5703927562.80738821850. 77 FLD0806C PIC 9(09)V9(07) COMP-6. 77 FLD0807A PIC 9(09)V9(17) COMP-6 - VALUE 689326682.16034242991696601. + VALUE 689326682.16034242991696601. 77 FLD0807C PIC S9(03) COMP-3. 77 FLD0808A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0808C PIC 9(10)V9(07) COMP-6. 77 FLD0809A PIC 9(05)V9(28) COMP-6 - VALUE 86873.4196996681751201663246320094. + VALUE 86873.4196996681751201663246320094. 77 FLD0809C PIC S9(09)V9(07) COMP-3. 77 FLD0810A PIC S9(04) COMP-3 - VALUE +1129. + VALUE +1129. 77 FLD0810C PIC S9(07)V9(01) COMP-3. 77 FLD0811A PIC 9(09)V9(15) COMP-6 - VALUE 648943185.643321429623142. + VALUE 648943185.643321429623142. 77 FLD0811C PIC 9(01)V9(36) COMP-3. 77 FLD0812A PIC S9(08)V9(03) COMP-3 - VALUE -29270905.795. + VALUE -29270905.795. 77 FLD0812C PIC 9(08)V9(02) COMP-6. 77 FLD0813A PIC 9(10)V9(08) COMP-6 - VALUE 4881724662.84412076. + VALUE 4881724662.84412076. 77 FLD0813C PIC S9(08)V9(03) COMP-3. 77 FLD0814A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0814C PIC 9(07)V9(21) COMP-3. 77 FLD0815A PIC 9(06)V9(25) COMP-6 - VALUE 838676.0467962863785373883729334. + VALUE 838676.0467962863785373883729334. 77 FLD0815C PIC 9(02)V9(34) COMP-3. 77 FLD0816A PIC 9(08)V9(18) COMP-6 - VALUE 70774184.783492177786001775. + VALUE 70774184.783492177786001775. 77 FLD0816C PIC 9(04)V9(29) COMP-6. 77 FLD0817A PIC 9(10)V9(09) COMP-6 - VALUE 5163345142.860672476. + VALUE 5163345142.860672476. 77 FLD0817C PIC 9(10)V9(09) COMP-6. 77 FLD0818A PIC 9(08)V9(03) COMP-6 - VALUE 30586164.664. + VALUE 30586164.664. 77 FLD0818C PIC 9(08)V9(19) COMP-6. 77 FLD0819A PIC 9(01)V9(36) COMP-3 - VALUE 9.844708607145921108738662042014766484. + VALUE 9.844708607145921108738662042014766484. 77 FLD0819C PIC S9(03) COMP-3. 77 FLD0820A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0820C PIC 9(02)V9(34) COMP-6. 77 FLD0821A PIC 9(09)V9(11) COMP-3 - VALUE 550576956.44832715942. + VALUE 550576956.44832715942. 77 FLD0821C PIC S9(09)V9(05) COMP-3. 77 FLD0822A PIC S9(05) COMP-3 - VALUE +14037. + VALUE +14037. 77 FLD0822C PIC 9(04) COMP-6. 77 FLD0823A PIC 9(08)V9(20) COMP-6 - VALUE 73880168.20028298070610617287. + VALUE 73880168.20028298070610617287. 77 FLD0823C PIC S9(09)V9(06) COMP-3. 77 FLD0824A PIC 9(10)V9(10) COMP-6 - VALUE 5351534260.3280557920. + VALUE 5351534260.3280557920. 77 FLD0824C PIC 9(09)V9(14) COMP-6. 77 FLD0825A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0825C PIC S9(05)V9(01) COMP-3. 77 FLD0826A PIC S9(06)V9(01) COMP-3 - VALUE -190786.5. + VALUE -190786.5. 77 FLD0826C PIC S9(10)V9(08) COMP-3. 77 FLD0827A PIC 9(07)V9(22) COMP-6 - VALUE 7763847.1978375678261841130733. + VALUE 7763847.1978375678261841130733. 77 FLD0827C PIC 9(10)V9(07) COMP-6. 77 FLD0828A PIC S9(10)V9(07) COMP-3 - VALUE -4530916009.2405642. + VALUE -4530916009.2405642. 77 FLD0828C PIC S9(05) COMP-3. 77 FLD0829A PIC 9(09)V9(17) COMP-3 - VALUE 691486534.21926165041355716. + VALUE 691486534.21926165041355716. 77 FLD0829C PIC 9(07)V9(23) COMP-6. 77 FLD0830A PIC 9(04)V9(30) COMP-6 - VALUE 8965.722935126121395654763546190224. + VALUE 8965.722935126121395654763546190224. 77 FLD0830C PIC 9(10)V9(11) COMP-6. 77 FLD0831A PIC 9(04)V9(30) COMP-6 - VALUE 8956.555580996397036841472072410397. + VALUE 8956.555580996397036841472072410397. 77 FLD0831C PIC 9(09)V9(16) COMP-3. 77 FLD0832A PIC 9(04) COMP-6 - VALUE 1185. + VALUE 1185. 77 FLD0832C PIC 9(09)V9(06) COMP-6. 77 FLD0833A PIC 9(06)V9(24) COMP-3 - VALUE 804859.798300300854911881742737. + VALUE 804859.798300300854911881742737. 77 FLD0833C PIC 9(09)V9(16) COMP-3. 77 FLD0834A PIC 9(09)V9(04) COMP-6 - VALUE 349209744.2881. + VALUE 349209744.2881. 77 FLD0834C PIC 9(08)V9(19) COMP-3. 77 FLD0835A PIC 9(08)V9(19) COMP-3 - VALUE 71178359.2779248075466114187. + VALUE 71178359.2779248075466114187. 77 FLD0835C PIC 9(07)V9(22) COMP-6. 77 FLD0836A PIC 9(09)V9(07) COMP-6 - VALUE 446141389.3412962. + VALUE 446141389.3412962. 77 FLD0836C PIC 9(09)V9(13) COMP-3. 77 FLD0837A PIC 9(04)V9(30) COMP-6 - VALUE 8982.008694278872384941792006429750. + VALUE 8982.008694278872384941792006429750. 77 FLD0837C PIC S9(08)V9(03) COMP-3. 77 FLD0838A PIC 9(10)V9(12) COMP-6 - VALUE 5873188106.793812979233. + VALUE 5873188106.793812979233. 77 FLD0838C PIC 9(07)V9(22) COMP-3. 77 FLD0839A PIC 9(08)V9(19) COMP-3 - VALUE 71324671.8649382605015318858. + VALUE 71324671.8649382605015318858. 77 FLD0839C PIC 9(06)V9(01) COMP-6. 77 FLD0840A PIC S9(03) COMP-3 - VALUE -094. + VALUE -094. 77 FLD0840C PIC 9(04) COMP-6. 77 FLD0841A PIC 9(08)V9(18) COMP-3 - VALUE 70179428.042996372383299785. + VALUE 70179428.042996372383299785. 77 FLD0841C PIC 9(06)V9(24) COMP-3. 77 FLD0842A PIC 9(09)V9(16) COMP-3 - VALUE 661649948.5739699704112126. + VALUE 661649948.5739699704112126. 77 FLD0842C PIC 9(02)V9(33) COMP-6. 77 FLD0843A PIC 9(06)V9(25) COMP-6 - VALUE 818928.0761087860405211813485948. + VALUE 818928.0761087860405211813485948. 77 FLD0843C PIC S9(08)V9(03) COMP-3. 77 FLD0844A PIC 9(07)V9(22) COMP-6 - VALUE 7754458.9142564990247308287507. + VALUE 7754458.9142564990247308287507. 77 FLD0844C PIC 9(10)V9(07) COMP-6. 77 FLD0845A PIC 9(10)V9(12) COMP-3 - VALUE 5903835745.060688200425. + VALUE 5903835745.060688200425. 77 FLD0845C PIC 9(09)V9(15) COMP-3. 77 FLD0846A PIC 9(08)V9(03) COMP-6 - VALUE 29802576.878. + VALUE 29802576.878. 77 FLD0846C PIC 9(10)V9(07) COMP-6. 77 FLD0847A PIC 9(05)V9(26) COMP-3 - VALUE 84041.42690564196938041163775778. + VALUE 84041.42690564196938041163775778. 77 FLD0847C PIC 9(08)V9(03) COMP-6. 77 FLD0848A PIC 9(07)V9(23) COMP-3 - VALUE 7949747.62786875510656159349309. + VALUE 7949747.62786875510656159349309. 77 FLD0848C PIC 9(08)V9(19) COMP-3. 77 FLD0849A PIC 9(09)V9(13) COMP-6 - VALUE 595598045.8961575019216. + VALUE 595598045.8961575019216. 77 FLD0849C PIC 9(07)V9(21) COMP-3. 77 FLD0850A PIC 9(09)V9(06) COMP-6 - VALUE 418716850.605351. + VALUE 418716850.605351. 77 FLD0850C PIC 9(09)V9(15) COMP-3. 77 FLD0851A PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0851C PIC 9(07)V9(01) COMP-6. 77 FLD0852A PIC 9(10)V9(11) COMP-3 - VALUE 5643399909.75319838462. + VALUE 5643399909.75319838462. 77 FLD0852C PIC 9(08)V9(02) COMP-6. 77 FLD0853A PIC 9(06)V9(24) COMP-3 - VALUE 801200.590406665469345171004533. + VALUE 801200.590406665469345171004533. 77 FLD0853C PIC S9(01) COMP-3. 77 FLD0854A PIC 9(01)V9(35) COMP-3 - VALUE 9.72377885073923198255840816273121163. + VALUE 9.72377885073923198255840816273121163. 77 FLD0854C PIC 9(01) COMP-6. 77 FLD0855A PIC 9(08)V9(19) COMP-6 - VALUE 73562901.0042854747375429269. + VALUE 73562901.0042854747375429269. 77 FLD0855C PIC 9(05)V9(01) COMP-6. 77 FLD0856A PIC 9(09)V9(04) COMP-6 - VALUE 356144099.6704. + VALUE 356144099.6704. 77 FLD0856C PIC S9(05) COMP-3. 77 FLD0857A PIC 9(03)V9(31) COMP-6 - VALUE 915.3286634102202334872799838194623. + VALUE 915.3286634102202334872799838194623. 77 FLD0857C PIC S9(02) COMP-3. 77 FLD0858A PIC 9(10)V9(11) COMP-6 - VALUE 5560594458.08950059131. + VALUE 5560594458.08950059131. 77 FLD0858C PIC 9(08)V9(03) COMP-6. 77 FLD0859A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0859C PIC 9(02)V9(34) COMP-3. 77 FLD0860A PIC 9(07)V9(02) COMP-6 - VALUE 2576407.94. + VALUE 2576407.94. 77 FLD0860C PIC 9(08)V9(04) COMP-6. 77 FLD0861A PIC S9(10)V9(07) COMP-3 - VALUE -4605509961.3842453. + VALUE -4605509961.3842453. 77 FLD0861C PIC 9(04) COMP-6. 77 FLD0862A PIC 9(07)V9(22) COMP-6 - VALUE 7652464.2157409383802502134130. + VALUE 7652464.2157409383802502134130. 77 FLD0862C PIC 9(09)V9(12) COMP-6. 77 FLD0863A PIC 9(05)V9(27) COMP-3 - VALUE 85070.091557533766835064170663827. + VALUE 85070.091557533766835064170663827. 77 FLD0863C PIC 9(10)V9(09) COMP-6. 77 FLD0864A PIC 9(10)V9(11) COMP-3 - VALUE 5711242885.34377577697. + VALUE 5711242885.34377577697. 77 FLD0864C PIC 9(04)V9(29) COMP-6. 77 FLD0865A PIC 9(06)V9(24) COMP-6 - VALUE 807409.725415061507725056344497. + VALUE 807409.725415061507725056344497. 77 FLD0865C PIC S9(03) COMP-3. 77 FLD0866A PIC 9(09)V9(05) COMP-6 - VALUE 376060050.51851. + VALUE 376060050.51851. 77 FLD0866C PIC 9(04)V9(30) COMP-6. 77 FLD0867A PIC S9(05) COMP-3 - VALUE +14084. + VALUE +14084. 77 FLD0867C PIC 9(08)V9(19) COMP-6. 77 FLD0868A PIC 9(07)V9(22) COMP-3 - VALUE 7648419.8420910554094831468319. + VALUE 7648419.8420910554094831468319. 77 FLD0868C PIC 9(10)V9(12) COMP-3. 77 FLD0869A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0869C PIC 9(08)V9(17) COMP-3. 77 FLD0870A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0870C PIC 9(09)V9(15) COMP-6. 77 FLD0871A PIC 9(09)V9(14) COMP-6 - VALUE 609764683.38536315982878. + VALUE 609764683.38536315982878. 77 FLD0871C PIC 9(10)V9(09) COMP-3. 77 FLD0872A PIC 9(04)V9(29) COMP-3 - VALUE 8816.31176263962479389135751262074. + VALUE 8816.31176263962479389135751262074. 77 FLD0872C PIC 9(10)V9(07) COMP-6. 77 FLD0873A PIC 9(07)V9(21) COMP-6 - VALUE 7561255.223942077163812314211. + VALUE 7561255.223942077163812314211. 77 FLD0873C PIC 9(05) COMP-6. 77 FLD0874A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0874C PIC 9(06)V9(01) COMP-6. 77 FLD0875A PIC S9(06)V9(01) COMP-3 - VALUE +204126.0. + VALUE +204126.0. 77 FLD0875C PIC 9(02) COMP-6. 77 FLD0876A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0876C PIC 9(07)V9(23) COMP-3. 77 FLD0877A PIC 9(08)V9(18) COMP-6 - VALUE 69924605.886404200827399790. + VALUE 69924605.886404200827399790. 77 FLD0877C PIC 9(09)V9(15) COMP-3. 77 FLD0878A PIC 9(07)V9(22) COMP-3 - VALUE 7831260.9220719830993573395971. + VALUE 7831260.9220719830993573395971. 77 FLD0878C PIC 9(04)V9(29) COMP-3. 77 FLD0879A PIC 9(07)V9(02) COMP-6 - VALUE 2371533.81. + VALUE 2371533.81. 77 FLD0879C PIC 9(05)V9(27) COMP-3. 77 FLD0880A PIC S9(10)V9(06) COMP-3 - VALUE +4237732309.742536. + VALUE +4237732309.742536. 77 FLD0880C PIC 9(05)V9(26) COMP-6. 77 FLD0881A PIC 9(10)V9(11) COMP-6 - VALUE 5571129514.90407404264. + VALUE 5571129514.90407404264. 77 FLD0881C PIC S9(09)V9(04) COMP-3. 77 FLD0882A PIC 9(10)V9(12) COMP-6 - VALUE 5888713345.878072713546. + VALUE 5888713345.878072713546. 77 FLD0882C PIC 9(09)V9(16) COMP-6. 77 FLD0883A PIC 9(09)V9(16) COMP-3 - VALUE 672192258.1526228457349247. + VALUE 672192258.1526228457349247. 77 FLD0883C PIC 9(07)V9(21) COMP-6. 77 FLD0884A PIC 9(10)V9(08) COMP-6 - VALUE 4954020911.85092596. + VALUE 4954020911.85092596. 77 FLD0884C PIC 9(07)V9(21) COMP-3. 77 FLD0885A PIC S9(05) COMP-3 - VALUE +13360. + VALUE +13360. 77 FLD0885C PIC S9(05) COMP-3. 77 FLD0886A PIC S9(09)V9(05) COMP-3 - VALUE -374529584.88504. + VALUE -374529584.88504. 77 FLD0886C PIC S9(09)V9(05) COMP-3. 77 FLD0887A PIC S9(07)V9(01) COMP-3 - VALUE +2114795.5. + VALUE +2114795.5. 77 FLD0887C PIC 9(06)V9(25) COMP-6. 77 FLD0888A PIC 9(08)V9(19) COMP-6 - VALUE 73580519.1914812417586233550. + VALUE 73580519.1914812417586233550. 77 FLD0888C PIC 9(07)V9(02) COMP-6. 77 FLD0889A PIC S9(05) COMP-3 - VALUE -15225. + VALUE -15225. 77 FLD0889C PIC 9(02)V9(34) COMP-3. 77 FLD0890A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0890C PIC 9(08)V9(19) COMP-3. 77 FLD0891A PIC 9(02)V9(34) COMP-6 - VALUE 95.7956124985634538404610793804749846. + VALUE 95.7956124985634538404610793804749846. 77 FLD0891C PIC 9(08)V9(19) COMP-6. 77 FLD0892A PIC 9(10)V9(09) COMP-6 - VALUE 5079027644.377075434. + VALUE 5079027644.377075434. 77 FLD0892C PIC 9(03) COMP-6. 77 FLD0893A PIC 9(10)V9(12) COMP-3 - VALUE 5900775083.003402254888. + VALUE 5900775083.003402254888. 77 FLD0893C PIC 9(02) COMP-6. 77 FLD0894A PIC 9(06)V9(25) COMP-6 - VALUE 819872.1409522375935807758651208. + VALUE 819872.1409522375935807758651208. 77 FLD0894C PIC 9(09)V9(15) COMP-6. 77 FLD0895A PIC 9(10)V9(09) COMP-6 - VALUE 5099949658.575000377. + VALUE 5099949658.575000377. 77 FLD0895C PIC 9(08)V9(02) COMP-6. 77 FLD0896A PIC 9(10)V9(07) COMP-6 - VALUE 4576511370.6787369. + VALUE 4576511370.6787369. 77 FLD0896C PIC S9(01) COMP-3. 77 FLD0897A PIC 9(01)V9(36) COMP-6 - VALUE 9.997543976245016894566219889384228736. + VALUE 9.997543976245016894566219889384228736. 77 FLD0897C PIC S9(09)V9(07) COMP-3. 77 FLD0898A PIC 9(09)V9(05) COMP-6 - VALUE 378033726.09171. + VALUE 378033726.09171. 77 FLD0898C PIC 9(06)V9(01) COMP-6. 77 FLD0899A PIC 9(08)V9(20) COMP-6 - VALUE 74918436.40783237834313013081. + VALUE 74918436.40783237834313013081. 77 FLD0899C PIC 9(09)V9(07) COMP-6. 77 FLD0900A PIC 9(03)V9(32) COMP-6 - VALUE 929.41329164379282712360463847289793. + VALUE 929.41329164379282712360463847289793. 77 FLD0900C PIC 9(06)V9(01) COMP-6. 77 FLD0901A PIC 9(10)V9(07) COMP-6 - VALUE 4563598931.5070740. + VALUE 4563598931.5070740. 77 FLD0901C PIC 9(01)V9(36) COMP-6. 77 FLD0902A PIC 9(05)V9(28) COMP-3 - VALUE 87405.6741908566081633580324705690. + VALUE 87405.6741908566081633580324705690. 77 FLD0902C PIC 9(10)V9(09) COMP-3. 77 FLD0903A PIC 9(08)V9(02) COMP-6 - VALUE 28616952.10. + VALUE 28616952.10. 77 FLD0903C PIC S9(02) COMP-3. 77 FLD0904A PIC S9(04) COMP-3 - VALUE +1137. + VALUE +1137. 77 FLD0904C PIC S9(01) COMP-3. 77 FLD0905A PIC 9(09)V9(04) COMP-6 - VALUE 357938124.4724. + VALUE 357938124.4724. 77 FLD0905C PIC 9(09)V9(04) COMP-6. 77 FLD0906A PIC 9(09)V9(16) COMP-6 - VALUE 669388906.6218295935684068. + VALUE 669388906.6218295935684068. 77 FLD0906C PIC 9(01) COMP-6. 77 FLD0907A PIC S9(09)V9(05) COMP-3 - VALUE -390800584.69506. + VALUE -390800584.69506. 77 FLD0907C PIC 9(10)V9(11) COMP-6. 77 FLD0908A PIC S9(10)V9(06) COMP-3 - VALUE +4306350776.286586. + VALUE +4306350776.286586. 77 FLD0908C PIC 9(03)V9(31) COMP-3. 77 FLD0909A PIC 9(08)V9(03) COMP-6 - VALUE 30663800.453. + VALUE 30663800.453. 77 FLD0909C PIC 9(01) COMP-6. 77 FLD0910A PIC S9(06)V9(01) COMP-3 - VALUE -193158.9. + VALUE -193158.9. 77 FLD0910C PIC 9(04)V9(30) COMP-6. 77 FLD0911A PIC S9(10)V9(07) COMP-3 - VALUE -4611964452.0728980. + VALUE -4611964452.0728980. 77 FLD0911C PIC 9(08)V9(20) COMP-3. 77 FLD0912A PIC 9(10)V9(09) COMP-3 - VALUE 5000191930.396378214. + VALUE 5000191930.396378214. 77 FLD0912C PIC 9(01) COMP-6. 77 FLD0913A PIC S9(04) COMP-3 - VALUE +1246. + VALUE +1246. 77 FLD0913C PIC 9(03) COMP-6. 77 FLD0914A PIC 9(03)V9(31) COMP-6 - VALUE 917.2012666333545505281676923914346. + VALUE 917.2012666333545505281676923914346. 77 FLD0914C PIC 9(01)V9(36) COMP-3. 77 FLD0915A PIC 9(08)V9(20) COMP-6 - VALUE 74750906.49492384109464637731. + VALUE 74750906.49492384109464637731. 77 FLD0915C PIC S9(04) COMP-3. 77 FLD0916A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0916C PIC 9(10)V9(06) COMP-6. 77 FLD0917A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0917C PIC 9(04) COMP-6. 77 FLD0918A PIC 9(04) COMP-6 - VALUE 1059. + VALUE 1059. 77 FLD0918C PIC 9(10)V9(11) COMP-6. 77 FLD0919A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0919C PIC S9(01) COMP-3. 77 FLD0920A PIC S9(05)V9(01) COMP-3 - VALUE -17474.9. + VALUE -17474.9. 77 FLD0920C PIC 9(09)V9(16) COMP-6. 77 FLD0921A PIC 9(10)V9(10) COMP-6 - VALUE 5463494999.0456427304. + VALUE 5463494999.0456427304. 77 FLD0921C PIC S9(01) COMP-3. 77 FLD0922A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0922C PIC S9(05)V9(01) COMP-3. 77 FLD0923A PIC 9(06) COMP-6 - VALUE 159582. + VALUE 159582. 77 FLD0923C PIC S9(04) COMP-3. 77 FLD0924A PIC 9(10)V9(11) COMP-6 - VALUE 5650505738.70210182114. + VALUE 5650505738.70210182114. 77 FLD0924C PIC 9(06)V9(25) COMP-3. 77 FLD0925A PIC S9(04) COMP-3 - VALUE +1236. + VALUE +1236. 77 FLD0925C PIC S9(01) COMP-3. 77 FLD0926A PIC 9(08)V9(18) COMP-6 - VALUE 69535643.175280814620720093. + VALUE 69535643.175280814620720093. 77 FLD0926C PIC S9(07)V9(02) COMP-3. 77 FLD0927A PIC 9(06)V9(24) COMP-3 - VALUE 800954.558131814597921049880824. + VALUE 800954.558131814597921049880824. 77 FLD0927C PIC 9(10)V9(09) COMP-3. 77 FLD0928A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0928C PIC 9(07)V9(02) COMP-6. 77 FLD0929A PIC 9(05)V9(28) COMP-3 - VALUE 87174.0739403786824013309342262800. + VALUE 87174.0739403786824013309342262800. 77 FLD0929C PIC 9(08)V9(19) COMP-3. 77 FLD0930A PIC 9(01)V9(36) COMP-3 - VALUE 9.911281003002671008417223674769047647. + VALUE 9.911281003002671008417223674769047647. 77 FLD0930C PIC 9(09)V9(13) COMP-3. 77 FLD0931A PIC 9(09)V9(12) COMP-3 - VALUE 573747057.720371378408. + VALUE 573747057.720371378408. 77 FLD0931C PIC S9(07)V9(02) COMP-3. 77 FLD0932A PIC 9(10)V9(09) COMP-6 - VALUE 5079506475.355934913. + VALUE 5079506475.355934913. 77 FLD0932C PIC 9(10)V9(09) COMP-6. 77 FLD0933A PIC 9(07)V9(22) COMP-6 - VALUE 7776883.1704294028028812135744. + VALUE 7776883.1704294028028812135744. 77 FLD0933C PIC 9(09)V9(03) COMP-6. 77 FLD0934A PIC 9(05)V9(01) COMP-6 - VALUE 16899.6. + VALUE 16899.6. 77 FLD0934C PIC 9(07)V9(02) COMP-6. 77 FLD0935A PIC 9(05)V9(01) COMP-6 - VALUE 16691.2. + VALUE 16691.2. 77 FLD0935C PIC 9(10)V9(08) COMP-6. 77 FLD0936A PIC 9(08)V9(03) COMP-6 - VALUE 29560937.131. + VALUE 29560937.131. 77 FLD0936C PIC 9(02)V9(34) COMP-3. 77 FLD0937A PIC 9(02)V9(33) COMP-3 - VALUE 94.462893191714936147462822191300801. + VALUE 94.462893191714936147462822191300801. 77 FLD0937C PIC 9(01) COMP-6. 77 FLD0938A PIC 9(09)V9(12) COMP-6 - VALUE 578242437.999430092254. + VALUE 578242437.999430092254. 77 FLD0938C PIC 9(08)V9(18) COMP-6. 77 FLD0939A PIC 9(10)V9(13) COMP-6 - VALUE 6084884727.3780637401330. + VALUE 6084884727.3780637401330. 77 FLD0939C PIC S9(01) COMP-3. 77 FLD0940A PIC 9(09)V9(12) COMP-6 - VALUE 577997061.609985873786. + VALUE 577997061.609985873786. 77 FLD0940C PIC 9(10)V9(08) COMP-6. 77 FLD0941A PIC 9(09)V9(16) COMP-3 - VALUE 670449367.9367865555107641. + VALUE 670449367.9367865555107641. 77 FLD0941C PIC 9(09)V9(04) COMP-6. 77 FLD0942A PIC 9(10)V9(10) COMP-3 - VALUE 5309347867.8071082121. + VALUE 5309347867.8071082121. 77 FLD0942C PIC 9(03)V9(32) COMP-3. 77 FLD0943A PIC S9(09)V9(03) COMP-3 - VALUE +323766798.919. + VALUE +323766798.919. 77 FLD0943C PIC S9(06)V9(01) COMP-3. 77 FLD0944A PIC 9(02)V9(34) COMP-6 - VALUE 95.7363239628727824559462078468641266. + VALUE 95.7363239628727824559462078468641266. 77 FLD0944C PIC S9(07)V9(02) COMP-3. 77 FLD0945A PIC 9(10)V9(10) COMP-3 - VALUE 5427766423.1255295934. + VALUE 5427766423.1255295934. 77 FLD0945C PIC S9(10)V9(06) COMP-3. 77 FLD0946A PIC S9(07)V9(02) COMP-3 - VALUE -2603132.30. + VALUE -2603132.30. 77 FLD0946C PIC 9(02)V9(34) COMP-3. 77 FLD0947A PIC 9(05)V9(27) COMP-6 - VALUE 85846.989065825540787812997223227. + VALUE 85846.989065825540787812997223227. 77 FLD0947C PIC 9(09)V9(16) COMP-3. 77 FLD0948A PIC 9(04) COMP-6 - VALUE 1058. + VALUE 1058. 77 FLD0948C PIC 9(07)V9(21) COMP-6. 77 FLD0949A PIC S9(10)V9(06) COMP-3 - VALUE +4307044196.647341. + VALUE +4307044196.647341. 77 FLD0949C PIC 9(10)V9(07) COMP-6. 77 FLD0950A PIC 9(09)V9(14) COMP-3 - VALUE 614898523.03850200954116. + VALUE 614898523.03850200954116. 77 FLD0950C PIC 9(04)V9(30) COMP-6. 77 FLD0951A PIC S9(08)V9(03) COMP-3 - VALUE +31116955.475. + VALUE +31116955.475. 77 FLD0951C PIC 9(08)V9(20) COMP-6. 77 FLD0952A PIC 9(09)V9(03) COMP-6 - VALUE 315844571.317. + VALUE 315844571.317. 77 FLD0952C PIC 9(02) COMP-6. 77 FLD0953A PIC 9(06) COMP-6 - VALUE 166635. + VALUE 166635. 77 FLD0953C PIC 9(10)V9(09) COMP-6. 77 FLD0954A PIC 9(10)V9(11) COMP-6 - VALUE 5577123049.60128579800. + VALUE 5577123049.60128579800. 77 FLD0954C PIC 9(02)V9(34) COMP-3. 77 FLD0955A PIC S9(08)V9(02) COMP-3 - VALUE -27357789.23. + VALUE -27357789.23. 77 FLD0955C PIC 9(06)V9(25) COMP-3. 77 FLD0956A PIC S9(08)V9(02) COMP-3 - VALUE -27355040.84. + VALUE -27355040.84. 77 FLD0956C PIC 9(08)V9(18) COMP-3. 77 FLD0957A PIC 9(09)V9(15) COMP-6 - VALUE 637627083.330792543414133. + VALUE 637627083.330792543414133. 77 FLD0957C PIC S9(04) COMP-3. 77 FLD0958A PIC S9(08)V9(03) COMP-3 - VALUE -29370744.150. + VALUE -29370744.150. 77 FLD0958C PIC 9(10)V9(06) COMP-6. 77 FLD0959A PIC 9(06)V9(25) COMP-6 - VALUE 827211.6833605048791255853757320. + VALUE 827211.6833605048791255853757320. 77 FLD0959C PIC S9(01) COMP-3. 77 FLD0960A PIC 9(10)V9(11) COMP-6 - VALUE 5559976801.18206716315. + VALUE 5559976801.18206716315. 77 FLD0960C PIC S9(01) COMP-3. 77 FLD0961A PIC 9(08)V9(19) COMP-6 - VALUE 72708740.7191407630868695832. + VALUE 72708740.7191407630868695832. 77 FLD0961C PIC S9(04) COMP-3. 77 FLD0962A PIC 9(02)V9(34) COMP-6 - VALUE 96.8081984946274620718043024680810049. + VALUE 96.8081984946274620718043024680810049. 77 FLD0962C PIC 9(08)V9(17) COMP-3. 77 FLD0963A PIC 9(01)V9(36) COMP-3 - VALUE 9.803573230667260718362854277074802666. + VALUE 9.803573230667260718362854277074802666. 77 FLD0963C PIC 9(09)V9(16) COMP-6. 77 FLD0964A PIC 9(09)V9(15) COMP-6 - VALUE 639504907.969730918004813. + VALUE 639504907.969730918004813. 77 FLD0964C PIC 9(09)V9(13) COMP-6. 77 FLD0965A PIC 9(05) COMP-6 - VALUE 13581. + VALUE 13581. 77 FLD0965C PIC 9(01) COMP-6. 77 FLD0966A PIC 9(06)V9(01) COMP-6 - VALUE 189200.6. + VALUE 189200.6. 77 FLD0966C PIC 9(06)V9(01) COMP-6. 77 FLD0967A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0967C PIC 9(09)V9(04) COMP-6. 77 FLD0968A PIC 9(09)V9(15) COMP-6 - VALUE 649996663.320669743058033. + VALUE 649996663.320669743058033. 77 FLD0968C PIC S9(04) COMP-3. 77 FLD0969A PIC S9(05) COMP-3 - VALUE -15366. + VALUE -15366. 77 FLD0969C PIC 9(09)V9(13) COMP-3. 77 FLD0970A PIC 9(09)V9(14) COMP-3 - VALUE 631417540.20798013247173. + VALUE 631417540.20798013247173. 77 FLD0970C PIC 9(02)V9(34) COMP-6. 77 FLD0971A PIC 9(07)V9(01) COMP-6 - VALUE 2161446.9. + VALUE 2161446.9. 77 FLD0971C PIC S9(09)V9(06) COMP-3. 77 FLD0972A PIC 9(09)V9(15) COMP-6 - VALUE 647710182.878484586055378. + VALUE 647710182.878484586055378. 77 FLD0972C PIC 9(05) COMP-6. 77 FLD0973A PIC 9(05) COMP-6 - VALUE 13817. + VALUE 13817. 77 FLD0973C PIC 9(06)V9(25) COMP-6. 77 FLD0974A PIC 9(04) COMP-6 - VALUE 1180. + VALUE 1180. 77 FLD0974C PIC S9(03) COMP-3. 77 FLD0975A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0975C PIC 9(09)V9(03) COMP-6. 77 FLD0976A PIC S9(07)V9(01) COMP-3 - VALUE +2206144.7. + VALUE +2206144.7. 77 FLD0976C PIC 9(10)V9(09) COMP-6. 77 FLD0977A PIC 9(09)V9(03) COMP-6 - VALUE 327431372.704. + VALUE 327431372.704. 77 FLD0977C PIC S9(09)V9(05) COMP-3. 77 FLD0978A PIC 9(09)V9(16) COMP-6 - VALUE 675062190.8116747338368668. + VALUE 675062190.8116747338368668. 77 FLD0978C PIC S9(09)V9(06) COMP-3. 77 FLD0979A PIC 9(03)V9(32) COMP-6 - VALUE 925.33169671466619643496187563869170. + VALUE 925.33169671466619643496187563869170. 77 FLD0979C PIC 9(09)V9(05) COMP-6. 77 FLD0980A PIC 9(03)V9(32) COMP-6 - VALUE 935.82234581280043794748735308530740. + VALUE 935.82234581280043794748735308530740. 77 FLD0980C PIC 9(09)V9(15) COMP-6. 77 FLD0981A PIC 9(06)V9(01) COMP-6 - VALUE 195132.7. + VALUE 195132.7. 77 FLD0981C PIC S9(09)V9(04) COMP-3. 77 FLD0982A PIC 9(06)V9(25) COMP-6 - VALUE 816610.1728260642955703474399342. + VALUE 816610.1728260642955703474399342. 77 FLD0982C PIC S9(08)V9(03) COMP-3. 77 FLD0983A PIC 9(10)V9(09) COMP-3 - VALUE 5114754992.436914005. + VALUE 5114754992.436914005. 77 FLD0983C PIC 9(02)V9(34) COMP-6. 77 FLD0984A PIC 9(09)V9(15) COMP-3 - VALUE 632949921.330981046807551. + VALUE 632949921.330981046807551. 77 FLD0984C PIC 9(10)V9(09) COMP-6. 77 FLD0985A PIC 9(10)V9(06) COMP-6 - VALUE 4296662473.303992. + VALUE 4296662473.303992. 77 FLD0985C PIC 9(05)V9(28) COMP-3. 77 FLD0986A PIC 9(05) COMP-6 - VALUE 14588. + VALUE 14588. 77 FLD0986C PIC 9(01) COMP-6. 77 FLD0987A PIC 9(01)V9(36) COMP-3 - VALUE 9.834402345123109956404050535638816654. + VALUE 9.834402345123109956404050535638816654. 77 FLD0987C PIC 9(06)V9(26) COMP-3. 77 FLD0988A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0988C PIC S9(05)V9(01) COMP-3. 77 FLD0989A PIC S9(04) COMP-3 - VALUE +1235. + VALUE +1235. 77 FLD0989C PIC 9(09)V9(13) COMP-3. 77 FLD0990A PIC 9(07)V9(22) COMP-3 - VALUE 7806084.0781040319313888176111. + VALUE 7806084.0781040319313888176111. 77 FLD0990C PIC 9(06)V9(01) COMP-6. 77 FLD0991A PIC 9(06)V9(24) COMP-6 - VALUE 807774.663029880435338725419569. + VALUE 807774.663029880435338725419569. 77 FLD0991C PIC S9(09)V9(06) COMP-3. 77 FLD0992A PIC 9(07)V9(22) COMP-6 - VALUE 7784108.2583169551867285917978. + VALUE 7784108.2583169551867285917978. 77 FLD0992C PIC 9(04)V9(29) COMP-3. 77 FLD0993A PIC 9(08)V9(20) COMP-6 - VALUE 74534466.64416291111976420324. + VALUE 74534466.64416291111976420324. 77 FLD0993C PIC S9(04) COMP-3. 77 FLD0994A PIC 9(06)V9(24) COMP-6 - VALUE 815107.307501011568717785849003. + VALUE 815107.307501011568717785849003. 77 FLD0994C PIC S9(10)V9(08) COMP-3. 77 FLD0995A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0995C PIC 9(06)V9(01) COMP-6. 77 FLD0996A PIC 9(09)V9(14) COMP-6 - VALUE 619241405.61761309431432. + VALUE 619241405.61761309431432. 77 FLD0996C PIC 9(09)V9(16) COMP-6. 77 FLD0997A PIC 9(10)V9(09) COMP-3 - VALUE 5006446394.611311356. + VALUE 5006446394.611311356. 77 FLD0997C PIC 9(10)V9(09) COMP-3. 77 FLD0998A PIC 9(09)V9(13) COMP-6 - VALUE 598229443.4201559374386. + VALUE 598229443.4201559374386. 77 FLD0998C PIC S9(01) COMP-3. 77 FLD0999A PIC S9(03) COMP-3 - VALUE -081. + VALUE -081. 77 FLD0999C PIC S9(01) COMP-3. * RESULTS-AREA @@ -11975,2997 +11975,2997 @@ AT_DATA([prog.cob], [ * DATA-AREA 77 FLD0001A PIC 9(08)V9(19) COMP-3 - VALUE 72210483.5706116943150334464. + VALUE 72210483.5706116943150334464. 77 FLD0001B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0001E PIC X VALUE 'N'. 77 FLD0002A PIC 9(05)V9(26) COMP-6 - VALUE 83954.98773698940597753903603006. + VALUE 83954.98773698940597753903603006. 77 FLD0002B PIC 9(05)V9(27) COMP-6 - VALUE 85526.912891598327881581553810974. + VALUE 85526.912891598327881581553810974. 77 FLD0002E PIC X VALUE 'N'. 77 FLD0003A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0003B PIC 9(10)V9(08) COMP-6 - VALUE 4976916625.40136914. + VALUE 4976916625.40136914. 77 FLD0003E PIC X VALUE 'N'. 77 FLD0004A PIC S9(08)V9(03) COMP-3 - VALUE +31348416.669. + VALUE +31348416.669. 77 FLD0004B PIC 9(05)V9(01) COMP-6 - VALUE 16799.5. + VALUE 16799.5. 77 FLD0004E PIC X VALUE 'N'. 77 FLD0005A PIC S9(07)V9(01) COMP-3 - VALUE +2337334.8. + VALUE +2337334.8. 77 FLD0005B PIC S9(09)V9(03) COMP-3 - VALUE +324331791.973. + VALUE +324331791.973. 77 FLD0005E PIC X VALUE 'N'. 77 FLD0006A PIC 9(04) COMP-6 - VALUE 1169. + VALUE 1169. 77 FLD0006B PIC 9(03)V9(31) COMP-3 - VALUE 912.5850054312464321171205483551602. + VALUE 912.5850054312464321171205483551602. 77 FLD0006E PIC X VALUE 'N'. 77 FLD0007A PIC S9(04) COMP-3 - VALUE +1123. + VALUE +1123. 77 FLD0007B PIC S9(08)V9(02) COMP-3 - VALUE -27032151.91. + VALUE -27032151.91. 77 FLD0007E PIC X VALUE 'N'. 77 FLD0008A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0008B PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0008E PIC X VALUE 'N'. 77 FLD0009A PIC 9(10)V9(07) COMP-6 - VALUE 4695987895.4491957. + VALUE 4695987895.4491957. 77 FLD0009B PIC 9(05)V9(28) COMP-3 - VALUE 87164.4396861416259625343627703841. + VALUE 87164.4396861416259625343627703841. 77 FLD0009E PIC X VALUE 'N'. 77 FLD0010A PIC 9(03)V9(32) COMP-3 - VALUE 932.59120224122482589734772773226723. + VALUE 932.59120224122482589734772773226723. 77 FLD0010B PIC S9(09)V9(06) COMP-3 - VALUE +401314086.816856. + VALUE +401314086.816856. 77 FLD0010E PIC X VALUE 'N'. 77 FLD0011A PIC 9(09)V9(04) COMP-6 - VALUE 356168291.4830. + VALUE 356168291.4830. 77 FLD0011B PIC 9(04)V9(29) COMP-6 - VALUE 8869.25340695890795927880390081554. + VALUE 8869.25340695890795927880390081554. 77 FLD0011E PIC X VALUE 'N'. 77 FLD0012A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0012B PIC 9(08)V9(19) COMP-3 - VALUE 71485769.2486604356929547066. + VALUE 71485769.2486604356929547066. 77 FLD0012E PIC X VALUE 'N'. 77 FLD0013A PIC 9(06)V9(25) COMP-6 - VALUE 829630.0004717120923913853403064. + VALUE 829630.0004717120923913853403064. 77 FLD0013B PIC 9(07)V9(02) COMP-6 - VALUE 2497013.60. + VALUE 2497013.60. 77 FLD0013E PIC X VALUE 'N'. 77 FLD0014A PIC 9(09)V9(13) COMP-3 - VALUE 592943121.2490873237541. + VALUE 592943121.2490873237541. 77 FLD0014B PIC 9(06)V9(01) COMP-6 - VALUE 186764.7. + VALUE 186764.7. 77 FLD0014E PIC X VALUE 'N'. 77 FLD0015A PIC 9(07)V9(23) COMP-6 - VALUE 7984732.71412134533164817185024. + VALUE 7984732.71412134533164817185024. 77 FLD0015B PIC 9(10)V9(08) COMP-6 - VALUE 4953047329.19498391. + VALUE 4953047329.19498391. 77 FLD0015E PIC X VALUE 'N'. 77 FLD0016A PIC 9(05)V9(28) COMP-3 - VALUE 87275.9557853607148558694461826235. + VALUE 87275.9557853607148558694461826235. 77 FLD0016B PIC S9(10)V9(06) COMP-3 - VALUE +4316165362.791636. + VALUE +4316165362.791636. 77 FLD0016E PIC X VALUE 'N'. 77 FLD0017A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0017B PIC 9(04)V9(30) COMP-6 - VALUE 8983.341087204116393039043941826093. + VALUE 8983.341087204116393039043941826093. 77 FLD0017E PIC X VALUE 'N'. 77 FLD0018A PIC 9(07)V9(21) COMP-3 - VALUE 7619026.805277494540646898713. + VALUE 7619026.805277494540646898713. 77 FLD0018B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0018E PIC X VALUE 'N'. 77 FLD0019A PIC S9(10)V9(08) COMP-3 - VALUE -4930528885.68236813. + VALUE -4930528885.68236813. 77 FLD0019B PIC S9(09)V9(06) COMP-3 - VALUE +402620216.542097. + VALUE +402620216.542097. 77 FLD0019E PIC X VALUE 'N'. 77 FLD0020A PIC 9(09)V9(15) COMP-3 - VALUE 643887452.720044328735582. + VALUE 643887452.720044328735582. 77 FLD0020B PIC 9(09)V9(11) COMP-3 - VALUE 552340679.26366126055. + VALUE 552340679.26366126055. 77 FLD0020E PIC X VALUE 'N'. 77 FLD0021A PIC 9(01)V9(36) COMP-6 - VALUE 9.880441680787707126043528660375159233. + VALUE 9.880441680787707126043528660375159233. 77 FLD0021B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0021E PIC X VALUE 'N'. 77 FLD0022A PIC 9(06)V9(24) COMP-3 - VALUE 810040.192546636172998830716096. + VALUE 810040.192546636172998830716096. 77 FLD0022B PIC 9(07)V9(21) COMP-3 - VALUE 7610660.641468062204140210269. + VALUE 7610660.641468062204140210269. 77 FLD0022E PIC X VALUE 'N'. 77 FLD0023A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0023B PIC 9(02)V9(34) COMP-3 - VALUE 95.1865432391802879230624512274516746. + VALUE 95.1865432391802879230624512274516746. 77 FLD0023E PIC X VALUE 'N'. 77 FLD0024A PIC 9(09)V9(03) COMP-6 - VALUE 329406009.124. + VALUE 329406009.124. 77 FLD0024B PIC S9(09)V9(06) COMP-3 - VALUE +410668612.232476. + VALUE +410668612.232476. 77 FLD0024E PIC X VALUE 'N'. 77 FLD0025A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0025B PIC 9(07)V9(02) COMP-6 - VALUE 2497488.27. + VALUE 2497488.27. 77 FLD0025E PIC X VALUE 'N'. 77 FLD0026A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0026B PIC S9(09)V9(05) COMP-3 - VALUE -383757196.20564. + VALUE -383757196.20564. 77 FLD0026E PIC X VALUE 'N'. 77 FLD0027A PIC 9(09)V9(13) COMP-3 - VALUE 601026867.0937520818498. + VALUE 601026867.0937520818498. 77 FLD0027B PIC 9(06)V9(25) COMP-6 - VALUE 815849.1045356750515082921992870. + VALUE 815849.1045356750515082921992870. 77 FLD0027E PIC X VALUE 'N'. 77 FLD0028A PIC 9(04)V9(29) COMP-6 - VALUE 8794.72782911061568000832266989164. + VALUE 8794.72782911061568000832266989164. 77 FLD0028B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0028E PIC X VALUE 'N'. 77 FLD0029A PIC 9(05) COMP-6 - VALUE 13697. + VALUE 13697. 77 FLD0029B PIC 9(09)V9(17) COMP-3 - VALUE 684374480.18294422258378517. + VALUE 684374480.18294422258378517. 77 FLD0029E PIC X VALUE 'N'. 77 FLD0030A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0030B PIC 9(08)V9(18) COMP-3 - VALUE 70264210.169553353857452293. + VALUE 70264210.169553353857452293. 77 FLD0030E PIC X VALUE 'N'. 77 FLD0031A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0031B PIC 9(08)V9(18) COMP-3 - VALUE 70450280.588407820925311852. + VALUE 70450280.588407820925311852. 77 FLD0031E PIC X VALUE 'N'. 77 FLD0032A PIC 9(10)V9(10) COMP-6 - VALUE 5269599769.4606222516. + VALUE 5269599769.4606222516. 77 FLD0032B PIC S9(09)V9(03) COMP-3 - VALUE +322379197.669. + VALUE +322379197.669. 77 FLD0032E PIC X VALUE 'N'. 77 FLD0033A PIC 9(09)V9(15) COMP-3 - VALUE 641903038.069859710468278. + VALUE 641903038.069859710468278. 77 FLD0033B PIC 9(09)V9(03) COMP-6 - VALUE 318353502.142. + VALUE 318353502.142. 77 FLD0033E PIC X VALUE 'N'. 77 FLD0034A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0034B PIC S9(07)V9(01) COMP-3 - VALUE +2126766.9. + VALUE +2126766.9. 77 FLD0034E PIC X VALUE 'N'. 77 FLD0035A PIC 9(06)V9(25) COMP-6 - VALUE 816285.5924199176049782522568420. + VALUE 816285.5924199176049782522568420. 77 FLD0035B PIC 9(07)V9(01) COMP-6 - VALUE 2276316.1. + VALUE 2276316.1. 77 FLD0035E PIC X VALUE 'N'. 77 FLD0036A PIC 9(01)V9(36) COMP-6 - VALUE 9.789384107274801127829277902492322027. + VALUE 9.789384107274801127829277902492322027. 77 FLD0036B PIC 9(05)V9(27) COMP-6 - VALUE 84790.535447228665422159110676147. + VALUE 84790.535447228665422159110676147. 77 FLD0036E PIC X VALUE 'N'. 77 FLD0037A PIC 9(10)V9(11) COMP-6 - VALUE 5559560836.79804091701. + VALUE 5559560836.79804091701. 77 FLD0037B PIC S9(05) COMP-3 - VALUE -15352. + VALUE -15352. 77 FLD0037E PIC X VALUE 'N'. 77 FLD0038A PIC 9(02)V9(34) COMP-6 - VALUE 95.5897506417712539139586169767426326. + VALUE 95.5897506417712539139586169767426326. 77 FLD0038B PIC 9(06)V9(25) COMP-6 - VALUE 819342.2486726212872198971126636. + VALUE 819342.2486726212872198971126636. 77 FLD0038E PIC X VALUE 'N'. 77 FLD0039A PIC 9(04)V9(29) COMP-3 - VALUE 8933.20399454893721014059337903745. + VALUE 8933.20399454893721014059337903745. 77 FLD0039B PIC 9(06)V9(01) COMP-6 - VALUE 205344.3. + VALUE 205344.3. 77 FLD0039E PIC X VALUE 'N'. 77 FLD0040A PIC S9(06) COMP-3 - VALUE -162227. + VALUE -162227. 77 FLD0040B PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0040E PIC X VALUE 'N'. 77 FLD0041A PIC 9(09)V9(17) COMP-6 - VALUE 687709210.19485042879892944. + VALUE 687709210.19485042879892944. 77 FLD0041B PIC 9(10)V9(09) COMP-3 - VALUE 5032246021.307608119. + VALUE 5032246021.307608119. 77 FLD0041E PIC X VALUE 'N'. 77 FLD0042A PIC 9(07)V9(22) COMP-6 - VALUE 7680734.5400734650109342283030. + VALUE 7680734.5400734650109342283030. 77 FLD0042B PIC 9(10)V9(10) COMP-6 - VALUE 5398987461.4943655917. + VALUE 5398987461.4943655917. 77 FLD0042E PIC X VALUE 'N'. 77 FLD0043A PIC S9(08)V9(02) COMP-3 - VALUE -28038049.48. + VALUE -28038049.48. 77 FLD0043B PIC 9(04)V9(30) COMP-3 - VALUE 9102.051349475740460448491830902639. + VALUE 9102.051349475740460448491830902639. 77 FLD0043E PIC X VALUE 'N'. 77 FLD0044A PIC 9(06)V9(01) COMP-6 - VALUE 206224.3. + VALUE 206224.3. 77 FLD0044B PIC 9(09)V9(04) COMP-6 - VALUE 359534215.7883. + VALUE 359534215.7883. 77 FLD0044E PIC X VALUE 'N'. 77 FLD0045A PIC 9(08)V9(02) COMP-6 - VALUE 28592495.81. + VALUE 28592495.81. 77 FLD0045B PIC 9(09)V9(05) COMP-6 - VALUE 377058873.76830. + VALUE 377058873.76830. 77 FLD0045E PIC X VALUE 'N'. 77 FLD0046A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0046B PIC 9(05)V9(27) COMP-3 - VALUE 86000.025910646182847330010190489. + VALUE 86000.025910646182847330010190489. 77 FLD0046E PIC X VALUE 'N'. 77 FLD0047A PIC 9(08)V9(02) COMP-6 - VALUE 26966592.97. + VALUE 26966592.97. 77 FLD0047B PIC 9(10)V9(08) COMP-6 - VALUE 4982239515.90845814. + VALUE 4982239515.90845814. 77 FLD0047E PIC X VALUE 'N'. 77 FLD0048A PIC 9(05)V9(26) COMP-6 - VALUE 83962.84254838164429202151950448. + VALUE 83962.84254838164429202151950448. 77 FLD0048B PIC S9(05)V9(01) COMP-3 - VALUE -17309.9. + VALUE -17309.9. 77 FLD0048E PIC X VALUE 'N'. 77 FLD0049A PIC 9(09)V9(16) COMP-6 - VALUE 677621907.0336453320635428. + VALUE 677621907.0336453320635428. 77 FLD0049B PIC 9(01)V9(36) COMP-6 - VALUE 9.784571866912429305429554915463086217. + VALUE 9.784571866912429305429554915463086217. 77 FLD0049E PIC X VALUE 'N'. 77 FLD0050A PIC 9(09)V9(03) COMP-6 - VALUE 329667670.988. + VALUE 329667670.988. 77 FLD0050B PIC 9(09)V9(06) COMP-6 - VALUE 408790070.710566. + VALUE 408790070.710566. 77 FLD0050E PIC X VALUE 'N'. 77 FLD0051A PIC 9(09)V9(15) COMP-3 - VALUE 643375703.689413991348544. + VALUE 643375703.689413991348544. 77 FLD0051B PIC 9(04)V9(30) COMP-6 - VALUE 9064.871948640588206203005938732530. + VALUE 9064.871948640588206203005938732530. 77 FLD0051E PIC X VALUE 'N'. 77 FLD0052A PIC 9(09)V9(04) COMP-6 - VALUE 367200483.8576. + VALUE 367200483.8576. 77 FLD0052B PIC 9(09)V9(11) COMP-3 - VALUE 550990476.15163754265. + VALUE 550990476.15163754265. 77 FLD0052E PIC X VALUE 'N'. 77 FLD0053A PIC 9(07)V9(01) COMP-6 - VALUE 2260324.6. + VALUE 2260324.6. 77 FLD0053B PIC S9(09)V9(04) COMP-3 - VALUE -361176713.4701. + VALUE -361176713.4701. 77 FLD0053E PIC X VALUE 'N'. 77 FLD0054A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0054B PIC 9(09)V9(03) COMP-6 - VALUE 319288758.232. + VALUE 319288758.232. 77 FLD0054E PIC X VALUE 'N'. 77 FLD0055A PIC 9(09)V9(14) COMP-3 - VALUE 622232417.66982828604426. + VALUE 622232417.66982828604426. 77 FLD0055B PIC 9(08)V9(17) COMP-3 - VALUE 68254498.02012105715576240. + VALUE 68254498.02012105715576240. 77 FLD0055E PIC X VALUE 'N'. 77 FLD0056A PIC 9(07)V9(01) COMP-6 - VALUE 2161993.9. + VALUE 2161993.9. 77 FLD0056B PIC 9(08)V9(02) COMP-6 - VALUE 27806089.73. + VALUE 27806089.73. 77 FLD0056E PIC X VALUE 'N'. 77 FLD0057A PIC 9(03)V9(32) COMP-6 - VALUE 929.20878243011406638629523513372987. + VALUE 929.20878243011406638629523513372987. 77 FLD0057B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0057E PIC X VALUE 'N'. 77 FLD0058A PIC 9(02)V9(34) COMP-6 - VALUE 96.6574119281082611010447180888149887. + VALUE 96.6574119281082611010447180888149887. 77 FLD0058B PIC S9(09)V9(04) COMP-3 - VALUE +343623662.0368. + VALUE +343623662.0368. 77 FLD0058E PIC X VALUE 'N'. 77 FLD0059A PIC 9(07)V9(02) COMP-6 - VALUE 2566438.61. + VALUE 2566438.61. 77 FLD0059B PIC 9(09)V9(14) COMP-6 - VALUE 625762300.58564874525472. + VALUE 625762300.58564874525472. 77 FLD0059E PIC X VALUE 'N'. 77 FLD0060A PIC 9(01)V9(36) COMP-6 - VALUE 9.888752946983269120906356874911580234. + VALUE 9.888752946983269120906356874911580234. 77 FLD0060B PIC 9(06) COMP-6 - VALUE 159150. + VALUE 159150. 77 FLD0060E PIC X VALUE 'N'. 77 FLD0061A PIC 9(03) COMP-6 - VALUE 095. + VALUE 095. 77 FLD0061B PIC 9(06)V9(25) COMP-6 - VALUE 816564.2123096498172785118185856. + VALUE 816564.2123096498172785118185856. 77 FLD0061E PIC X VALUE 'N'. 77 FLD0062A PIC 9(10)V9(11) COMP-6 - VALUE 5579259193.81647705819. + VALUE 5579259193.81647705819. 77 FLD0062B PIC 9(09)V9(13) COMP-3 - VALUE 602304146.8914084317631. + VALUE 602304146.8914084317631. 77 FLD0062E PIC X VALUE 'N'. 77 FLD0063A PIC S9(07)V9(01) COMP-3 - VALUE +2106925.6. + VALUE +2106925.6. 77 FLD0063B PIC 9(08)V9(19) COMP-3 - VALUE 73193550.7264897311507922950. + VALUE 73193550.7264897311507922950. 77 FLD0063E PIC X VALUE 'N'. 77 FLD0064A PIC 9(06)V9(25) COMP-6 - VALUE 828553.1635867423583263757791428. + VALUE 828553.1635867423583263757791428. 77 FLD0064B PIC S9(04) COMP-3 - VALUE +1113. + VALUE +1113. 77 FLD0064E PIC X VALUE 'N'. 77 FLD0065A PIC 9(08)V9(02) COMP-6 - VALUE 26934154.73. + VALUE 26934154.73. 77 FLD0065B PIC S9(04) COMP-3 - VALUE +1223. + VALUE +1223. 77 FLD0065E PIC X VALUE 'N'. 77 FLD0066A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0066B PIC 9(05)V9(27) COMP-3 - VALUE 85085.260849998822774153950376785. + VALUE 85085.260849998822774153950376785. 77 FLD0066E PIC X VALUE 'N'. 77 FLD0067A PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0067B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0067E PIC X VALUE 'N'. 77 FLD0068A PIC 9(06)V9(25) COMP-6 - VALUE 838055.6814082209537986045688739. + VALUE 838055.6814082209537986045688739. 77 FLD0068B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0068E PIC X VALUE 'N'. 77 FLD0069A PIC 9(10)V9(08) COMP-6 - VALUE 4880885916.76487937. + VALUE 4880885916.76487937. 77 FLD0069B PIC 9(03) COMP-6 - VALUE 097. + VALUE 097. 77 FLD0069E PIC X VALUE 'N'. 77 FLD0070A PIC 9(08)V9(18) COMP-6 - VALUE 69654747.914044090606466852. + VALUE 69654747.914044090606466852. 77 FLD0070B PIC S9(06)V9(01) COMP-3 - VALUE -192591.5. + VALUE -192591.5. 77 FLD0070E PIC X VALUE 'N'. 77 FLD0071A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0071B PIC 9(04) COMP-6 - VALUE 1269. + VALUE 1269. 77 FLD0071E PIC X VALUE 'N'. 77 FLD0072A PIC 9(01)V9(36) COMP-3 - VALUE 9.925387953744267965916492357791867107. + VALUE 9.925387953744267965916492357791867107. 77 FLD0072B PIC 9(09)V9(15) COMP-6 - VALUE 655377323.717403204028641. + VALUE 655377323.717403204028641. 77 FLD0072E PIC X VALUE 'N'. 77 FLD0073A PIC 9(01)V9(36) COMP-3 - VALUE 9.812328554525302504174533169134519994. + VALUE 9.812328554525302504174533169134519994. 77 FLD0073B PIC 9(08)V9(18) COMP-6 - VALUE 70717230.890474991333860543. + VALUE 70717230.890474991333860543. 77 FLD0073E PIC X VALUE 'N'. 77 FLD0074A PIC 9(03)V9(32) COMP-6 - VALUE 925.84903592679257400277492706663906. + VALUE 925.84903592679257400277492706663906. 77 FLD0074B PIC 9(01)V9(36) COMP-3 - VALUE 9.839916331263631743553332853480242192. + VALUE 9.839916331263631743553332853480242192. 77 FLD0074E PIC X VALUE 'N'. 77 FLD0075A PIC 9(10)V9(10) COMP-3 - VALUE 5446083738.8683014381. + VALUE 5446083738.8683014381. 77 FLD0075B PIC S9(07)V9(01) COMP-3 - VALUE +2205661.8. + VALUE +2205661.8. 77 FLD0075E PIC X VALUE 'N'. 77 FLD0076A PIC S9(07)V9(02) COMP-3 - VALUE +2412584.18. + VALUE +2412584.18. 77 FLD0076B PIC 9(02)V9(34) COMP-3 - VALUE 95.1877730461857529675739897356834262. + VALUE 95.1877730461857529675739897356834262. 77 FLD0076E PIC X VALUE 'N'. 77 FLD0077A PIC 9(10)V9(08) COMP-6 - VALUE 4971042025.86989840. + VALUE 4971042025.86989840. 77 FLD0077B PIC 9(05)V9(28) COMP-6 - VALUE 87747.7884783979700245026833727024. + VALUE 87747.7884783979700245026833727024. 77 FLD0077E PIC X VALUE 'N'. 77 FLD0078A PIC 9(06)V9(01) COMP-6 - VALUE 186044.2. + VALUE 186044.2. 77 FLD0078B PIC 9(10)V9(10) COMP-6 - VALUE 5264094377.6727222580. + VALUE 5264094377.6727222580. 77 FLD0078E PIC X VALUE 'N'. 77 FLD0079A PIC 9(09)V9(15) COMP-6 - VALUE 638119223.314542294289708. + VALUE 638119223.314542294289708. 77 FLD0079B PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0079E PIC X VALUE 'N'. 77 FLD0080A PIC 9(07)V9(23) COMP-3 - VALUE 7905587.67133311302011122734256. + VALUE 7905587.67133311302011122734256. 77 FLD0080B PIC S9(09)V9(04) COMP-3 - VALUE -363247849.5626. + VALUE -363247849.5626. 77 FLD0080E PIC X VALUE 'N'. 77 FLD0081A PIC 9(01)V9(36) COMP-6 - VALUE 9.951308658902108250643436804239172488. + VALUE 9.951308658902108250643436804239172488. 77 FLD0081B PIC 9(09)V9(04) COMP-6 - VALUE 367206952.3371. + VALUE 367206952.3371. 77 FLD0081E PIC X VALUE 'N'. 77 FLD0082A PIC S9(08)V9(02) COMP-3 - VALUE -26324419.10. + VALUE -26324419.10. 77 FLD0082B PIC 9(07)V9(22) COMP-6 - VALUE 7666475.1738066827524420432382. + VALUE 7666475.1738066827524420432382. 77 FLD0082E PIC X VALUE 'N'. 77 FLD0083A PIC 9(09)V9(14) COMP-3 - VALUE 631384121.39469823891602. + VALUE 631384121.39469823891602. 77 FLD0083B PIC S9(07)V9(02) COMP-3 - VALUE -2518657.33. + VALUE -2518657.33. 77 FLD0083E PIC X VALUE 'N'. 77 FLD0084A PIC 9(04)V9(29) COMP-3 - VALUE 8913.08379718931953483718189090723. + VALUE 8913.08379718931953483718189090723. 77 FLD0084B PIC 9(09)V9(06) COMP-6 - VALUE 405118244.918866. + VALUE 405118244.918866. 77 FLD0084E PIC X VALUE 'N'. 77 FLD0085A PIC 9(05) COMP-6 - VALUE 15779. + VALUE 15779. 77 FLD0085B PIC 9(10)V9(06) COMP-6 - VALUE 4354227755.611629. + VALUE 4354227755.611629. 77 FLD0085E PIC X VALUE 'N'. 77 FLD0086A PIC 9(01)V9(36) COMP-6 - VALUE 9.766547774737049936177868403319735080. + VALUE 9.766547774737049936177868403319735080. 77 FLD0086B PIC 9(10)V9(11) COMP-3 - VALUE 5711670223.78104349833. + VALUE 5711670223.78104349833. 77 FLD0086E PIC X VALUE 'N'. 77 FLD0087A PIC 9(09)V9(14) COMP-6 - VALUE 617158605.01368802193411. + VALUE 617158605.01368802193411. 77 FLD0087B PIC 9(04) COMP-6 - VALUE 1168. + VALUE 1168. 77 FLD0087E PIC X VALUE 'N'. 77 FLD0088A PIC 9(10)V9(12) COMP-3 - VALUE 5809468198.000283800652. + VALUE 5809468198.000283800652. 77 FLD0088B PIC 9(09)V9(03) COMP-6 - VALUE 327927843.481. + VALUE 327927843.481. 77 FLD0088E PIC X VALUE 'N'. 77 FLD0089A PIC 9(06)V9(24) COMP-3 - VALUE 802942.222446262787727278009697. + VALUE 802942.222446262787727278009697. 77 FLD0089B PIC 9(03)V9(31) COMP-3 - VALUE 913.0556640200002682661306607769802. + VALUE 913.0556640200002682661306607769802. 77 FLD0089E PIC X VALUE 'N'. 77 FLD0090A PIC S9(08)V9(02) COMP-3 - VALUE -28271627.31. + VALUE -28271627.31. 77 FLD0090B PIC S9(08)V9(03) COMP-3 - VALUE -29023436.992. + VALUE -29023436.992. 77 FLD0090E PIC X VALUE 'N'. 77 FLD0091A PIC 9(09)V9(07) COMP-6 - VALUE 438808038.0901770. + VALUE 438808038.0901770. 77 FLD0091B PIC 9(08)V9(18) COMP-6 - VALUE 69809163.794725925811235356. + VALUE 69809163.794725925811235356. 77 FLD0091E PIC X VALUE 'N'. 77 FLD0092A PIC S9(07)V9(01) COMP-3 - VALUE +2146587.0. + VALUE +2146587.0. 77 FLD0092B PIC 9(06)V9(25) COMP-6 - VALUE 828676.9901534452031910404912196. + VALUE 828676.9901534452031910404912196. 77 FLD0092E PIC X VALUE 'N'. 77 FLD0093A PIC 9(06)V9(25) COMP-3 - VALUE 831848.6927757260396276706160278. + VALUE 831848.6927757260396276706160278. 77 FLD0093B PIC 9(07)V9(23) COMP-3 - VALUE 7909193.25337388512409120266966. + VALUE 7909193.25337388512409120266966. 77 FLD0093E PIC X VALUE 'N'. 77 FLD0094A PIC 9(07)V9(01) COMP-6 - VALUE 2260698.5. + VALUE 2260698.5. 77 FLD0094B PIC 9(10)V9(10) COMP-3 - VALUE 5308926344.5354850645. + VALUE 5308926344.5354850645. 77 FLD0094E PIC X VALUE 'N'. 77 FLD0095A PIC 9(07)V9(22) COMP-6 - VALUE 7681159.7607563408818265315858. + VALUE 7681159.7607563408818265315858. 77 FLD0095B PIC 9(06)V9(25) COMP-6 - VALUE 835614.2190518044410296738533361. + VALUE 835614.2190518044410296738533361. 77 FLD0095E PIC X VALUE 'N'. 77 FLD0096A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0096B PIC 9(05)V9(28) COMP-6 - VALUE 87505.3049076218392166026660561328. + VALUE 87505.3049076218392166026660561328. 77 FLD0096E PIC X VALUE 'N'. 77 FLD0097A PIC 9(03) COMP-6 - VALUE 085. + VALUE 085. 77 FLD0097B PIC 9(07)V9(22) COMP-6 - VALUE 7663819.4132902548449948199049. + VALUE 7663819.4132902548449948199049. 77 FLD0097E PIC X VALUE 'N'. 77 FLD0098A PIC 9(05)V9(28) COMP-6 - VALUE 87637.1310136299430659789777564583. + VALUE 87637.1310136299430659789777564583. 77 FLD0098B PIC 9(08)V9(04) COMP-6 - VALUE 33500668.0379. + VALUE 33500668.0379. 77 FLD0098E PIC X VALUE 'N'. 77 FLD0099A PIC S9(10)V9(08) COMP-3 - VALUE -4946809917.70565292. + VALUE -4946809917.70565292. 77 FLD0099B PIC S9(08)V9(03) COMP-3 - VALUE +30007106.715. + VALUE +30007106.715. 77 FLD0099E PIC X VALUE 'N'. 77 FLD0100A PIC 9(10)V9(09) COMP-3 - VALUE 5148281813.288457797. + VALUE 5148281813.288457797. 77 FLD0100B PIC 9(09)V9(14) COMP-6 - VALUE 609442213.66168171982735. + VALUE 609442213.66168171982735. 77 FLD0100E PIC X VALUE 'N'. 77 FLD0101A PIC S9(07)V9(02) COMP-3 - VALUE -2605358.58. + VALUE -2605358.58. 77 FLD0101B PIC S9(07)V9(02) COMP-3 - VALUE -2515761.93. + VALUE -2515761.93. 77 FLD0101E PIC X VALUE 'N'. 77 FLD0102A PIC 9(05) COMP-6 - VALUE 13880. + VALUE 13880. 77 FLD0102B PIC 9(09)V9(14) COMP-6 - VALUE 626009568.32775289662151. + VALUE 626009568.32775289662151. 77 FLD0102E PIC X VALUE 'N'. 77 FLD0103A PIC 9(03)V9(32) COMP-6 - VALUE 929.51599988912647631877916865050792. + VALUE 929.51599988912647631877916865050792. 77 FLD0103B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0103E PIC X VALUE 'N'. 77 FLD0104A PIC 9(07)V9(01) COMP-6 - VALUE 2254306.3. + VALUE 2254306.3. 77 FLD0104B PIC S9(10)V9(08) COMP-3 - VALUE -4810300752.02174334. + VALUE -4810300752.02174334. 77 FLD0104E PIC X VALUE 'N'. 77 FLD0105A PIC S9(08)V9(03) COMP-3 - VALUE -29081388.428. + VALUE -29081388.428. 77 FLD0105B PIC 9(08)V9(02) COMP-6 - VALUE 27558698.77. + VALUE 27558698.77. 77 FLD0105E PIC X VALUE 'N'. 77 FLD0106A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0106B PIC S9(08)V9(02) COMP-3 - VALUE -26362185.29. + VALUE -26362185.29. 77 FLD0106E PIC X VALUE 'N'. 77 FLD0107A PIC 9(09)V9(16) COMP-6 - VALUE 677462443.7557797973497031. + VALUE 677462443.7557797973497031. 77 FLD0107B PIC 9(08)V9(19) COMP-6 - VALUE 71705910.5997380985542122289. + VALUE 71705910.5997380985542122289. 77 FLD0107E PIC X VALUE 'N'. 77 FLD0108A PIC 9(09)V9(14) COMP-3 - VALUE 610210882.31341436003418. + VALUE 610210882.31341436003418. 77 FLD0108B PIC S9(08)V9(02) COMP-3 - VALUE -28421053.19. + VALUE -28421053.19. 77 FLD0108E PIC X VALUE 'N'. 77 FLD0109A PIC S9(04) COMP-3 - VALUE +1136. + VALUE +1136. 77 FLD0109B PIC 9(04)V9(30) COMP-3 - VALUE 9020.720262660837374113498299266211. + VALUE 9020.720262660837374113498299266211. 77 FLD0109E PIC X VALUE 'N'. 77 FLD0110A PIC 9(07)V9(23) COMP-3 - VALUE 7940109.55673497886841971649118. + VALUE 7940109.55673497886841971649118. 77 FLD0110B PIC 9(08)V9(18) COMP-6 - VALUE 69721135.284383173313926818. + VALUE 69721135.284383173313926818. 77 FLD0110E PIC X VALUE 'N'. 77 FLD0111A PIC 9(09)V9(03) COMP-6 - VALUE 326472185.831. + VALUE 326472185.831. 77 FLD0111B PIC 9(10)V9(09) COMP-6 - VALUE 5255901748.964217912. + VALUE 5255901748.964217912. 77 FLD0111E PIC X VALUE 'N'. 77 FLD0112A PIC 9(08)V9(19) COMP-3 - VALUE 71238052.4624002697819946661. + VALUE 71238052.4624002697819946661. 77 FLD0112B PIC S9(08)V9(02) COMP-3 - VALUE -27133920.74. + VALUE -27133920.74. 77 FLD0112E PIC X VALUE 'N'. 77 FLD0113A PIC 9(04)V9(30) COMP-6 - VALUE 9092.566324157485002643852567416615. + VALUE 9092.566324157485002643852567416615. 77 FLD0113B PIC 9(04) COMP-6 - VALUE 1277. + VALUE 1277. 77 FLD0113E PIC X VALUE 'N'. 77 FLD0114A PIC 9(09)V9(07) COMP-6 - VALUE 437805064.1539988. + VALUE 437805064.1539988. 77 FLD0114B PIC 9(05)V9(01) COMP-6 - VALUE 17667.3. + VALUE 17667.3. 77 FLD0114E PIC X VALUE 'N'. 77 FLD0115A PIC 9(02)V9(34) COMP-3 - VALUE 96.2362934933669089687668929400388151. + VALUE 96.2362934933669089687668929400388151. 77 FLD0115B PIC S9(08)V9(03) COMP-3 - VALUE +30236682.408. + VALUE +30236682.408. 77 FLD0115E PIC X VALUE 'N'. 77 FLD0116A PIC 9(07)V9(22) COMP-3 - VALUE 7646463.4359510952332783517704. + VALUE 7646463.4359510952332783517704. 77 FLD0116B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0116E PIC X VALUE 'N'. 77 FLD0117A PIC 9(09)V9(14) COMP-6 - VALUE 617509561.34001855346582. + VALUE 617509561.34001855346582. 77 FLD0117B PIC 9(05) COMP-6 - VALUE 13612. + VALUE 13612. 77 FLD0117E PIC X VALUE 'N'. 77 FLD0118A PIC 9(10)V9(10) COMP-3 - VALUE 5408402726.5490597358. + VALUE 5408402726.5490597358. 77 FLD0118B PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0118E PIC X VALUE 'N'. 77 FLD0119A PIC S9(08)V9(03) COMP-3 - VALUE +30078875.458. + VALUE +30078875.458. 77 FLD0119B PIC 9(07)V9(02) COMP-6 - VALUE 2460449.05. + VALUE 2460449.05. 77 FLD0119E PIC X VALUE 'N'. 77 FLD0120A PIC 9(06)V9(25) COMP-3 - VALUE 830160.1137616416714593015058198. + VALUE 830160.1137616416714593015058198. 77 FLD0120B PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0120E PIC X VALUE 'N'. 77 FLD0121A PIC S9(07)V9(01) COMP-3 - VALUE +2338292.2. + VALUE +2338292.2. 77 FLD0121B PIC S9(09)V9(03) COMP-3 - VALUE +320991974.822. + VALUE +320991974.822. 77 FLD0121E PIC X VALUE 'N'. 77 FLD0122A PIC S9(06)V9(01) COMP-3 - VALUE -184951.8. + VALUE -184951.8. 77 FLD0122B PIC 9(08)V9(02) COMP-6 - VALUE 26752619.72. + VALUE 26752619.72. 77 FLD0122E PIC X VALUE 'N'. 77 FLD0123A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0123B PIC 9(07)V9(21) COMP-3 - VALUE 7502027.502690824523057244732. + VALUE 7502027.502690824523057244732. 77 FLD0123E PIC X VALUE 'N'. 77 FLD0124A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0124B PIC S9(10)V9(06) COMP-3 - VALUE +4223876720.963152. + VALUE +4223876720.963152. 77 FLD0124E PIC X VALUE 'N'. 77 FLD0125A PIC 9(04)V9(29) COMP-3 - VALUE 8800.31826789913984576685379579430. + VALUE 8800.31826789913984576685379579430. 77 FLD0125B PIC 9(09)V9(15) COMP-6 - VALUE 637787216.045794358443288. + VALUE 637787216.045794358443288. 77 FLD0125E PIC X VALUE 'N'. 77 FLD0126A PIC 9(06)V9(24) COMP-6 - VALUE 807990.071015203703552742808824. + VALUE 807990.071015203703552742808824. 77 FLD0126B PIC 9(07)V9(01) COMP-6 - VALUE 2285688.0. + VALUE 2285688.0. 77 FLD0126E PIC X VALUE 'N'. 77 FLD0127A PIC 9(04)V9(30) COMP-6 - VALUE 8981.860178820127993404298649693373. + VALUE 8981.860178820127993404298649693373. 77 FLD0127B PIC 9(05)V9(28) COMP-6 - VALUE 87878.0390073648609572387613297905. + VALUE 87878.0390073648609572387613297905. 77 FLD0127E PIC X VALUE 'N'. 77 FLD0128A PIC 9(10)V9(06) COMP-6 - VALUE 4298489587.591516. + VALUE 4298489587.591516. 77 FLD0128B PIC 9(08)V9(02) COMP-6 - VALUE 26904320.50. + VALUE 26904320.50. 77 FLD0128E PIC X VALUE 'N'. 77 FLD0129A PIC S9(08)V9(04) COMP-3 - VALUE +33460508.1048. + VALUE +33460508.1048. 77 FLD0129B PIC 9(09)V9(14) COMP-6 - VALUE 629564859.51748508700376. + VALUE 629564859.51748508700376. 77 FLD0129E PIC X VALUE 'N'. 77 FLD0130A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0130B PIC 9(08)V9(03) COMP-6 - VALUE 30500681.275. + VALUE 30500681.275. 77 FLD0130E PIC X VALUE 'N'. 77 FLD0131A PIC 9(08)V9(02) COMP-6 - VALUE 26916210.05. + VALUE 26916210.05. 77 FLD0131B PIC 9(08)V9(18) COMP-6 - VALUE 70626515.642831921848454612. + VALUE 70626515.642831921848454612. 77 FLD0131E PIC X VALUE 'N'. 77 FLD0132A PIC 9(04) COMP-6 - VALUE 1270. + VALUE 1270. 77 FLD0132B PIC 9(07)V9(01) COMP-6 - VALUE 2163498.7. + VALUE 2163498.7. 77 FLD0132E PIC X VALUE 'N'. 77 FLD0133A PIC 9(01)V9(36) COMP-6 - VALUE 9.890353542063604619372085835493635386. + VALUE 9.890353542063604619372085835493635386. 77 FLD0133B PIC S9(07)V9(02) COMP-3 - VALUE -2528421.98. + VALUE -2528421.98. 77 FLD0133E PIC X VALUE 'N'. 77 FLD0134A PIC 9(08)V9(18) COMP-3 - VALUE 70385499.741438917187252855. + VALUE 70385499.741438917187252855. 77 FLD0134B PIC 9(09)V9(16) COMP-3 - VALUE 673960062.4739148226893803. + VALUE 673960062.4739148226893803. 77 FLD0134E PIC X VALUE 'N'. 77 FLD0135A PIC 9(10)V9(07) COMP-6 - VALUE 4678335500.0128495. + VALUE 4678335500.0128495. 77 FLD0135B PIC 9(07)V9(02) COMP-6 - VALUE 2561321.97. + VALUE 2561321.97. 77 FLD0135E PIC X VALUE 'N'. 77 FLD0136A PIC S9(05) COMP-3 - VALUE -15169. + VALUE -15169. 77 FLD0136B PIC 9(08)V9(19) COMP-3 - VALUE 72091249.9695820607747975827. + VALUE 72091249.9695820607747975827. 77 FLD0136E PIC X VALUE 'N'. 77 FLD0137A PIC S9(08)V9(02) COMP-3 - VALUE -27190319.39. + VALUE -27190319.39. 77 FLD0137B PIC 9(03)V9(32) COMP-3 - VALUE 921.23024961283406231160597599227912. + VALUE 921.23024961283406231160597599227912. 77 FLD0137E PIC X VALUE 'N'. 77 FLD0138A PIC S9(10)V9(08) COMP-3 - VALUE -4824223828.94490853. + VALUE -4824223828.94490853. 77 FLD0138B PIC 9(04)V9(30) COMP-6 - VALUE 8976.142294415691003095503219810780. + VALUE 8976.142294415691003095503219810780. 77 FLD0138E PIC X VALUE 'N'. 77 FLD0139A PIC 9(09)V9(03) COMP-6 - VALUE 319644653.394. + VALUE 319644653.394. 77 FLD0139B PIC 9(06)V9(25) COMP-6 - VALUE 818318.3537620841718762676464393. + VALUE 818318.3537620841718762676464393. 77 FLD0139E PIC X VALUE 'N'. 77 FLD0140A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0140B PIC 9(03)V9(31) COMP-3 - VALUE 913.4502802484925076953459210926666. + VALUE 913.4502802484925076953459210926666. 77 FLD0140E PIC X VALUE 'N'. 77 FLD0141A PIC 9(09)V9(14) COMP-3 - VALUE 612266512.11346116987499. + VALUE 612266512.11346116987499. 77 FLD0141B PIC 9(06)V9(01) COMP-6 - VALUE 198046.5. + VALUE 198046.5. 77 FLD0141E PIC X VALUE 'N'. 77 FLD0142A PIC 9(09)V9(04) COMP-6 - VALUE 356201246.7531. + VALUE 356201246.7531. 77 FLD0142B PIC S9(04) COMP-3 - VALUE +1134. + VALUE +1134. 77 FLD0142E PIC X VALUE 'N'. 77 FLD0143A PIC S9(07)V9(02) COMP-3 - VALUE -2608987.15. + VALUE -2608987.15. 77 FLD0143B PIC 9(06)V9(01) COMP-6 - VALUE 205887.8. + VALUE 205887.8. 77 FLD0143E PIC X VALUE 'N'. 77 FLD0144A PIC 9(10)V9(11) COMP-6 - VALUE 5664625691.64754570216. + VALUE 5664625691.64754570216. 77 FLD0144B PIC 9(07)V9(01) COMP-6 - VALUE 2170292.3. + VALUE 2170292.3. 77 FLD0144E PIC X VALUE 'N'. 77 FLD0145A PIC 9(09)V9(13) COMP-3 - VALUE 592809780.4295365813587. + VALUE 592809780.4295365813587. 77 FLD0145B PIC 9(09)V9(06) COMP-6 - VALUE 416669902.306984. + VALUE 416669902.306984. 77 FLD0145E PIC X VALUE 'N'. 77 FLD0146A PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0146B PIC 9(09)V9(13) COMP-3 - VALUE 592675280.7490164309811. + VALUE 592675280.7490164309811. 77 FLD0146E PIC X VALUE 'N'. 77 FLD0147A PIC 9(03) COMP-6 - VALUE 085. + VALUE 085. 77 FLD0147B PIC 9(10)V9(05) COMP-6 - VALUE 3974420340.21838. + VALUE 3974420340.21838. 77 FLD0147E PIC X VALUE 'N'. 77 FLD0148A PIC 9(04) COMP-6 - VALUE 1189. + VALUE 1189. 77 FLD0148B PIC 9(08)V9(04) COMP-6 - VALUE 33583306.9980. + VALUE 33583306.9980. 77 FLD0148E PIC X VALUE 'N'. 77 FLD0149A PIC 9(05)V9(27) COMP-3 - VALUE 86469.811002464236349140946913394. + VALUE 86469.811002464236349140946913394. 77 FLD0149B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0149E PIC X VALUE 'N'. 77 FLD0150A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0150B PIC 9(01)V9(36) COMP-6 - VALUE 9.779789481524289174174668914929497987. + VALUE 9.779789481524289174174668914929497987. 77 FLD0150E PIC X VALUE 'N'. 77 FLD0151A PIC 9(09)V9(13) COMP-3 - VALUE 602633749.4884196344102. + VALUE 602633749.4884196344102. 77 FLD0151B PIC 9(07)V9(22) COMP-3 - VALUE 7715228.5011189425389943608024. + VALUE 7715228.5011189425389943608024. 77 FLD0151E PIC X VALUE 'N'. 77 FLD0152A PIC S9(08)V9(02) COMP-3 - VALUE -28005400.65. + VALUE -28005400.65. 77 FLD0152B PIC 9(02)V9(34) COMP-6 - VALUE 96.9689035330467796747200281970435753. + VALUE 96.9689035330467796747200281970435753. 77 FLD0152E PIC X VALUE 'N'. 77 FLD0153A PIC 9(08)V9(18) COMP-3 - VALUE 69246387.672994647033419823. + VALUE 69246387.672994647033419823. 77 FLD0153B PIC 9(07)V9(22) COMP-3 - VALUE 7700147.9845998110906890588012. + VALUE 7700147.9845998110906890588012. 77 FLD0153E PIC X VALUE 'N'. 77 FLD0154A PIC 9(09)V9(14) COMP-6 - VALUE 618531644.61004783714059. + VALUE 618531644.61004783714059. 77 FLD0154B PIC 9(10)V9(07) COMP-6 - VALUE 4667533939.9326892. + VALUE 4667533939.9326892. 77 FLD0154E PIC X VALUE 'N'. 77 FLD0155A PIC 9(10)V9(12) COMP-3 - VALUE 5816028861.286740569980. + VALUE 5816028861.286740569980. 77 FLD0155B PIC 9(03)V9(31) COMP-3 - VALUE 920.9824083062539967770021576143335. + VALUE 920.9824083062539967770021576143335. 77 FLD0155E PIC X VALUE 'N'. 77 FLD0156A PIC 9(02)V9(34) COMP-3 - VALUE 95.3830714078202746009083057288080453. + VALUE 95.3830714078202746009083057288080453. 77 FLD0156B PIC 9(04)V9(30) COMP-6 - VALUE 9080.971133779824899789900882751680. + VALUE 9080.971133779824899789900882751680. 77 FLD0156E PIC X VALUE 'N'. 77 FLD0157A PIC 9(09)V9(16) COMP-6 - VALUE 659745695.0483697735165833. + VALUE 659745695.0483697735165833. 77 FLD0157B PIC 9(10)V9(06) COMP-6 - VALUE 4359875032.276696. + VALUE 4359875032.276696. 77 FLD0157E PIC X VALUE 'N'. 77 FLD0158A PIC S9(09)V9(06) COMP-3 - VALUE +412656981.234114. + VALUE +412656981.234114. 77 FLD0158B PIC 9(09)V9(14) COMP-3 - VALUE 611832243.66474420197192. + VALUE 611832243.66474420197192. 77 FLD0158E PIC X VALUE 'N'. 77 FLD0159A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0159B PIC 9(09)V9(15) COMP-3 - VALUE 643529357.674236912600918. + VALUE 643529357.674236912600918. 77 FLD0159E PIC X VALUE 'N'. 77 FLD0160A PIC 9(08)V9(20) COMP-6 - VALUE 74656107.83998073429756914265. + VALUE 74656107.83998073429756914265. 77 FLD0160B PIC 9(06)V9(01) COMP-6 - VALUE 207077.8. + VALUE 207077.8. 77 FLD0160E PIC X VALUE 'N'. 77 FLD0161A PIC 9(07)V9(22) COMP-6 - VALUE 7887170.9741627593626134284932. + VALUE 7887170.9741627593626134284932. 77 FLD0161B PIC 9(08)V9(19) COMP-6 - VALUE 71702582.3615881408024108623. + VALUE 71702582.3615881408024108623. 77 FLD0161E PIC X VALUE 'N'. 77 FLD0162A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0162B PIC 9(10)V9(11) COMP-6 - VALUE 5668143857.58160899086. + VALUE 5668143857.58160899086. 77 FLD0162E PIC X VALUE 'N'. 77 FLD0163A PIC 9(09)V9(14) COMP-6 - VALUE 618392824.19829444403802. + VALUE 618392824.19829444403802. 77 FLD0163B PIC 9(09)V9(15) COMP-3 - VALUE 650815786.826470232817598. + VALUE 650815786.826470232817598. 77 FLD0163E PIC X VALUE 'N'. 77 FLD0164A PIC S9(06)V9(01) COMP-3 - VALUE +204076.7. + VALUE +204076.7. 77 FLD0164B PIC 9(04) COMP-6 - VALUE 1076. + VALUE 1076. 77 FLD0164E PIC X VALUE 'N'. 77 FLD0165A PIC 9(09)V9(14) COMP-3 - VALUE 610409164.63927785695631. + VALUE 610409164.63927785695631. 77 FLD0165B PIC 9(04) COMP-6 - VALUE 1267. + VALUE 1267. 77 FLD0165E PIC X VALUE 'N'. 77 FLD0166A PIC 9(07)V9(02) COMP-6 - VALUE 2460589.98. + VALUE 2460589.98. 77 FLD0166B PIC 9(05)V9(01) COMP-6 - VALUE 17630.0. + VALUE 17630.0. 77 FLD0166E PIC X VALUE 'N'. 77 FLD0167A PIC S9(09)V9(03) COMP-3 - VALUE +323253458.962. + VALUE +323253458.962. 77 FLD0167B PIC 9(06)V9(25) COMP-6 - VALUE 838285.1322478405142746282763255. + VALUE 838285.1322478405142746282763255. 77 FLD0167E PIC X VALUE 'N'. 77 FLD0168A PIC S9(04) COMP-3 - VALUE +1200. + VALUE +1200. 77 FLD0168B PIC S9(10)V9(06) COMP-3 - VALUE +4326937205.661665. + VALUE +4326937205.661665. 77 FLD0168E PIC X VALUE 'N'. 77 FLD0169A PIC 9(06)V9(25) COMP-3 - VALUE 834885.7368063762329768451309064. + VALUE 834885.7368063762329768451309064. 77 FLD0169B PIC 9(08)V9(18) COMP-6 - VALUE 70699865.109667991980302304. + VALUE 70699865.109667991980302304. 77 FLD0169E PIC X VALUE 'N'. 77 FLD0170A PIC 9(08)V9(19) COMP-3 - VALUE 72325482.4666709539293663056. + VALUE 72325482.4666709539293663056. 77 FLD0170B PIC 9(01)V9(36) COMP-6 - VALUE 9.863493423765207213094186045054811984. + VALUE 9.863493423765207213094186045054811984. 77 FLD0170E PIC X VALUE 'N'. 77 FLD0171A PIC 9(09)V9(16) COMP-6 - VALUE 675345293.4675296948086042. + VALUE 675345293.4675296948086042. 77 FLD0171B PIC 9(10)V9(06) COMP-6 - VALUE 4258478422.558273. + VALUE 4258478422.558273. 77 FLD0171E PIC X VALUE 'N'. 77 FLD0172A PIC 9(02)V9(34) COMP-3 - VALUE 96.0216523360032936373897882731398567. + VALUE 96.0216523360032936373897882731398567. 77 FLD0172B PIC 9(04)V9(30) COMP-6 - VALUE 8999.798406174591702821885519369971. + VALUE 8999.798406174591702821885519369971. 77 FLD0172E PIC X VALUE 'N'. 77 FLD0173A PIC S9(09)V9(06) COMP-3 - VALUE +412472914.336663. + VALUE +412472914.336663. 77 FLD0173B PIC 9(10)V9(08) COMP-6 - VALUE 4786981213.45750904. + VALUE 4786981213.45750904. 77 FLD0173E PIC X VALUE 'N'. 77 FLD0174A PIC S9(04) COMP-3 - VALUE +1244. + VALUE +1244. 77 FLD0174B PIC 9(10)V9(09) COMP-6 - VALUE 5152586737.087611057. + VALUE 5152586737.087611057. 77 FLD0174E PIC X VALUE 'N'. 77 FLD0175A PIC S9(05) COMP-3 - VALUE +13456. + VALUE +13456. 77 FLD0175B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0175E PIC X VALUE 'N'. 77 FLD0176A PIC 9(07)V9(23) COMP-3 - VALUE 7902178.74582138546379894705751. + VALUE 7902178.74582138546379894705751. 77 FLD0176B PIC 9(08)V9(03) COMP-6 - VALUE 29797398.003. + VALUE 29797398.003. 77 FLD0176E PIC X VALUE 'N'. 77 FLD0177A PIC 9(07)V9(21) COMP-3 - VALUE 7618839.577049143496623173632. + VALUE 7618839.577049143496623173632. 77 FLD0177B PIC 9(07)V9(02) COMP-6 - VALUE 2373414.07. + VALUE 2373414.07. 77 FLD0177E PIC X VALUE 'N'. 77 FLD0178A PIC 9(09)V9(04) COMP-6 - VALUE 355502105.3348. + VALUE 355502105.3348. 77 FLD0178B PIC S9(08)V9(03) COMP-3 - VALUE +31397739.222. + VALUE +31397739.222. 77 FLD0178E PIC X VALUE 'N'. 77 FLD0179A PIC 9(09)V9(05) COMP-6 - VALUE 388560564.63472. + VALUE 388560564.63472. 77 FLD0179B PIC 9(03) COMP-6 - VALUE 099. + VALUE 099. 77 FLD0179E PIC X VALUE 'N'. 77 FLD0180A PIC 9(05)V9(27) COMP-6 - VALUE 85946.157652659294079455776227405. + VALUE 85946.157652659294079455776227405. 77 FLD0180B PIC 9(10)V9(10) COMP-3 - VALUE 5435189439.3573940700. + VALUE 5435189439.3573940700. 77 FLD0180E PIC X VALUE 'N'. 77 FLD0181A PIC 9(06)V9(01) COMP-6 - VALUE 188908.8. + VALUE 188908.8. 77 FLD0181B PIC S9(10)V9(08) COMP-3 - VALUE -4740924741.33910868. + VALUE -4740924741.33910868. 77 FLD0181E PIC X VALUE 'N'. 77 FLD0182A PIC 9(10)V9(13) COMP-6 - VALUE 6061401860.3468300394609. + VALUE 6061401860.3468300394609. 77 FLD0182B PIC 9(09)V9(15) COMP-3 - VALUE 643493508.008180281620980. + VALUE 643493508.008180281620980. 77 FLD0182E PIC X VALUE 'N'. 77 FLD0183A PIC 9(07)V9(23) COMP-3 - VALUE 7910108.10526126539876656806882. + VALUE 7910108.10526126539876656806882. 77 FLD0183B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0183E PIC X VALUE 'N'. 77 FLD0184A PIC 9(09)V9(15) COMP-6 - VALUE 635945742.812533687526865. + VALUE 635945742.812533687526865. 77 FLD0184B PIC S9(07)V9(01) COMP-3 - VALUE +2343773.6. + VALUE +2343773.6. 77 FLD0184E PIC X VALUE 'N'. 77 FLD0185A PIC 9(05) COMP-6 - VALUE 15666. + VALUE 15666. 77 FLD0185B PIC 9(08)V9(20) COMP-6 - VALUE 73935660.38753716096465495866. + VALUE 73935660.38753716096465495866. 77 FLD0185E PIC X VALUE 'N'. 77 FLD0186A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0186B PIC 9(05)V9(26) COMP-3 - VALUE 84084.08947119312415452441200613. + VALUE 84084.08947119312415452441200613. 77 FLD0186E PIC X VALUE 'N'. 77 FLD0187A PIC 9(09)V9(13) COMP-3 - VALUE 604672028.7423602568921. + VALUE 604672028.7423602568921. 77 FLD0187B PIC 9(10)V9(12) COMP-6 - VALUE 5893278013.192120301511. + VALUE 5893278013.192120301511. 77 FLD0187E PIC X VALUE 'N'. 77 FLD0188A PIC 9(08)V9(17) COMP-3 - VALUE 68008236.87569536035724127. + VALUE 68008236.87569536035724127. 77 FLD0188B PIC 9(07)V9(21) COMP-3 - VALUE 7537078.198448752264226868646. + VALUE 7537078.198448752264226868646. 77 FLD0188E PIC X VALUE 'N'. 77 FLD0189A PIC 9(10)V9(09) COMP-3 - VALUE 5115071016.238050827. + VALUE 5115071016.238050827. 77 FLD0189B PIC 9(10)V9(11) COMP-6 - VALUE 5668524677.20726727051. + VALUE 5668524677.20726727051. 77 FLD0189E PIC X VALUE 'N'. 77 FLD0190A PIC 9(07)V9(02) COMP-6 - VALUE 2382137.54. + VALUE 2382137.54. 77 FLD0190B PIC 9(09)V9(14) COMP-6 - VALUE 627148648.94273569806415. + VALUE 627148648.94273569806415. 77 FLD0190E PIC X VALUE 'N'. 77 FLD0191A PIC 9(05) COMP-6 - VALUE 13720. + VALUE 13720. 77 FLD0191B PIC 9(06)V9(24) COMP-3 - VALUE 803717.168989411478996487403492. + VALUE 803717.168989411478996487403492. 77 FLD0191E PIC X VALUE 'N'. 77 FLD0192A PIC 9(01)V9(36) COMP-6 - VALUE 9.894259454195439840162862310535274446. + VALUE 9.894259454195439840162862310535274446. 77 FLD0192B PIC 9(09)V9(04) COMP-6 - VALUE 358034239.3955. + VALUE 358034239.3955. 77 FLD0192E PIC X VALUE 'N'. 77 FLD0193A PIC 9(10)V9(06) COMP-6 - VALUE 4252943677.090519. + VALUE 4252943677.090519. 77 FLD0193B PIC 9(09)V9(14) COMP-3 - VALUE 612048644.17243076690766. + VALUE 612048644.17243076690766. 77 FLD0193E PIC X VALUE 'N'. 77 FLD0194A PIC 9(09)V9(06) COMP-6 - VALUE 417168379.939779. + VALUE 417168379.939779. 77 FLD0194B PIC 9(09)V9(15) COMP-3 - VALUE 634454032.998696626499679. + VALUE 634454032.998696626499679. 77 FLD0194E PIC X VALUE 'N'. 77 FLD0195A PIC 9(08)V9(02) COMP-6 - VALUE 26645846.45. + VALUE 26645846.45. 77 FLD0195B PIC 9(05) COMP-6 - VALUE 14921. + VALUE 14921. 77 FLD0195E PIC X VALUE 'N'. 77 FLD0196A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0196B PIC S9(05)V9(01) COMP-3 - VALUE -18000.7. + VALUE -18000.7. 77 FLD0196E PIC X VALUE 'N'. 77 FLD0197A PIC 9(01)V9(36) COMP-3 - VALUE 9.847788375924405590566834689525421708. + VALUE 9.847788375924405590566834689525421708. 77 FLD0197B PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0197E PIC X VALUE 'N'. 77 FLD0198A PIC 9(09)V9(13) COMP-3 - VALUE 593293108.5591157671643. + VALUE 593293108.5591157671643. 77 FLD0198B PIC S9(05) COMP-3 - VALUE +14072. + VALUE +14072. 77 FLD0198E PIC X VALUE 'N'. 77 FLD0199A PIC 9(07)V9(02) COMP-6 - VALUE 2483287.24. + VALUE 2483287.24. 77 FLD0199B PIC 9(07)V9(23) COMP-6 - VALUE 7969040.17410605347571106449322. + VALUE 7969040.17410605347571106449322. 77 FLD0199E PIC X VALUE 'N'. 77 FLD0200A PIC S9(10)V9(08) COMP-3 - VALUE -4935972790.60619176. + VALUE -4935972790.60619176. 77 FLD0200B PIC 9(10)V9(07) COMP-6 - VALUE 4582475224.7206340. + VALUE 4582475224.7206340. 77 FLD0200E PIC X VALUE 'N'. 77 FLD0201A PIC 9(04) COMP-6 - VALUE 1282. + VALUE 1282. 77 FLD0201B PIC 9(07)V9(23) COMP-3 - VALUE 7926313.90444417882612526682351. + VALUE 7926313.90444417882612526682351. 77 FLD0201E PIC X VALUE 'N'. 77 FLD0202A PIC S9(09)V9(04) COMP-3 - VALUE -360603443.7503. + VALUE -360603443.7503. 77 FLD0202B PIC 9(03)V9(32) COMP-6 - VALUE 935.68197555010013122256395945441909. + VALUE 935.68197555010013122256395945441909. 77 FLD0202E PIC X VALUE 'N'. 77 FLD0203A PIC 9(09)V9(14) COMP-6 - VALUE 628607663.38264040253847. + VALUE 628607663.38264040253847. 77 FLD0203B PIC 9(03)V9(31) COMP-3 - VALUE 920.1886012491730104656539879215415. + VALUE 920.1886012491730104656539879215415. 77 FLD0203E PIC X VALUE 'N'. 77 FLD0204A PIC 9(01)V9(35) COMP-3 - VALUE 9.73054030732718233664968465745914727. + VALUE 9.73054030732718233664968465745914727. 77 FLD0204B PIC 9(07)V9(01) COMP-6 - VALUE 2363275.3. + VALUE 2363275.3. 77 FLD0204E PIC X VALUE 'N'. 77 FLD0205A PIC 9(09)V9(15) COMP-6 - VALUE 648926914.508991536933990. + VALUE 648926914.508991536933990. 77 FLD0205B PIC 9(09)V9(15) COMP-6 - VALUE 639814213.238647178094709. + VALUE 639814213.238647178094709. 77 FLD0205E PIC X VALUE 'N'. 77 FLD0206A PIC 9(06)V9(01) COMP-6 - VALUE 186967.7. + VALUE 186967.7. 77 FLD0206B PIC 9(08)V9(18) COMP-6 - VALUE 70826356.466434425840361654. + VALUE 70826356.466434425840361654. 77 FLD0206E PIC X VALUE 'N'. 77 FLD0207A PIC 9(05)V9(26) COMP-6 - VALUE 83944.39242287422553445708217623. + VALUE 83944.39242287422553445708217623. 77 FLD0207B PIC 9(07)V9(21) COMP-3 - VALUE 7607846.993308088334728722657. + VALUE 7607846.993308088334728722657. 77 FLD0207E PIC X VALUE 'N'. 77 FLD0208A PIC 9(02)V9(34) COMP-6 - VALUE 96.7940040016311842308027735271025449. + VALUE 96.7940040016311842308027735271025449. 77 FLD0208B PIC 9(07)V9(01) COMP-6 - VALUE 2151595.4. + VALUE 2151595.4. 77 FLD0208E PIC X VALUE 'N'. 77 FLD0209A PIC 9(03)V9(32) COMP-6 - VALUE 926.61149050802726900855077474261634. + VALUE 926.61149050802726900855077474261634. 77 FLD0209B PIC 9(07)V9(23) COMP-6 - VALUE 7951784.48263920700789242346218. + VALUE 7951784.48263920700789242346218. 77 FLD0209E PIC X VALUE 'N'. 77 FLD0210A PIC 9(08)V9(19) COMP-3 - VALUE 72323528.1456575562764044207. + VALUE 72323528.1456575562764044207. 77 FLD0210B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0210E PIC X VALUE 'N'. 77 FLD0211A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0211B PIC S9(09)V9(07) COMP-3 - VALUE +442113770.7554604. + VALUE +442113770.7554604. 77 FLD0211E PIC X VALUE 'N'. 77 FLD0212A PIC 9(10)V9(08) COMP-6 - VALUE 4892032792.55731038. + VALUE 4892032792.55731038. 77 FLD0212B PIC S9(09)V9(05) COMP-3 - VALUE -372935567.70682. + VALUE -372935567.70682. 77 FLD0212E PIC X VALUE 'N'. 77 FLD0213A PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0213B PIC 9(07)V9(21) COMP-3 - VALUE 7525721.770631302875997903356. + VALUE 7525721.770631302875997903356. 77 FLD0213E PIC X VALUE 'N'. 77 FLD0214A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0214B PIC 9(09)V9(16) COMP-6 - VALUE 666893270.4655321508369070. + VALUE 666893270.4655321508369070. 77 FLD0214E PIC X VALUE 'N'. 77 FLD0215A PIC 9(03)V9(32) COMP-6 - VALUE 926.34033699271633999217101518297567. + VALUE 926.34033699271633999217101518297567. 77 FLD0215B PIC S9(05)V9(01) COMP-3 - VALUE -18226.5. + VALUE -18226.5. 77 FLD0215E PIC X VALUE 'N'. 77 FLD0216A PIC S9(08)V9(02) COMP-3 - VALUE -28095374.87. + VALUE -28095374.87. 77 FLD0216B PIC 9(08)V9(02) COMP-6 - VALUE 28541793.87. + VALUE 28541793.87. 77 FLD0216E PIC X VALUE 'N'. 77 FLD0217A PIC 9(08)V9(20) COMP-6 - VALUE 74562962.48658396130792880285. + VALUE 74562962.48658396130792880285. 77 FLD0217B PIC S9(09)V9(07) COMP-3 - VALUE +444563659.0422049. + VALUE +444563659.0422049. 77 FLD0217E PIC X VALUE 'N'. 77 FLD0218A PIC S9(05)V9(01) COMP-3 - VALUE -18094.6. + VALUE -18094.6. 77 FLD0218B PIC 9(01)V9(36) COMP-6 - VALUE 9.867255193327033602201936446363106369. + VALUE 9.867255193327033602201936446363106369. 77 FLD0218E PIC X VALUE 'N'. 77 FLD0219A PIC 9(09)V9(12) COMP-6 - VALUE 578788992.127507229135. + VALUE 578788992.127507229135. 77 FLD0219B PIC 9(10)V9(10) COMP-6 - VALUE 5297903516.0907261836. + VALUE 5297903516.0907261836. 77 FLD0219E PIC X VALUE 'N'. 77 FLD0220A PIC 9(09)V9(12) COMP-3 - VALUE 573343525.907533679841. + VALUE 573343525.907533679841. 77 FLD0220B PIC S9(05) COMP-3 - VALUE +14161. + VALUE +14161. 77 FLD0220E PIC X VALUE 'N'. 77 FLD0221A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0221B PIC 9(04)V9(29) COMP-6 - VALUE 8789.10367794605407176788958167890. + VALUE 8789.10367794605407176788958167890. 77 FLD0221E PIC X VALUE 'N'. 77 FLD0222A PIC 9(09)V9(14) COMP-6 - VALUE 628182805.25174396977661. + VALUE 628182805.25174396977661. 77 FLD0222B PIC S9(05) COMP-3 - VALUE -15228. + VALUE -15228. 77 FLD0222E PIC X VALUE 'N'. 77 FLD0223A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0223B PIC 9(08)V9(18) COMP-6 - VALUE 69950927.082806102497158917. + VALUE 69950927.082806102497158917. 77 FLD0223E PIC X VALUE 'N'. 77 FLD0224A PIC 9(06)V9(25) COMP-6 - VALUE 838187.2267509891116787912324070. + VALUE 838187.2267509891116787912324070. 77 FLD0224B PIC S9(09)V9(05) COMP-3 - VALUE -382169497.04991. + VALUE -382169497.04991. 77 FLD0224E PIC X VALUE 'N'. 77 FLD0225A PIC 9(05) COMP-6 - VALUE 13797. + VALUE 13797. 77 FLD0225B PIC 9(09)V9(12) COMP-3 - VALUE 572598612.808938978169. + VALUE 572598612.808938978169. 77 FLD0225E PIC X VALUE 'N'. 77 FLD0226A PIC 9(05) COMP-6 - VALUE 14900. + VALUE 14900. 77 FLD0226B PIC S9(07)V9(01) COMP-3 - VALUE +2129995.4. + VALUE +2129995.4. 77 FLD0226E PIC X VALUE 'N'. 77 FLD0227A PIC 9(09)V9(14) COMP-6 - VALUE 629583055.15940859997670. + VALUE 629583055.15940859997670. 77 FLD0227B PIC 9(04)V9(30) COMP-6 - VALUE 8983.577034983017961522477889957372. + VALUE 8983.577034983017961522477889957372. 77 FLD0227E PIC X VALUE 'N'. 77 FLD0228A PIC S9(07)V9(01) COMP-3 - VALUE +2225916.3. + VALUE +2225916.3. 77 FLD0228B PIC 9(01)V9(36) COMP-3 - VALUE 9.739690596877397243957830141880549490. + VALUE 9.739690596877397243957830141880549490. 77 FLD0228E PIC X VALUE 'N'. 77 FLD0229A PIC 9(01)V9(36) COMP-6 - VALUE 9.870473603260505601753038718015886843. + VALUE 9.870473603260505601753038718015886843. 77 FLD0229B PIC 9(08)V9(20) COMP-6 - VALUE 73838029.76208535540081356884. + VALUE 73838029.76208535540081356884. 77 FLD0229E PIC X VALUE 'N'. 77 FLD0230A PIC S9(06)V9(01) COMP-3 - VALUE +201492.2. + VALUE +201492.2. 77 FLD0230B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0230E PIC X VALUE 'N'. 77 FLD0231A PIC 9(05)V9(28) COMP-6 - VALUE 87781.6812716511907233041256404248. + VALUE 87781.6812716511907233041256404248. 77 FLD0231B PIC S9(08)V9(02) COMP-3 - VALUE -27182116.43. + VALUE -27182116.43. 77 FLD0231E PIC X VALUE 'N'. 77 FLD0232A PIC 9(09)V9(04) COMP-6 - VALUE 356308264.5328. + VALUE 356308264.5328. 77 FLD0232B PIC 9(06)V9(25) COMP-3 - VALUE 833280.3014261945806495646138500. + VALUE 833280.3014261945806495646138500. 77 FLD0232E PIC X VALUE 'N'. 77 FLD0233A PIC 9(07)V9(21) COMP-6 - VALUE 7552156.809035388551620826547. + VALUE 7552156.809035388551620826547. 77 FLD0233B PIC 9(08)V9(04) COMP-6 - VALUE 33739768.3403. + VALUE 33739768.3403. 77 FLD0233E PIC X VALUE 'N'. 77 FLD0234A PIC 9(08)V9(04) COMP-6 - VALUE 33831052.6754. + VALUE 33831052.6754. 77 FLD0234B PIC 9(09)V9(13) COMP-3 - VALUE 593899144.9424572133253. + VALUE 593899144.9424572133253. 77 FLD0234E PIC X VALUE 'N'. 77 FLD0235A PIC S9(05) COMP-3 - VALUE +14123. + VALUE +14123. 77 FLD0235B PIC S9(10)V9(08) COMP-3 - VALUE -4808329310.19295639. + VALUE -4808329310.19295639. 77 FLD0235E PIC X VALUE 'N'. 77 FLD0236A PIC 9(04)V9(29) COMP-3 - VALUE 8818.23528289915170574886360554955. + VALUE 8818.23528289915170574886360554955. 77 FLD0236B PIC 9(08)V9(18) COMP-3 - VALUE 70480160.116860446350983693. + VALUE 70480160.116860446350983693. 77 FLD0236E PIC X VALUE 'N'. 77 FLD0237A PIC 9(08)V9(02) COMP-6 - VALUE 28742037.59. + VALUE 28742037.59. 77 FLD0237B PIC 9(04)V9(29) COMP-6 - VALUE 8850.90488581330880890618573175743. + VALUE 8850.90488581330880890618573175743. 77 FLD0237E PIC X VALUE 'N'. 77 FLD0238A PIC 9(09)V9(15) COMP-3 - VALUE 634521096.430120334908053. + VALUE 634521096.430120334908053. 77 FLD0238B PIC 9(06)V9(01) COMP-6 - VALUE 198396.3. + VALUE 198396.3. 77 FLD0238E PIC X VALUE 'N'. 77 FLD0239A PIC 9(09)V9(16) COMP-6 - VALUE 678585779.2924817610824561. + VALUE 678585779.2924817610824561. 77 FLD0239B PIC 9(09)V9(14) COMP-3 - VALUE 614739880.97122655993587. + VALUE 614739880.97122655993587. 77 FLD0239E PIC X VALUE 'N'. 77 FLD0240A PIC 9(10)V9(06) COMP-6 - VALUE 4289853576.446766. + VALUE 4289853576.446766. 77 FLD0240B PIC 9(06)V9(25) COMP-3 - VALUE 833165.4817075836438888813972880. + VALUE 833165.4817075836438888813972880. 77 FLD0240E PIC X VALUE 'N'. 77 FLD0241A PIC S9(05) COMP-3 - VALUE +14407. + VALUE +14407. 77 FLD0241B PIC 9(09)V9(14) COMP-6 - VALUE 608742950.23205993171444. + VALUE 608742950.23205993171444. 77 FLD0241E PIC X VALUE 'N'. 77 FLD0242A PIC 9(10)V9(12) COMP-6 - VALUE 5860383854.989427154791. + VALUE 5860383854.989427154791. 77 FLD0242B PIC S9(06)V9(01) COMP-3 - VALUE +201770.8. + VALUE +201770.8. 77 FLD0242E PIC X VALUE 'N'. 77 FLD0243A PIC 9(02)V9(34) COMP-3 - VALUE 97.0409660969254295181940506154205650. + VALUE 97.0409660969254295181940506154205650. 77 FLD0243B PIC 9(05)V9(28) COMP-6 - VALUE 86928.4847432245544318618613033322. + VALUE 86928.4847432245544318618613033322. 77 FLD0243E PIC X VALUE 'N'. 77 FLD0244A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0244B PIC 9(09)V9(13) COMP-6 - VALUE 596454149.7067354924865. + VALUE 596454149.7067354924865. 77 FLD0244E PIC X VALUE 'N'. 77 FLD0245A PIC S9(09)V9(05) COMP-3 - VALUE -371716886.14542. + VALUE -371716886.14542. 77 FLD0245B PIC 9(09)V9(15) COMP-6 - VALUE 636050719.355519267317333. + VALUE 636050719.355519267317333. 77 FLD0245E PIC X VALUE 'N'. 77 FLD0246A PIC 9(05)V9(28) COMP-3 - VALUE 87216.9313623637143528810611314838. + VALUE 87216.9313623637143528810611314838. 77 FLD0246B PIC 9(06)V9(01) COMP-6 - VALUE 208199.5. + VALUE 208199.5. 77 FLD0246E PIC X VALUE 'N'. 77 FLD0247A PIC 9(06)V9(25) COMP-3 - VALUE 834494.8214770686600871840710169. + VALUE 834494.8214770686600871840710169. 77 FLD0247B PIC 9(08)V9(19) COMP-3 - VALUE 73372232.8570783122181353519. + VALUE 73372232.8570783122181353519. 77 FLD0247E PIC X VALUE 'N'. 77 FLD0248A PIC 9(04)V9(29) COMP-6 - VALUE 8885.56418584546814365410227765096. + VALUE 8885.56418584546814365410227765096. 77 FLD0248B PIC 9(10)V9(11) COMP-6 - VALUE 5683594830.11341870550. + VALUE 5683594830.11341870550. 77 FLD0248E PIC X VALUE 'N'. 77 FLD0249A PIC 9(09)V9(16) COMP-6 - VALUE 678470839.5950102000071524. + VALUE 678470839.5950102000071524. 77 FLD0249B PIC 9(09)V9(16) COMP-3 - VALUE 673175418.3146980707874718. + VALUE 673175418.3146980707874718. 77 FLD0249E PIC X VALUE 'N'. 77 FLD0250A PIC 9(09)V9(15) COMP-3 - VALUE 643468324.926731005675151. + VALUE 643468324.926731005675151. 77 FLD0250B PIC 9(04)V9(30) COMP-6 - VALUE 9057.675398841628089385835664870683. + VALUE 9057.675398841628089385835664870683. 77 FLD0250E PIC X VALUE 'N'. 77 FLD0251A PIC S9(09)V9(06) COMP-3 - VALUE +402548910.007195. + VALUE +402548910.007195. 77 FLD0251B PIC 9(06)V9(25) COMP-3 - VALUE 830149.1080513825338016431487631. + VALUE 830149.1080513825338016431487631. 77 FLD0251E PIC X VALUE 'N'. 77 FLD0252A PIC S9(05)V9(01) COMP-3 - VALUE -18339.3. + VALUE -18339.3. 77 FLD0252B PIC S9(07)V9(01) COMP-3 - VALUE +2343087.3. + VALUE +2343087.3. 77 FLD0252E PIC X VALUE 'N'. 77 FLD0253A PIC 9(06)V9(25) COMP-3 - VALUE 822593.8518184680026124055984837. + VALUE 822593.8518184680026124055984837. 77 FLD0253B PIC 9(07)V9(01) COMP-6 - VALUE 2159897.7. + VALUE 2159897.7. 77 FLD0253E PIC X VALUE 'N'. 77 FLD0254A PIC 9(10)V9(10) COMP-3 - VALUE 5401895692.3872574193. + VALUE 5401895692.3872574193. 77 FLD0254B PIC S9(07)V9(02) COMP-3 - VALUE +2405256.16. + VALUE +2405256.16. 77 FLD0254E PIC X VALUE 'N'. 77 FLD0255A PIC 9(02)V9(34) COMP-6 - VALUE 94.8299297085154591080424779647728428. + VALUE 94.8299297085154591080424779647728428. 77 FLD0255B PIC 9(10)V9(10) COMP-3 - VALUE 5408143412.7739858030. + VALUE 5408143412.7739858030. 77 FLD0255E PIC X VALUE 'N'. 77 FLD0256A PIC S9(09)V9(08) COMP-3 - VALUE -473179644.06591722. + VALUE -473179644.06591722. 77 FLD0256B PIC 9(04)V9(30) COMP-3 - VALUE 9107.434804383051085707734273455571. + VALUE 9107.434804383051085707734273455571. 77 FLD0256E PIC X VALUE 'N'. 77 FLD0257A PIC 9(09)V9(12) COMP-6 - VALUE 577029491.737192756772. + VALUE 577029491.737192756772. 77 FLD0257B PIC S9(03) COMP-3 - VALUE -084. + VALUE -084. 77 FLD0257E PIC X VALUE 'N'. 77 FLD0258A PIC 9(10)V9(12) COMP-3 - VALUE 5908893351.960881057394. + VALUE 5908893351.960881057394. 77 FLD0258B PIC 9(05)V9(27) COMP-6 - VALUE 84978.202175808337237583600654033. + VALUE 84978.202175808337237583600654033. 77 FLD0258E PIC X VALUE 'N'. 77 FLD0259A PIC 9(03)V9(32) COMP-6 - VALUE 937.55337057593879368511124994256533. + VALUE 937.55337057593879368511124994256533. 77 FLD0259B PIC S9(09)V9(05) COMP-3 - VALUE -374669242.27931. + VALUE -374669242.27931. 77 FLD0259E PIC X VALUE 'N'. 77 FLD0260A PIC 9(05)V9(27) COMP-6 - VALUE 86648.984966754782899300835197209. + VALUE 86648.984966754782899300835197209. 77 FLD0260B PIC 9(09)V9(13) COMP-3 - VALUE 601823310.0433563187436. + VALUE 601823310.0433563187436. 77 FLD0260E PIC X VALUE 'N'. 77 FLD0261A PIC S9(09)V9(05) COMP-3 - VALUE -374213925.47904. + VALUE -374213925.47904. 77 FLD0261B PIC 9(09)V9(05) COMP-6 - VALUE 379885544.06227. + VALUE 379885544.06227. 77 FLD0261E PIC X VALUE 'N'. 77 FLD0262A PIC S9(05)V9(01) COMP-3 - VALUE -17015.9. + VALUE -17015.9. 77 FLD0262B PIC 9(09)V9(17) COMP-6 - VALUE 687559565.36759821329241049. + VALUE 687559565.36759821329241049. 77 FLD0262E PIC X VALUE 'N'. 77 FLD0263A PIC 9(05)V9(26) COMP-3 - VALUE 84046.29767805690265802809335582. + VALUE 84046.29767805690265802809335582. 77 FLD0263B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0263E PIC X VALUE 'N'. 77 FLD0264A PIC 9(03)V9(32) COMP-6 - VALUE 935.78568596491340514376133796758949. + VALUE 935.78568596491340514376133796758949. 77 FLD0264B PIC 9(05)V9(01) COMP-6 - VALUE 17620.4. + VALUE 17620.4. 77 FLD0264E PIC X VALUE 'N'. 77 FLD0265A PIC S9(09)V9(05) COMP-3 - VALUE -380334582.15301. + VALUE -380334582.15301. 77 FLD0265B PIC 9(01)V9(36) COMP-6 - VALUE 9.854231270822284560750858872779645025. + VALUE 9.854231270822284560750858872779645025. 77 FLD0265E PIC X VALUE 'N'. 77 FLD0266A PIC 9(05)V9(27) COMP-6 - VALUE 84707.693570856212872399737534578. + VALUE 84707.693570856212872399737534578. 77 FLD0266B PIC 9(02)V9(34) COMP-3 - VALUE 96.1883348354436562566149859776487573. + VALUE 96.1883348354436562566149859776487573. 77 FLD0266E PIC X VALUE 'N'. 77 FLD0267A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0267B PIC S9(07)V9(01) COMP-3 - VALUE +2348814.4. + VALUE +2348814.4. 77 FLD0267E PIC X VALUE 'N'. 77 FLD0268A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0268B PIC 9(06)V9(25) COMP-3 - VALUE 821150.0957830146774085733341053. + VALUE 821150.0957830146774085733341053. 77 FLD0268E PIC X VALUE 'N'. 77 FLD0269A PIC 9(08)V9(18) COMP-6 - VALUE 69955495.182247551255727557. + VALUE 69955495.182247551255727557. 77 FLD0269B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0269E PIC X VALUE 'N'. 77 FLD0270A PIC 9(08)V9(18) COMP-6 - VALUE 69584936.933990082508216801. + VALUE 69584936.933990082508216801. 77 FLD0270B PIC S9(04) COMP-3 - VALUE +1200. + VALUE +1200. 77 FLD0270E PIC X VALUE 'N'. 77 FLD0271A PIC 9(10)V9(07) COMP-6 - VALUE 4478155927.4435323. + VALUE 4478155927.4435323. 77 FLD0271B PIC 9(07)V9(02) COMP-6 - VALUE 2371664.59. + VALUE 2371664.59. 77 FLD0271E PIC X VALUE 'N'. 77 FLD0272A PIC S9(09)V9(06) COMP-3 - VALUE +411514667.070764. + VALUE +411514667.070764. 77 FLD0272B PIC S9(10)V9(08) COMP-3 - VALUE -4748492295.95657285. + VALUE -4748492295.95657285. 77 FLD0272E PIC X VALUE 'N'. 77 FLD0273A PIC 9(10)V9(07) COMP-6 - VALUE 4698099460.5024867. + VALUE 4698099460.5024867. 77 FLD0273B PIC S9(10)V9(06) COMP-3 - VALUE +4338009792.593093. + VALUE +4338009792.593093. 77 FLD0273E PIC X VALUE 'N'. 77 FLD0274A PIC 9(07)V9(01) COMP-6 - VALUE 2190249.4. + VALUE 2190249.4. 77 FLD0274B PIC 9(10)V9(10) COMP-6 - VALUE 5271665070.2586675958. + VALUE 5271665070.2586675958. 77 FLD0274E PIC X VALUE 'N'. 77 FLD0275A PIC 9(04) COMP-6 - VALUE 1157. + VALUE 1157. 77 FLD0275B PIC S9(07)V9(02) COMP-3 - VALUE +2422980.94. + VALUE +2422980.94. 77 FLD0275E PIC X VALUE 'N'. 77 FLD0276A PIC 9(04)V9(30) COMP-3 - VALUE 9021.044697283423507983002309629227. + VALUE 9021.044697283423507983002309629227. 77 FLD0276B PIC 9(02)V9(33) COMP-6 - VALUE 94.591784695476577304873444518307223. + VALUE 94.591784695476577304873444518307223. 77 FLD0276E PIC X VALUE 'N'. 77 FLD0277A PIC 9(01)V9(36) COMP-3 - VALUE 9.749582162084949876756923003995325416. + VALUE 9.749582162084949876756923003995325416. 77 FLD0277B PIC 9(10)V9(08) COMP-6 - VALUE 4992154586.01645512. + VALUE 4992154586.01645512. 77 FLD0277E PIC X VALUE 'N'. 77 FLD0278A PIC 9(10)V9(06) COMP-6 - VALUE 4251062706.993476. + VALUE 4251062706.993476. 77 FLD0278B PIC 9(03)V9(31) COMP-3 - VALUE 914.7657257947739983805490737722720. + VALUE 914.7657257947739983805490737722720. 77 FLD0278E PIC X VALUE 'N'. 77 FLD0279A PIC S9(08)V9(02) COMP-3 - VALUE -27159201.10. + VALUE -27159201.10. 77 FLD0279B PIC 9(03)V9(32) COMP-3 - VALUE 921.08160397424898579998853165307082. + VALUE 921.08160397424898579998853165307082. 77 FLD0279E PIC X VALUE 'N'. 77 FLD0280A PIC 9(07)V9(02) COMP-6 - VALUE 2571968.92. + VALUE 2571968.92. 77 FLD0280B PIC 9(08)V9(19) COMP-3 - VALUE 71229222.1254675839148262639. + VALUE 71229222.1254675839148262639. 77 FLD0280E PIC X VALUE 'N'. 77 FLD0281A PIC S9(09)V9(04) COMP-3 - VALUE +342861689.3811. + VALUE +342861689.3811. 77 FLD0281B PIC 9(10)V9(07) COMP-6 - VALUE 4662459797.7205073. + VALUE 4662459797.7205073. 77 FLD0281E PIC X VALUE 'N'. 77 FLD0282A PIC S9(10)V9(07) COMP-3 - VALUE -4600147325.4430291. + VALUE -4600147325.4430291. 77 FLD0282B PIC 9(07)V9(22) COMP-6 - VALUE 7889304.3658446049271049105300. + VALUE 7889304.3658446049271049105300. 77 FLD0282E PIC X VALUE 'N'. 77 FLD0283A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0283B PIC S9(05)V9(01) COMP-3 - VALUE -18273.9. + VALUE -18273.9. 77 FLD0283E PIC X VALUE 'N'. 77 FLD0284A PIC 9(09)V9(17) COMP-6 - VALUE 689733171.20512533939802324. + VALUE 689733171.20512533939802324. 77 FLD0284B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0284E PIC X VALUE 'N'. 77 FLD0285A PIC 9(03)V9(32) COMP-6 - VALUE 928.78828230193799520009179104818031. + VALUE 928.78828230193799520009179104818031. 77 FLD0285B PIC 9(08)V9(20) COMP-6 - VALUE 73692142.62351649891158444916. + VALUE 73692142.62351649891158444916. 77 FLD0285E PIC X VALUE 'N'. 77 FLD0286A PIC 9(08)V9(18) COMP-3 - VALUE 70426964.322731444578806758. + VALUE 70426964.322731444578806758. 77 FLD0286B PIC 9(07)V9(01) COMP-6 - VALUE 2181620.7. + VALUE 2181620.7. 77 FLD0286E PIC X VALUE 'N'. 77 FLD0287A PIC S9(07)V9(02) COMP-3 - VALUE -2521413.84. + VALUE -2521413.84. 77 FLD0287B PIC 9(06) COMP-6 - VALUE 158585. + VALUE 158585. 77 FLD0287E PIC X VALUE 'N'. 77 FLD0288A PIC 9(09)V9(17) COMP-6 - VALUE 688074525.02240640246355951. + VALUE 688074525.02240640246355951. 77 FLD0288B PIC 9(04)V9(29) COMP-3 - VALUE 8936.92752615119712089608583482913. + VALUE 8936.92752615119712089608583482913. 77 FLD0288E PIC X VALUE 'N'. 77 FLD0289A PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0289B PIC 9(10)V9(11) COMP-6 - VALUE 5676330984.14293657540. + VALUE 5676330984.14293657540. 77 FLD0289E PIC X VALUE 'N'. 77 FLD0290A PIC S9(09)V9(05) COMP-3 - VALUE -382951207.35442. + VALUE -382951207.35442. 77 FLD0290B PIC S9(03) COMP-3 - VALUE -094. + VALUE -094. 77 FLD0290E PIC X VALUE 'N'. 77 FLD0291A PIC 9(01)V9(36) COMP-6 - VALUE 9.859384124391753490002088256005663424. + VALUE 9.859384124391753490002088256005663424. 77 FLD0291B PIC 9(06)V9(25) COMP-3 - VALUE 830008.1335268413296191170047677. + VALUE 830008.1335268413296191170047677. 77 FLD0291E PIC X VALUE 'N'. 77 FLD0292A PIC S9(08)V9(03) COMP-3 - VALUE +31020519.916. + VALUE +31020519.916. 77 FLD0292B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0292E PIC X VALUE 'N'. 77 FLD0293A PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0293B PIC 9(08)V9(03) COMP-6 - VALUE 30744484.924. + VALUE 30744484.924. 77 FLD0293E PIC X VALUE 'N'. 77 FLD0294A PIC S9(09)V9(06) COMP-3 - VALUE +412445339.504106. + VALUE +412445339.504106. 77 FLD0294B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0294E PIC X VALUE 'N'. 77 FLD0295A PIC S9(07)V9(02) COMP-3 - VALUE -2502548.06. + VALUE -2502548.06. 77 FLD0295B PIC S9(07)V9(01) COMP-3 - VALUE +2138373.7. + VALUE +2138373.7. 77 FLD0295E PIC X VALUE 'N'. 77 FLD0296A PIC S9(06) COMP-3 - VALUE -160918. + VALUE -160918. 77 FLD0296B PIC 9(09)V9(12) COMP-3 - VALUE 574303107.736577889141. + VALUE 574303107.736577889141. 77 FLD0296E PIC X VALUE 'N'. 77 FLD0297A PIC 9(08)V9(03) COMP-6 - VALUE 30843552.269. + VALUE 30843552.269. 77 FLD0297B PIC 9(10)V9(09) COMP-6 - VALUE 5180156945.333709295. + VALUE 5180156945.333709295. 77 FLD0297E PIC X VALUE 'N'. 77 FLD0298A PIC S9(10)V9(08) COMP-3 - VALUE -4831587379.88150510. + VALUE -4831587379.88150510. 77 FLD0298B PIC 9(01)V9(36) COMP-6 - VALUE 9.983859909908295859892746193509083241. + VALUE 9.983859909908295859892746193509083241. 77 FLD0298E PIC X VALUE 'N'. 77 FLD0299A PIC 9(10)V9(13) COMP-6 - VALUE 6064872573.5835784522720. + VALUE 6064872573.5835784522720. 77 FLD0299B PIC 9(09)V9(16) COMP-6 - VALUE 669818284.8844781434038964. + VALUE 669818284.8844781434038964. 77 FLD0299E PIC X VALUE 'N'. 77 FLD0300A PIC 9(08)V9(20) COMP-6 - VALUE 73956142.30661028409841151187. + VALUE 73956142.30661028409841151187. 77 FLD0300B PIC 9(09)V9(14) COMP-3 - VALUE 624082886.12038953502292. + VALUE 624082886.12038953502292. 77 FLD0300E PIC X VALUE 'N'. 77 FLD0301A PIC S9(10)V9(07) COMP-3 - VALUE -4524568495.0704084. + VALUE -4524568495.0704084. 77 FLD0301B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0301E PIC X VALUE 'N'. 77 FLD0302A PIC 9(02)V9(34) COMP-6 - VALUE 94.9764690231816866017311440373305231. + VALUE 94.9764690231816866017311440373305231. 77 FLD0302B PIC 9(10)V9(06) COMP-6 - VALUE 4291773437.216153. + VALUE 4291773437.216153. 77 FLD0302E PIC X VALUE 'N'. 77 FLD0303A PIC 9(01)V9(36) COMP-6 - VALUE 9.998247249142951931233369577967096120. + VALUE 9.998247249142951931233369577967096120. 77 FLD0303B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0303E PIC X VALUE 'N'. 77 FLD0304A PIC S9(03) COMP-3 - VALUE -083. + VALUE -083. 77 FLD0304B PIC 9(10)V9(11) COMP-6 - VALUE 5565734306.84127234968. + VALUE 5565734306.84127234968. 77 FLD0304E PIC X VALUE 'N'. 77 FLD0305A PIC 9(09)V9(03) COMP-6 - VALUE 328435884.788. + VALUE 328435884.788. 77 FLD0305B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0305E PIC X VALUE 'N'. 77 FLD0306A PIC S9(03) COMP-3 - VALUE -083. + VALUE -083. 77 FLD0306B PIC S9(10)V9(08) COMP-3 - VALUE -4936418970.17687181. + VALUE -4936418970.17687181. 77 FLD0306E PIC X VALUE 'N'. 77 FLD0307A PIC 9(10)V9(10) COMP-3 - VALUE 5430567751.9659767416. + VALUE 5430567751.9659767416. 77 FLD0307B PIC 9(03)V9(32) COMP-6 - VALUE 928.08547489686554765597747973515652. + VALUE 928.08547489686554765597747973515652. 77 FLD0307E PIC X VALUE 'N'. 77 FLD0308A PIC 9(09)V9(05) COMP-6 - VALUE 377189267.62120. + VALUE 377189267.62120. 77 FLD0308B PIC 9(02)V9(34) COMP-3 - VALUE 96.4274365663057242414879510761238634. + VALUE 96.4274365663057242414879510761238634. 77 FLD0308E PIC X VALUE 'N'. 77 FLD0309A PIC 9(09)V9(03) COMP-6 - VALUE 325461096.612. + VALUE 325461096.612. 77 FLD0309B PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0309E PIC X VALUE 'N'. 77 FLD0310A PIC 9(09)V9(05) COMP-6 - VALUE 377541451.37210. + VALUE 377541451.37210. 77 FLD0310B PIC 9(09)V9(06) COMP-6 - VALUE 416709099.760976. + VALUE 416709099.760976. 77 FLD0310E PIC X VALUE 'N'. 77 FLD0311A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0311B PIC 9(01)V9(36) COMP-3 - VALUE 9.931117203050255914931199185957666486. + VALUE 9.931117203050255914931199185957666486. 77 FLD0311E PIC X VALUE 'N'. 77 FLD0312A PIC S9(10)V9(07) COMP-3 - VALUE -4631183834.9707568. + VALUE -4631183834.9707568. 77 FLD0312B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0312E PIC X VALUE 'N'. 77 FLD0313A PIC 9(05)V9(27) COMP-3 - VALUE 86493.365621715367907995641871821. + VALUE 86493.365621715367907995641871821. 77 FLD0313B PIC 9(09)V9(05) COMP-6 - VALUE 375066571.23058. + VALUE 375066571.23058. 77 FLD0313E PIC X VALUE 'N'. 77 FLD0314A PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0314B PIC 9(08)V9(18) COMP-6 - VALUE 69720866.107690404600560896. + VALUE 69720866.107690404600560896. 77 FLD0314E PIC X VALUE 'N'. 77 FLD0315A PIC 9(07)V9(23) COMP-3 - VALUE 7933336.74589681625555215305212. + VALUE 7933336.74589681625555215305212. 77 FLD0315B PIC 9(09)V9(17) COMP-6 - VALUE 688307785.43204196306959374. + VALUE 688307785.43204196306959374. 77 FLD0315E PIC X VALUE 'N'. 77 FLD0316A PIC 9(06)V9(01) COMP-6 - VALUE 195827.4. + VALUE 195827.4. 77 FLD0316B PIC 9(10)V9(11) COMP-3 - VALUE 5611864585.06384822086. + VALUE 5611864585.06384822086. 77 FLD0316E PIC X VALUE 'N'. 77 FLD0317A PIC 9(10)V9(08) COMP-6 - VALUE 4983225307.65216153. + VALUE 4983225307.65216153. 77 FLD0317B PIC S9(09)V9(03) COMP-3 - VALUE +331361572.492. + VALUE +331361572.492. 77 FLD0317E PIC X VALUE 'N'. 77 FLD0318A PIC 9(08)V9(02) COMP-6 - VALUE 26926374.69. + VALUE 26926374.69. 77 FLD0318B PIC 9(04)V9(29) COMP-3 - VALUE 8825.34717446214034275442372745601. + VALUE 8825.34717446214034275442372745601. 77 FLD0318E PIC X VALUE 'N'. 77 FLD0319A PIC 9(08)V9(18) COMP-6 - VALUE 69931441.978879860243978328. + VALUE 69931441.978879860243978328. 77 FLD0319B PIC 9(09)V9(15) COMP-3 - VALUE 650439668.121860714578019. + VALUE 650439668.121860714578019. 77 FLD0319E PIC X VALUE 'N'. 77 FLD0320A PIC 9(08)V9(19) COMP-6 - VALUE 71973495.8824565840274090078. + VALUE 71973495.8824565840274090078. 77 FLD0320B PIC 9(10)V9(11) COMP-3 - VALUE 5542215777.53993832615. + VALUE 5542215777.53993832615. 77 FLD0320E PIC X VALUE 'N'. 77 FLD0321A PIC 9(10)V9(09) COMP-3 - VALUE 5005504874.853489161. + VALUE 5005504874.853489161. 77 FLD0321B PIC 9(09)V9(16) COMP-3 - VALUE 660163921.0521921263818967. + VALUE 660163921.0521921263818967. 77 FLD0321E PIC X VALUE 'N'. 77 FLD0322A PIC S9(09)V9(07) COMP-3 - VALUE +442005310.2249054. + VALUE +442005310.2249054. 77 FLD0322B PIC 9(09)V9(14) COMP-6 - VALUE 617916374.92097983841432. + VALUE 617916374.92097983841432. 77 FLD0322E PIC X VALUE 'N'. 77 FLD0323A PIC S9(05) COMP-3 - VALUE -15097. + VALUE -15097. 77 FLD0323B PIC 9(01)V9(35) COMP-3 - VALUE 9.73366140153258840861383305309573188. + VALUE 9.73366140153258840861383305309573188. 77 FLD0323E PIC X VALUE 'N'. 77 FLD0324A PIC 9(10)V9(11) COMP-3 - VALUE 5601604504.75820970162. + VALUE 5601604504.75820970162. 77 FLD0324B PIC 9(10)V9(10) COMP-3 - VALUE 5319146871.9734047443. + VALUE 5319146871.9734047443. 77 FLD0324E PIC X VALUE 'N'. 77 FLD0325A PIC 9(04) COMP-6 - VALUE 1169. + VALUE 1169. 77 FLD0325B PIC 9(08)V9(19) COMP-3 - VALUE 72332591.2353324218528882738. + VALUE 72332591.2353324218528882738. 77 FLD0325E PIC X VALUE 'N'. 77 FLD0326A PIC S9(08)V9(03) COMP-3 - VALUE +31312044.720. + VALUE +31312044.720. 77 FLD0326B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0326E PIC X VALUE 'N'. 77 FLD0327A PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0327B PIC S9(07)V9(01) COMP-3 - VALUE +2122536.7. + VALUE +2122536.7. 77 FLD0327E PIC X VALUE 'N'. 77 FLD0328A PIC 9(08)V9(19) COMP-3 - VALUE 71147504.7716873310044150002. + VALUE 71147504.7716873310044150002. 77 FLD0328B PIC S9(09)V9(05) COMP-3 - VALUE -393175029.86891. + VALUE -393175029.86891. 77 FLD0328E PIC X VALUE 'N'. 77 FLD0329A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0329B PIC 9(02)V9(34) COMP-3 - VALUE 95.2096907591406971249625712516717612. + VALUE 95.2096907591406971249625712516717612. 77 FLD0329E PIC X VALUE 'N'. 77 FLD0330A PIC 9(09)V9(07) COMP-6 - VALUE 445280746.1581723. + VALUE 445280746.1581723. 77 FLD0330B PIC 9(07)V9(23) COMP-6 - VALUE 7955244.25555017788980194382020. + VALUE 7955244.25555017788980194382020. 77 FLD0330E PIC X VALUE 'N'. 77 FLD0331A PIC S9(07)V9(01) COMP-3 - VALUE +2232816.8. + VALUE +2232816.8. 77 FLD0331B PIC 9(08)V9(02) COMP-6 - VALUE 27670053.03. + VALUE 27670053.03. 77 FLD0331E PIC X VALUE 'N'. 77 FLD0332A PIC 9(05)V9(27) COMP-6 - VALUE 86562.988696340348315771962006692. + VALUE 86562.988696340348315771962006692. 77 FLD0332B PIC 9(09)V9(04) COMP-6 - VALUE 355930982.9079. + VALUE 355930982.9079. 77 FLD0332E PIC X VALUE 'N'. 77 FLD0333A PIC 9(02)V9(34) COMP-6 - VALUE 95.6494138775326296908474432711955159. + VALUE 95.6494138775326296908474432711955159. 77 FLD0333B PIC S9(07)V9(02) COMP-3 - VALUE +2431333.31. + VALUE +2431333.31. 77 FLD0333E PIC X VALUE 'N'. 77 FLD0334A PIC 9(08)V9(03) COMP-6 - VALUE 28999492.466. + VALUE 28999492.466. 77 FLD0334B PIC 9(09)V9(03) COMP-6 - VALUE 326043905.981. + VALUE 326043905.981. 77 FLD0334E PIC X VALUE 'N'. 77 FLD0335A PIC S9(08)V9(03) COMP-3 - VALUE +30334218.791. + VALUE +30334218.791. 77 FLD0335B PIC 9(10)V9(09) COMP-6 - VALUE 5075855226.668805064. + VALUE 5075855226.668805064. 77 FLD0335E PIC X VALUE 'N'. 77 FLD0336A PIC 9(05)V9(27) COMP-6 - VALUE 85800.255545984371874368434873758. + VALUE 85800.255545984371874368434873758. 77 FLD0336B PIC S9(08)V9(03) COMP-3 - VALUE -29245898.644. + VALUE -29245898.644. 77 FLD0336E PIC X VALUE 'N'. 77 FLD0337A PIC 9(08)V9(19) COMP-3 - VALUE 72003996.5448931451597047725. + VALUE 72003996.5448931451597047725. 77 FLD0337B PIC 9(08)V9(19) COMP-3 - VALUE 71409231.4076567258318561925. + VALUE 71409231.4076567258318561925. 77 FLD0337E PIC X VALUE 'N'. 77 FLD0338A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0338B PIC 9(10)V9(10) COMP-3 - VALUE 5304768900.0456310637. + VALUE 5304768900.0456310637. 77 FLD0338E PIC X VALUE 'N'. 77 FLD0339A PIC S9(06) COMP-3 - VALUE -160552. + VALUE -160552. 77 FLD0339B PIC 9(09)V9(13) COMP-3 - VALUE 594533435.7259434154840. + VALUE 594533435.7259434154840. 77 FLD0339E PIC X VALUE 'N'. 77 FLD0340A PIC 9(10)V9(09) COMP-3 - VALUE 5028381651.473269320. + VALUE 5028381651.473269320. 77 FLD0340B PIC S9(09)V9(04) COMP-3 - VALUE -361499697.6055. + VALUE -361499697.6055. 77 FLD0340E PIC X VALUE 'N'. 77 FLD0341A PIC 9(10)V9(11) COMP-6 - VALUE 5676316159.01010966318. + VALUE 5676316159.01010966318. 77 FLD0341B PIC 9(09)V9(12) COMP-3 - VALUE 572076310.146404809486. + VALUE 572076310.146404809486. 77 FLD0341E PIC X VALUE 'N'. 77 FLD0342A PIC S9(07)V9(01) COMP-3 - VALUE +2347143.0. + VALUE +2347143.0. 77 FLD0342B PIC S9(10)V9(07) COMP-3 - VALUE -4530575977.8135124. + VALUE -4530575977.8135124. 77 FLD0342E PIC X VALUE 'N'. 77 FLD0343A PIC 9(08)V9(19) COMP-6 - VALUE 72866356.1504289902792663724. + VALUE 72866356.1504289902792663724. 77 FLD0343B PIC 9(06)V9(01) COMP-6 - VALUE 195736.6. + VALUE 195736.6. 77 FLD0343E PIC X VALUE 'N'. 77 FLD0344A PIC 9(09)V9(07) COMP-6 - VALUE 439744878.9947105. + VALUE 439744878.9947105. 77 FLD0344B PIC 9(04)V9(29) COMP-3 - VALUE 8815.39565612843856179381418769480. + VALUE 8815.39565612843856179381418769480. 77 FLD0344E PIC X VALUE 'N'. 77 FLD0345A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0345B PIC 9(09)V9(06) COMP-6 - VALUE 405441574.894889. + VALUE 405441574.894889. 77 FLD0345E PIC X VALUE 'N'. 77 FLD0346A PIC 9(07)V9(22) COMP-3 - VALUE 7807860.0333687642187641131386. + VALUE 7807860.0333687642187641131386. 77 FLD0346B PIC 9(09)V9(16) COMP-3 - VALUE 674345587.8778652490268541. + VALUE 674345587.8778652490268541. 77 FLD0346E PIC X VALUE 'N'. 77 FLD0347A PIC 9(08)V9(18) COMP-3 - VALUE 70165985.253748408556617732. + VALUE 70165985.253748408556617732. 77 FLD0347B PIC 9(06) COMP-6 - VALUE 158396. + VALUE 158396. 77 FLD0347E PIC X VALUE 'N'. 77 FLD0348A PIC 9(08)V9(04) COMP-6 - VALUE 33778742.7133. + VALUE 33778742.7133. 77 FLD0348B PIC 9(09)V9(12) COMP-6 - VALUE 575387126.330844100863. + VALUE 575387126.330844100863. 77 FLD0348E PIC X VALUE 'N'. 77 FLD0349A PIC 9(10)V9(09) COMP-3 - VALUE 5122785066.779668161. + VALUE 5122785066.779668161. 77 FLD0349B PIC 9(03)V9(32) COMP-3 - VALUE 924.84903066843715535583214659709483. + VALUE 924.84903066843715535583214659709483. 77 FLD0349E PIC X VALUE 'N'. 77 FLD0350A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0350B PIC 9(06)V9(25) COMP-6 - VALUE 826494.1389960360762501068165875. + VALUE 826494.1389960360762501068165875. 77 FLD0350E PIC X VALUE 'N'. 77 FLD0351A PIC 9(05)V9(27) COMP-6 - VALUE 84942.576912519174303639601930626. + VALUE 84942.576912519174303639601930626. 77 FLD0351B PIC 9(10)V9(10) COMP-6 - VALUE 5388327188.5283523516. + VALUE 5388327188.5283523516. 77 FLD0351E PIC X VALUE 'N'. 77 FLD0352A PIC 9(03)V9(32) COMP-6 - VALUE 937.88592938035042489985926295048557. + VALUE 937.88592938035042489985926295048557. 77 FLD0352B PIC 9(06)V9(01) COMP-6 - VALUE 195629.8. + VALUE 195629.8. 77 FLD0352E PIC X VALUE 'N'. 77 FLD0353A PIC S9(07)V9(02) COMP-3 - VALUE -2544588.73. + VALUE -2544588.73. 77 FLD0353B PIC 9(02)V9(33) COMP-3 - VALUE 94.340663054368900652946194895775988. + VALUE 94.340663054368900652946194895775988. 77 FLD0353E PIC X VALUE 'N'. 77 FLD0354A PIC 9(07)V9(01) COMP-6 - VALUE 2152460.4. + VALUE 2152460.4. 77 FLD0354B PIC S9(08)V9(03) COMP-3 - VALUE -29015200.342. + VALUE -29015200.342. 77 FLD0354E PIC X VALUE 'N'. 77 FLD0355A PIC 9(06)V9(01) COMP-6 - VALUE 208715.4. + VALUE 208715.4. 77 FLD0355B PIC S9(05) COMP-3 - VALUE -15428. + VALUE -15428. 77 FLD0355E PIC X VALUE 'N'. 77 FLD0356A PIC S9(09)V9(05) COMP-3 - VALUE -391398983.37050. + VALUE -391398983.37050. 77 FLD0356B PIC 9(05)V9(27) COMP-6 - VALUE 84690.187478976841628508509529638. + VALUE 84690.187478976841628508509529638. 77 FLD0356E PIC X VALUE 'N'. 77 FLD0357A PIC 9(10)V9(10) COMP-3 - VALUE 5323345989.0667944591. + VALUE 5323345989.0667944591. 77 FLD0357B PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0357E PIC X VALUE 'N'. 77 FLD0358A PIC 9(08)V9(03) COMP-6 - VALUE 29848403.943. + VALUE 29848403.943. 77 FLD0358B PIC 9(09)V9(17) COMP-6 - VALUE 688595894.53938552239264936. + VALUE 688595894.53938552239264936. 77 FLD0358E PIC X VALUE 'N'. 77 FLD0359A PIC 9(07)V9(22) COMP-6 - VALUE 7654789.5985185210321333215688. + VALUE 7654789.5985185210321333215688. 77 FLD0359B PIC 9(01)V9(36) COMP-3 - VALUE 9.927521413787718795873615817981772124. + VALUE 9.927521413787718795873615817981772124. 77 FLD0359E PIC X VALUE 'N'. 77 FLD0360A PIC S9(09)V9(06) COMP-3 - VALUE +400277612.276280. + VALUE +400277612.276280. 77 FLD0360B PIC 9(08)V9(02) COMP-6 - VALUE 26666225.04. + VALUE 26666225.04. 77 FLD0360E PIC X VALUE 'N'. 77 FLD0361A PIC 9(06)V9(25) COMP-3 - VALUE 823089.8044061112361902132761315. + VALUE 823089.8044061112361902132761315. 77 FLD0361B PIC 9(05)V9(27) COMP-6 - VALUE 84762.044237681810621154454565839. + VALUE 84762.044237681810621154454565839. 77 FLD0361E PIC X VALUE 'N'. 77 FLD0362A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0362B PIC 9(04)V9(30) COMP-6 - VALUE 8970.899599407193836242413453874178. + VALUE 8970.899599407193836242413453874178. 77 FLD0362E PIC X VALUE 'N'. 77 FLD0363A PIC 9(09)V9(04) COMP-6 - VALUE 358575926.2078. + VALUE 358575926.2078. 77 FLD0363B PIC 9(04)V9(30) COMP-3 - VALUE 9034.927431796696550847514117776881. + VALUE 9034.927431796696550847514117776881. 77 FLD0363E PIC X VALUE 'N'. 77 FLD0364A PIC S9(04) COMP-3 - VALUE +1234. + VALUE +1234. 77 FLD0364B PIC 9(06)V9(25) COMP-3 - VALUE 830028.0009277749559970516202156. + VALUE 830028.0009277749559970516202156. 77 FLD0364E PIC X VALUE 'N'. 77 FLD0365A PIC 9(09)V9(11) COMP-3 - VALUE 551967009.62472056151. + VALUE 551967009.62472056151. 77 FLD0365B PIC 9(09)V9(16) COMP-6 - VALUE 658782379.9892106313436102. + VALUE 658782379.9892106313436102. 77 FLD0365E PIC X VALUE 'N'. 77 FLD0366A PIC 9(06)V9(25) COMP-3 - VALUE 822414.3642778768414913770357088. + VALUE 822414.3642778768414913770357088. 77 FLD0366B PIC 9(06)V9(25) COMP-6 - VALUE 838180.2974044693099742175945721. + VALUE 838180.2974044693099742175945721. 77 FLD0366E PIC X VALUE 'N'. 77 FLD0367A PIC 9(09)V9(13) COMP-6 - VALUE 595975436.9256639039420. + VALUE 595975436.9256639039420. 77 FLD0367B PIC S9(06)V9(01) COMP-3 - VALUE -191378.3. + VALUE -191378.3. 77 FLD0367E PIC X VALUE 'N'. 77 FLD0368A PIC 9(05) COMP-6 - VALUE 15663. + VALUE 15663. 77 FLD0368B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0368E PIC X VALUE 'N'. 77 FLD0369A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0369B PIC S9(08)V9(03) COMP-3 - VALUE +31224128.387. + VALUE +31224128.387. 77 FLD0369E PIC X VALUE 'N'. 77 FLD0370A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0370B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0370E PIC X VALUE 'N'. 77 FLD0371A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0371B PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0371E PIC X VALUE 'N'. 77 FLD0372A PIC 9(10)V9(09) COMP-6 - VALUE 5067586024.551302692. + VALUE 5067586024.551302692. 77 FLD0372B PIC 9(10)V9(09) COMP-3 - VALUE 5017586497.117959565. + VALUE 5017586497.117959565. 77 FLD0372E PIC X VALUE 'N'. 77 FLD0373A PIC 9(09)V9(16) COMP-3 - VALUE 660730415.8912360447786227. + VALUE 660730415.8912360447786227. 77 FLD0373B PIC S9(09)V9(04) COMP-3 - VALUE -352559577.5040. + VALUE -352559577.5040. 77 FLD0373E PIC X VALUE 'N'. 77 FLD0374A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0374B PIC 9(08)V9(19) COMP-3 - VALUE 71126449.7973442155753787119. + VALUE 71126449.7973442155753787119. 77 FLD0374E PIC X VALUE 'N'. 77 FLD0375A PIC 9(07)V9(22) COMP-3 - VALUE 7816763.9605777072819847717255. + VALUE 7816763.9605777072819847717255. 77 FLD0375B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0375E PIC X VALUE 'N'. 77 FLD0376A PIC 9(05)V9(27) COMP-6 - VALUE 84980.958923270843996533585595898. + VALUE 84980.958923270843996533585595898. 77 FLD0376B PIC 9(10)V9(09) COMP-3 - VALUE 5240094598.000759607. + VALUE 5240094598.000759607. 77 FLD0376E PIC X VALUE 'N'. 77 FLD0377A PIC 9(02)V9(34) COMP-6 - VALUE 96.7759547981370871205797357106348499. + VALUE 96.7759547981370871205797357106348499. 77 FLD0377B PIC 9(07)V9(22) COMP-3 - VALUE 7813622.4062247550126159012506. + VALUE 7813622.4062247550126159012506. 77 FLD0377E PIC X VALUE 'N'. 77 FLD0378A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0378B PIC S9(06) COMP-3 - VALUE -163135. + VALUE -163135. 77 FLD0378E PIC X VALUE 'N'. 77 FLD0379A PIC 9(10)V9(10) COMP-6 - VALUE 5351160784.1302399890. + VALUE 5351160784.1302399890. 77 FLD0379B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0379E PIC X VALUE 'N'. 77 FLD0380A PIC 9(09)V9(03) COMP-6 - VALUE 318886259.138. + VALUE 318886259.138. 77 FLD0380B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0380E PIC X VALUE 'N'. 77 FLD0381A PIC 9(10)V9(09) COMP-6 - VALUE 5188977124.912377281. + VALUE 5188977124.912377281. 77 FLD0381B PIC 9(03) COMP-6 - VALUE 096. + VALUE 096. 77 FLD0381E PIC X VALUE 'N'. 77 FLD0382A PIC 9(10)V9(10) COMP-6 - VALUE 5469463185.9002762475. + VALUE 5469463185.9002762475. 77 FLD0382B PIC 9(04) COMP-6 - VALUE 1276. + VALUE 1276. 77 FLD0382E PIC X VALUE 'N'. 77 FLD0383A PIC 9(04)V9(29) COMP-3 - VALUE 8846.28028341020278269013488170458. + VALUE 8846.28028341020278269013488170458. 77 FLD0383B PIC 9(06)V9(24) COMP-3 - VALUE 801588.906111812216082057602761. + VALUE 801588.906111812216082057602761. 77 FLD0383E PIC X VALUE 'N'. 77 FLD0384A PIC S9(07)V9(02) COMP-3 - VALUE +2410021.83. + VALUE +2410021.83. 77 FLD0384B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0384E PIC X VALUE 'N'. 77 FLD0385A PIC 9(09)V9(14) COMP-6 - VALUE 616198826.41569234671408. + VALUE 616198826.41569234671408. 77 FLD0385B PIC 9(04)V9(29) COMP-3 - VALUE 8914.93363280043138452413131744833. + VALUE 8914.93363280043138452413131744833. 77 FLD0385E PIC X VALUE 'N'. 77 FLD0386A PIC 9(10)V9(11) COMP-6 - VALUE 5671006446.22052230126. + VALUE 5671006446.22052230126. 77 FLD0386B PIC 9(07)V9(21) COMP-3 - VALUE 7538453.430795608589676248811. + VALUE 7538453.430795608589676248811. 77 FLD0386E PIC X VALUE 'N'. 77 FLD0387A PIC 9(08)V9(03) COMP-6 - VALUE 30516405.931. + VALUE 30516405.931. 77 FLD0387B PIC 9(09)V9(16) COMP-3 - VALUE 660134959.6835575095354897. + VALUE 660134959.6835575095354897. 77 FLD0387E PIC X VALUE 'N'. 77 FLD0388A PIC 9(10)V9(11) COMP-6 - VALUE 5691303425.20841603359. + VALUE 5691303425.20841603359. 77 FLD0388B PIC 9(03) COMP-6 - VALUE 099. + VALUE 099. 77 FLD0388E PIC X VALUE 'N'. 77 FLD0389A PIC S9(10)V9(06) COMP-3 - VALUE +4300560615.719126. + VALUE +4300560615.719126. 77 FLD0389B PIC 9(10)V9(12) COMP-6 - VALUE 5882065365.633618592156. + VALUE 5882065365.633618592156. 77 FLD0389E PIC X VALUE 'N'. 77 FLD0390A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0390B PIC 9(03) COMP-6 - VALUE 095. + VALUE 095. 77 FLD0390E PIC X VALUE 'N'. 77 FLD0391A PIC S9(08)V9(03) COMP-3 - VALUE +30066642.536. + VALUE +30066642.536. 77 FLD0391B PIC S9(08)V9(02) COMP-3 - VALUE -26329271.26. + VALUE -26329271.26. 77 FLD0391E PIC X VALUE 'N'. 77 FLD0392A PIC 9(02)V9(34) COMP-6 - VALUE 95.7627258628673261320329856971511617. + VALUE 95.7627258628673261320329856971511617. 77 FLD0392B PIC 9(10)V9(07) COMP-6 - VALUE 4682510725.0510572. + VALUE 4682510725.0510572. 77 FLD0392E PIC X VALUE 'N'. 77 FLD0393A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0393B PIC 9(04)V9(30) COMP-6 - VALUE 9067.420163680885991652758093550801. + VALUE 9067.420163680885991652758093550801. 77 FLD0393E PIC X VALUE 'N'. 77 FLD0394A PIC 9(05)V9(01) COMP-6 - VALUE 16807.8. + VALUE 16807.8. 77 FLD0394B PIC S9(10)V9(08) COMP-3 - VALUE -4746288002.63585892. + VALUE -4746288002.63585892. 77 FLD0394E PIC X VALUE 'N'. 77 FLD0395A PIC 9(10)V9(09) COMP-3 - VALUE 5206691882.901124390. + VALUE 5206691882.901124390. 77 FLD0395B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0395E PIC X VALUE 'N'. 77 FLD0396A PIC 9(09)V9(06) COMP-6 - VALUE 419939827.280791. + VALUE 419939827.280791. 77 FLD0396B PIC 9(09)V9(07) COMP-6 - VALUE 446487444.5871826. + VALUE 446487444.5871826. 77 FLD0396E PIC X VALUE 'N'. 77 FLD0397A PIC 9(05)V9(27) COMP-6 - VALUE 85569.982924983467587054519754019. + VALUE 85569.982924983467587054519754019. 77 FLD0397B PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0397E PIC X VALUE 'N'. 77 FLD0398A PIC 9(05)V9(26) COMP-3 - VALUE 84110.85692078776876456913669244. + VALUE 84110.85692078776876456913669244. 77 FLD0398B PIC S9(08)V9(02) COMP-3 - VALUE -28358417.67. + VALUE -28358417.67. 77 FLD0398E PIC X VALUE 'N'. 77 FLD0399A PIC 9(05)V9(27) COMP-3 - VALUE 86215.377080746946614198122915695. + VALUE 86215.377080746946614198122915695. 77 FLD0399B PIC 9(07)V9(02) COMP-6 - VALUE 2481207.70. + VALUE 2481207.70. 77 FLD0399E PIC X VALUE 'N'. 77 FLD0400A PIC 9(10)V9(08) COMP-6 - VALUE 4880703034.67910082. + VALUE 4880703034.67910082. 77 FLD0400B PIC 9(06)V9(25) COMP-6 - VALUE 835199.6491942943467989834971376. + VALUE 835199.6491942943467989834971376. 77 FLD0400E PIC X VALUE 'N'. 77 FLD0401A PIC 9(08)V9(03) COMP-6 - VALUE 30757829.425. + VALUE 30757829.425. 77 FLD0401B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0401E PIC X VALUE 'N'. 77 FLD0402A PIC 9(04)V9(29) COMP-3 - VALUE 8843.41306989221531686951038864208. + VALUE 8843.41306989221531686951038864208. 77 FLD0402B PIC 9(08)V9(18) COMP-6 - VALUE 69652895.633901057426129455. + VALUE 69652895.633901057426129455. 77 FLD0402E PIC X VALUE 'N'. 77 FLD0403A PIC 9(10)V9(10) COMP-6 - VALUE 5351391185.2119278034. + VALUE 5351391185.2119278034. 77 FLD0403B PIC 9(03)V9(32) COMP-6 - VALUE 939.96913575689089448417234962107613. + VALUE 939.96913575689089448417234962107613. 77 FLD0403E PIC X VALUE 'N'. 77 FLD0404A PIC S9(10)V9(08) COMP-3 - VALUE -4810592903.51378177. + VALUE -4810592903.51378177. 77 FLD0404B PIC 9(09)V9(16) COMP-3 - VALUE 670850774.7441430080215241. + VALUE 670850774.7441430080215241. 77 FLD0404E PIC X VALUE 'N'. 77 FLD0405A PIC S9(09)V9(04) COMP-3 - VALUE -360620744.0007. + VALUE -360620744.0007. 77 FLD0405B PIC S9(05) COMP-3 - VALUE +14133. + VALUE +14133. 77 FLD0405E PIC X VALUE 'N'. 77 FLD0406A PIC S9(07)V9(02) COMP-3 - VALUE -2503018.94. + VALUE -2503018.94. 77 FLD0406B PIC 9(07)V9(23) COMP-6 - VALUE 7996063.91391730064732712435215. + VALUE 7996063.91391730064732712435215. 77 FLD0406E PIC X VALUE 'N'. 77 FLD0407A PIC 9(09)V9(13) COMP-3 - VALUE 592634898.8738083800598. + VALUE 592634898.8738083800598. 77 FLD0407B PIC 9(01)V9(36) COMP-6 - VALUE 9.879241102928391082826919955550692975. + VALUE 9.879241102928391082826919955550692975. 77 FLD0407E PIC X VALUE 'N'. 77 FLD0408A PIC 9(09)V9(07) COMP-6 - VALUE 438100099.1119252. + VALUE 438100099.1119252. 77 FLD0408B PIC 9(08)V9(02) COMP-6 - VALUE 28626783.20. + VALUE 28626783.20. 77 FLD0408E PIC X VALUE 'N'. 77 FLD0409A PIC 9(08)V9(02) COMP-6 - VALUE 28575188.65. + VALUE 28575188.65. 77 FLD0409B PIC 9(09)V9(12) COMP-6 - VALUE 576691261.515216657684. + VALUE 576691261.515216657684. 77 FLD0409E PIC X VALUE 'N'. 77 FLD0410A PIC 9(09)V9(14) COMP-6 - VALUE 615937928.60877261130525. + VALUE 615937928.60877261130525. 77 FLD0410B PIC 9(01)V9(36) COMP-3 - VALUE 9.822719722312858170454319406417198479. + VALUE 9.822719722312858170454319406417198479. 77 FLD0410E PIC X VALUE 'N'. 77 FLD0411A PIC 9(09)V9(17) COMP-6 - VALUE 688573322.26995748847286904. + VALUE 688573322.26995748847286904. 77 FLD0411B PIC 9(07)V9(22) COMP-6 - VALUE 7775778.4281136710369253250973. + VALUE 7775778.4281136710369253250973. 77 FLD0411E PIC X VALUE 'N'. 77 FLD0412A PIC 9(09)V9(12) COMP-3 - VALUE 572677017.522024045526. + VALUE 572677017.522024045526. 77 FLD0412B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0412E PIC X VALUE 'N'. 77 FLD0413A PIC 9(06)V9(25) COMP-6 - VALUE 828822.6462986850728853482905833. + VALUE 828822.6462986850728853482905833. 77 FLD0413B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0413E PIC X VALUE 'N'. 77 FLD0414A PIC 9(05)V9(27) COMP-3 - VALUE 84413.303017262042438062508153961. + VALUE 84413.303017262042438062508153961. 77 FLD0414B PIC S9(05) COMP-3 - VALUE -15377. + VALUE -15377. 77 FLD0414E PIC X VALUE 'N'. 77 FLD0415A PIC 9(09)V9(15) COMP-3 - VALUE 650722988.227690701812377. + VALUE 650722988.227690701812377. 77 FLD0415B PIC 9(03)V9(31) COMP-6 - VALUE 919.0351051613949717733476063585840. + VALUE 919.0351051613949717733476063585840. 77 FLD0415E PIC X VALUE 'N'. 77 FLD0416A PIC 9(09)V9(16) COMP-6 - VALUE 675584038.8269652718733482. + VALUE 675584038.8269652718733482. 77 FLD0416B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0416E PIC X VALUE 'N'. 77 FLD0417A PIC 9(03)V9(32) COMP-3 - VALUE 942.59186417160190085695603556814603. + VALUE 942.59186417160190085695603556814603. 77 FLD0417B PIC 9(04)V9(29) COMP-3 - VALUE 8943.54109346381376255408213182818. + VALUE 8943.54109346381376255408213182818. 77 FLD0417E PIC X VALUE 'N'. 77 FLD0418A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0418B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0418E PIC X VALUE 'N'. 77 FLD0419A PIC 9(09)V9(06) COMP-6 - VALUE 415695619.544491. + VALUE 415695619.544491. 77 FLD0419B PIC 9(10)V9(10) COMP-3 - VALUE 5349169017.3884820502. + VALUE 5349169017.3884820502. 77 FLD0419E PIC X VALUE 'N'. 77 FLD0420A PIC 9(08)V9(02) COMP-6 - VALUE 26881191.37. + VALUE 26881191.37. 77 FLD0420B PIC 9(04)V9(30) COMP-6 - VALUE 9092.387304867948216724471421912312. + VALUE 9092.387304867948216724471421912312. 77 FLD0420E PIC X VALUE 'N'. 77 FLD0421A PIC 9(08)V9(19) COMP-3 - VALUE 71124707.9077118260492795798. + VALUE 71124707.9077118260492795798. 77 FLD0421B PIC S9(06)V9(01) COMP-3 - VALUE +210383.3. + VALUE +210383.3. 77 FLD0421E PIC X VALUE 'N'. 77 FLD0422A PIC 9(08)V9(18) COMP-3 - VALUE 69276472.004700051510184266. + VALUE 69276472.004700051510184266. 77 FLD0422B PIC 9(02)V9(34) COMP-6 - VALUE 96.7464238557165900900258748151827603. + VALUE 96.7464238557165900900258748151827603. 77 FLD0422E PIC X VALUE 'N'. 77 FLD0423A PIC 9(09)V9(13) COMP-6 - VALUE 595417774.2919815052857. + VALUE 595417774.2919815052857. 77 FLD0423B PIC 9(09)V9(17) COMP-6 - VALUE 689527286.14626146441679566. + VALUE 689527286.14626146441679566. 77 FLD0423E PIC X VALUE 'N'. 77 FLD0424A PIC 9(09)V9(11) COMP-3 - VALUE 551151541.59885582085. + VALUE 551151541.59885582085. 77 FLD0424B PIC 9(08)V9(19) COMP-6 - VALUE 72724692.5117367437607640567. + VALUE 72724692.5117367437607640567. 77 FLD0424E PIC X VALUE 'N'. 77 FLD0425A PIC S9(10)V9(08) COMP-3 - VALUE -4741628720.81754727. + VALUE -4741628720.81754727. 77 FLD0425B PIC 9(10)V9(12) COMP-3 - VALUE 5846836543.074439562772. + VALUE 5846836543.074439562772. 77 FLD0425E PIC X VALUE 'N'. 77 FLD0426A PIC 9(10)V9(11) COMP-3 - VALUE 5601456695.80725313885. + VALUE 5601456695.80725313885. 77 FLD0426B PIC 9(10)V9(11) COMP-6 - VALUE 5581868249.31393821280. + VALUE 5581868249.31393821280. 77 FLD0426E PIC X VALUE 'N'. 77 FLD0427A PIC 9(09)V9(04) COMP-6 - VALUE 365284621.5641. + VALUE 365284621.5641. 77 FLD0427B PIC 9(07)V9(22) COMP-6 - VALUE 7792109.4871910845380824639505. + VALUE 7792109.4871910845380824639505. 77 FLD0427E PIC X VALUE 'N'. 77 FLD0428A PIC 9(05)V9(27) COMP-6 - VALUE 85913.234918316627730661139139556. + VALUE 85913.234918316627730661139139556. 77 FLD0428B PIC 9(01)V9(36) COMP-6 - VALUE 9.753152813075189886404814387788064777. + VALUE 9.753152813075189886404814387788064777. 77 FLD0428E PIC X VALUE 'N'. 77 FLD0429A PIC 9(07)V9(22) COMP-3 - VALUE 7833347.6062909002113343603923. + VALUE 7833347.6062909002113343603923. 77 FLD0429B PIC 9(09)V9(06) COMP-6 - VALUE 415311789.274485. + VALUE 415311789.274485. 77 FLD0429E PIC X VALUE 'N'. 77 FLD0430A PIC 9(08)V9(03) COMP-6 - VALUE 30820998.502. + VALUE 30820998.502. 77 FLD0430B PIC 9(09)V9(04) COMP-6 - VALUE 345613119.3468. + VALUE 345613119.3468. 77 FLD0430E PIC X VALUE 'N'. 77 FLD0431A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0431B PIC 9(03)V9(31) COMP-3 - VALUE 920.3928254587173674039490833820309. + VALUE 920.3928254587173674039490833820309. 77 FLD0431E PIC X VALUE 'N'. 77 FLD0432A PIC 9(10)V9(11) COMP-3 - VALUE 5612307034.00538710745. + VALUE 5612307034.00538710745. 77 FLD0432B PIC S9(06) COMP-3 - VALUE -161655. + VALUE -161655. 77 FLD0432E PIC X VALUE 'N'. 77 FLD0433A PIC 9(08)V9(19) COMP-3 - VALUE 72012955.8244768763763943297. + VALUE 72012955.8244768763763943297. 77 FLD0433B PIC 9(06)V9(01) COMP-6 - VALUE 206502.1. + VALUE 206502.1. 77 FLD0433E PIC X VALUE 'N'. 77 FLD0434A PIC S9(10)V9(07) COMP-3 - VALUE -4547054675.3415619. + VALUE -4547054675.3415619. 77 FLD0434B PIC 9(03)V9(32) COMP-3 - VALUE 931.50114075800283242045907172723673. + VALUE 931.50114075800283242045907172723673. 77 FLD0434E PIC X VALUE 'N'. 77 FLD0435A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0435B PIC 9(10)V9(12) COMP-3 - VALUE 5848414344.863717140299. + VALUE 5848414344.863717140299. 77 FLD0435E PIC X VALUE 'N'. 77 FLD0436A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0436B PIC 9(06)V9(25) COMP-3 - VALUE 830719.5843004202551185244374210. + VALUE 830719.5843004202551185244374210. 77 FLD0436E PIC X VALUE 'N'. 77 FLD0437A PIC 9(09)V9(15) COMP-3 - VALUE 632897272.198471361193128. + VALUE 632897272.198471361193128. 77 FLD0437B PIC 9(09)V9(15) COMP-3 - VALUE 644015379.475938010145341. + VALUE 644015379.475938010145341. 77 FLD0437E PIC X VALUE 'N'. 77 FLD0438A PIC 9(09)V9(16) COMP-3 - VALUE 664694021.6365745390802999. + VALUE 664694021.6365745390802999. 77 FLD0438B PIC 9(05)V9(28) COMP-3 - VALUE 87427.7230957161255453513604152249. + VALUE 87427.7230957161255453513604152249. 77 FLD0438E PIC X VALUE 'N'. 77 FLD0439A PIC 9(10)V9(08) COMP-6 - VALUE 4961134805.43429519. + VALUE 4961134805.43429519. 77 FLD0439B PIC 9(10)V9(11) COMP-3 - VALUE 5610850764.78219813012. + VALUE 5610850764.78219813012. 77 FLD0439E PIC X VALUE 'N'. 77 FLD0440A PIC 9(04)V9(29) COMP-6 - VALUE 8899.07507055040514210020319296745. + VALUE 8899.07507055040514210020319296745. 77 FLD0440B PIC 9(10)V9(07) COMP-6 - VALUE 4554701137.8932739. + VALUE 4554701137.8932739. 77 FLD0440E PIC X VALUE 'N'. 77 FLD0441A PIC 9(08)V9(19) COMP-3 - VALUE 71126905.4406556744396539215. + VALUE 71126905.4406556744396539215. 77 FLD0441B PIC S9(10)V9(06) COMP-3 - VALUE +4339238601.837461. + VALUE +4339238601.837461. 77 FLD0441E PIC X VALUE 'N'. 77 FLD0442A PIC 9(05)V9(01) COMP-6 - VALUE 16995.1. + VALUE 16995.1. 77 FLD0442B PIC 9(03)V9(31) COMP-6 - VALUE 915.7753741786495149668212434335146. + VALUE 915.7753741786495149668212434335146. 77 FLD0442E PIC X VALUE 'N'. 77 FLD0443A PIC S9(10)V9(08) COMP-3 - VALUE -4744984255.46487689. + VALUE -4744984255.46487689. 77 FLD0443B PIC 9(09)V9(14) COMP-3 - VALUE 620915031.52970173307068. + VALUE 620915031.52970173307068. 77 FLD0443E PIC X VALUE 'N'. 77 FLD0444A PIC 9(02)V9(33) COMP-6 - VALUE 94.673816662087151296844922399031929. + VALUE 94.673816662087151296844922399031929. 77 FLD0444B PIC 9(10)V9(09) COMP-3 - VALUE 5047752845.189990011. + VALUE 5047752845.189990011. 77 FLD0444E PIC X VALUE 'N'. 77 FLD0445A PIC 9(10)V9(10) COMP-3 - VALUE 5416554544.5299512206. + VALUE 5416554544.5299512206. 77 FLD0445B PIC S9(10)V9(07) COMP-3 - VALUE -4623541965.4562581. + VALUE -4623541965.4562581. 77 FLD0445E PIC X VALUE 'N'. 77 FLD0446A PIC 9(10)V9(09) COMP-3 - VALUE 5044897846.697211640. + VALUE 5044897846.697211640. 77 FLD0446B PIC 9(09)V9(16) COMP-6 - VALUE 665206327.4939082893055797. + VALUE 665206327.4939082893055797. 77 FLD0446E PIC X VALUE 'N'. 77 FLD0447A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0447B PIC 9(08)V9(02) COMP-6 - VALUE 27717300.69. + VALUE 27717300.69. 77 FLD0447E PIC X VALUE 'N'. 77 FLD0448A PIC 9(06)V9(01) COMP-6 - VALUE 186565.4. + VALUE 186565.4. 77 FLD0448B PIC 9(10)V9(10) COMP-6 - VALUE 5373290497.5367845601. + VALUE 5373290497.5367845601. 77 FLD0448E PIC X VALUE 'N'. 77 FLD0449A PIC S9(09)V9(05) COMP-3 - VALUE -384988094.18704. + VALUE -384988094.18704. 77 FLD0449B PIC S9(08)V9(04) COMP-3 - VALUE +34016016.2924. + VALUE +34016016.2924. 77 FLD0449E PIC X VALUE 'N'. 77 FLD0450A PIC 9(09)V9(14) COMP-6 - VALUE 625578375.50228334588808. + VALUE 625578375.50228334588808. 77 FLD0450B PIC 9(09)V9(13) COMP-6 - VALUE 597300618.6146695428718. + VALUE 597300618.6146695428718. 77 FLD0450E PIC X VALUE 'N'. 77 FLD0451A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0451B PIC S9(07)V9(02) COMP-3 - VALUE -2517390.40. + VALUE -2517390.40. 77 FLD0451E PIC X VALUE 'N'. 77 FLD0452A PIC 9(08)V9(02) COMP-6 - VALUE 26826484.18. + VALUE 26826484.18. 77 FLD0452B PIC 9(10)V9(11) COMP-6 - VALUE 5576443525.30127562772. + VALUE 5576443525.30127562772. 77 FLD0452E PIC X VALUE 'N'. 77 FLD0453A PIC 9(10)V9(10) COMP-6 - VALUE 5383526546.5392911909. + VALUE 5383526546.5392911909. 77 FLD0453B PIC 9(02)V9(34) COMP-6 - VALUE 96.7573296701221163829131910461001098. + VALUE 96.7573296701221163829131910461001098. 77 FLD0453E PIC X VALUE 'N'. 77 FLD0454A PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0454B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0454E PIC X VALUE 'N'. 77 FLD0455A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0455B PIC 9(05)V9(27) COMP-3 - VALUE 85105.998788168291113720442808698. + VALUE 85105.998788168291113720442808698. 77 FLD0455E PIC X VALUE 'N'. 77 FLD0456A PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0456B PIC 9(05) COMP-6 - VALUE 15509. + VALUE 15509. 77 FLD0456E PIC X VALUE 'N'. 77 FLD0457A PIC 9(04)V9(30) COMP-6 - VALUE 9063.641671624598217249513254500925. + VALUE 9063.641671624598217249513254500925. 77 FLD0457B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0457E PIC X VALUE 'N'. 77 FLD0458A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0458B PIC 9(09)V9(03) COMP-6 - VALUE 319507540.378. + VALUE 319507540.378. 77 FLD0458E PIC X VALUE 'N'. 77 FLD0459A PIC 9(06)V9(01) COMP-6 - VALUE 198479.9. + VALUE 198479.9. 77 FLD0459B PIC 9(10)V9(11) COMP-3 - VALUE 5635468078.16151518188. + VALUE 5635468078.16151518188. 77 FLD0459E PIC X VALUE 'N'. 77 FLD0460A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0460B PIC 9(07)V9(22) COMP-3 - VALUE 7834589.5335320658858790920930. + VALUE 7834589.5335320658858790920930. 77 FLD0460E PIC X VALUE 'N'. 77 FLD0461A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0461B PIC S9(07)V9(01) COMP-3 - VALUE +2146839.2. + VALUE +2146839.2. 77 FLD0461E PIC X VALUE 'N'. 77 FLD0462A PIC 9(08)V9(02) COMP-6 - VALUE 26776595.69. + VALUE 26776595.69. 77 FLD0462B PIC 9(02)V9(34) COMP-3 - VALUE 95.2391194548525610308331579290097579. + VALUE 95.2391194548525610308331579290097579. 77 FLD0462E PIC X VALUE 'N'. 77 FLD0463A PIC 9(05)V9(27) COMP-3 - VALUE 85490.666934027292889197724434779. + VALUE 85490.666934027292889197724434779. 77 FLD0463B PIC 9(09)V9(06) COMP-6 - VALUE 407249114.981761. + VALUE 407249114.981761. 77 FLD0463E PIC X VALUE 'N'. 77 FLD0464A PIC 9(10)V9(07) COMP-6 - VALUE 4587031190.3834293. + VALUE 4587031190.3834293. 77 FLD0464B PIC 9(08)V9(19) COMP-6 - VALUE 71857481.5704608793609509120. + VALUE 71857481.5704608793609509120. 77 FLD0464E PIC X VALUE 'N'. 77 FLD0465A PIC 9(10)V9(12) COMP-3 - VALUE 5816563985.597106301028. + VALUE 5816563985.597106301028. 77 FLD0465B PIC 9(06)V9(25) COMP-6 - VALUE 837937.1800695708527584315561398. + VALUE 837937.1800695708527584315561398. 77 FLD0465E PIC X VALUE 'N'. 77 FLD0466A PIC 9(09)V9(15) COMP-3 - VALUE 654381306.333900236715805. + VALUE 654381306.333900236715805. 77 FLD0466B PIC 9(05) COMP-6 - VALUE 14616. + VALUE 14616. 77 FLD0466E PIC X VALUE 'N'. 77 FLD0467A PIC S9(07)V9(01) COMP-3 - VALUE +2343287.0. + VALUE +2343287.0. 77 FLD0467B PIC 9(04)V9(29) COMP-3 - VALUE 8929.74677715112297171629052172647. + VALUE 8929.74677715112297171629052172647. 77 FLD0467E PIC X VALUE 'N'. 77 FLD0468A PIC S9(10)V9(06) COMP-3 - VALUE +4344132145.767680. + VALUE +4344132145.767680. 77 FLD0468B PIC 9(08)V9(03) COMP-6 - VALUE 29592230.696. + VALUE 29592230.696. 77 FLD0468E PIC X VALUE 'N'. 77 FLD0469A PIC 9(08)V9(18) COMP-6 - VALUE 70961503.876956555370014712. + VALUE 70961503.876956555370014712. 77 FLD0469B PIC 9(10)V9(09) COMP-3 - VALUE 5200119971.346918168. + VALUE 5200119971.346918168. 77 FLD0469E PIC X VALUE 'N'. 77 FLD0470A PIC 9(03)V9(31) COMP-3 - VALUE 913.6810028966669827710234130790922. + VALUE 913.6810028966669827710234130790922. 77 FLD0470B PIC S9(09)V9(05) COMP-3 - VALUE -383130523.18889. + VALUE -383130523.18889. 77 FLD0470E PIC X VALUE 'N'. 77 FLD0471A PIC S9(07)V9(02) COMP-3 - VALUE -2507103.69. + VALUE -2507103.69. 77 FLD0471B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0471E PIC X VALUE 'N'. 77 FLD0472A PIC 9(10)V9(09) COMP-3 - VALUE 5103990869.050332168. + VALUE 5103990869.050332168. 77 FLD0472B PIC 9(06)V9(26) COMP-3 - VALUE 843393.74409143441635450244575622. + VALUE 843393.74409143441635450244575622. 77 FLD0472E PIC X VALUE 'N'. 77 FLD0473A PIC 9(08)V9(20) COMP-3 - VALUE 74367162.06805468187823748849. + VALUE 74367162.06805468187823748849. 77 FLD0473B PIC 9(08)V9(18) COMP-3 - VALUE 70143773.259305752798553612. + VALUE 70143773.259305752798553612. 77 FLD0473E PIC X VALUE 'N'. 77 FLD0474A PIC 9(08)V9(19) COMP-6 - VALUE 72625744.5118117406224200749. + VALUE 72625744.5118117406224200749. 77 FLD0474B PIC S9(05) COMP-3 - VALUE +13295. + VALUE +13295. 77 FLD0474E PIC X VALUE 'N'. 77 FLD0475A PIC 9(10)V9(07) COMP-6 - VALUE 4588724634.2999971. + VALUE 4588724634.2999971. 77 FLD0475B PIC S9(09)V9(06) COMP-3 - VALUE +420010897.357724. + VALUE +420010897.357724. 77 FLD0475E PIC X VALUE 'N'. 77 FLD0476A PIC 9(08)V9(02) COMP-6 - VALUE 28869933.49. + VALUE 28869933.49. 77 FLD0476B PIC 9(06)V9(01) COMP-6 - VALUE 197306.5. + VALUE 197306.5. 77 FLD0476E PIC X VALUE 'N'. 77 FLD0477A PIC 9(08)V9(20) COMP-3 - VALUE 74492482.99155191155307420558. + VALUE 74492482.99155191155307420558. 77 FLD0477B PIC S9(09)V9(05) COMP-3 - VALUE -380644102.28203. + VALUE -380644102.28203. 77 FLD0477E PIC X VALUE 'N'. 77 FLD0478A PIC 9(08)V9(19) COMP-6 - VALUE 72616162.5751895356550846827. + VALUE 72616162.5751895356550846827. 77 FLD0478B PIC 9(09)V9(04) COMP-6 - VALUE 345871637.9604. + VALUE 345871637.9604. 77 FLD0478E PIC X VALUE 'N'. 77 FLD0479A PIC S9(09)V9(06) COMP-3 - VALUE +413502052.896697. + VALUE +413502052.896697. 77 FLD0479B PIC 9(06)V9(25) COMP-3 - VALUE 820524.8465168897276100778981344. + VALUE 820524.8465168897276100778981344. 77 FLD0479E PIC X VALUE 'N'. 77 FLD0480A PIC S9(06)V9(01) COMP-3 - VALUE +203017.8. + VALUE +203017.8. 77 FLD0480B PIC 9(08)V9(20) COMP-6 - VALUE 74798417.21657910502685240317. + VALUE 74798417.21657910502685240317. 77 FLD0480E PIC X VALUE 'N'. 77 FLD0481A PIC 9(05) COMP-6 - VALUE 15658. + VALUE 15658. 77 FLD0481B PIC 9(01)V9(36) COMP-3 - VALUE 9.907459007614364265847939350351225584. + VALUE 9.907459007614364265847939350351225584. 77 FLD0481E PIC X VALUE 'N'. 77 FLD0482A PIC 9(08)V9(18) COMP-6 - VALUE 70905037.950447225014727337. + VALUE 70905037.950447225014727337. 77 FLD0482B PIC S9(10)V9(08) COMP-3 - VALUE -4922020906.16106868. + VALUE -4922020906.16106868. 77 FLD0482E PIC X VALUE 'N'. 77 FLD0483A PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0483B PIC S9(09)V9(03) COMP-3 - VALUE +323420049.144. + VALUE +323420049.144. 77 FLD0483E PIC X VALUE 'N'. 77 FLD0484A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0484B PIC 9(09)V9(12) COMP-6 - VALUE 577123861.473882282524. + VALUE 577123861.473882282524. 77 FLD0484E PIC X VALUE 'N'. 77 FLD0485A PIC 9(07)V9(02) COMP-6 - VALUE 2567572.97. + VALUE 2567572.97. 77 FLD0485B PIC 9(05)V9(01) COMP-6 - VALUE 16688.0. + VALUE 16688.0. 77 FLD0485E PIC X VALUE 'N'. 77 FLD0486A PIC 9(05) COMP-6 - VALUE 13937. + VALUE 13937. 77 FLD0486B PIC 9(10)V9(07) COMP-6 - VALUE 4583814690.4965959. + VALUE 4583814690.4965959. 77 FLD0486E PIC X VALUE 'N'. 77 FLD0487A PIC 9(06)V9(01) COMP-6 - VALUE 209384.2. + VALUE 209384.2. 77 FLD0487B PIC 9(08)V9(18) COMP-3 - VALUE 70207035.549040885946681100. + VALUE 70207035.549040885946681100. 77 FLD0487E PIC X VALUE 'N'. 77 FLD0488A PIC S9(10)V9(07) COMP-3 - VALUE -4519198906.7966076. + VALUE -4519198906.7966076. 77 FLD0488B PIC 9(09)V9(16) COMP-6 - VALUE 669660091.3134611587906874. + VALUE 669660091.3134611587906874. 77 FLD0488E PIC X VALUE 'N'. 77 FLD0489A PIC S9(05)V9(01) COMP-3 - VALUE -17360.6. + VALUE -17360.6. 77 FLD0489B PIC 9(01)V9(36) COMP-6 - VALUE 9.950567826331271348294649214949458837. + VALUE 9.950567826331271348294649214949458837. 77 FLD0489E PIC X VALUE 'N'. 77 FLD0490A PIC 9(10)V9(10) COMP-6 - VALUE 5352566580.2623056954. + VALUE 5352566580.2623056954. 77 FLD0490B PIC 9(08)V9(02) COMP-6 - VALUE 28596817.06. + VALUE 28596817.06. 77 FLD0490E PIC X VALUE 'N'. 77 FLD0491A PIC 9(03)V9(31) COMP-6 - VALUE 918.2459205467069507378141679510008. + VALUE 918.2459205467069507378141679510008. 77 FLD0491B PIC 9(09)V9(16) COMP-3 - VALUE 661285516.5476814178759923. + VALUE 661285516.5476814178759923. 77 FLD0491E PIC X VALUE 'N'. 77 FLD0492A PIC 9(06)V9(25) COMP-6 - VALUE 819266.4570447540928199714471702. + VALUE 819266.4570447540928199714471702. 77 FLD0492B PIC S9(09)V9(04) COMP-3 - VALUE +343135449.1145. + VALUE +343135449.1145. 77 FLD0492E PIC X VALUE 'N'. 77 FLD0493A PIC S9(05)V9(01) COMP-3 - VALUE -18038.5. + VALUE -18038.5. 77 FLD0493B PIC 9(06)V9(24) COMP-6 - VALUE 808734.959278862186593528349476. + VALUE 808734.959278862186593528349476. 77 FLD0493E PIC X VALUE 'N'. 77 FLD0494A PIC 9(05)V9(28) COMP-6 - VALUE 87574.5417791477964719604187848744. + VALUE 87574.5417791477964719604187848744. 77 FLD0494B PIC 9(10)V9(09) COMP-3 - VALUE 5133082903.157394349. + VALUE 5133082903.157394349. 77 FLD0494E PIC X VALUE 'N'. 77 FLD0495A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0495B PIC 9(09)V9(15) COMP-6 - VALUE 646882578.915106698502768. + VALUE 646882578.915106698502768. 77 FLD0495E PIC X VALUE 'N'. 77 FLD0496A PIC 9(06)V9(25) COMP-6 - VALUE 816763.6415427422802437718019064. + VALUE 816763.6415427422802437718019064. 77 FLD0496B PIC S9(04) COMP-3 - VALUE +1240. + VALUE +1240. 77 FLD0496E PIC X VALUE 'N'. 77 FLD0497A PIC 9(06)V9(25) COMP-6 - VALUE 836230.6435874340415637107071233. + VALUE 836230.6435874340415637107071233. 77 FLD0497B PIC 9(09)V9(16) COMP-6 - VALUE 665491997.9684780217965567. + VALUE 665491997.9684780217965567. 77 FLD0497E PIC X VALUE 'N'. 77 FLD0498A PIC 9(10)V9(08) COMP-6 - VALUE 4792455293.49441590. + VALUE 4792455293.49441590. 77 FLD0498B PIC 9(06)V9(01) COMP-6 - VALUE 189449.4. + VALUE 189449.4. 77 FLD0498E PIC X VALUE 'N'. 77 FLD0499A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0499B PIC 9(09)V9(15) COMP-3 - VALUE 634131211.402607308791345. + VALUE 634131211.402607308791345. 77 FLD0499E PIC X VALUE 'N'. * RESULTS-AREA. @@ -20166,3003 +20166,3003 @@ AT_DATA([prog2.cob], [ WORKING-STORAGE SECTION. 77 FLD0500A PIC S9(10)V9(08) COMP-3 - VALUE -4830218621.81680639. + VALUE -4830218621.81680639. 77 FLD0500B PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0500E PIC X VALUE 'N'. 77 FLD0501A PIC 9(09)V9(15) COMP-3 - VALUE 652910855.370784748430423. + VALUE 652910855.370784748430423. 77 FLD0501B PIC 9(09)V9(14) COMP-6 - VALUE 628093348.73677369337485. + VALUE 628093348.73677369337485. 77 FLD0501E PIC X VALUE 'N'. 77 FLD0502A PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0502B PIC 9(07)V9(22) COMP-6 - VALUE 7893241.6286150020034995122841. + VALUE 7893241.6286150020034995122841. 77 FLD0502E PIC X VALUE 'N'. 77 FLD0503A PIC 9(10)V9(11) COMP-6 - VALUE 5662523582.77427925159. + VALUE 5662523582.77427925159. 77 FLD0503B PIC 9(04)V9(29) COMP-3 - VALUE 8834.70722999726620905391882843105. + VALUE 8834.70722999726620905391882843105. 77 FLD0503E PIC X VALUE 'N'. 77 FLD0504A PIC S9(08)V9(02) COMP-3 - VALUE -28360864.01. + VALUE -28360864.01. 77 FLD0504B PIC 9(10)V9(09) COMP-3 - VALUE 5000570062.577901486. + VALUE 5000570062.577901486. 77 FLD0504E PIC X VALUE 'N'. 77 FLD0505A PIC 9(04)V9(30) COMP-3 - VALUE 9110.332843503369248949752545740921. + VALUE 9110.332843503369248949752545740921. 77 FLD0505B PIC 9(10)V9(10) COMP-3 - VALUE 5407979633.7587637822. + VALUE 5407979633.7587637822. 77 FLD0505E PIC X VALUE 'N'. 77 FLD0506A PIC 9(10)V9(11) COMP-3 - VALUE 5546838940.35467472960. + VALUE 5546838940.35467472960. 77 FLD0506B PIC S9(07)V9(01) COMP-3 - VALUE +2340559.3. + VALUE +2340559.3. 77 FLD0506E PIC X VALUE 'N'. 77 FLD0507A PIC 9(08)V9(18) COMP-6 - VALUE 70736506.262277043521891073. + VALUE 70736506.262277043521891073. 77 FLD0507B PIC 9(10)V9(09) COMP-3 - VALUE 5205430142.820132166. + VALUE 5205430142.820132166. 77 FLD0507E PIC X VALUE 'N'. 77 FLD0508A PIC 9(09)V9(16) COMP-6 - VALUE 658855971.9467786957025623. + VALUE 658855971.9467786957025623. 77 FLD0508B PIC S9(09)V9(07) COMP-3 - VALUE +444447149.8618901. + VALUE +444447149.8618901. 77 FLD0508E PIC X VALUE 'N'. 77 FLD0509A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0509B PIC 9(10)V9(08) COMP-6 - VALUE 4889373386.26299289. + VALUE 4889373386.26299289. 77 FLD0509E PIC X VALUE 'N'. 77 FLD0510A PIC 9(04) COMP-6 - VALUE 1295. + VALUE 1295. 77 FLD0510B PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0510E PIC X VALUE 'N'. 77 FLD0511A PIC 9(06)V9(25) COMP-6 - VALUE 815863.7850571600624860479911149. + VALUE 815863.7850571600624860479911149. 77 FLD0511B PIC 9(10)V9(09) COMP-6 - VALUE 5256921146.480894035. + VALUE 5256921146.480894035. 77 FLD0511E PIC X VALUE 'N'. 77 FLD0512A PIC 9(05) COMP-6 - VALUE 13945. + VALUE 13945. 77 FLD0512B PIC 9(01)V9(36) COMP-3 - VALUE 9.908282031313487836499120930966455489. + VALUE 9.908282031313487836499120930966455489. 77 FLD0512E PIC X VALUE 'N'. 77 FLD0513A PIC 9(09)V9(15) COMP-3 - VALUE 653773832.246937192103075. + VALUE 653773832.246937192103075. 77 FLD0513B PIC 9(08)V9(20) COMP-3 - VALUE 74124087.47450585089211472222. + VALUE 74124087.47450585089211472222. 77 FLD0513E PIC X VALUE 'N'. 77 FLD0514A PIC 9(08)V9(18) COMP-3 - VALUE 70109343.593910689040882289. + VALUE 70109343.593910689040882289. 77 FLD0514B PIC 9(09)V9(04) COMP-6 - VALUE 348891343.2762. + VALUE 348891343.2762. 77 FLD0514E PIC X VALUE 'N'. 77 FLD0515A PIC 9(09)V9(16) COMP-6 - VALUE 658210435.7548693718271692. + VALUE 658210435.7548693718271692. 77 FLD0515B PIC 9(03)V9(32) COMP-3 - VALUE 941.14524908048735607479784448514692. + VALUE 941.14524908048735607479784448514692. 77 FLD0515E PIC X VALUE 'N'. 77 FLD0516A PIC 9(01)V9(36) COMP-6 - VALUE 9.884403805479323734672902901365887373. + VALUE 9.884403805479323734672902901365887373. 77 FLD0516B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0516E PIC X VALUE 'N'. 77 FLD0517A PIC 9(10)V9(07) COMP-6 - VALUE 4497620438.0577999. + VALUE 4497620438.0577999. 77 FLD0517B PIC S9(10)V9(08) COMP-3 - VALUE -4811021778.48490686. + VALUE -4811021778.48490686. 77 FLD0517E PIC X VALUE 'N'. 77 FLD0518A PIC 9(09)V9(16) COMP-3 - VALUE 664556684.1155496895510168. + VALUE 664556684.1155496895510168. 77 FLD0518B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0518E PIC X VALUE 'N'. 77 FLD0519A PIC 9(09)V9(14) COMP-3 - VALUE 630097608.79846921088898. + VALUE 630097608.79846921088898. 77 FLD0519B PIC 9(08)V9(17) COMP-3 - VALUE 68412596.06583623975595287. + VALUE 68412596.06583623975595287. 77 FLD0519E PIC X VALUE 'N'. 77 FLD0520A PIC 9(04)V9(30) COMP-6 - VALUE 9052.329380117529744609328190563246. + VALUE 9052.329380117529744609328190563246. 77 FLD0520B PIC 9(09)V9(14) COMP-3 - VALUE 610604586.65389061305717. + VALUE 610604586.65389061305717. 77 FLD0520E PIC X VALUE 'N'. 77 FLD0521A PIC 9(05) COMP-6 - VALUE 13956. + VALUE 13956. 77 FLD0521B PIC S9(05) COMP-3 - VALUE +14099. + VALUE +14099. 77 FLD0521E PIC X VALUE 'N'. 77 FLD0522A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0522B PIC S9(09)V9(04) COMP-3 - VALUE -351067614.4076. + VALUE -351067614.4076. 77 FLD0522E PIC X VALUE 'N'. 77 FLD0523A PIC 9(08)V9(18) COMP-6 - VALUE 70807149.512639711019801325. + VALUE 70807149.512639711019801325. 77 FLD0523B PIC S9(08)V9(02) COMP-3 - VALUE -28004002.44. + VALUE -28004002.44. 77 FLD0523E PIC X VALUE 'N'. 77 FLD0524A PIC S9(06)V9(01) COMP-3 - VALUE +201515.3. + VALUE +201515.3. 77 FLD0524B PIC 9(10)V9(09) COMP-3 - VALUE 5046210377.505329081. + VALUE 5046210377.505329081. 77 FLD0524E PIC X VALUE 'N'. 77 FLD0525A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0525B PIC 9(04)V9(29) COMP-6 - VALUE 8873.36156634660588871099662355845. + VALUE 8873.36156634660588871099662355845. 77 FLD0525E PIC X VALUE 'N'. 77 FLD0526A PIC 9(07)V9(22) COMP-3 - VALUE 7812896.0072540409864672028561. + VALUE 7812896.0072540409864672028561. 77 FLD0526B PIC 9(07)V9(02) COMP-6 - VALUE 2461308.93. + VALUE 2461308.93. 77 FLD0526E PIC X VALUE 'N'. 77 FLD0527A PIC 9(10)V9(12) COMP-6 - VALUE 5853770318.384275972434. + VALUE 5853770318.384275972434. 77 FLD0527B PIC 9(10)V9(09) COMP-3 - VALUE 5140096263.891610339. + VALUE 5140096263.891610339. 77 FLD0527E PIC X VALUE 'N'. 77 FLD0528A PIC 9(10)V9(08) COMP-6 - VALUE 4856797949.89136714. + VALUE 4856797949.89136714. 77 FLD0528B PIC S9(04) COMP-3 - VALUE +1207. + VALUE +1207. 77 FLD0528E PIC X VALUE 'N'. 77 FLD0529A PIC 9(10)V9(10) COMP-6 - VALUE 5298570971.4885653731. + VALUE 5298570971.4885653731. 77 FLD0529B PIC S9(10)V9(07) COMP-3 - VALUE -4613280273.7797717. + VALUE -4613280273.7797717. 77 FLD0529E PIC X VALUE 'N'. 77 FLD0530A PIC 9(05)V9(28) COMP-6 - VALUE 87536.5484141958027919372398173436. + VALUE 87536.5484141958027919372398173436. 77 FLD0530B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0530E PIC X VALUE 'N'. 77 FLD0531A PIC 9(09)V9(03) COMP-6 - VALUE 317487049.751. + VALUE 317487049.751. 77 FLD0531B PIC S9(07)V9(01) COMP-3 - VALUE +2322772.2. + VALUE +2322772.2. 77 FLD0531E PIC X VALUE 'N'. 77 FLD0532A PIC 9(09)V9(15) COMP-3 - VALUE 653250626.044252880042506. + VALUE 653250626.044252880042506. 77 FLD0532B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0532E PIC X VALUE 'N'. 77 FLD0533A PIC 9(07)V9(02) COMP-6 - VALUE 2559928.55. + VALUE 2559928.55. 77 FLD0533B PIC 9(03) COMP-6 - VALUE 086. + VALUE 086. 77 FLD0533E PIC X VALUE 'N'. 77 FLD0534A PIC 9(09)V9(06) COMP-6 - VALUE 408226706.354108. + VALUE 408226706.354108. 77 FLD0534B PIC 9(10)V9(09) COMP-3 - VALUE 5204512753.981520578. + VALUE 5204512753.981520578. 77 FLD0534E PIC X VALUE 'N'. 77 FLD0535A PIC 9(10)V9(11) COMP-6 - VALUE 5556101599.27967472981. + VALUE 5556101599.27967472981. 77 FLD0535B PIC 9(05)V9(27) COMP-3 - VALUE 85335.564071638048133650045201648. + VALUE 85335.564071638048133650045201648. 77 FLD0535E PIC X VALUE 'N'. 77 FLD0536A PIC S9(08)V9(03) COMP-3 - VALUE -29061270.882. + VALUE -29061270.882. 77 FLD0536B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0536E PIC X VALUE 'N'. 77 FLD0537A PIC 9(08)V9(03) COMP-6 - VALUE 29943354.242. + VALUE 29943354.242. 77 FLD0537B PIC 9(04) COMP-6 - VALUE 1199. + VALUE 1199. 77 FLD0537E PIC X VALUE 'N'. 77 FLD0538A PIC 9(03)V9(32) COMP-3 - VALUE 922.29859860523566439383102988358587. + VALUE 922.29859860523566439383102988358587. 77 FLD0538B PIC 9(04)V9(29) COMP-6 - VALUE 8861.76614320458799767266100388951. + VALUE 8861.76614320458799767266100388951. 77 FLD0538E PIC X VALUE 'N'. 77 FLD0539A PIC 9(05)V9(27) COMP-6 - VALUE 85666.721070025741990860979058197. + VALUE 85666.721070025741990860979058197. 77 FLD0539B PIC 9(05)V9(27) COMP-3 - VALUE 84375.338828007329095015620623598. + VALUE 84375.338828007329095015620623598. 77 FLD0539E PIC X VALUE 'N'. 77 FLD0540A PIC S9(04) COMP-3 - VALUE +1227. + VALUE +1227. 77 FLD0540B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0540E PIC X VALUE 'N'. 77 FLD0541A PIC 9(09)V9(05) COMP-6 - VALUE 387240740.80744. + VALUE 387240740.80744. 77 FLD0541B PIC 9(07)V9(22) COMP-6 - VALUE 7676023.3773886621388982121061. + VALUE 7676023.3773886621388982121061. 77 FLD0541E PIC X VALUE 'N'. 77 FLD0542A PIC 9(06)V9(25) COMP-3 - VALUE 831706.5789473143677668076634290. + VALUE 831706.5789473143677668076634290. 77 FLD0542B PIC 9(10)V9(11) COMP-3 - VALUE 5532908670.51828949563. + VALUE 5532908670.51828949563. 77 FLD0542E PIC X VALUE 'N'. 77 FLD0543A PIC 9(06)V9(01) COMP-6 - VALUE 188772.9. + VALUE 188772.9. 77 FLD0543B PIC 9(07)V9(02) COMP-6 - VALUE 2581387.79. + VALUE 2581387.79. 77 FLD0543E PIC X VALUE 'N'. 77 FLD0544A PIC 9(10)V9(09) COMP-3 - VALUE 5241766194.366106468. + VALUE 5241766194.366106468. 77 FLD0544B PIC 9(08)V9(02) COMP-6 - VALUE 27953166.13. + VALUE 27953166.13. 77 FLD0544E PIC X VALUE 'N'. 77 FLD0545A PIC 9(09)V9(14) COMP-3 - VALUE 622229285.46684597161942. + VALUE 622229285.46684597161942. 77 FLD0545B PIC 9(08)V9(19) COMP-3 - VALUE 72256359.1476747091313370674. + VALUE 72256359.1476747091313370674. 77 FLD0545E PIC X VALUE 'N'. 77 FLD0546A PIC 9(06)V9(25) COMP-3 - VALUE 820358.8689269564193651262939965. + VALUE 820358.8689269564193651262939965. 77 FLD0546B PIC 9(09)V9(14) COMP-3 - VALUE 610779194.05314462508727. + VALUE 610779194.05314462508727. 77 FLD0546E PIC X VALUE 'N'. 77 FLD0547A PIC 9(06)V9(25) COMP-3 - VALUE 821925.7242001770658035297856258. + VALUE 821925.7242001770658035297856258. 77 FLD0547B PIC S9(09)V9(04) COMP-3 - VALUE -360691511.9302. + VALUE -360691511.9302. 77 FLD0547E PIC X VALUE 'N'. 77 FLD0548A PIC 9(07)V9(23) COMP-6 - VALUE 7955385.78445739497091437897324. + VALUE 7955385.78445739497091437897324. 77 FLD0548B PIC 9(09)V9(17) COMP-6 - VALUE 689149957.90453892343663255. + VALUE 689149957.90453892343663255. 77 FLD0548E PIC X VALUE 'N'. 77 FLD0549A PIC 9(07)V9(01) COMP-6 - VALUE 2367856.7. + VALUE 2367856.7. 77 FLD0549B PIC 9(09)V9(06) COMP-6 - VALUE 415548355.051954. + VALUE 415548355.051954. 77 FLD0549E PIC X VALUE 'N'. 77 FLD0550A PIC 9(09)V9(15) COMP-6 - VALUE 656651700.520587522369453. + VALUE 656651700.520587522369453. 77 FLD0550B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0550E PIC X VALUE 'N'. 77 FLD0551A PIC 9(07)V9(02) COMP-6 - VALUE 2589973.73. + VALUE 2589973.73. 77 FLD0551B PIC 9(09)V9(15) COMP-3 - VALUE 652529070.867454263904505. + VALUE 652529070.867454263904505. 77 FLD0551E PIC X VALUE 'N'. 77 FLD0552A PIC 9(10)V9(07) COMP-6 - VALUE 4579590761.6898545. + VALUE 4579590761.6898545. 77 FLD0552B PIC 9(05) COMP-6 - VALUE 14745. + VALUE 14745. 77 FLD0552E PIC X VALUE 'N'. 77 FLD0553A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0553B PIC S9(09)V9(04) COMP-3 - VALUE -360871096.9090. + VALUE -360871096.9090. 77 FLD0553E PIC X VALUE 'N'. 77 FLD0554A PIC 9(07)V9(02) COMP-6 - VALUE 2568219.15. + VALUE 2568219.15. 77 FLD0554B PIC 9(03)V9(32) COMP-3 - VALUE 932.99236247731820448336748086148872. + VALUE 932.99236247731820448336748086148872. 77 FLD0554E PIC X VALUE 'N'. 77 FLD0555A PIC 9(09)V9(05) COMP-6 - VALUE 388184875.66560. + VALUE 388184875.66560. 77 FLD0555B PIC 9(10)V9(09) COMP-3 - VALUE 5217501857.988002811. + VALUE 5217501857.988002811. 77 FLD0555E PIC X VALUE 'N'. 77 FLD0556A PIC 9(04)V9(30) COMP-6 - VALUE 8983.209260005348140154524116951506. + VALUE 8983.209260005348140154524116951506. 77 FLD0556B PIC 9(10)V9(11) COMP-6 - VALUE 5685562200.43860527368. + VALUE 5685562200.43860527368. 77 FLD0556E PIC X VALUE 'N'. 77 FLD0557A PIC 9(09)V9(15) COMP-3 - VALUE 650877011.601572519339242. + VALUE 650877011.601572519339242. 77 FLD0557B PIC S9(05) COMP-3 - VALUE +13329. + VALUE +13329. 77 FLD0557E PIC X VALUE 'N'. 77 FLD0558A PIC 9(09)V9(13) COMP-6 - VALUE 595830550.3266489999703. + VALUE 595830550.3266489999703. 77 FLD0558B PIC 9(06)V9(01) COMP-6 - VALUE 209604.9. + VALUE 209604.9. 77 FLD0558E PIC X VALUE 'N'. 77 FLD0559A PIC 9(10)V9(09) COMP-3 - VALUE 5242032248.235551916. + VALUE 5242032248.235551916. 77 FLD0559B PIC 9(07)V9(22) COMP-6 - VALUE 7882034.1791675385678672682843. + VALUE 7882034.1791675385678672682843. 77 FLD0559E PIC X VALUE 'N'. 77 FLD0560A PIC S9(09)V9(06) COMP-3 - VALUE +403640603.914505. + VALUE +403640603.914505. 77 FLD0560B PIC 9(09)V9(07) COMP-6 - VALUE 438743115.5223073. + VALUE 438743115.5223073. 77 FLD0560E PIC X VALUE 'N'. 77 FLD0561A PIC 9(05) COMP-6 - VALUE 14931. + VALUE 14931. 77 FLD0561B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0561E PIC X VALUE 'N'. 77 FLD0562A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0562B PIC 9(02)V9(34) COMP-6 - VALUE 95.8208334412512741096179524902254343. + VALUE 95.8208334412512741096179524902254343. 77 FLD0562E PIC X VALUE 'N'. 77 FLD0563A PIC 9(10)V9(09) COMP-3 - VALUE 5040974749.501065943. + VALUE 5040974749.501065943. 77 FLD0563B PIC S9(08)V9(03) COMP-3 - VALUE +31252590.212. + VALUE +31252590.212. 77 FLD0563E PIC X VALUE 'N'. 77 FLD0564A PIC 9(09)V9(16) COMP-6 - VALUE 666123633.8391588462926051. + VALUE 666123633.8391588462926051. 77 FLD0564B PIC 9(03)V9(32) COMP-6 - VALUE 925.73034981753798966508384182816371. + VALUE 925.73034981753798966508384182816371. 77 FLD0564E PIC X VALUE 'N'. 77 FLD0565A PIC 9(04)V9(30) COMP-6 - VALUE 8999.472704059103822515908177592791. + VALUE 8999.472704059103822515908177592791. 77 FLD0565B PIC 9(06)V9(01) COMP-6 - VALUE 209088.7. + VALUE 209088.7. 77 FLD0565E PIC X VALUE 'N'. 77 FLD0566A PIC 9(10)V9(10) COMP-6 - VALUE 5451645287.6426646501. + VALUE 5451645287.6426646501. 77 FLD0566B PIC 9(09)V9(03) COMP-6 - VALUE 317445075.017. + VALUE 317445075.017. 77 FLD0566E PIC X VALUE 'N'. 77 FLD0567A PIC S9(07)V9(02) COMP-3 - VALUE -2621767.34. + VALUE -2621767.34. 77 FLD0567B PIC 9(04)V9(29) COMP-6 - VALUE 8789.70351596639054569948257267242. + VALUE 8789.70351596639054569948257267242. 77 FLD0567E PIC X VALUE 'N'. 77 FLD0568A PIC S9(08)V9(02) COMP-3 - VALUE -28119737.76. + VALUE -28119737.76. 77 FLD0568B PIC 9(09)V9(14) COMP-6 - VALUE 616894259.97583058336459. + VALUE 616894259.97583058336459. 77 FLD0568E PIC X VALUE 'N'. 77 FLD0569A PIC 9(10)V9(10) COMP-3 - VALUE 5301098669.5201622875. + VALUE 5301098669.5201622875. 77 FLD0569B PIC S9(09)V9(06) COMP-3 - VALUE +421009403.834593. + VALUE +421009403.834593. 77 FLD0569E PIC X VALUE 'N'. 77 FLD0570A PIC 9(05) COMP-6 - VALUE 13775. + VALUE 13775. 77 FLD0570B PIC 9(08)V9(19) COMP-3 - VALUE 72019797.5322646066764775696. + VALUE 72019797.5322646066764775696. 77 FLD0570E PIC X VALUE 'N'. 77 FLD0571A PIC 9(10)V9(08) COMP-6 - VALUE 4995844884.12155025. + VALUE 4995844884.12155025. 77 FLD0571B PIC 9(09)V9(16) COMP-6 - VALUE 666328034.4715885039619251. + VALUE 666328034.4715885039619251. 77 FLD0571E PIC X VALUE 'N'. 77 FLD0572A PIC 9(06)V9(01) COMP-6 - VALUE 199648.9. + VALUE 199648.9. 77 FLD0572B PIC S9(06) COMP-3 - VALUE -163410. + VALUE -163410. 77 FLD0572E PIC X VALUE 'N'. 77 FLD0573A PIC 9(10)V9(11) COMP-6 - VALUE 5579051586.61930800079. + VALUE 5579051586.61930800079. 77 FLD0573B PIC 9(01)V9(36) COMP-3 - VALUE 9.908582147727897915245875992695800960. + VALUE 9.908582147727897915245875992695800960. 77 FLD0573E PIC X VALUE 'N'. 77 FLD0574A PIC 9(10)V9(09) COMP-3 - VALUE 5021035726.447702352. + VALUE 5021035726.447702352. 77 FLD0574B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0574E PIC X VALUE 'N'. 77 FLD0575A PIC 9(02)V9(34) COMP-3 - VALUE 96.0495649054037059499933093320578336. + VALUE 96.0495649054037059499933093320578336. 77 FLD0575B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0575E PIC X VALUE 'N'. 77 FLD0576A PIC 9(09)V9(11) COMP-3 - VALUE 551289746.02273483895. + VALUE 551289746.02273483895. 77 FLD0576B PIC 9(10)V9(10) COMP-6 - VALUE 5275129807.0789420791. + VALUE 5275129807.0789420791. 77 FLD0576E PIC X VALUE 'N'. 77 FLD0577A PIC S9(10)V9(06) COMP-3 - VALUE +4245433083.607936. + VALUE +4245433083.607936. 77 FLD0577B PIC 9(02)V9(34) COMP-6 - VALUE 96.8922152301445405164770363626303151. + VALUE 96.8922152301445405164770363626303151. 77 FLD0577E PIC X VALUE 'N'. 77 FLD0578A PIC S9(07)V9(02) COMP-3 - VALUE +2444375.29. + VALUE +2444375.29. 77 FLD0578B PIC 9(05)V9(01) COMP-6 - VALUE 16994.3. + VALUE 16994.3. 77 FLD0578E PIC X VALUE 'N'. 77 FLD0579A PIC 9(09)V9(17) COMP-6 - VALUE 688719854.55414208576740975. + VALUE 688719854.55414208576740975. 77 FLD0579B PIC 9(10)V9(09) COMP-3 - VALUE 5219660742.233359629. + VALUE 5219660742.233359629. 77 FLD0579E PIC X VALUE 'N'. 77 FLD0580A PIC S9(08)V9(04) COMP-3 - VALUE +33455460.0291. + VALUE +33455460.0291. 77 FLD0580B PIC 9(02)V9(34) COMP-3 - VALUE 95.3840741032953354228141051862621679. + VALUE 95.3840741032953354228141051862621679. 77 FLD0580E PIC X VALUE 'N'. 77 FLD0581A PIC S9(08)V9(02) COMP-3 - VALUE -28271118.43. + VALUE -28271118.43. 77 FLD0581B PIC 9(09)V9(15) COMP-6 - VALUE 638334092.073881143036828. + VALUE 638334092.073881143036828. 77 FLD0581E PIC X VALUE 'N'. 77 FLD0582A PIC 9(02)V9(34) COMP-3 - VALUE 95.0957041455027018983514608407858759. + VALUE 95.0957041455027018983514608407858759. 77 FLD0582B PIC 9(09)V9(14) COMP-6 - VALUE 628562844.11633944753106. + VALUE 628562844.11633944753106. 77 FLD0582E PIC X VALUE 'N'. 77 FLD0583A PIC 9(04)V9(30) COMP-3 - VALUE 9004.015213488590907431330379040446. + VALUE 9004.015213488590907431330379040446. 77 FLD0583B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0583E PIC X VALUE 'N'. 77 FLD0584A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0584B PIC 9(02)V9(34) COMP-6 - VALUE 95.5867594557756605766485336062032729. + VALUE 95.5867594557756605766485336062032729. 77 FLD0584E PIC X VALUE 'N'. 77 FLD0585A PIC S9(10)V9(06) COMP-3 - VALUE +4326355872.600766. + VALUE +4326355872.600766. 77 FLD0585B PIC 9(03)V9(32) COMP-6 - VALUE 926.67442032915370297985191427869722. + VALUE 926.67442032915370297985191427869722. 77 FLD0585E PIC X VALUE 'N'. 77 FLD0586A PIC 9(05)V9(27) COMP-6 - VALUE 85722.001340062370378092282408033. + VALUE 85722.001340062370378092282408033. 77 FLD0586B PIC 9(07)V9(22) COMP-6 - VALUE 7865140.9974229868904416207442. + VALUE 7865140.9974229868904416207442. 77 FLD0586E PIC X VALUE 'N'. 77 FLD0587A PIC S9(09)V9(05) COMP-3 - VALUE -381433349.51035. + VALUE -381433349.51035. 77 FLD0587B PIC S9(04) COMP-3 - VALUE +1221. + VALUE +1221. 77 FLD0587E PIC X VALUE 'N'. 77 FLD0588A PIC 9(10)V9(09) COMP-6 - VALUE 5181115773.570048599. + VALUE 5181115773.570048599. 77 FLD0588B PIC 9(04)V9(30) COMP-3 - VALUE 9002.074772136551272794235956098418. + VALUE 9002.074772136551272794235956098418. 77 FLD0588E PIC X VALUE 'N'. 77 FLD0589A PIC S9(09)V9(06) COMP-3 - VALUE +401102073.275349. + VALUE +401102073.275349. 77 FLD0589B PIC S9(04) COMP-3 - VALUE +1219. + VALUE +1219. 77 FLD0589E PIC X VALUE 'N'. 77 FLD0590A PIC 9(08)V9(18) COMP-3 - VALUE 70309799.830174168899787900. + VALUE 70309799.830174168899787900. 77 FLD0590B PIC S9(06)V9(01) COMP-3 - VALUE +203587.9. + VALUE +203587.9. 77 FLD0590E PIC X VALUE 'N'. 77 FLD0591A PIC 9(09)V9(12) COMP-6 - VALUE 576933255.371857245386. + VALUE 576933255.371857245386. 77 FLD0591B PIC 9(10)V9(09) COMP-3 - VALUE 5123728162.782491546. + VALUE 5123728162.782491546. 77 FLD0591E PIC X VALUE 'N'. 77 FLD0592A PIC 9(09)V9(15) COMP-3 - VALUE 644514829.253344467829833. + VALUE 644514829.253344467829833. 77 FLD0592B PIC S9(08)V9(03) COMP-3 - VALUE -29392268.940. + VALUE -29392268.940. 77 FLD0592E PIC X VALUE 'N'. 77 FLD0593A PIC 9(08)V9(19) COMP-3 - VALUE 72063942.4137167527995018190. + VALUE 72063942.4137167527995018190. 77 FLD0593B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0593E PIC X VALUE 'N'. 77 FLD0594A PIC S9(08)V9(02) COMP-3 - VALUE -27405154.91. + VALUE -27405154.91. 77 FLD0594B PIC 9(07)V9(22) COMP-3 - VALUE 7738893.5043103479483050932685. + VALUE 7738893.5043103479483050932685. 77 FLD0594E PIC X VALUE 'N'. 77 FLD0595A PIC 9(08)V9(18) COMP-3 - VALUE 70489201.749069052560514592. + VALUE 70489201.749069052560514592. 77 FLD0595B PIC 9(06)V9(25) COMP-3 - VALUE 830535.6563477365172687427730124. + VALUE 830535.6563477365172687427730124. 77 FLD0595E PIC X VALUE 'N'. 77 FLD0596A PIC 9(04)V9(30) COMP-6 - VALUE 9050.358418523600789740157779306173. + VALUE 9050.358418523600789740157779306173. 77 FLD0596B PIC 9(09)V9(15) COMP-6 - VALUE 657865013.656926733709440. + VALUE 657865013.656926733709440. 77 FLD0596E PIC X VALUE 'N'. 77 FLD0597A PIC S9(10)V9(07) COMP-3 - VALUE -4611492066.1642122. + VALUE -4611492066.1642122. 77 FLD0597B PIC 9(06)V9(25) COMP-6 - VALUE 816255.9991782142310157155407068. + VALUE 816255.9991782142310157155407068. 77 FLD0597E PIC X VALUE 'N'. 77 FLD0598A PIC 9(10)V9(12) COMP-6 - VALUE 5888650589.753158248740. + VALUE 5888650589.753158248740. 77 FLD0598B PIC S9(09)V9(06) COMP-3 - VALUE +420172956.568651. + VALUE +420172956.568651. 77 FLD0598E PIC X VALUE 'N'. 77 FLD0599A PIC 9(05)V9(27) COMP-6 - VALUE 85689.140306102984379066356268594. + VALUE 85689.140306102984379066356268594. 77 FLD0599B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0599E PIC X VALUE 'N'. 77 FLD0600A PIC S9(09)V9(06) COMP-3 - VALUE +401694362.049109. + VALUE +401694362.049109. 77 FLD0600B PIC 9(06)V9(24) COMP-3 - VALUE 804504.375985138686644404515391. + VALUE 804504.375985138686644404515391. 77 FLD0600E PIC X VALUE 'N'. 77 FLD0601A PIC 9(01)V9(36) COMP-6 - VALUE 9.763793413809590537866256454435642808. + VALUE 9.763793413809590537866256454435642808. 77 FLD0601B PIC 9(08)V9(03) COMP-6 - VALUE 29749803.347. + VALUE 29749803.347. 77 FLD0601E PIC X VALUE 'N'. 77 FLD0602A PIC 9(09)V9(17) COMP-6 - VALUE 685435627.00727922454291274. + VALUE 685435627.00727922454291274. 77 FLD0602B PIC 9(07)V9(02) COMP-6 - VALUE 2399467.62. + VALUE 2399467.62. 77 FLD0602E PIC X VALUE 'N'. 77 FLD0603A PIC 9(09)V9(16) COMP-6 - VALUE 679265807.5584466770280300. + VALUE 679265807.5584466770280300. 77 FLD0603B PIC S9(05)V9(01) COMP-3 - VALUE -17089.6. + VALUE -17089.6. 77 FLD0603E PIC X VALUE 'N'. 77 FLD0604A PIC 9(08)V9(19) COMP-6 - VALUE 72862711.3591577502127449861. + VALUE 72862711.3591577502127449861. 77 FLD0604B PIC 9(10)V9(11) COMP-6 - VALUE 5587264166.34705347341. + VALUE 5587264166.34705347341. 77 FLD0604E PIC X VALUE 'N'. 77 FLD0605A PIC 9(04) COMP-6 - VALUE 1194. + VALUE 1194. 77 FLD0605B PIC 9(10)V9(06) COMP-6 - VALUE 4256956703.307752. + VALUE 4256956703.307752. 77 FLD0605E PIC X VALUE 'N'. 77 FLD0606A PIC 9(07)V9(23) COMP-6 - VALUE 7955557.56926823565144957228767. + VALUE 7955557.56926823565144957228767. 77 FLD0606B PIC S9(08)V9(04) COMP-3 - VALUE +33373395.9174. + VALUE +33373395.9174. 77 FLD0606E PIC X VALUE 'N'. 77 FLD0607A PIC 9(10)V9(08) COMP-6 - VALUE 4950511846.00309279. + VALUE 4950511846.00309279. 77 FLD0607B PIC 9(05) COMP-6 - VALUE 13935. + VALUE 13935. 77 FLD0607E PIC X VALUE 'N'. 77 FLD0608A PIC 9(09)V9(03) COMP-6 - VALUE 328182518.441. + VALUE 328182518.441. 77 FLD0608B PIC 9(02)V9(34) COMP-6 - VALUE 95.9183130416232931914066739409463480. + VALUE 95.9183130416232931914066739409463480. 77 FLD0608E PIC X VALUE 'N'. 77 FLD0609A PIC 9(08)V9(04) COMP-6 - VALUE 33948712.4475. + VALUE 33948712.4475. 77 FLD0609B PIC 9(10)V9(07) COMP-6 - VALUE 4478674210.4372267. + VALUE 4478674210.4372267. 77 FLD0609E PIC X VALUE 'N'. 77 FLD0610A PIC 9(06)V9(24) COMP-6 - VALUE 807988.537497822956190418608457. + VALUE 807988.537497822956190418608457. 77 FLD0610B PIC 9(08)V9(02) COMP-6 - VALUE 28672541.25. + VALUE 28672541.25. 77 FLD0610E PIC X VALUE 'N'. 77 FLD0611A PIC 9(07)V9(22) COMP-3 - VALUE 7747853.4043620861382350994972. + VALUE 7747853.4043620861382350994972. 77 FLD0611B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0611E PIC X VALUE 'N'. 77 FLD0612A PIC 9(10)V9(11) COMP-3 - VALUE 5644161799.14422944108. + VALUE 5644161799.14422944108. 77 FLD0612B PIC 9(07)V9(22) COMP-6 - VALUE 7874462.2890006543691754359315. + VALUE 7874462.2890006543691754359315. 77 FLD0612E PIC X VALUE 'N'. 77 FLD0613A PIC 9(05) COMP-6 - VALUE 15551. + VALUE 15551. 77 FLD0613B PIC S9(07)V9(01) COMP-3 - VALUE +2249276.6. + VALUE +2249276.6. 77 FLD0613E PIC X VALUE 'N'. 77 FLD0614A PIC 9(10)V9(09) COMP-3 - VALUE 5201647014.630440546. + VALUE 5201647014.630440546. 77 FLD0614B PIC 9(09)V9(13) COMP-6 - VALUE 596348860.2168276475623. + VALUE 596348860.2168276475623. 77 FLD0614E PIC X VALUE 'N'. 77 FLD0615A PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0615B PIC S9(07)V9(01) COMP-3 - VALUE +2334095.1. + VALUE +2334095.1. 77 FLD0615E PIC X VALUE 'N'. 77 FLD0616A PIC 9(07)V9(22) COMP-3 - VALUE 7639230.3574527464782306651613. + VALUE 7639230.3574527464782306651613. 77 FLD0616B PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0616E PIC X VALUE 'N'. 77 FLD0617A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0617B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0617E PIC X VALUE 'N'. 77 FLD0618A PIC 9(01)V9(36) COMP-3 - VALUE 9.817148549708982763206677191192284226. + VALUE 9.817148549708982763206677191192284226. 77 FLD0618B PIC 9(03) COMP-6 - VALUE 089. + VALUE 089. 77 FLD0618E PIC X VALUE 'N'. 77 FLD0619A PIC 9(06)V9(24) COMP-3 - VALUE 801850.998363624500875346257089. + VALUE 801850.998363624500875346257089. 77 FLD0619B PIC 9(10)V9(10) COMP-3 - VALUE 5342180526.7555677598. + VALUE 5342180526.7555677598. 77 FLD0619E PIC X VALUE 'N'. 77 FLD0620A PIC 9(08)V9(19) COMP-6 - VALUE 71717267.3810957062023874186. + VALUE 71717267.3810957062023874186. 77 FLD0620B PIC 9(09)V9(15) COMP-6 - VALUE 655677089.730182127702562. + VALUE 655677089.730182127702562. 77 FLD0620E PIC X VALUE 'N'. 77 FLD0621A PIC 9(04)V9(30) COMP-3 - VALUE 9035.013690395441443570234696380794. + VALUE 9035.013690395441443570234696380794. 77 FLD0621B PIC 9(08)V9(19) COMP-3 - VALUE 73424367.1686218957184166811. + VALUE 73424367.1686218957184166811. 77 FLD0621E PIC X VALUE 'N'. 77 FLD0622A PIC 9(09)V9(13) COMP-3 - VALUE 592420192.5737704321761. + VALUE 592420192.5737704321761. 77 FLD0622B PIC S9(09)V9(04) COMP-3 - VALUE -361821982.1111. + VALUE -361821982.1111. 77 FLD0622E PIC X VALUE 'N'. 77 FLD0623A PIC S9(03) COMP-3 - VALUE +104. + VALUE +104. 77 FLD0623B PIC 9(09)V9(15) COMP-3 - VALUE 641616818.896418195095066. + VALUE 641616818.896418195095066. 77 FLD0623E PIC X VALUE 'N'. 77 FLD0624A PIC S9(06) COMP-3 - VALUE -162056. + VALUE -162056. 77 FLD0624B PIC 9(10)V9(06) COMP-6 - VALUE 4356343039.582531. + VALUE 4356343039.582531. 77 FLD0624E PIC X VALUE 'N'. 77 FLD0625A PIC 9(04) COMP-6 - VALUE 1296. + VALUE 1296. 77 FLD0625B PIC 9(07)V9(22) COMP-3 - VALUE 7829547.5769811728739000500354. + VALUE 7829547.5769811728739000500354. 77 FLD0625E PIC X VALUE 'N'. 77 FLD0626A PIC 9(04)V9(29) COMP-3 - VALUE 8839.60373056715265072114107169909. + VALUE 8839.60373056715265072114107169909. 77 FLD0626B PIC S9(09)V9(05) COMP-3 - VALUE -374265939.71690. + VALUE -374265939.71690. 77 FLD0626E PIC X VALUE 'N'. 77 FLD0627A PIC 9(04) COMP-6 - VALUE 1093. + VALUE 1093. 77 FLD0627B PIC S9(07)V9(01) COMP-3 - VALUE +2323895.2. + VALUE +2323895.2. 77 FLD0627E PIC X VALUE 'N'. 77 FLD0628A PIC 9(01)V9(36) COMP-3 - VALUE 9.943034041886028573387079632084351032. + VALUE 9.943034041886028573387079632084351032. 77 FLD0628B PIC 9(08)V9(03) COMP-6 - VALUE 29681737.673. + VALUE 29681737.673. 77 FLD0628E PIC X VALUE 'N'. 77 FLD0629A PIC 9(03)V9(32) COMP-6 - VALUE 925.54391942612090904418664649710990. + VALUE 925.54391942612090904418664649710990. 77 FLD0629B PIC 9(05)V9(28) COMP-3 - VALUE 87091.5644969416202769707524566911. + VALUE 87091.5644969416202769707524566911. 77 FLD0629E PIC X VALUE 'N'. 77 FLD0630A PIC S9(09)V9(06) COMP-3 - VALUE +400669561.119235. + VALUE +400669561.119235. 77 FLD0630B PIC 9(09)V9(12) COMP-6 - VALUE 575188656.368988304734. + VALUE 575188656.368988304734. 77 FLD0630E PIC X VALUE 'N'. 77 FLD0631A PIC 9(09)V9(15) COMP-3 - VALUE 644864894.904831453814608. + VALUE 644864894.904831453814608. 77 FLD0631B PIC 9(05)V9(01) COMP-6 - VALUE 17568.5. + VALUE 17568.5. 77 FLD0631E PIC X VALUE 'N'. 77 FLD0632A PIC 9(08)V9(18) COMP-6 - VALUE 69998401.036213298009869276. + VALUE 69998401.036213298009869276. 77 FLD0632B PIC 9(10)V9(09) COMP-6 - VALUE 5082278856.741135886. + VALUE 5082278856.741135886. 77 FLD0632E PIC X VALUE 'N'. 77 FLD0633A PIC 9(08)V9(19) COMP-3 - VALUE 72186800.0789349095747127194. + VALUE 72186800.0789349095747127194. 77 FLD0633B PIC S9(09)V9(03) COMP-3 - VALUE +332989951.149. + VALUE +332989951.149. 77 FLD0633E PIC X VALUE 'N'. 77 FLD0634A PIC S9(10)V9(06) COMP-3 - VALUE +4236607402.255205. + VALUE +4236607402.255205. 77 FLD0634B PIC 9(07)V9(23) COMP-3 - VALUE 7926419.75404680843020344127580. + VALUE 7926419.75404680843020344127580. 77 FLD0634E PIC X VALUE 'N'. 77 FLD0635A PIC S9(06)V9(01) COMP-3 - VALUE -190863.2. + VALUE -190863.2. 77 FLD0635B PIC 9(10)V9(11) COMP-6 - VALUE 5580856572.20784292498. + VALUE 5580856572.20784292498. 77 FLD0635E PIC X VALUE 'N'. 77 FLD0636A PIC S9(07)V9(01) COMP-3 - VALUE +2326055.8. + VALUE +2326055.8. 77 FLD0636B PIC 9(05) COMP-6 - VALUE 15706. + VALUE 15706. 77 FLD0636E PIC X VALUE 'N'. 77 FLD0637A PIC 9(08)V9(19) COMP-3 - VALUE 73470187.3111827330475875896. + VALUE 73470187.3111827330475875896. 77 FLD0637B PIC 9(10)V9(10) COMP-3 - VALUE 5305678545.6603405837. + VALUE 5305678545.6603405837. 77 FLD0637E PIC X VALUE 'N'. 77 FLD0638A PIC 9(07)V9(22) COMP-6 - VALUE 7752451.2041246673721417437263. + VALUE 7752451.2041246673721417437263. 77 FLD0638B PIC 9(06)V9(25) COMP-3 - VALUE 822351.5027967045476486873667454. + VALUE 822351.5027967045476486873667454. 77 FLD0638E PIC X VALUE 'N'. 77 FLD0639A PIC S9(09)V9(03) COMP-3 - VALUE +320313574.327. + VALUE +320313574.327. 77 FLD0639B PIC 9(01)V9(36) COMP-6 - VALUE 9.751092072024196699686626743641681969. + VALUE 9.751092072024196699686626743641681969. 77 FLD0639E PIC X VALUE 'N'. 77 FLD0640A PIC 9(04)V9(29) COMP-3 - VALUE 8818.61493829378950692898797569796. + VALUE 8818.61493829378950692898797569796. 77 FLD0640B PIC 9(03)V9(32) COMP-3 - VALUE 921.50555740058603948483550993842072. + VALUE 921.50555740058603948483550993842072. 77 FLD0640E PIC X VALUE 'N'. 77 FLD0641A PIC 9(07)V9(22) COMP-6 - VALUE 7672056.2697199168322725881807. + VALUE 7672056.2697199168322725881807. 77 FLD0641B PIC 9(08)V9(19) COMP-6 - VALUE 72539277.3386829170512157816. + VALUE 72539277.3386829170512157816. 77 FLD0641E PIC X VALUE 'N'. 77 FLD0642A PIC 9(08)V9(18) COMP-6 - VALUE 70806494.663622721041917884. + VALUE 70806494.663622721041917884. 77 FLD0642B PIC 9(09)V9(13) COMP-3 - VALUE 592898946.8504934912118. + VALUE 592898946.8504934912118. 77 FLD0642E PIC X VALUE 'N'. 77 FLD0643A PIC 9(07)V9(01) COMP-6 - VALUE 2194714.9. + VALUE 2194714.9. 77 FLD0643B PIC 9(08)V9(02) COMP-6 - VALUE 26711153.59. + VALUE 26711153.59. 77 FLD0643E PIC X VALUE 'N'. 77 FLD0644A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0644B PIC 9(03)V9(32) COMP-6 - VALUE 936.97460492260109532480782945640385. + VALUE 936.97460492260109532480782945640385. 77 FLD0644E PIC X VALUE 'N'. 77 FLD0645A PIC 9(03)V9(31) COMP-3 - VALUE 913.1000502995376688630813077907077. + VALUE 913.1000502995376688630813077907077. 77 FLD0645B PIC 9(07)V9(02) COMP-6 - VALUE 2467302.34. + VALUE 2467302.34. 77 FLD0645E PIC X VALUE 'N'. 77 FLD0646A PIC 9(07)V9(21) COMP-3 - VALUE 7520596.805608434909373727350. + VALUE 7520596.805608434909373727350. 77 FLD0646B PIC 9(09)V9(13) COMP-6 - VALUE 595843790.0187590896550. + VALUE 595843790.0187590896550. 77 FLD0646E PIC X VALUE 'N'. 77 FLD0647A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0647B PIC 9(09)V9(16) COMP-6 - VALUE 659893156.1456289340839020. + VALUE 659893156.1456289340839020. 77 FLD0647E PIC X VALUE 'N'. 77 FLD0648A PIC S9(04) COMP-3 - VALUE +1149. + VALUE +1149. 77 FLD0648B PIC 9(09)V9(15) COMP-3 - VALUE 634287010.942461315643470. + VALUE 634287010.942461315643470. 77 FLD0648E PIC X VALUE 'N'. 77 FLD0649A PIC 9(07)V9(23) COMP-3 - VALUE 7912687.10466688007798552462190. + VALUE 7912687.10466688007798552462190. 77 FLD0649B PIC 9(10)V9(09) COMP-3 - VALUE 5026519944.429308495. + VALUE 5026519944.429308495. 77 FLD0649E PIC X VALUE 'N'. 77 FLD0650A PIC 9(01)V9(36) COMP-6 - VALUE 9.878734262172308433491707546636462211. + VALUE 9.878734262172308433491707546636462211. 77 FLD0650B PIC 9(09)V9(16) COMP-3 - VALUE 671574601.9768447094833163. + VALUE 671574601.9768447094833163. 77 FLD0650E PIC X VALUE 'N'. 77 FLD0651A PIC 9(08)V9(18) COMP-6 - VALUE 69993795.648145529231243244. + VALUE 69993795.648145529231243244. 77 FLD0651B PIC S9(09)V9(05) COMP-3 - VALUE -390933259.39761. + VALUE -390933259.39761. 77 FLD0651E PIC X VALUE 'N'. 77 FLD0652A PIC 9(05)V9(01) COMP-6 - VALUE 16676.6. + VALUE 16676.6. 77 FLD0652B PIC S9(07)V9(01) COMP-3 - VALUE +2109381.3. + VALUE +2109381.3. 77 FLD0652E PIC X VALUE 'N'. 77 FLD0653A PIC 9(09)V9(14) COMP-3 - VALUE 620233215.83922497168828. + VALUE 620233215.83922497168828. 77 FLD0653B PIC 9(06) COMP-6 - VALUE 165087. + VALUE 165087. 77 FLD0653E PIC X VALUE 'N'. 77 FLD0654A PIC 9(09)V9(15) COMP-6 - VALUE 639337130.284049814932245. + VALUE 639337130.284049814932245. 77 FLD0654B PIC 9(08)V9(02) COMP-6 - VALUE 27813223.51. + VALUE 27813223.51. 77 FLD0654E PIC X VALUE 'N'. 77 FLD0655A PIC 9(06)V9(25) COMP-6 - VALUE 818013.3890362937254536745967925. + VALUE 818013.3890362937254536745967925. 77 FLD0655B PIC 9(09)V9(13) COMP-3 - VALUE 594166317.4495728227952. + VALUE 594166317.4495728227952. 77 FLD0655E PIC X VALUE 'N'. 77 FLD0656A PIC S9(06)V9(01) COMP-3 - VALUE +200859.7. + VALUE +200859.7. 77 FLD0656B PIC 9(09)V9(15) COMP-3 - VALUE 650208537.267117914204561. + VALUE 650208537.267117914204561. 77 FLD0656E PIC X VALUE 'N'. 77 FLD0657A PIC 9(03)V9(32) COMP-6 - VALUE 936.17194619070143168926279031438753. + VALUE 936.17194619070143168926279031438753. 77 FLD0657B PIC 9(08)V9(18) COMP-3 - VALUE 70468283.988380520099781278. + VALUE 70468283.988380520099781278. 77 FLD0657E PIC X VALUE 'N'. 77 FLD0658A PIC 9(08)V9(18) COMP-3 - VALUE 70069365.832955088357891781. + VALUE 70069365.832955088357891781. 77 FLD0658B PIC 9(10)V9(10) COMP-3 - VALUE 5438086690.5335789596. + VALUE 5438086690.5335789596. 77 FLD0658E PIC X VALUE 'N'. 77 FLD0659A PIC 9(04)V9(30) COMP-3 - VALUE 9044.337793801533464943531726021319. + VALUE 9044.337793801533464943531726021319. 77 FLD0659B PIC 9(08)V9(19) COMP-6 - VALUE 71946522.3294514011342926096. + VALUE 71946522.3294514011342926096. 77 FLD0659E PIC X VALUE 'N'. 77 FLD0660A PIC 9(10)V9(09) COMP-3 - VALUE 5240012407.843260833. + VALUE 5240012407.843260833. 77 FLD0660B PIC S9(05) COMP-3 - VALUE -15464. + VALUE -15464. 77 FLD0660E PIC X VALUE 'N'. 77 FLD0661A PIC 9(02)V9(34) COMP-6 - VALUE 96.5581569624071600621562083688331767. + VALUE 96.5581569624071600621562083688331767. 77 FLD0661B PIC 9(10)V9(11) COMP-3 - VALUE 5705409453.15247127744. + VALUE 5705409453.15247127744. 77 FLD0661E PIC X VALUE 'N'. 77 FLD0662A PIC S9(07)V9(01) COMP-3 - VALUE +2131985.0. + VALUE +2131985.0. 77 FLD0662B PIC 9(09)V9(16) COMP-6 - VALUE 669960203.6476681732324323. + VALUE 669960203.6476681732324323. 77 FLD0662E PIC X VALUE 'N'. 77 FLD0663A PIC 9(05) COMP-6 - VALUE 15788. + VALUE 15788. 77 FLD0663B PIC 9(04)V9(29) COMP-6 - VALUE 8894.69232052811142885673234559362. + VALUE 8894.69232052811142885673234559362. 77 FLD0663E PIC X VALUE 'N'. 77 FLD0664A PIC S9(05) COMP-3 - VALUE +14371. + VALUE +14371. 77 FLD0664B PIC S9(09)V9(07) COMP-3 - VALUE +440580330.5288489. + VALUE +440580330.5288489. 77 FLD0664E PIC X VALUE 'N'. 77 FLD0665A PIC 9(07)V9(02) COMP-6 - VALUE 2455875.37. + VALUE 2455875.37. 77 FLD0665B PIC 9(09)V9(16) COMP-3 - VALUE 674160289.5706166886924393. + VALUE 674160289.5706166886924393. 77 FLD0665E PIC X VALUE 'N'. 77 FLD0666A PIC 9(05)V9(27) COMP-3 - VALUE 86015.549175288641414738322055200. + VALUE 86015.549175288641414738322055200. 77 FLD0666B PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0666E PIC X VALUE 'N'. 77 FLD0667A PIC 9(02)V9(33) COMP-3 - VALUE 94.482499794694274619644147605868056. + VALUE 94.482499794694274619644147605868056. 77 FLD0667B PIC 9(09)V9(15) COMP-3 - VALUE 632143875.790169951223163. + VALUE 632143875.790169951223163. 77 FLD0667E PIC X VALUE 'N'. 77 FLD0668A PIC 9(03)V9(32) COMP-6 - VALUE 935.15331845029669999291854765033349. + VALUE 935.15331845029669999291854765033349. 77 FLD0668B PIC 9(10)V9(09) COMP-3 - VALUE 5144629393.825745911. + VALUE 5144629393.825745911. 77 FLD0668E PIC X VALUE 'N'. 77 FLD0669A PIC 9(01)V9(36) COMP-3 - VALUE 9.937328225295053441001869032334070652. + VALUE 9.937328225295053441001869032334070652. 77 FLD0669B PIC 9(10)V9(05) COMP-6 - VALUE 3959366397.86081. + VALUE 3959366397.86081. 77 FLD0669E PIC X VALUE 'N'. 77 FLD0670A PIC 9(07)V9(02) COMP-6 - VALUE 2567113.54. + VALUE 2567113.54. 77 FLD0670B PIC 9(02)V9(34) COMP-3 - VALUE 97.1019073438902258210703166696475818. + VALUE 97.1019073438902258210703166696475818. 77 FLD0670E PIC X VALUE 'N'. 77 FLD0671A PIC 9(09)V9(03) COMP-6 - VALUE 326622169.718. + VALUE 326622169.718. 77 FLD0671B PIC 9(06)V9(01) COMP-6 - VALUE 186874.6. + VALUE 186874.6. 77 FLD0671E PIC X VALUE 'N'. 77 FLD0672A PIC 9(10)V9(07) COMP-6 - VALUE 4564917934.3294549. + VALUE 4564917934.3294549. 77 FLD0672B PIC 9(09)V9(15) COMP-6 - VALUE 637002039.815689924395769. + VALUE 637002039.815689924395769. 77 FLD0672E PIC X VALUE 'N'. 77 FLD0673A PIC 9(10)V9(06) COMP-6 - VALUE 4285002333.462958. + VALUE 4285002333.462958. 77 FLD0673B PIC 9(07)V9(02) COMP-6 - VALUE 2489778.77. + VALUE 2489778.77. 77 FLD0673E PIC X VALUE 'N'. 77 FLD0674A PIC 9(10)V9(10) COMP-6 - VALUE 5491650640.0821929467. + VALUE 5491650640.0821929467. 77 FLD0674B PIC 9(06)V9(25) COMP-6 - VALUE 828061.3110769976525915581078152. + VALUE 828061.3110769976525915581078152. 77 FLD0674E PIC X VALUE 'N'. 77 FLD0675A PIC 9(05)V9(27) COMP-6 - VALUE 84609.285471017914304070473008323. + VALUE 84609.285471017914304070473008323. 77 FLD0675B PIC 9(10)V9(09) COMP-6 - VALUE 5083540664.870341840. + VALUE 5083540664.870341840. 77 FLD0675E PIC X VALUE 'N'. 77 FLD0676A PIC 9(03) COMP-6 - VALUE 096. + VALUE 096. 77 FLD0676B PIC 9(02)V9(34) COMP-3 - VALUE 96.4664170342459437179627457226160913. + VALUE 96.4664170342459437179627457226160913. 77 FLD0676E PIC X VALUE 'N'. 77 FLD0677A PIC S9(07)V9(01) COMP-3 - VALUE +2248183.1. + VALUE +2248183.1. 77 FLD0677B PIC 9(04)V9(29) COMP-3 - VALUE 8903.66445455624266891447859961772. + VALUE 8903.66445455624266891447859961772. 77 FLD0677E PIC X VALUE 'N'. 77 FLD0678A PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0678B PIC 9(05)V9(27) COMP-6 - VALUE 85887.366357613359468814451247453. + VALUE 85887.366357613359468814451247453. 77 FLD0678E PIC X VALUE 'N'. 77 FLD0679A PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0679B PIC 9(10)V9(07) COMP-6 - VALUE 4490278235.6612852. + VALUE 4490278235.6612852. 77 FLD0679E PIC X VALUE 'N'. 77 FLD0680A PIC S9(08)V9(02) COMP-3 - VALUE -28119381.66. + VALUE -28119381.66. 77 FLD0680B PIC 9(10)V9(11) COMP-3 - VALUE 5617591008.16083600804. + VALUE 5617591008.16083600804. 77 FLD0680E PIC X VALUE 'N'. 77 FLD0681A PIC 9(08)V9(17) COMP-3 - VALUE 68244115.95644890304868113. + VALUE 68244115.95644890304868113. 77 FLD0681B PIC 9(06)V9(25) COMP-3 - VALUE 821371.7547801553386932482681004. + VALUE 821371.7547801553386932482681004. 77 FLD0681E PIC X VALUE 'N'. 77 FLD0682A PIC S9(10)V9(08) COMP-3 - VALUE -4949729784.45772315. + VALUE -4949729784.45772315. 77 FLD0682B PIC 9(06)V9(25) COMP-3 - VALUE 831097.0812489861803129542749957. + VALUE 831097.0812489861803129542749957. 77 FLD0682E PIC X VALUE 'N'. 77 FLD0683A PIC 9(05)V9(28) COMP-6 - VALUE 86894.3068817851549390240961656672. + VALUE 86894.3068817851549390240961656672. 77 FLD0683B PIC 9(10)V9(12) COMP-3 - VALUE 5829735573.963021888488. + VALUE 5829735573.963021888488. 77 FLD0683E PIC X VALUE 'N'. 77 FLD0684A PIC 9(10)V9(13) COMP-6 - VALUE 6059233373.6406744915115. + VALUE 6059233373.6406744915115. 77 FLD0684B PIC 9(09)V9(07) COMP-6 - VALUE 438339473.7646870. + VALUE 438339473.7646870. 77 FLD0684E PIC X VALUE 'N'. 77 FLD0685A PIC S9(07)V9(02) COMP-3 - VALUE -2545714.99. + VALUE -2545714.99. 77 FLD0685B PIC 9(07)V9(23) COMP-3 - VALUE 7915567.03876752143500539204978. + VALUE 7915567.03876752143500539204978. 77 FLD0685E PIC X VALUE 'N'. 77 FLD0686A PIC 9(09)V9(14) COMP-3 - VALUE 621044693.11257093355749. + VALUE 621044693.11257093355749. 77 FLD0686B PIC 9(09)V9(13) COMP-3 - VALUE 602970496.8531952591348. + VALUE 602970496.8531952591348. 77 FLD0686E PIC X VALUE 'N'. 77 FLD0687A PIC S9(09)V9(05) COMP-3 - VALUE -394005874.76898. + VALUE -394005874.76898. 77 FLD0687B PIC 9(10)V9(08) COMP-6 - VALUE 4960980508.03440715. + VALUE 4960980508.03440715. 77 FLD0687E PIC X VALUE 'N'. 77 FLD0688A PIC 9(03)V9(32) COMP-3 - VALUE 932.26844955554755145499257196206599. + VALUE 932.26844955554755145499257196206599. 77 FLD0688B PIC 9(04) COMP-6 - VALUE 1064. + VALUE 1064. 77 FLD0688E PIC X VALUE 'N'. 77 FLD0689A PIC 9(10)V9(07) COMP-6 - VALUE 4559306991.4341932. + VALUE 4559306991.4341932. 77 FLD0689B PIC S9(08)V9(04) COMP-3 - VALUE +34024840.8710. + VALUE +34024840.8710. 77 FLD0689E PIC X VALUE 'N'. 77 FLD0690A PIC 9(01)V9(36) COMP-6 - VALUE 9.793660005922469879990899244148749858. + VALUE 9.793660005922469879990899244148749858. 77 FLD0690B PIC S9(08)V9(02) COMP-3 - VALUE -28078949.75. + VALUE -28078949.75. 77 FLD0690E PIC X VALUE 'N'. 77 FLD0691A PIC 9(09)V9(07) COMP-6 - VALUE 439500550.5938089. + VALUE 439500550.5938089. 77 FLD0691B PIC S9(10)V9(06) COMP-3 - VALUE +4308484639.535531. + VALUE +4308484639.535531. 77 FLD0691E PIC X VALUE 'N'. 77 FLD0692A PIC 9(09)V9(04) COMP-6 - VALUE 358382577.7464. + VALUE 358382577.7464. 77 FLD0692B PIC 9(09)V9(15) COMP-6 - VALUE 636450165.553045121846764. + VALUE 636450165.553045121846764. 77 FLD0692E PIC X VALUE 'N'. 77 FLD0693A PIC S9(07)V9(01) COMP-3 - VALUE +2127399.6. + VALUE +2127399.6. 77 FLD0693B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0693E PIC X VALUE 'N'. 77 FLD0694A PIC 9(09)V9(05) COMP-6 - VALUE 378019656.01658. + VALUE 378019656.01658. 77 FLD0694B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0694E PIC X VALUE 'N'. 77 FLD0695A PIC S9(09)V9(04) COMP-3 - VALUE -354304867.1111. + VALUE -354304867.1111. 77 FLD0695B PIC 9(09)V9(15) COMP-6 - VALUE 639721730.127885357397587. + VALUE 639721730.127885357397587. 77 FLD0695E PIC X VALUE 'N'. 77 FLD0696A PIC 9(04)V9(30) COMP-6 - VALUE 9067.945209731629319094281527213752. + VALUE 9067.945209731629319094281527213752. 77 FLD0696B PIC 9(09)V9(03) COMP-6 - VALUE 318871778.848. + VALUE 318871778.848. 77 FLD0696E PIC X VALUE 'N'. 77 FLD0697A PIC S9(09)V9(06) COMP-3 - VALUE +414586353.841170. + VALUE +414586353.841170. 77 FLD0697B PIC 9(10)V9(09) COMP-6 - VALUE 5161837194.897523906. + VALUE 5161837194.897523906. 77 FLD0697E PIC X VALUE 'N'. 77 FLD0698A PIC 9(08)V9(18) COMP-3 - VALUE 69447533.832122987362822641. + VALUE 69447533.832122987362822641. 77 FLD0698B PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0698E PIC X VALUE 'N'. 77 FLD0699A PIC 9(09)V9(13) COMP-6 - VALUE 597064952.5204202445749. + VALUE 597064952.5204202445749. 77 FLD0699B PIC 9(09)V9(14) COMP-3 - VALUE 630288401.27729701681147. + VALUE 630288401.27729701681147. 77 FLD0699E PIC X VALUE 'N'. 77 FLD0700A PIC 9(06)V9(25) COMP-3 - VALUE 820234.3139012789885455845251271. + VALUE 820234.3139012789885455845251271. 77 FLD0700B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0700E PIC X VALUE 'N'. 77 FLD0701A PIC 9(06)V9(24) COMP-6 - VALUE 809485.363390515577641792788199. + VALUE 809485.363390515577641792788199. 77 FLD0701B PIC 9(02)V9(34) COMP-3 - VALUE 97.0800419877562270620785511709982529. + VALUE 97.0800419877562270620785511709982529. 77 FLD0701E PIC X VALUE 'N'. 77 FLD0702A PIC 9(04)V9(30) COMP-3 - VALUE 9021.848589518318695112952809722628. + VALUE 9021.848589518318695112952809722628. 77 FLD0702B PIC 9(07)V9(01) COMP-6 - VALUE 2351439.7. + VALUE 2351439.7. 77 FLD0702E PIC X VALUE 'N'. 77 FLD0703A PIC S9(04) COMP-3 - VALUE +1126. + VALUE +1126. 77 FLD0703B PIC 9(08)V9(04) COMP-6 - VALUE 33525578.1235. + VALUE 33525578.1235. 77 FLD0703E PIC X VALUE 'N'. 77 FLD0704A PIC 9(10)V9(07) COMP-6 - VALUE 4696322933.5995404. + VALUE 4696322933.5995404. 77 FLD0704B PIC 9(09)V9(14) COMP-3 - VALUE 611168884.71092423174013. + VALUE 611168884.71092423174013. 77 FLD0704E PIC X VALUE 'N'. 77 FLD0705A PIC 9(10)V9(10) COMP-6 - VALUE 5381864238.0664638569. + VALUE 5381864238.0664638569. 77 FLD0705B PIC 9(10)V9(07) COMP-6 - VALUE 4699950479.7278301. + VALUE 4699950479.7278301. 77 FLD0705E PIC X VALUE 'N'. 77 FLD0706A PIC 9(07)V9(22) COMP-3 - VALUE 7815442.4104873465584120140192. + VALUE 7815442.4104873465584120140192. 77 FLD0706B PIC S9(05)V9(01) COMP-3 - VALUE -17297.4. + VALUE -17297.4. 77 FLD0706E PIC X VALUE 'N'. 77 FLD0707A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0707B PIC 9(10)V9(09) COMP-3 - VALUE 5129442198.407349051. + VALUE 5129442198.407349051. 77 FLD0707E PIC X VALUE 'N'. 77 FLD0708A PIC 9(02)V9(34) COMP-3 - VALUE 95.1225570140109555339336111501324921. + VALUE 95.1225570140109555339336111501324921. 77 FLD0708B PIC 9(08)V9(04) COMP-6 - VALUE 33834894.3169. + VALUE 33834894.3169. 77 FLD0708E PIC X VALUE 'N'. 77 FLD0709A PIC S9(04) COMP-3 - VALUE +1124. + VALUE +1124. 77 FLD0709B PIC 9(09)V9(05) COMP-6 - VALUE 379344826.68404. + VALUE 379344826.68404. 77 FLD0709E PIC X VALUE 'N'. 77 FLD0710A PIC 9(01)V9(36) COMP-3 - VALUE 9.946833086486408515014545628218911588. + VALUE 9.946833086486408515014545628218911588. 77 FLD0710B PIC S9(09)V9(03) COMP-3 - VALUE +322996298.459. + VALUE +322996298.459. 77 FLD0710E PIC X VALUE 'N'. 77 FLD0711A PIC 9(09)V9(16) COMP-6 - VALUE 677754067.1912668512888444. + VALUE 677754067.1912668512888444. 77 FLD0711B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0711E PIC X VALUE 'N'. 77 FLD0712A PIC 9(09)V9(14) COMP-3 - VALUE 610433230.32745544498567. + VALUE 610433230.32745544498567. 77 FLD0712B PIC S9(10)V9(08) COMP-3 - VALUE -4947392148.88603839. + VALUE -4947392148.88603839. 77 FLD0712E PIC X VALUE 'N'. 77 FLD0713A PIC S9(08)V9(03) COMP-3 - VALUE -29280564.557. + VALUE -29280564.557. 77 FLD0713B PIC 9(07)V9(01) COMP-6 - VALUE 2168463.7. + VALUE 2168463.7. 77 FLD0713E PIC X VALUE 'N'. 77 FLD0714A PIC 9(10)V9(07) COMP-6 - VALUE 4593980567.3719869. + VALUE 4593980567.3719869. 77 FLD0714B PIC 9(09)V9(04) COMP-6 - VALUE 347385951.5252. + VALUE 347385951.5252. 77 FLD0714E PIC X VALUE 'N'. 77 FLD0715A PIC 9(09)V9(06) COMP-6 - VALUE 406643755.503527. + VALUE 406643755.503527. 77 FLD0715B PIC 9(10)V9(10) COMP-6 - VALUE 5480282475.3098877685. + VALUE 5480282475.3098877685. 77 FLD0715E PIC X VALUE 'N'. 77 FLD0716A PIC S9(08)V9(03) COMP-3 - VALUE -29497495.128. + VALUE -29497495.128. 77 FLD0716B PIC 9(03)V9(31) COMP-3 - VALUE 914.3056916239737930141018296126276. + VALUE 914.3056916239737930141018296126276. 77 FLD0716E PIC X VALUE 'N'. 77 FLD0717A PIC 9(05)V9(28) COMP-6 - VALUE 86936.9843469434133709228262887336. + VALUE 86936.9843469434133709228262887336. 77 FLD0717B PIC 9(07)V9(21) COMP-6 - VALUE 7570171.861371541854879296806. + VALUE 7570171.861371541854879296806. 77 FLD0717E PIC X VALUE 'N'. 77 FLD0718A PIC 9(06) COMP-6 - VALUE 158746. + VALUE 158746. 77 FLD0718B PIC 9(10)V9(06) COMP-6 - VALUE 4283417063.648062. + VALUE 4283417063.648062. 77 FLD0718E PIC X VALUE 'N'. 77 FLD0719A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0719B PIC 9(07)V9(02) COMP-6 - VALUE 2390904.61. + VALUE 2390904.61. 77 FLD0719E PIC X VALUE 'N'. 77 FLD0720A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0720B PIC S9(09)V9(06) COMP-3 - VALUE +404886316.426392. + VALUE +404886316.426392. 77 FLD0720E PIC X VALUE 'N'. 77 FLD0721A PIC S9(09)V9(03) COMP-3 - VALUE +332294869.962. + VALUE +332294869.962. 77 FLD0721B PIC 9(07)V9(01) COMP-6 - VALUE 2285954.3. + VALUE 2285954.3. 77 FLD0721E PIC X VALUE 'N'. 77 FLD0722A PIC S9(05)V9(01) COMP-3 - VALUE -17094.9. + VALUE -17094.9. 77 FLD0722B PIC 9(07)V9(21) COMP-3 - VALUE 7607809.920924922808538326535. + VALUE 7607809.920924922808538326535. 77 FLD0722E PIC X VALUE 'N'. 77 FLD0723A PIC 9(05)V9(28) COMP-3 - VALUE 87349.0901765646254872876852459739. + VALUE 87349.0901765646254872876852459739. 77 FLD0723B PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0723E PIC X VALUE 'N'. 77 FLD0724A PIC 9(09)V9(03) COMP-6 - VALUE 317474559.928. + VALUE 317474559.928. 77 FLD0724B PIC 9(10)V9(09) COMP-6 - VALUE 5251486411.115240393. + VALUE 5251486411.115240393. 77 FLD0724E PIC X VALUE 'N'. 77 FLD0725A PIC 9(03)V9(31) COMP-6 - VALUE 915.1169879467740964074096154945436. + VALUE 915.1169879467740964074096154945436. 77 FLD0725B PIC S9(09)V9(07) COMP-3 - VALUE +444412819.1361023. + VALUE +444412819.1361023. 77 FLD0725E PIC X VALUE 'N'. 77 FLD0726A PIC 9(05) COMP-6 - VALUE 14771. + VALUE 14771. 77 FLD0726B PIC S9(09)V9(06) COMP-3 - VALUE +401835639.675800. + VALUE +401835639.675800. 77 FLD0726E PIC X VALUE 'N'. 77 FLD0727A PIC 9(10)V9(10) COMP-3 - VALUE 5412169008.2113094177. + VALUE 5412169008.2113094177. 77 FLD0727B PIC 9(09)V9(16) COMP-6 - VALUE 677439277.9021225496904889. + VALUE 677439277.9021225496904889. 77 FLD0727E PIC X VALUE 'N'. 77 FLD0728A PIC 9(09)V9(07) COMP-6 - VALUE 439411444.5456123. + VALUE 439411444.5456123. 77 FLD0728B PIC S9(09)V9(05) COMP-3 - VALUE -371357711.97684. + VALUE -371357711.97684. 77 FLD0728E PIC X VALUE 'N'. 77 FLD0729A PIC 9(02)V9(33) COMP-6 - VALUE 94.514768998125520127473464526701718. + VALUE 94.514768998125520127473464526701718. 77 FLD0729B PIC 9(07)V9(23) COMP-6 - VALUE 7959700.26538914909863819957536. + VALUE 7959700.26538914909863819957536. 77 FLD0729E PIC X VALUE 'N'. 77 FLD0730A PIC 9(06)V9(25) COMP-3 - VALUE 822685.8594490329412707296796725. + VALUE 822685.8594490329412707296796725. 77 FLD0730B PIC 9(09)V9(14) COMP-3 - VALUE 630270988.23946403616247. + VALUE 630270988.23946403616247. 77 FLD0730E PIC X VALUE 'N'. 77 FLD0731A PIC 9(10)V9(12) COMP-3 - VALUE 5808279049.356201984011. + VALUE 5808279049.356201984011. 77 FLD0731B PIC 9(09)V9(13) COMP-3 - VALUE 600372700.6085320949679. + VALUE 600372700.6085320949679. 77 FLD0731E PIC X VALUE 'N'. 77 FLD0732A PIC 9(03)V9(31) COMP-6 - VALUE 915.5080332184045710519626481982413. + VALUE 915.5080332184045710519626481982413. 77 FLD0732B PIC S9(04) COMP-3 - VALUE +1229. + VALUE +1229. 77 FLD0732E PIC X VALUE 'N'. 77 FLD0733A PIC 9(09)V9(03) COMP-6 - VALUE 328019305.824. + VALUE 328019305.824. 77 FLD0733B PIC 9(09)V9(15) COMP-6 - VALUE 637621846.224700750127567. + VALUE 637621846.224700750127567. 77 FLD0733E PIC X VALUE 'N'. 77 FLD0734A PIC S9(06) COMP-3 - VALUE -164821. + VALUE -164821. 77 FLD0734B PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0734E PIC X VALUE 'N'. 77 FLD0735A PIC S9(06)V9(01) COMP-3 - VALUE -190229.8. + VALUE -190229.8. 77 FLD0735B PIC 9(09)V9(15) COMP-3 - VALUE 641899075.827484955070190. + VALUE 641899075.827484955070190. 77 FLD0735E PIC X VALUE 'N'. 77 FLD0736A PIC 9(10)V9(09) COMP-3 - VALUE 5128678158.202983894. + VALUE 5128678158.202983894. 77 FLD0736B PIC 9(07)V9(23) COMP-6 - VALUE 7952260.56216242538354777025233. + VALUE 7952260.56216242538354777025233. 77 FLD0736E PIC X VALUE 'N'. 77 FLD0737A PIC S9(07)V9(02) COMP-3 - VALUE -2601084.10. + VALUE -2601084.10. 77 FLD0737B PIC S9(07)V9(02) COMP-3 - VALUE -2623355.12. + VALUE -2623355.12. 77 FLD0737E PIC X VALUE 'N'. 77 FLD0738A PIC 9(10)V9(09) COMP-6 - VALUE 5071467647.954436275. + VALUE 5071467647.954436275. 77 FLD0738B PIC 9(02)V9(34) COMP-6 - VALUE 96.7470462418068333221299326396547257. + VALUE 96.7470462418068333221299326396547257. 77 FLD0738E PIC X VALUE 'N'. 77 FLD0739A PIC S9(09)V9(03) COMP-3 - VALUE +324797211.447. + VALUE +324797211.447. 77 FLD0739B PIC S9(10)V9(08) COMP-3 - VALUE -4916417996.38161292. + VALUE -4916417996.38161292. 77 FLD0739E PIC X VALUE 'N'. 77 FLD0740A PIC S9(08)V9(03) COMP-3 - VALUE +30394739.303. + VALUE +30394739.303. 77 FLD0740B PIC 9(05)V9(28) COMP-3 - VALUE 87461.9397808273024708114462555386. + VALUE 87461.9397808273024708114462555386. 77 FLD0740E PIC X VALUE 'N'. 77 FLD0741A PIC S9(09)V9(03) COMP-3 - VALUE +322386723.831. + VALUE +322386723.831. 77 FLD0741B PIC S9(09)V9(03) COMP-3 - VALUE +321782512.880. + VALUE +321782512.880. 77 FLD0741E PIC X VALUE 'N'. 77 FLD0742A PIC 9(09)V9(06) COMP-6 - VALUE 419367234.713135. + VALUE 419367234.713135. 77 FLD0742B PIC S9(08)V9(03) COMP-3 - VALUE +30468212.851. + VALUE +30468212.851. 77 FLD0742E PIC X VALUE 'N'. 77 FLD0743A PIC 9(05)V9(27) COMP-6 - VALUE 85864.867305029812794003873932524. + VALUE 85864.867305029812794003873932524. 77 FLD0743B PIC 9(06)V9(01) COMP-6 - VALUE 209820.2. + VALUE 209820.2. 77 FLD0743E PIC X VALUE 'N'. 77 FLD0744A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0744B PIC 9(08)V9(02) COMP-6 - VALUE 26956228.79. + VALUE 26956228.79. 77 FLD0744E PIC X VALUE 'N'. 77 FLD0745A PIC 9(01)V9(36) COMP-6 - VALUE 9.759709501186564217789509712019935250. + VALUE 9.759709501186564217789509712019935250. 77 FLD0745B PIC 9(05) COMP-6 - VALUE 13548. + VALUE 13548. 77 FLD0745E PIC X VALUE 'N'. 77 FLD0746A PIC 9(10)V9(10) COMP-3 - VALUE 5435731573.3552813430. + VALUE 5435731573.3552813430. 77 FLD0746B PIC 9(10)V9(09) COMP-3 - VALUE 5204204473.599284286. + VALUE 5204204473.599284286. 77 FLD0746E PIC X VALUE 'N'. 77 FLD0747A PIC 9(10)V9(11) COMP-6 - VALUE 5681676571.07930934579. + VALUE 5681676571.07930934579. 77 FLD0747B PIC 9(03)V9(31) COMP-6 - VALUE 916.9159297409485986918298294767737. + VALUE 916.9159297409485986918298294767737. 77 FLD0747E PIC X VALUE 'N'. 77 FLD0748A PIC 9(03) COMP-6 - VALUE 086. + VALUE 086. 77 FLD0748B PIC S9(05)V9(01) COMP-3 - VALUE -18032.7. + VALUE -18032.7. 77 FLD0748E PIC X VALUE 'N'. 77 FLD0749A PIC S9(10)V9(07) COMP-3 - VALUE -4609096560.3942379. + VALUE -4609096560.3942379. 77 FLD0749B PIC 9(06)V9(25) COMP-3 - VALUE 820519.2560948625368766329302161. + VALUE 820519.2560948625368766329302161. 77 FLD0749E PIC X VALUE 'N'. 77 FLD0750A PIC 9(07)V9(22) COMP-6 - VALUE 7666736.3171436386792834127845. + VALUE 7666736.3171436386792834127845. 77 FLD0750B PIC 9(08)V9(04) COMP-6 - VALUE 33966692.5145. + VALUE 33966692.5145. 77 FLD0750E PIC X VALUE 'N'. 77 FLD0751A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0751B PIC S9(05) COMP-3 - VALUE -15176. + VALUE -15176. 77 FLD0751E PIC X VALUE 'N'. 77 FLD0752A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0752B PIC 9(03)V9(32) COMP-3 - VALUE 922.38508268330654527034084821934811. + VALUE 922.38508268330654527034084821934811. 77 FLD0752E PIC X VALUE 'N'. 77 FLD0753A PIC 9(08)V9(19) COMP-3 - VALUE 73379118.3872512742247806727. + VALUE 73379118.3872512742247806727. 77 FLD0753B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0753E PIC X VALUE 'N'. 77 FLD0754A PIC S9(09)V9(03) COMP-3 - VALUE +322061792.108. + VALUE +322061792.108. 77 FLD0754B PIC 9(07)V9(02) COMP-6 - VALUE 2450066.21. + VALUE 2450066.21. 77 FLD0754E PIC X VALUE 'N'. 77 FLD0755A PIC 9(06)V9(25) COMP-6 - VALUE 835592.8333445592492978448717622. + VALUE 835592.8333445592492978448717622. 77 FLD0755B PIC 9(10)V9(10) COMP-3 - VALUE 5346301002.0417645051. + VALUE 5346301002.0417645051. 77 FLD0755E PIC X VALUE 'N'. 77 FLD0756A PIC 9(09)V9(04) COMP-6 - VALUE 366295057.8421. + VALUE 366295057.8421. 77 FLD0756B PIC S9(05) COMP-3 - VALUE -15366. + VALUE -15366. 77 FLD0756E PIC X VALUE 'N'. 77 FLD0757A PIC 9(08)V9(19) COMP-3 - VALUE 71466976.1113856494283425035. + VALUE 71466976.1113856494283425035. 77 FLD0757B PIC S9(07)V9(02) COMP-3 - VALUE +2429438.31. + VALUE +2429438.31. 77 FLD0757E PIC X VALUE 'N'. 77 FLD0758A PIC 9(07)V9(01) COMP-6 - VALUE 2293699.9. + VALUE 2293699.9. 77 FLD0758B PIC S9(06) COMP-3 - VALUE -162229. + VALUE -162229. 77 FLD0758E PIC X VALUE 'N'. 77 FLD0759A PIC 9(03)V9(32) COMP-3 - VALUE 931.38963166127219928114300273591652. + VALUE 931.38963166127219928114300273591652. 77 FLD0759B PIC 9(07)V9(21) COMP-3 - VALUE 7621303.882836163445801958005. + VALUE 7621303.882836163445801958005. 77 FLD0759E PIC X VALUE 'N'. 77 FLD0760A PIC 9(06)V9(01) COMP-6 - VALUE 188511.3. + VALUE 188511.3. 77 FLD0760B PIC 9(04)V9(30) COMP-3 - VALUE 9041.413390221895163278986728982999. + VALUE 9041.413390221895163278986728982999. 77 FLD0760E PIC X VALUE 'N'. 77 FLD0761A PIC 9(09)V9(17) COMP-3 - VALUE 690006529.44346418937726639. + VALUE 690006529.44346418937726639. 77 FLD0761B PIC 9(09)V9(14) COMP-6 - VALUE 629261290.31917010792085. + VALUE 629261290.31917010792085. 77 FLD0761E PIC X VALUE 'N'. 77 FLD0762A PIC 9(09)V9(16) COMP-3 - VALUE 671435372.9957326377686399. + VALUE 671435372.9957326377686399. 77 FLD0762B PIC 9(07)V9(02) COMP-6 - VALUE 2591343.61. + VALUE 2591343.61. 77 FLD0762E PIC X VALUE 'N'. 77 FLD0763A PIC 9(08)V9(19) COMP-3 - VALUE 71468145.3175585401638159055. + VALUE 71468145.3175585401638159055. 77 FLD0763B PIC 9(06)V9(24) COMP-6 - VALUE 815545.608346078032546699887461. + VALUE 815545.608346078032546699887461. 77 FLD0763E PIC X VALUE 'N'. 77 FLD0764A PIC 9(10)V9(11) COMP-3 - VALUE 5535007698.50315821329. + VALUE 5535007698.50315821329. 77 FLD0764B PIC 9(10)V9(08) COMP-6 - VALUE 4979398183.62831021. + VALUE 4979398183.62831021. 77 FLD0764E PIC X VALUE 'N'. 77 FLD0765A PIC 9(04)V9(29) COMP-6 - VALUE 8855.80582773889624093044403707608. + VALUE 8855.80582773889624093044403707608. 77 FLD0765B PIC S9(04) COMP-3 - VALUE +1212. + VALUE +1212. 77 FLD0765E PIC X VALUE 'N'. 77 FLD0766A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0766B PIC 9(07)V9(01) COMP-6 - VALUE 2294943.2. + VALUE 2294943.2. 77 FLD0766E PIC X VALUE 'N'. 77 FLD0767A PIC S9(10)V9(08) COMP-3 - VALUE -4848285740.27346248. + VALUE -4848285740.27346248. 77 FLD0767B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0767E PIC X VALUE 'N'. 77 FLD0768A PIC 9(09)V9(17) COMP-3 - VALUE 684230789.92735519854306858. + VALUE 684230789.92735519854306858. 77 FLD0768B PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0768E PIC X VALUE 'N'. 77 FLD0769A PIC 9(07)V9(02) COMP-6 - VALUE 2565731.27. + VALUE 2565731.27. 77 FLD0769B PIC 9(09)V9(04) COMP-6 - VALUE 356094054.4649. + VALUE 356094054.4649. 77 FLD0769E PIC X VALUE 'N'. 77 FLD0770A PIC 9(09)V9(12) COMP-3 - VALUE 574214303.174467532997. + VALUE 574214303.174467532997. 77 FLD0770B PIC 9(10)V9(13) COMP-6 - VALUE 6057194691.9895736094474. + VALUE 6057194691.9895736094474. 77 FLD0770E PIC X VALUE 'N'. 77 FLD0771A PIC 9(08)V9(18) COMP-6 - VALUE 69721614.519732855175249142. + VALUE 69721614.519732855175249142. 77 FLD0771B PIC 9(09)V9(17) COMP-3 - VALUE 690190375.47148320843604096. + VALUE 690190375.47148320843604096. 77 FLD0771E PIC X VALUE 'N'. 77 FLD0772A PIC 9(10)V9(08) COMP-6 - VALUE 4868623585.10471993. + VALUE 4868623585.10471993. 77 FLD0772B PIC 9(10)V9(05) COMP-6 - VALUE 3959689116.24786. + VALUE 3959689116.24786. 77 FLD0772E PIC X VALUE 'N'. 77 FLD0773A PIC S9(07)V9(01) COMP-3 - VALUE +2339835.9. + VALUE +2339835.9. 77 FLD0773B PIC 9(03)V9(32) COMP-3 - VALUE 931.93997423560348547511011929600499. + VALUE 931.93997423560348547511011929600499. 77 FLD0773E PIC X VALUE 'N'. 77 FLD0774A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0774B PIC S9(07)V9(02) COMP-3 - VALUE +2425891.04. + VALUE +2425891.04. 77 FLD0774E PIC X VALUE 'N'. 77 FLD0775A PIC 9(09)V9(06) COMP-6 - VALUE 418947899.183504. + VALUE 418947899.183504. 77 FLD0775B PIC 9(03)V9(32) COMP-3 - VALUE 930.87735098341006789723905967548489. + VALUE 930.87735098341006789723905967548489. 77 FLD0775E PIC X VALUE 'N'. 77 FLD0776A PIC 9(09)V9(06) COMP-6 - VALUE 418950765.017868. + VALUE 418950765.017868. 77 FLD0776B PIC 9(05)V9(27) COMP-6 - VALUE 84781.081485203291236985023715533. + VALUE 84781.081485203291236985023715533. 77 FLD0776E PIC X VALUE 'N'. 77 FLD0777A PIC S9(08)V9(03) COMP-3 - VALUE +31438250.184. + VALUE +31438250.184. 77 FLD0777B PIC 9(10)V9(11) COMP-3 - VALUE 5606560858.83416754889. + VALUE 5606560858.83416754889. 77 FLD0777E PIC X VALUE 'N'. 77 FLD0778A PIC S9(06)V9(01) COMP-3 - VALUE -192739.4. + VALUE -192739.4. 77 FLD0778B PIC 9(03)V9(31) COMP-6 - VALUE 916.8465464730475300569878527312539. + VALUE 916.8465464730475300569878527312539. 77 FLD0778E PIC X VALUE 'N'. 77 FLD0779A PIC 9(04)V9(30) COMP-3 - VALUE 9029.333248069044692840634525055065. + VALUE 9029.333248069044692840634525055065. 77 FLD0779B PIC S9(10)V9(08) COMP-3 - VALUE -4740907582.59428035. + VALUE -4740907582.59428035. 77 FLD0779E PIC X VALUE 'N'. 77 FLD0780A PIC 9(09)V9(03) COMP-6 - VALUE 318241207.749. + VALUE 318241207.749. 77 FLD0780B PIC 9(06)V9(25) COMP-3 - VALUE 822759.6235369002419801631731388. + VALUE 822759.6235369002419801631731388. 77 FLD0780E PIC X VALUE 'N'. 77 FLD0781A PIC 9(10)V9(08) COMP-6 - VALUE 4967153543.73054196. + VALUE 4967153543.73054196. 77 FLD0781B PIC 9(08)V9(03) COMP-6 - VALUE 29720911.669. + VALUE 29720911.669. 77 FLD0781E PIC X VALUE 'N'. 77 FLD0782A PIC 9(05) COMP-6 - VALUE 13793. + VALUE 13793. 77 FLD0782B PIC 9(02)V9(34) COMP-6 - VALUE 95.5158015091007617236584792408393695. + VALUE 95.5158015091007617236584792408393695. 77 FLD0782E PIC X VALUE 'N'. 77 FLD0783A PIC 9(04)V9(29) COMP-3 - VALUE 8813.39219378433402773964644438819. + VALUE 8813.39219378433402773964644438819. 77 FLD0783B PIC S9(10)V9(06) COMP-3 - VALUE +4236433759.282261. + VALUE +4236433759.282261. 77 FLD0783E PIC X VALUE 'N'. 77 FLD0784A PIC 9(09)V9(15) COMP-3 - VALUE 641964802.793786426526878. + VALUE 641964802.793786426526878. 77 FLD0784B PIC 9(06)V9(25) COMP-3 - VALUE 824637.3935062285553954097849782. + VALUE 824637.3935062285553954097849782. 77 FLD0784E PIC X VALUE 'N'. 77 FLD0785A PIC 9(08)V9(17) COMP-3 - VALUE 68097654.34600172362422654. + VALUE 68097654.34600172362422654. 77 FLD0785B PIC 9(09)V9(03) COMP-6 - VALUE 325202869.704. + VALUE 325202869.704. 77 FLD0785E PIC X VALUE 'N'. 77 FLD0786A PIC 9(01)V9(36) COMP-3 - VALUE 9.820249933224565186407062356011010706. + VALUE 9.820249933224565186407062356011010706. 77 FLD0786B PIC 9(05)V9(27) COMP-3 - VALUE 85417.725929538756979297886573476. + VALUE 85417.725929538756979297886573476. 77 FLD0786E PIC X VALUE 'N'. 77 FLD0787A PIC 9(10)V9(11) COMP-6 - VALUE 5592847098.07636559730. + VALUE 5592847098.07636559730. 77 FLD0787B PIC 9(06)V9(01) COMP-6 - VALUE 199330.4. + VALUE 199330.4. 77 FLD0787E PIC X VALUE 'N'. 77 FLD0788A PIC 9(02)V9(34) COMP-6 - VALUE 95.6557531637097668841818176588276401. + VALUE 95.6557531637097668841818176588276401. 77 FLD0788B PIC 9(07)V9(22) COMP-6 - VALUE 7789929.3063459995600794627534. + VALUE 7789929.3063459995600794627534. 77 FLD0788E PIC X VALUE 'N'. 77 FLD0789A PIC S9(05)V9(01) COMP-3 - VALUE -17101.7. + VALUE -17101.7. 77 FLD0789B PIC 9(09)V9(16) COMP-3 - VALUE 660444958.2132847496040994. + VALUE 660444958.2132847496040994. 77 FLD0789E PIC X VALUE 'N'. 77 FLD0790A PIC 9(07)V9(02) COMP-6 - VALUE 2384369.54. + VALUE 2384369.54. 77 FLD0790B PIC S9(08)V9(03) COMP-3 - VALUE -29309999.122. + VALUE -29309999.122. 77 FLD0790E PIC X VALUE 'N'. 77 FLD0791A PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0791B PIC 9(08)V9(20) COMP-6 - VALUE 73827325.48868294886190710712. + VALUE 73827325.48868294886190710712. 77 FLD0791E PIC X VALUE 'N'. 77 FLD0792A PIC 9(02)V9(34) COMP-6 - VALUE 95.5230059106088935649836457741912454. + VALUE 95.5230059106088935649836457741912454. 77 FLD0792B PIC 9(09)V9(05) COMP-6 - VALUE 379824535.06313. + VALUE 379824535.06313. 77 FLD0792E PIC X VALUE 'N'. 77 FLD0793A PIC 9(06)V9(01) COMP-6 - VALUE 199221.9. + VALUE 199221.9. 77 FLD0793B PIC 9(10)V9(11) COMP-6 - VALUE 5591577156.30166807230. + VALUE 5591577156.30166807230. 77 FLD0793E PIC X VALUE 'N'. 77 FLD0794A PIC S9(08)V9(04) COMP-3 - VALUE +33437009.5807. + VALUE +33437009.5807. 77 FLD0794B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0794E PIC X VALUE 'N'. 77 FLD0795A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0795B PIC S9(08)V9(04) COMP-3 - VALUE +33494400.6958. + VALUE +33494400.6958. 77 FLD0795E PIC X VALUE 'N'. 77 FLD0796A PIC 9(07)V9(21) COMP-6 - VALUE 7565685.006144580171394409262. + VALUE 7565685.006144580171394409262. 77 FLD0796B PIC 9(08)V9(19) COMP-6 - VALUE 72949831.5977354816475042298. + VALUE 72949831.5977354816475042298. 77 FLD0796E PIC X VALUE 'N'. 77 FLD0797A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0797B PIC 9(09)V9(04) COMP-6 - VALUE 348777486.0252. + VALUE 348777486.0252. 77 FLD0797E PIC X VALUE 'N'. 77 FLD0798A PIC S9(09)V9(03) COMP-3 - VALUE +332243375.906. + VALUE +332243375.906. 77 FLD0798B PIC 9(09)V9(16) COMP-3 - VALUE 673821443.1439371043808250. + VALUE 673821443.1439371043808250. 77 FLD0798E PIC X VALUE 'N'. 77 FLD0799A PIC 9(09)V9(17) COMP-3 - VALUE 690866271.33683375934225523. + VALUE 690866271.33683375934225523. 77 FLD0799B PIC 9(09)V9(11) COMP-3 - VALUE 551526790.74963362193. + VALUE 551526790.74963362193. 77 FLD0799E PIC X VALUE 'N'. 77 FLD0800A PIC 9(08)V9(18) COMP-3 - VALUE 70036112.416705975647346349. + VALUE 70036112.416705975647346349. 77 FLD0800B PIC 9(08)V9(02) COMP-6 - VALUE 26662512.18. + VALUE 26662512.18. 77 FLD0800E PIC X VALUE 'N'. 77 FLD0801A PIC S9(09)V9(07) COMP-3 - VALUE +443093279.8052367. + VALUE +443093279.8052367. 77 FLD0801B PIC 9(01)V9(36) COMP-3 - VALUE 9.827967002397862694706986985693220049. + VALUE 9.827967002397862694706986985693220049. 77 FLD0801E PIC X VALUE 'N'. 77 FLD0802A PIC S9(07)V9(02) COMP-3 - VALUE +2449505.23. + VALUE +2449505.23. 77 FLD0802B PIC 9(04)V9(29) COMP-3 - VALUE 8911.32090012832223102634543465683. + VALUE 8911.32090012832223102634543465683. 77 FLD0802E PIC X VALUE 'N'. 77 FLD0803A PIC S9(05)V9(01) COMP-3 - VALUE -17467.0. + VALUE -17467.0. 77 FLD0803B PIC 9(10)V9(11) COMP-6 - VALUE 5556247901.99399698487. + VALUE 5556247901.99399698487. 77 FLD0803E PIC X VALUE 'N'. 77 FLD0804A PIC 9(07)V9(02) COMP-6 - VALUE 2599541.84. + VALUE 2599541.84. 77 FLD0804B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0804E PIC X VALUE 'N'. 77 FLD0805A PIC 9(07)V9(01) COMP-6 - VALUE 2358341.0. + VALUE 2358341.0. 77 FLD0805B PIC 9(10)V9(08) COMP-6 - VALUE 4796323563.66873291. + VALUE 4796323563.66873291. 77 FLD0805E PIC X VALUE 'N'. 77 FLD0806A PIC 9(10)V9(11) COMP-3 - VALUE 5703927562.80738821850. + VALUE 5703927562.80738821850. 77 FLD0806B PIC 9(09)V9(07) COMP-6 - VALUE 445849105.9648416. + VALUE 445849105.9648416. 77 FLD0806E PIC X VALUE 'N'. 77 FLD0807A PIC 9(09)V9(17) COMP-6 - VALUE 689326682.16034242991696601. + VALUE 689326682.16034242991696601. 77 FLD0807B PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0807E PIC X VALUE 'N'. 77 FLD0808A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0808B PIC 9(10)V9(07) COMP-6 - VALUE 4574455047.5690953. + VALUE 4574455047.5690953. 77 FLD0808E PIC X VALUE 'N'. 77 FLD0809A PIC 9(05)V9(28) COMP-6 - VALUE 86873.4196996681751201663246320094. + VALUE 86873.4196996681751201663246320094. 77 FLD0809B PIC S9(09)V9(07) COMP-3 - VALUE +440334288.3961999. + VALUE +440334288.3961999. 77 FLD0809E PIC X VALUE 'N'. 77 FLD0810A PIC S9(04) COMP-3 - VALUE +1129. + VALUE +1129. 77 FLD0810B PIC S9(07)V9(01) COMP-3 - VALUE +2130584.0. + VALUE +2130584.0. 77 FLD0810E PIC X VALUE 'N'. 77 FLD0811A PIC 9(09)V9(15) COMP-6 - VALUE 648943185.643321429623142. + VALUE 648943185.643321429623142. 77 FLD0811B PIC 9(01)V9(36) COMP-3 - VALUE 9.811592432324195423021251372119877487. + VALUE 9.811592432324195423021251372119877487. 77 FLD0811E PIC X VALUE 'N'. 77 FLD0812A PIC S9(08)V9(03) COMP-3 - VALUE -29270905.795. + VALUE -29270905.795. 77 FLD0812B PIC 9(08)V9(02) COMP-6 - VALUE 27514068.39. + VALUE 27514068.39. 77 FLD0812E PIC X VALUE 'N'. 77 FLD0813A PIC 9(10)V9(08) COMP-6 - VALUE 4881724662.84412076. + VALUE 4881724662.84412076. 77 FLD0813B PIC S9(08)V9(03) COMP-3 - VALUE -29113136.400. + VALUE -29113136.400. 77 FLD0813E PIC X VALUE 'N'. 77 FLD0814A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0814B PIC 9(07)V9(21) COMP-3 - VALUE 7525112.595496631362479433846. + VALUE 7525112.595496631362479433846. 77 FLD0814E PIC X VALUE 'N'. 77 FLD0815A PIC 9(06)V9(25) COMP-6 - VALUE 838676.0467962863785373883729334. + VALUE 838676.0467962863785373883729334. 77 FLD0815B PIC 9(02)V9(34) COMP-3 - VALUE 95.3836598694868031955707010638434439. + VALUE 95.3836598694868031955707010638434439. 77 FLD0815E PIC X VALUE 'N'. 77 FLD0816A PIC 9(08)V9(18) COMP-6 - VALUE 70774184.783492177786001775. + VALUE 70774184.783492177786001775. 77 FLD0816B PIC 9(04)V9(29) COMP-6 - VALUE 8859.15144904112161761133847903693. + VALUE 8859.15144904112161761133847903693. 77 FLD0816E PIC X VALUE 'N'. 77 FLD0817A PIC 9(10)V9(09) COMP-6 - VALUE 5163345142.860672476. + VALUE 5163345142.860672476. 77 FLD0817B PIC 9(10)V9(09) COMP-6 - VALUE 5158922133.304477686. + VALUE 5158922133.304477686. 77 FLD0817E PIC X VALUE 'N'. 77 FLD0818A PIC 9(08)V9(03) COMP-6 - VALUE 30586164.664. + VALUE 30586164.664. 77 FLD0818B PIC 9(08)V9(19) COMP-6 - VALUE 71565910.0751609544843745425. + VALUE 71565910.0751609544843745425. 77 FLD0818E PIC X VALUE 'N'. 77 FLD0819A PIC 9(01)V9(36) COMP-3 - VALUE 9.844708607145921108738662042014766484. + VALUE 9.844708607145921108738662042014766484. 77 FLD0819B PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0819E PIC X VALUE 'N'. 77 FLD0820A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0820B PIC 9(02)V9(34) COMP-6 - VALUE 95.6537139953218984445015848905313760. + VALUE 95.6537139953218984445015848905313760. 77 FLD0820E PIC X VALUE 'N'. 77 FLD0821A PIC 9(09)V9(11) COMP-3 - VALUE 550576956.44832715942. + VALUE 550576956.44832715942. 77 FLD0821B PIC S9(09)V9(05) COMP-3 - VALUE -383656536.39422. + VALUE -383656536.39422. 77 FLD0821E PIC X VALUE 'N'. 77 FLD0822A PIC S9(05) COMP-3 - VALUE +14037. + VALUE +14037. 77 FLD0822B PIC 9(04) COMP-6 - VALUE 1092. + VALUE 1092. 77 FLD0822E PIC X VALUE 'N'. 77 FLD0823A PIC 9(08)V9(20) COMP-6 - VALUE 73880168.20028298070610617287. + VALUE 73880168.20028298070610617287. 77 FLD0823B PIC S9(09)V9(06) COMP-3 - VALUE +410430433.569272. + VALUE +410430433.569272. 77 FLD0823E PIC X VALUE 'N'. 77 FLD0824A PIC 9(10)V9(10) COMP-6 - VALUE 5351534260.3280557920. + VALUE 5351534260.3280557920. 77 FLD0824B PIC 9(09)V9(14) COMP-6 - VALUE 619637811.24301098301998. + VALUE 619637811.24301098301998. 77 FLD0824E PIC X VALUE 'N'. 77 FLD0825A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0825B PIC S9(05)V9(01) COMP-3 - VALUE -17069.2. + VALUE -17069.2. 77 FLD0825E PIC X VALUE 'N'. 77 FLD0826A PIC S9(06)V9(01) COMP-3 - VALUE -190786.5. + VALUE -190786.5. 77 FLD0826B PIC S9(10)V9(08) COMP-3 - VALUE -4805976358.59735916. + VALUE -4805976358.59735916. 77 FLD0826E PIC X VALUE 'N'. 77 FLD0827A PIC 9(07)V9(22) COMP-6 - VALUE 7763847.1978375678261841130733. + VALUE 7763847.1978375678261841130733. 77 FLD0827B PIC 9(10)V9(07) COMP-6 - VALUE 4683286251.1747114. + VALUE 4683286251.1747114. 77 FLD0827E PIC X VALUE 'N'. 77 FLD0828A PIC S9(10)V9(07) COMP-3 - VALUE -4530916009.2405642. + VALUE -4530916009.2405642. 77 FLD0828B PIC S9(05) COMP-3 - VALUE -15016. + VALUE -15016. 77 FLD0828E PIC X VALUE 'N'. 77 FLD0829A PIC 9(09)V9(17) COMP-3 - VALUE 691486534.21926165041355716. + VALUE 691486534.21926165041355716. 77 FLD0829B PIC 9(07)V9(23) COMP-6 - VALUE 7963194.44710118728991687930829. + VALUE 7963194.44710118728991687930829. 77 FLD0829E PIC X VALUE 'N'. 77 FLD0830A PIC 9(04)V9(30) COMP-6 - VALUE 8965.722935126121395654763546190224. + VALUE 8965.722935126121395654763546190224. 77 FLD0830B PIC 9(10)V9(11) COMP-6 - VALUE 5655358049.53465004452. + VALUE 5655358049.53465004452. 77 FLD0830E PIC X VALUE 'N'. 77 FLD0831A PIC 9(04)V9(30) COMP-6 - VALUE 8956.555580996397036841472072410397. + VALUE 8956.555580996397036841472072410397. 77 FLD0831B PIC 9(09)V9(16) COMP-3 - VALUE 660284490.9595845246386147. + VALUE 660284490.9595845246386147. 77 FLD0831E PIC X VALUE 'N'. 77 FLD0832A PIC 9(04) COMP-6 - VALUE 1185. + VALUE 1185. 77 FLD0832B PIC 9(09)V9(06) COMP-6 - VALUE 419049138.539795. + VALUE 419049138.539795. 77 FLD0832E PIC X VALUE 'N'. 77 FLD0833A PIC 9(06)V9(24) COMP-3 - VALUE 804859.798300300854911881742737. + VALUE 804859.798300300854911881742737. 77 FLD0833B PIC 9(09)V9(16) COMP-3 - VALUE 664990588.4825918489511309. + VALUE 664990588.4825918489511309. 77 FLD0833E PIC X VALUE 'N'. 77 FLD0834A PIC 9(09)V9(04) COMP-6 - VALUE 349209744.2881. + VALUE 349209744.2881. 77 FLD0834B PIC 9(08)V9(19) COMP-3 - VALUE 71191898.1740956136050613167. + VALUE 71191898.1740956136050613167. 77 FLD0834E PIC X VALUE 'N'. 77 FLD0835A PIC 9(08)V9(19) COMP-3 - VALUE 71178359.2779248075466114187. + VALUE 71178359.2779248075466114187. 77 FLD0835B PIC 9(07)V9(22) COMP-6 - VALUE 7891261.8513661014763016510187. + VALUE 7891261.8513661014763016510187. 77 FLD0835E PIC X VALUE 'N'. 77 FLD0836A PIC 9(09)V9(07) COMP-6 - VALUE 446141389.3412962. + VALUE 446141389.3412962. 77 FLD0836B PIC 9(09)V9(13) COMP-3 - VALUE 594066179.3005866941896. + VALUE 594066179.3005866941896. 77 FLD0836E PIC X VALUE 'N'. 77 FLD0837A PIC 9(04)V9(30) COMP-6 - VALUE 8982.008694278872384941792006429750. + VALUE 8982.008694278872384941792006429750. 77 FLD0837B PIC S9(08)V9(03) COMP-3 - VALUE -29146758.519. + VALUE -29146758.519. 77 FLD0837E PIC X VALUE 'N'. 77 FLD0838A PIC 9(10)V9(12) COMP-6 - VALUE 5873188106.793812979233. + VALUE 5873188106.793812979233. 77 FLD0838B PIC 9(07)V9(22) COMP-3 - VALUE 7748686.2151072521953665273031. + VALUE 7748686.2151072521953665273031. 77 FLD0838E PIC X VALUE 'N'. 77 FLD0839A PIC 9(08)V9(19) COMP-3 - VALUE 71324671.8649382605015318858. + VALUE 71324671.8649382605015318858. 77 FLD0839B PIC 9(06)V9(01) COMP-6 - VALUE 205379.6. + VALUE 205379.6. 77 FLD0839E PIC X VALUE 'N'. 77 FLD0840A PIC S9(03) COMP-3 - VALUE -094. + VALUE -094. 77 FLD0840B PIC 9(04) COMP-6 - VALUE 1059. + VALUE 1059. 77 FLD0840E PIC X VALUE 'N'. 77 FLD0841A PIC 9(08)V9(18) COMP-3 - VALUE 70179428.042996372383299785. + VALUE 70179428.042996372383299785. 77 FLD0841B PIC 9(06)V9(24) COMP-3 - VALUE 813553.693586876014443021176703. + VALUE 813553.693586876014443021176703. 77 FLD0841E PIC X VALUE 'N'. 77 FLD0842A PIC 9(09)V9(16) COMP-3 - VALUE 661649948.5739699704112126. + VALUE 661649948.5739699704112126. 77 FLD0842B PIC 9(02)V9(33) COMP-6 - VALUE 94.543261545044898763734408930758945. + VALUE 94.543261545044898763734408930758945. 77 FLD0842E PIC X VALUE 'N'. 77 FLD0843A PIC 9(06)V9(25) COMP-6 - VALUE 818928.0761087860405211813485948. + VALUE 818928.0761087860405211813485948. 77 FLD0843B PIC S9(08)V9(03) COMP-3 - VALUE +30347988.647. + VALUE +30347988.647. 77 FLD0843E PIC X VALUE 'N'. 77 FLD0844A PIC 9(07)V9(22) COMP-6 - VALUE 7754458.9142564990247308287507. + VALUE 7754458.9142564990247308287507. 77 FLD0844B PIC 9(10)V9(07) COMP-6 - VALUE 4487113046.2525055. + VALUE 4487113046.2525055. 77 FLD0844E PIC X VALUE 'N'. 77 FLD0845A PIC 9(10)V9(12) COMP-3 - VALUE 5903835745.060688200425. + VALUE 5903835745.060688200425. 77 FLD0845B PIC 9(09)V9(15) COMP-3 - VALUE 651184321.418812994686220. + VALUE 651184321.418812994686220. 77 FLD0845E PIC X VALUE 'N'. 77 FLD0846A PIC 9(08)V9(03) COMP-6 - VALUE 29802576.878. + VALUE 29802576.878. 77 FLD0846B PIC 9(10)V9(07) COMP-6 - VALUE 4580030325.9646085. + VALUE 4580030325.9646085. 77 FLD0846E PIC X VALUE 'N'. 77 FLD0847A PIC 9(05)V9(26) COMP-3 - VALUE 84041.42690564196938041163775778. + VALUE 84041.42690564196938041163775778. 77 FLD0847B PIC 9(08)V9(03) COMP-6 - VALUE 29618694.346. + VALUE 29618694.346. 77 FLD0847E PIC X VALUE 'N'. 77 FLD0848A PIC 9(07)V9(23) COMP-3 - VALUE 7949747.62786875510656159349309. + VALUE 7949747.62786875510656159349309. 77 FLD0848B PIC 9(08)V9(19) COMP-3 - VALUE 71130247.7845018432667245633. + VALUE 71130247.7845018432667245633. 77 FLD0848E PIC X VALUE 'N'. 77 FLD0849A PIC 9(09)V9(13) COMP-6 - VALUE 595598045.8961575019216. + VALUE 595598045.8961575019216. 77 FLD0849B PIC 9(07)V9(21) COMP-3 - VALUE 7527838.155592773139446194363. + VALUE 7527838.155592773139446194363. 77 FLD0849E PIC X VALUE 'N'. 77 FLD0850A PIC 9(09)V9(06) COMP-6 - VALUE 418716850.605351. + VALUE 418716850.605351. 77 FLD0850B PIC 9(09)V9(15) COMP-3 - VALUE 631787055.454641532925563. + VALUE 631787055.454641532925563. 77 FLD0850E PIC X VALUE 'N'. 77 FLD0851A PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0851B PIC 9(07)V9(01) COMP-6 - VALUE 2252059.3. + VALUE 2252059.3. 77 FLD0851E PIC X VALUE 'N'. 77 FLD0852A PIC 9(10)V9(11) COMP-3 - VALUE 5643399909.75319838462. + VALUE 5643399909.75319838462. 77 FLD0852B PIC 9(08)V9(02) COMP-6 - VALUE 28682579.88. + VALUE 28682579.88. 77 FLD0852E PIC X VALUE 'N'. 77 FLD0853A PIC 9(06)V9(24) COMP-3 - VALUE 801200.590406665469345171004533. + VALUE 801200.590406665469345171004533. 77 FLD0853B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0853E PIC X VALUE 'N'. 77 FLD0854A PIC 9(01)V9(35) COMP-3 - VALUE 9.72377885073923198255840816273121163. + VALUE 9.72377885073923198255840816273121163. 77 FLD0854B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0854E PIC X VALUE 'N'. 77 FLD0855A PIC 9(08)V9(19) COMP-6 - VALUE 73562901.0042854747375429269. + VALUE 73562901.0042854747375429269. 77 FLD0855B PIC 9(05)V9(01) COMP-6 - VALUE 16705.4. + VALUE 16705.4. 77 FLD0855E PIC X VALUE 'N'. 77 FLD0856A PIC 9(09)V9(04) COMP-6 - VALUE 356144099.6704. + VALUE 356144099.6704. 77 FLD0856B PIC S9(05) COMP-3 - VALUE +13257. + VALUE +13257. 77 FLD0856E PIC X VALUE 'N'. 77 FLD0857A PIC 9(03)V9(31) COMP-6 - VALUE 915.3286634102202334872799838194623. + VALUE 915.3286634102202334872799838194623. 77 FLD0857B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0857E PIC X VALUE 'N'. 77 FLD0858A PIC 9(10)V9(11) COMP-6 - VALUE 5560594458.08950059131. + VALUE 5560594458.08950059131. 77 FLD0858B PIC 9(08)V9(03) COMP-6 - VALUE 30966624.473. + VALUE 30966624.473. 77 FLD0858E PIC X VALUE 'N'. 77 FLD0859A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0859B PIC 9(02)V9(34) COMP-3 - VALUE 97.1628168143447767945986015547532588. + VALUE 97.1628168143447767945986015547532588. 77 FLD0859E PIC X VALUE 'N'. 77 FLD0860A PIC 9(07)V9(02) COMP-6 - VALUE 2576407.94. + VALUE 2576407.94. 77 FLD0860B PIC 9(08)V9(04) COMP-6 - VALUE 33654706.3315. + VALUE 33654706.3315. 77 FLD0860E PIC X VALUE 'N'. 77 FLD0861A PIC S9(10)V9(07) COMP-3 - VALUE -4605509961.3842453. + VALUE -4605509961.3842453. 77 FLD0861B PIC 9(04) COMP-6 - VALUE 1091. + VALUE 1091. 77 FLD0861E PIC X VALUE 'N'. 77 FLD0862A PIC 9(07)V9(22) COMP-6 - VALUE 7652464.2157409383802502134130. + VALUE 7652464.2157409383802502134130. 77 FLD0862B PIC 9(09)V9(12) COMP-6 - VALUE 576630833.581719182134. + VALUE 576630833.581719182134. 77 FLD0862E PIC X VALUE 'N'. 77 FLD0863A PIC 9(05)V9(27) COMP-3 - VALUE 85070.091557533766835064170663827. + VALUE 85070.091557533766835064170663827. 77 FLD0863B PIC 9(10)V9(09) COMP-6 - VALUE 5171260723.603198217. + VALUE 5171260723.603198217. 77 FLD0863E PIC X VALUE 'N'. 77 FLD0864A PIC 9(10)V9(11) COMP-3 - VALUE 5711242885.34377577697. + VALUE 5711242885.34377577697. 77 FLD0864B PIC 9(04)V9(29) COMP-6 - VALUE 8791.30787212824560405977081245509. + VALUE 8791.30787212824560405977081245509. 77 FLD0864E PIC X VALUE 'N'. 77 FLD0865A PIC 9(06)V9(24) COMP-6 - VALUE 807409.725415061507725056344497. + VALUE 807409.725415061507725056344497. 77 FLD0865B PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0865E PIC X VALUE 'N'. 77 FLD0866A PIC 9(09)V9(05) COMP-6 - VALUE 376060050.51851. + VALUE 376060050.51851. 77 FLD0866B PIC 9(04)V9(30) COMP-6 - VALUE 9076.867019798932068042063292523380. + VALUE 9076.867019798932068042063292523380. 77 FLD0866E PIC X VALUE 'N'. 77 FLD0867A PIC S9(05) COMP-3 - VALUE +14084. + VALUE +14084. 77 FLD0867B PIC 9(08)V9(19) COMP-6 - VALUE 72879777.6966572774526298417. + VALUE 72879777.6966572774526298417. 77 FLD0867E PIC X VALUE 'N'. 77 FLD0868A PIC 9(07)V9(22) COMP-3 - VALUE 7648419.8420910554094831468319. + VALUE 7648419.8420910554094831468319. 77 FLD0868B PIC 9(10)V9(12) COMP-3 - VALUE 5849128371.667725589944. + VALUE 5849128371.667725589944. 77 FLD0868E PIC X VALUE 'N'. 77 FLD0869A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0869B PIC 9(08)V9(17) COMP-3 - VALUE 68157822.06919422936408636. + VALUE 68157822.06919422936408636. 77 FLD0869E PIC X VALUE 'N'. 77 FLD0870A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0870B PIC 9(09)V9(15) COMP-6 - VALUE 657570531.523696821807334. + VALUE 657570531.523696821807334. 77 FLD0870E PIC X VALUE 'N'. 77 FLD0871A PIC 9(09)V9(14) COMP-6 - VALUE 609764683.38536315982878. + VALUE 609764683.38536315982878. 77 FLD0871B PIC 9(10)V9(09) COMP-3 - VALUE 5134836781.377033476. + VALUE 5134836781.377033476. 77 FLD0871E PIC X VALUE 'N'. 77 FLD0872A PIC 9(04)V9(29) COMP-3 - VALUE 8816.31176263962479389135751262074. + VALUE 8816.31176263962479389135751262074. 77 FLD0872B PIC 9(10)V9(07) COMP-6 - VALUE 4591409950.7884903. + VALUE 4591409950.7884903. 77 FLD0872E PIC X VALUE 'N'. 77 FLD0873A PIC 9(07)V9(21) COMP-6 - VALUE 7561255.223942077163812314211. + VALUE 7561255.223942077163812314211. 77 FLD0873B PIC 9(05) COMP-6 - VALUE 15597. + VALUE 15597. 77 FLD0873E PIC X VALUE 'N'. 77 FLD0874A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0874B PIC 9(06)V9(01) COMP-6 - VALUE 188106.3. + VALUE 188106.3. 77 FLD0874E PIC X VALUE 'N'. 77 FLD0875A PIC S9(06)V9(01) COMP-3 - VALUE +204126.0. + VALUE +204126.0. 77 FLD0875B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0875E PIC X VALUE 'N'. 77 FLD0876A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0876B PIC 9(07)V9(23) COMP-3 - VALUE 7928238.87607293276147402139031. + VALUE 7928238.87607293276147402139031. 77 FLD0876E PIC X VALUE 'N'. 77 FLD0877A PIC 9(08)V9(18) COMP-6 - VALUE 69924605.886404200827399790. + VALUE 69924605.886404200827399790. 77 FLD0877B PIC 9(09)V9(15) COMP-3 - VALUE 651975862.412979334514773. + VALUE 651975862.412979334514773. 77 FLD0877E PIC X VALUE 'N'. 77 FLD0878A PIC 9(07)V9(22) COMP-3 - VALUE 7831260.9220719830993573395971. + VALUE 7831260.9220719830993573395971. 77 FLD0878B PIC 9(04)V9(29) COMP-3 - VALUE 8832.64528360225620318146866338793. + VALUE 8832.64528360225620318146866338793. 77 FLD0878E PIC X VALUE 'N'. 77 FLD0879A PIC 9(07)V9(02) COMP-6 - VALUE 2371533.81. + VALUE 2371533.81. 77 FLD0879B PIC 9(05)V9(27) COMP-3 - VALUE 85230.962794591269560129376259283. + VALUE 85230.962794591269560129376259283. 77 FLD0879E PIC X VALUE 'N'. 77 FLD0880A PIC S9(10)V9(06) COMP-3 - VALUE +4237732309.742536. + VALUE +4237732309.742536. 77 FLD0880B PIC 9(05)V9(26) COMP-6 - VALUE 83915.37539577657023315282458497. + VALUE 83915.37539577657023315282458497. 77 FLD0880E PIC X VALUE 'N'. 77 FLD0881A PIC 9(10)V9(11) COMP-6 - VALUE 5571129514.90407404264. + VALUE 5571129514.90407404264. 77 FLD0881B PIC S9(09)V9(04) COMP-3 - VALUE -360610120.1846. + VALUE -360610120.1846. 77 FLD0881E PIC X VALUE 'N'. 77 FLD0882A PIC 9(10)V9(12) COMP-6 - VALUE 5888713345.878072713546. + VALUE 5888713345.878072713546. 77 FLD0882B PIC 9(09)V9(16) COMP-6 - VALUE 677832951.8186110291821933. + VALUE 677832951.8186110291821933. 77 FLD0882E PIC X VALUE 'N'. 77 FLD0883A PIC 9(09)V9(16) COMP-3 - VALUE 672192258.1526228457349247. + VALUE 672192258.1526228457349247. 77 FLD0883B PIC 9(07)V9(21) COMP-6 - VALUE 7561874.624389478549701948395. + VALUE 7561874.624389478549701948395. 77 FLD0883E PIC X VALUE 'N'. 77 FLD0884A PIC 9(10)V9(08) COMP-6 - VALUE 4954020911.85092596. + VALUE 4954020911.85092596. 77 FLD0884B PIC 9(07)V9(21) COMP-3 - VALUE 7530519.818486510752464369033. + VALUE 7530519.818486510752464369033. 77 FLD0884E PIC X VALUE 'N'. 77 FLD0885A PIC S9(05) COMP-3 - VALUE +13360. + VALUE +13360. 77 FLD0885B PIC S9(05) COMP-3 - VALUE -15432. + VALUE -15432. 77 FLD0885E PIC X VALUE 'N'. 77 FLD0886A PIC S9(09)V9(05) COMP-3 - VALUE -374529584.88504. + VALUE -374529584.88504. 77 FLD0886B PIC S9(09)V9(05) COMP-3 - VALUE -380480275.58811. + VALUE -380480275.58811. 77 FLD0886E PIC X VALUE 'N'. 77 FLD0887A PIC S9(07)V9(01) COMP-3 - VALUE +2114795.5. + VALUE +2114795.5. 77 FLD0887B PIC 9(06)V9(25) COMP-6 - VALUE 815821.3018675709582439026235078. + VALUE 815821.3018675709582439026235078. 77 FLD0887E PIC X VALUE 'N'. 77 FLD0888A PIC 9(08)V9(19) COMP-6 - VALUE 73580519.1914812417586233550. + VALUE 73580519.1914812417586233550. 77 FLD0888B PIC 9(07)V9(02) COMP-6 - VALUE 2394446.18. + VALUE 2394446.18. 77 FLD0888E PIC X VALUE 'N'. 77 FLD0889A PIC S9(05) COMP-3 - VALUE -15225. + VALUE -15225. 77 FLD0889B PIC 9(02)V9(34) COMP-3 - VALUE 96.3719675610497206186266794247785583. + VALUE 96.3719675610497206186266794247785583. 77 FLD0889E PIC X VALUE 'N'. 77 FLD0890A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0890B PIC 9(08)V9(19) COMP-3 - VALUE 72161358.3480198661490589984. + VALUE 72161358.3480198661490589984. 77 FLD0890E PIC X VALUE 'N'. 77 FLD0891A PIC 9(02)V9(34) COMP-6 - VALUE 95.7956124985634538404610793804749846. + VALUE 95.7956124985634538404610793804749846. 77 FLD0891B PIC 9(08)V9(19) COMP-6 - VALUE 73526985.6204998628612656830. + VALUE 73526985.6204998628612656830. 77 FLD0891E PIC X VALUE 'N'. 77 FLD0892A PIC 9(10)V9(09) COMP-6 - VALUE 5079027644.377075434. + VALUE 5079027644.377075434. 77 FLD0892B PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0892E PIC X VALUE 'N'. 77 FLD0893A PIC 9(10)V9(12) COMP-3 - VALUE 5900775083.003402254888. + VALUE 5900775083.003402254888. 77 FLD0893B PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0893E PIC X VALUE 'N'. 77 FLD0894A PIC 9(06)V9(25) COMP-6 - VALUE 819872.1409522375935807758651208. + VALUE 819872.1409522375935807758651208. 77 FLD0894B PIC 9(09)V9(15) COMP-6 - VALUE 655129000.141700390535959. + VALUE 655129000.141700390535959. 77 FLD0894E PIC X VALUE 'N'. 77 FLD0895A PIC 9(10)V9(09) COMP-6 - VALUE 5099949658.575000377. + VALUE 5099949658.575000377. 77 FLD0895B PIC 9(08)V9(02) COMP-6 - VALUE 28944204.51. + VALUE 28944204.51. 77 FLD0895E PIC X VALUE 'N'. 77 FLD0896A PIC 9(10)V9(07) COMP-6 - VALUE 4576511370.6787369. + VALUE 4576511370.6787369. 77 FLD0896B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0896E PIC X VALUE 'N'. 77 FLD0897A PIC 9(01)V9(36) COMP-6 - VALUE 9.997543976245016894566219889384228736. + VALUE 9.997543976245016894566219889384228736. 77 FLD0897B PIC S9(09)V9(07) COMP-3 - VALUE +440492210.0858147. + VALUE +440492210.0858147. 77 FLD0897E PIC X VALUE 'N'. 77 FLD0898A PIC 9(09)V9(05) COMP-6 - VALUE 378033726.09171. + VALUE 378033726.09171. 77 FLD0898B PIC 9(06)V9(01) COMP-6 - VALUE 199374.1. + VALUE 199374.1. 77 FLD0898E PIC X VALUE 'N'. 77 FLD0899A PIC 9(08)V9(20) COMP-6 - VALUE 74918436.40783237834313013081. + VALUE 74918436.40783237834313013081. 77 FLD0899B PIC 9(09)V9(07) COMP-6 - VALUE 438142184.6749312. + VALUE 438142184.6749312. 77 FLD0899E PIC X VALUE 'N'. 77 FLD0900A PIC 9(03)V9(32) COMP-6 - VALUE 929.41329164379282712360463847289793. + VALUE 929.41329164379282712360463847289793. 77 FLD0900B PIC 9(06)V9(01) COMP-6 - VALUE 185639.8. + VALUE 185639.8. 77 FLD0900E PIC X VALUE 'N'. 77 FLD0901A PIC 9(10)V9(07) COMP-6 - VALUE 4563598931.5070740. + VALUE 4563598931.5070740. 77 FLD0901B PIC 9(01)V9(36) COMP-6 - VALUE 9.782322298369796609307513790554367005. + VALUE 9.782322298369796609307513790554367005. 77 FLD0901E PIC X VALUE 'N'. 77 FLD0902A PIC 9(05)V9(28) COMP-3 - VALUE 87405.6741908566081633580324705690. + VALUE 87405.6741908566081633580324705690. 77 FLD0902B PIC 9(10)V9(09) COMP-3 - VALUE 5131137190.755751253. + VALUE 5131137190.755751253. 77 FLD0902E PIC X VALUE 'N'. 77 FLD0903A PIC 9(08)V9(02) COMP-6 - VALUE 28616952.10. + VALUE 28616952.10. 77 FLD0903B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0903E PIC X VALUE 'N'. 77 FLD0904A PIC S9(04) COMP-3 - VALUE +1137. + VALUE +1137. 77 FLD0904B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0904E PIC X VALUE 'N'. 77 FLD0905A PIC 9(09)V9(04) COMP-6 - VALUE 357938124.4724. + VALUE 357938124.4724. 77 FLD0905B PIC 9(09)V9(04) COMP-6 - VALUE 349599231.9688. + VALUE 349599231.9688. 77 FLD0905E PIC X VALUE 'N'. 77 FLD0906A PIC 9(09)V9(16) COMP-6 - VALUE 669388906.6218295935684068. + VALUE 669388906.6218295935684068. 77 FLD0906B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0906E PIC X VALUE 'N'. 77 FLD0907A PIC S9(09)V9(05) COMP-3 - VALUE -390800584.69506. + VALUE -390800584.69506. 77 FLD0907B PIC 9(10)V9(11) COMP-6 - VALUE 5692874702.16027324809. + VALUE 5692874702.16027324809. 77 FLD0907E PIC X VALUE 'N'. 77 FLD0908A PIC S9(10)V9(06) COMP-3 - VALUE +4306350776.286586. + VALUE +4306350776.286586. 77 FLD0908B PIC 9(03)V9(31) COMP-3 - VALUE 912.0472776451683527554337160836439. + VALUE 912.0472776451683527554337160836439. 77 FLD0908E PIC X VALUE 'N'. 77 FLD0909A PIC 9(08)V9(03) COMP-6 - VALUE 30663800.453. + VALUE 30663800.453. 77 FLD0909B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0909E PIC X VALUE 'N'. 77 FLD0910A PIC S9(06)V9(01) COMP-3 - VALUE -193158.9. + VALUE -193158.9. 77 FLD0910B PIC 9(04)V9(30) COMP-6 - VALUE 9098.433765600096867487422969134058. + VALUE 9098.433765600096867487422969134058. 77 FLD0910E PIC X VALUE 'N'. 77 FLD0911A PIC S9(10)V9(07) COMP-3 - VALUE -4611964452.0728980. + VALUE -4611964452.0728980. 77 FLD0911B PIC 9(08)V9(20) COMP-3 - VALUE 74305071.04102702653491974160. + VALUE 74305071.04102702653491974160. 77 FLD0911E PIC X VALUE 'N'. 77 FLD0912A PIC 9(10)V9(09) COMP-3 - VALUE 5000191930.396378214. + VALUE 5000191930.396378214. 77 FLD0912B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0912E PIC X VALUE 'N'. 77 FLD0913A PIC S9(04) COMP-3 - VALUE +1246. + VALUE +1246. 77 FLD0913B PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0913E PIC X VALUE 'N'. 77 FLD0914A PIC 9(03)V9(31) COMP-6 - VALUE 917.2012666333545505281676923914346. + VALUE 917.2012666333545505281676923914346. 77 FLD0914B PIC 9(01)V9(36) COMP-3 - VALUE 9.801144784183424274459639491396956145. + VALUE 9.801144784183424274459639491396956145. 77 FLD0914E PIC X VALUE 'N'. 77 FLD0915A PIC 9(08)V9(20) COMP-6 - VALUE 74750906.49492384109464637731. + VALUE 74750906.49492384109464637731. 77 FLD0915B PIC S9(04) COMP-3 - VALUE +1130. + VALUE +1130. 77 FLD0915E PIC X VALUE 'N'. 77 FLD0916A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0916B PIC 9(10)V9(06) COMP-6 - VALUE 4372777685.598984. + VALUE 4372777685.598984. 77 FLD0916E PIC X VALUE 'N'. 77 FLD0917A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0917B PIC 9(04) COMP-6 - VALUE 1084. + VALUE 1084. 77 FLD0917E PIC X VALUE 'N'. 77 FLD0918A PIC 9(04) COMP-6 - VALUE 1059. + VALUE 1059. 77 FLD0918B PIC 9(10)V9(11) COMP-6 - VALUE 5693106161.94893204244. + VALUE 5693106161.94893204244. 77 FLD0918E PIC X VALUE 'N'. 77 FLD0919A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0919B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0919E PIC X VALUE 'N'. 77 FLD0920A PIC S9(05)V9(01) COMP-3 - VALUE -17474.9. + VALUE -17474.9. 77 FLD0920B PIC 9(09)V9(16) COMP-6 - VALUE 669843285.3658151664433262. + VALUE 669843285.3658151664433262. 77 FLD0920E PIC X VALUE 'N'. 77 FLD0921A PIC 9(10)V9(10) COMP-6 - VALUE 5463494999.0456427304. + VALUE 5463494999.0456427304. 77 FLD0921B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0921E PIC X VALUE 'N'. 77 FLD0922A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0922B PIC S9(05)V9(01) COMP-3 - VALUE -18331.8. + VALUE -18331.8. 77 FLD0922E PIC X VALUE 'N'. 77 FLD0923A PIC 9(06) COMP-6 - VALUE 159582. + VALUE 159582. 77 FLD0923B PIC S9(04) COMP-3 - VALUE +1310. + VALUE +1310. 77 FLD0923E PIC X VALUE 'N'. 77 FLD0924A PIC 9(10)V9(11) COMP-6 - VALUE 5650505738.70210182114. + VALUE 5650505738.70210182114. 77 FLD0924B PIC 9(06)V9(25) COMP-3 - VALUE 830413.4742864166529585645548650. + VALUE 830413.4742864166529585645548650. 77 FLD0924E PIC X VALUE 'N'. 77 FLD0925A PIC S9(04) COMP-3 - VALUE +1236. + VALUE +1236. 77 FLD0925B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0925E PIC X VALUE 'N'. 77 FLD0926A PIC 9(08)V9(18) COMP-6 - VALUE 69535643.175280814620720093. + VALUE 69535643.175280814620720093. 77 FLD0926B PIC S9(07)V9(02) COMP-3 - VALUE -2533128.95. + VALUE -2533128.95. 77 FLD0926E PIC X VALUE 'N'. 77 FLD0927A PIC 9(06)V9(24) COMP-3 - VALUE 800954.558131814597921049880824. + VALUE 800954.558131814597921049880824. 77 FLD0927B PIC 9(10)V9(09) COMP-3 - VALUE 5121064754.192180545. + VALUE 5121064754.192180545. 77 FLD0927E PIC X VALUE 'N'. 77 FLD0928A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0928B PIC 9(07)V9(02) COMP-6 - VALUE 2551694.92. + VALUE 2551694.92. 77 FLD0928E PIC X VALUE 'N'. 77 FLD0929A PIC 9(05)V9(28) COMP-3 - VALUE 87174.0739403786824013309342262800. + VALUE 87174.0739403786824013309342262800. 77 FLD0929B PIC 9(08)V9(19) COMP-3 - VALUE 71306594.2354483839338286088. + VALUE 71306594.2354483839338286088. 77 FLD0929E PIC X VALUE 'N'. 77 FLD0930A PIC 9(01)V9(36) COMP-3 - VALUE 9.911281003002671008417223674769047647. + VALUE 9.911281003002671008417223674769047647. 77 FLD0930B PIC 9(09)V9(13) COMP-3 - VALUE 591594874.8305130955316. + VALUE 591594874.8305130955316. 77 FLD0930E PIC X VALUE 'N'. 77 FLD0931A PIC 9(09)V9(12) COMP-3 - VALUE 573747057.720371378408. + VALUE 573747057.720371378408. 77 FLD0931B PIC S9(07)V9(02) COMP-3 - VALUE -2503283.13. + VALUE -2503283.13. 77 FLD0931E PIC X VALUE 'N'. 77 FLD0932A PIC 9(10)V9(09) COMP-6 - VALUE 5079506475.355934913. + VALUE 5079506475.355934913. 77 FLD0932B PIC 9(10)V9(09) COMP-6 - VALUE 5196217943.575858200. + VALUE 5196217943.575858200. 77 FLD0932E PIC X VALUE 'N'. 77 FLD0933A PIC 9(07)V9(22) COMP-6 - VALUE 7776883.1704294028028812135744. + VALUE 7776883.1704294028028812135744. 77 FLD0933B PIC 9(09)V9(03) COMP-6 - VALUE 328435728.864. + VALUE 328435728.864. 77 FLD0933E PIC X VALUE 'N'. 77 FLD0934A PIC 9(05)V9(01) COMP-6 - VALUE 16899.6. + VALUE 16899.6. 77 FLD0934B PIC 9(07)V9(02) COMP-6 - VALUE 2394400.51. + VALUE 2394400.51. 77 FLD0934E PIC X VALUE 'N'. 77 FLD0935A PIC 9(05)V9(01) COMP-6 - VALUE 16691.2. + VALUE 16691.2. 77 FLD0935B PIC 9(10)V9(08) COMP-6 - VALUE 4853829665.64275264. + VALUE 4853829665.64275264. 77 FLD0935E PIC X VALUE 'N'. 77 FLD0936A PIC 9(08)V9(03) COMP-6 - VALUE 29560937.131. + VALUE 29560937.131. 77 FLD0936B PIC 9(02)V9(34) COMP-3 - VALUE 95.2998853185021421730027668672846630. + VALUE 95.2998853185021421730027668672846630. 77 FLD0936E PIC X VALUE 'N'. 77 FLD0937A PIC 9(02)V9(33) COMP-3 - VALUE 94.462893191714936147462822191300801. + VALUE 94.462893191714936147462822191300801. 77 FLD0937B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0937E PIC X VALUE 'N'. 77 FLD0938A PIC 9(09)V9(12) COMP-6 - VALUE 578242437.999430092254. + VALUE 578242437.999430092254. 77 FLD0938B PIC 9(08)V9(18) COMP-6 - VALUE 70721875.972746128802270959. + VALUE 70721875.972746128802270959. 77 FLD0938E PIC X VALUE 'N'. 77 FLD0939A PIC 9(10)V9(13) COMP-6 - VALUE 6084884727.3780637401330. + VALUE 6084884727.3780637401330. 77 FLD0939B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0939E PIC X VALUE 'N'. 77 FLD0940A PIC 9(09)V9(12) COMP-6 - VALUE 577997061.609985873786. + VALUE 577997061.609985873786. 77 FLD0940B PIC 9(10)V9(08) COMP-6 - VALUE 4780052522.48498546. + VALUE 4780052522.48498546. 77 FLD0940E PIC X VALUE 'N'. 77 FLD0941A PIC 9(09)V9(16) COMP-3 - VALUE 670449367.9367865555107641. + VALUE 670449367.9367865555107641. 77 FLD0941B PIC 9(09)V9(04) COMP-6 - VALUE 345028332.3540. + VALUE 345028332.3540. 77 FLD0941E PIC X VALUE 'N'. 77 FLD0942A PIC 9(10)V9(10) COMP-3 - VALUE 5309347867.8071082121. + VALUE 5309347867.8071082121. 77 FLD0942B PIC 9(03)V9(32) COMP-3 - VALUE 922.70492697630424050458941565011627. + VALUE 922.70492697630424050458941565011627. 77 FLD0942E PIC X VALUE 'N'. 77 FLD0943A PIC S9(09)V9(03) COMP-3 - VALUE +323766798.919. + VALUE +323766798.919. 77 FLD0943B PIC S9(06)V9(01) COMP-3 - VALUE +203018.6. + VALUE +203018.6. 77 FLD0943E PIC X VALUE 'N'. 77 FLD0944A PIC 9(02)V9(34) COMP-6 - VALUE 95.7363239628727824559462078468641266. + VALUE 95.7363239628727824559462078468641266. 77 FLD0944B PIC S9(07)V9(02) COMP-3 - VALUE -2600465.21. + VALUE -2600465.21. 77 FLD0944E PIC X VALUE 'N'. 77 FLD0945A PIC 9(10)V9(10) COMP-3 - VALUE 5427766423.1255295934. + VALUE 5427766423.1255295934. 77 FLD0945B PIC S9(10)V9(06) COMP-3 - VALUE +4211785767.712989. + VALUE +4211785767.712989. 77 FLD0945E PIC X VALUE 'N'. 77 FLD0946A PIC S9(07)V9(02) COMP-3 - VALUE -2603132.30. + VALUE -2603132.30. 77 FLD0946B PIC 9(02)V9(34) COMP-3 - VALUE 96.2407519811451561686510558502050116. + VALUE 96.2407519811451561686510558502050116. 77 FLD0946E PIC X VALUE 'N'. 77 FLD0947A PIC 9(05)V9(27) COMP-6 - VALUE 85846.989065825540787812997223227. + VALUE 85846.989065825540787812997223227. 77 FLD0947B PIC 9(09)V9(16) COMP-3 - VALUE 671942080.3697424560141371. + VALUE 671942080.3697424560141371. 77 FLD0947E PIC X VALUE 'N'. 77 FLD0948A PIC 9(04) COMP-6 - VALUE 1058. + VALUE 1058. 77 FLD0948B PIC 9(07)V9(21) COMP-6 - VALUE 7582594.805549627281493485497. + VALUE 7582594.805549627281493485497. 77 FLD0948E PIC X VALUE 'N'. 77 FLD0949A PIC S9(10)V9(06) COMP-3 - VALUE +4307044196.647341. + VALUE +4307044196.647341. 77 FLD0949B PIC 9(10)V9(07) COMP-6 - VALUE 4670230467.6696332. + VALUE 4670230467.6696332. 77 FLD0949E PIC X VALUE 'N'. 77 FLD0950A PIC 9(09)V9(14) COMP-3 - VALUE 614898523.03850200954116. + VALUE 614898523.03850200954116. 77 FLD0950B PIC 9(04)V9(30) COMP-6 - VALUE 9056.465512238127679722765606129541. + VALUE 9056.465512238127679722765606129541. 77 FLD0950E PIC X VALUE 'N'. 77 FLD0951A PIC S9(08)V9(03) COMP-3 - VALUE +31116955.475. + VALUE +31116955.475. 77 FLD0951B PIC 9(08)V9(20) COMP-6 - VALUE 74599134.92992847894313968026. + VALUE 74599134.92992847894313968026. 77 FLD0951E PIC X VALUE 'N'. 77 FLD0952A PIC 9(09)V9(03) COMP-6 - VALUE 315844571.317. + VALUE 315844571.317. 77 FLD0952B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0952E PIC X VALUE 'N'. 77 FLD0953A PIC 9(06) COMP-6 - VALUE 166635. + VALUE 166635. 77 FLD0953B PIC 9(10)V9(09) COMP-6 - VALUE 5187782319.462912461. + VALUE 5187782319.462912461. 77 FLD0953E PIC X VALUE 'N'. 77 FLD0954A PIC 9(10)V9(11) COMP-6 - VALUE 5577123049.60128579800. + VALUE 5577123049.60128579800. 77 FLD0954B PIC 9(02)V9(34) COMP-3 - VALUE 97.0603521071659591790137255884474143. + VALUE 97.0603521071659591790137255884474143. 77 FLD0954E PIC X VALUE 'N'. 77 FLD0955A PIC S9(08)V9(02) COMP-3 - VALUE -27357789.23. + VALUE -27357789.23. 77 FLD0955B PIC 9(06)V9(25) COMP-3 - VALUE 823687.4590304759102821208216482. + VALUE 823687.4590304759102821208216482. 77 FLD0955E PIC X VALUE 'N'. 77 FLD0956A PIC S9(08)V9(02) COMP-3 - VALUE -27355040.84. + VALUE -27355040.84. 77 FLD0956B PIC 9(08)V9(18) COMP-3 - VALUE 70029518.862281070479269828. + VALUE 70029518.862281070479269828. 77 FLD0956E PIC X VALUE 'N'. 77 FLD0957A PIC 9(09)V9(15) COMP-6 - VALUE 637627083.330792543414133. + VALUE 637627083.330792543414133. 77 FLD0957B PIC S9(04) COMP-3 - VALUE +1212. + VALUE +1212. 77 FLD0957E PIC X VALUE 'N'. 77 FLD0958A PIC S9(08)V9(03) COMP-3 - VALUE -29370744.150. + VALUE -29370744.150. 77 FLD0958B PIC 9(10)V9(06) COMP-6 - VALUE 4358178846.720288. + VALUE 4358178846.720288. 77 FLD0958E PIC X VALUE 'N'. 77 FLD0959A PIC 9(06)V9(25) COMP-6 - VALUE 827211.6833605048791255853757320. + VALUE 827211.6833605048791255853757320. 77 FLD0959B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0959E PIC X VALUE 'N'. 77 FLD0960A PIC 9(10)V9(11) COMP-6 - VALUE 5559976801.18206716315. + VALUE 5559976801.18206716315. 77 FLD0960B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0960E PIC X VALUE 'N'. 77 FLD0961A PIC 9(08)V9(19) COMP-6 - VALUE 72708740.7191407630868695832. + VALUE 72708740.7191407630868695832. 77 FLD0961B PIC S9(04) COMP-3 - VALUE +1315. + VALUE +1315. 77 FLD0961E PIC X VALUE 'N'. 77 FLD0962A PIC 9(02)V9(34) COMP-6 - VALUE 96.8081984946274620718043024680810049. + VALUE 96.8081984946274620718043024680810049. 77 FLD0962B PIC 9(08)V9(17) COMP-3 - VALUE 68265700.44059103725686554. + VALUE 68265700.44059103725686554. 77 FLD0962E PIC X VALUE 'N'. 77 FLD0963A PIC 9(01)V9(36) COMP-3 - VALUE 9.803573230667260718362854277074802666. + VALUE 9.803573230667260718362854277074802666. 77 FLD0963B PIC 9(09)V9(16) COMP-6 - VALUE 657950850.8072698935720268. + VALUE 657950850.8072698935720268. 77 FLD0963E PIC X VALUE 'N'. 77 FLD0964A PIC 9(09)V9(15) COMP-6 - VALUE 639504907.969730918004813. + VALUE 639504907.969730918004813. 77 FLD0964B PIC 9(09)V9(13) COMP-6 - VALUE 599568613.7680703575725. + VALUE 599568613.7680703575725. 77 FLD0964E PIC X VALUE 'N'. 77 FLD0965A PIC 9(05) COMP-6 - VALUE 13581. + VALUE 13581. 77 FLD0965B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0965E PIC X VALUE 'N'. 77 FLD0966A PIC 9(06)V9(01) COMP-6 - VALUE 189200.6. + VALUE 189200.6. 77 FLD0966B PIC 9(06)V9(01) COMP-6 - VALUE 189757.7. + VALUE 189757.7. 77 FLD0966E PIC X VALUE 'N'. 77 FLD0967A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0967B PIC 9(09)V9(04) COMP-6 - VALUE 356045641.3147. + VALUE 356045641.3147. 77 FLD0967E PIC X VALUE 'N'. 77 FLD0968A PIC 9(09)V9(15) COMP-6 - VALUE 649996663.320669743058033. + VALUE 649996663.320669743058033. 77 FLD0968B PIC S9(04) COMP-3 - VALUE +1132. + VALUE +1132. 77 FLD0968E PIC X VALUE 'N'. 77 FLD0969A PIC S9(05) COMP-3 - VALUE -15366. + VALUE -15366. 77 FLD0969B PIC 9(09)V9(13) COMP-3 - VALUE 594539058.0989867723715. + VALUE 594539058.0989867723715. 77 FLD0969E PIC X VALUE 'N'. 77 FLD0970A PIC 9(09)V9(14) COMP-3 - VALUE 631417540.20798013247173. + VALUE 631417540.20798013247173. 77 FLD0970B PIC 9(02)V9(34) COMP-6 - VALUE 96.8862081091470539462306987843476235. + VALUE 96.8862081091470539462306987843476235. 77 FLD0970E PIC X VALUE 'N'. 77 FLD0971A PIC 9(07)V9(01) COMP-6 - VALUE 2161446.9. + VALUE 2161446.9. 77 FLD0971B PIC S9(09)V9(06) COMP-3 - VALUE +400705169.115322. + VALUE +400705169.115322. 77 FLD0971E PIC X VALUE 'N'. 77 FLD0972A PIC 9(09)V9(15) COMP-6 - VALUE 647710182.878484586055378. + VALUE 647710182.878484586055378. 77 FLD0972B PIC 9(05) COMP-6 - VALUE 13649. + VALUE 13649. 77 FLD0972E PIC X VALUE 'N'. 77 FLD0973A PIC 9(05) COMP-6 - VALUE 13817. + VALUE 13817. 77 FLD0973B PIC 9(06)V9(25) COMP-6 - VALUE 828260.5282429751358819203232997. + VALUE 828260.5282429751358819203232997. 77 FLD0973E PIC X VALUE 'N'. 77 FLD0974A PIC 9(04) COMP-6 - VALUE 1180. + VALUE 1180. 77 FLD0974B PIC S9(03) COMP-3 - VALUE +104. + VALUE +104. 77 FLD0974E PIC X VALUE 'N'. 77 FLD0975A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0975B PIC 9(09)V9(03) COMP-6 - VALUE 329183580.054. + VALUE 329183580.054. 77 FLD0975E PIC X VALUE 'N'. 77 FLD0976A PIC S9(07)V9(01) COMP-3 - VALUE +2206144.7. + VALUE +2206144.7. 77 FLD0976B PIC 9(10)V9(09) COMP-6 - VALUE 5191401776.232426046. + VALUE 5191401776.232426046. 77 FLD0976E PIC X VALUE 'N'. 77 FLD0977A PIC 9(09)V9(03) COMP-6 - VALUE 327431372.704. + VALUE 327431372.704. 77 FLD0977B PIC S9(09)V9(05) COMP-3 - VALUE -393208707.80387. + VALUE -393208707.80387. 77 FLD0977E PIC X VALUE 'N'. 77 FLD0978A PIC 9(09)V9(16) COMP-6 - VALUE 675062190.8116747338368668. + VALUE 675062190.8116747338368668. 77 FLD0978B PIC S9(09)V9(06) COMP-3 - VALUE +411411057.685845. + VALUE +411411057.685845. 77 FLD0978E PIC X VALUE 'N'. 77 FLD0979A PIC 9(03)V9(32) COMP-6 - VALUE 925.33169671466619643496187563869170. + VALUE 925.33169671466619643496187563869170. 77 FLD0979B PIC 9(09)V9(05) COMP-6 - VALUE 388509802.38797. + VALUE 388509802.38797. 77 FLD0979E PIC X VALUE 'N'. 77 FLD0980A PIC 9(03)V9(32) COMP-6 - VALUE 935.82234581280043794748735308530740. + VALUE 935.82234581280043794748735308530740. 77 FLD0980B PIC 9(09)V9(15) COMP-6 - VALUE 647159992.565670250108667. + VALUE 647159992.565670250108667. 77 FLD0980E PIC X VALUE 'N'. 77 FLD0981A PIC 9(06)V9(01) COMP-6 - VALUE 195132.7. + VALUE 195132.7. 77 FLD0981B PIC S9(09)V9(04) COMP-3 - VALUE -360473610.9762. + VALUE -360473610.9762. 77 FLD0981E PIC X VALUE 'N'. 77 FLD0982A PIC 9(06)V9(25) COMP-6 - VALUE 816610.1728260642955703474399342. + VALUE 816610.1728260642955703474399342. 77 FLD0982B PIC S9(08)V9(03) COMP-3 - VALUE +31469845.616. + VALUE +31469845.616. 77 FLD0982E PIC X VALUE 'N'. 77 FLD0983A PIC 9(10)V9(09) COMP-3 - VALUE 5114754992.436914005. + VALUE 5114754992.436914005. 77 FLD0983B PIC 9(02)V9(34) COMP-6 - VALUE 95.8147071945383510538363225350622087. + VALUE 95.8147071945383510538363225350622087. 77 FLD0983E PIC X VALUE 'N'. 77 FLD0984A PIC 9(09)V9(15) COMP-3 - VALUE 632949921.330981046807551. + VALUE 632949921.330981046807551. 77 FLD0984B PIC 9(10)V9(09) COMP-6 - VALUE 5090793805.153389639. + VALUE 5090793805.153389639. 77 FLD0984E PIC X VALUE 'N'. 77 FLD0985A PIC 9(10)V9(06) COMP-6 - VALUE 4296662473.303992. + VALUE 4296662473.303992. 77 FLD0985B PIC 9(05)V9(28) COMP-3 - VALUE 87137.5808353749947698929645412135. + VALUE 87137.5808353749947698929645412135. 77 FLD0985E PIC X VALUE 'N'. 77 FLD0986A PIC 9(05) COMP-6 - VALUE 14588. + VALUE 14588. 77 FLD0986B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0986E PIC X VALUE 'N'. 77 FLD0987A PIC 9(01)V9(36) COMP-3 - VALUE 9.834402345123109956404050535638816654. + VALUE 9.834402345123109956404050535638816654. 77 FLD0987B PIC 9(06)V9(26) COMP-3 - VALUE 842525.10302045313661523096016026. + VALUE 842525.10302045313661523096016026. 77 FLD0987E PIC X VALUE 'N'. 77 FLD0988A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0988B PIC S9(05)V9(01) COMP-3 - VALUE -18152.0. + VALUE -18152.0. 77 FLD0988E PIC X VALUE 'N'. 77 FLD0989A PIC S9(04) COMP-3 - VALUE +1235. + VALUE +1235. 77 FLD0989B PIC 9(09)V9(13) COMP-3 - VALUE 593212782.9792923634499. + VALUE 593212782.9792923634499. 77 FLD0989E PIC X VALUE 'N'. 77 FLD0990A PIC 9(07)V9(22) COMP-3 - VALUE 7806084.0781040319313888176111. + VALUE 7806084.0781040319313888176111. 77 FLD0990B PIC 9(06)V9(01) COMP-6 - VALUE 208986.1. + VALUE 208986.1. 77 FLD0990E PIC X VALUE 'N'. 77 FLD0991A PIC 9(06)V9(24) COMP-6 - VALUE 807774.663029880435338725419569. + VALUE 807774.663029880435338725419569. 77 FLD0991B PIC S9(09)V9(06) COMP-3 - VALUE +403465254.324070. + VALUE +403465254.324070. 77 FLD0991E PIC X VALUE 'N'. 77 FLD0992A PIC 9(07)V9(22) COMP-6 - VALUE 7784108.2583169551867285917978. + VALUE 7784108.2583169551867285917978. 77 FLD0992B PIC 9(04)V9(29) COMP-3 - VALUE 8920.19846678347883006665597349638. + VALUE 8920.19846678347883006665597349638. 77 FLD0992E PIC X VALUE 'N'. 77 FLD0993A PIC 9(08)V9(20) COMP-6 - VALUE 74534466.64416291111976420324. + VALUE 74534466.64416291111976420324. 77 FLD0993B PIC S9(04) COMP-3 - VALUE +1132. + VALUE +1132. 77 FLD0993E PIC X VALUE 'N'. 77 FLD0994A PIC 9(06)V9(24) COMP-6 - VALUE 815107.307501011568717785849003. + VALUE 815107.307501011568717785849003. 77 FLD0994B PIC S9(10)V9(08) COMP-3 - VALUE -4847118976.22432053. + VALUE -4847118976.22432053. 77 FLD0994E PIC X VALUE 'N'. 77 FLD0995A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0995B PIC 9(06)V9(01) COMP-6 - VALUE 188825.8. + VALUE 188825.8. 77 FLD0995E PIC X VALUE 'N'. 77 FLD0996A PIC 9(09)V9(14) COMP-6 - VALUE 619241405.61761309431432. + VALUE 619241405.61761309431432. 77 FLD0996B PIC 9(09)V9(16) COMP-6 - VALUE 669751940.2443259384227758. + VALUE 669751940.2443259384227758. 77 FLD0996E PIC X VALUE 'N'. 77 FLD0997A PIC 9(10)V9(09) COMP-3 - VALUE 5006446394.611311356. + VALUE 5006446394.611311356. 77 FLD0997B PIC 9(10)V9(09) COMP-3 - VALUE 5005353152.147143935. + VALUE 5005353152.147143935. 77 FLD0997E PIC X VALUE 'N'. 77 FLD0998A PIC 9(09)V9(13) COMP-6 - VALUE 598229443.4201559374386. + VALUE 598229443.4201559374386. 77 FLD0998B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0998E PIC X VALUE 'N'. 77 FLD0999A PIC S9(03) COMP-3 - VALUE -081. + VALUE -081. 77 FLD0999B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0999E PIC X VALUE 'N'. * RESULTS-AREA. @@ -28396,2499 +28396,2499 @@ AT_DATA([prog.cob], [ * DATA-AREA 77 FLD0001A PIC 9(08)V9(19) COMP-3 - VALUE 72210483.5706116943150334464. + VALUE 72210483.5706116943150334464. 77 FLD0001B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0002A PIC 9(05)V9(26) COMP-6 - VALUE 83954.98773698940597753903603006. + VALUE 83954.98773698940597753903603006. 77 FLD0002B PIC 9(05)V9(27) COMP-6 - VALUE 85526.912891598327881581553810974. + VALUE 85526.912891598327881581553810974. 77 FLD0003A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0003B PIC 9(10)V9(08) COMP-6 - VALUE 4976916625.40136914. + VALUE 4976916625.40136914. 77 FLD0004A PIC S9(08)V9(03) COMP-3 - VALUE +31348416.669. + VALUE +31348416.669. 77 FLD0004B PIC 9(05)V9(01) COMP-6 - VALUE 16799.5. + VALUE 16799.5. 77 FLD0005A PIC S9(07)V9(01) COMP-3 - VALUE +2337334.8. + VALUE +2337334.8. 77 FLD0005B PIC S9(09)V9(03) COMP-3 - VALUE +324331791.973. + VALUE +324331791.973. 77 FLD0006A PIC 9(04) COMP-6 - VALUE 1169. + VALUE 1169. 77 FLD0006B PIC 9(03)V9(31) COMP-3 - VALUE 912.5850054312464321171205483551602. + VALUE 912.5850054312464321171205483551602. 77 FLD0007A PIC S9(04) COMP-3 - VALUE +1123. + VALUE +1123. 77 FLD0007B PIC S9(08)V9(02) COMP-3 - VALUE -27032151.91. + VALUE -27032151.91. 77 FLD0008A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0008B PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0009A PIC 9(10)V9(07) COMP-6 - VALUE 4695987895.4491957. + VALUE 4695987895.4491957. 77 FLD0009B PIC 9(05)V9(28) COMP-3 - VALUE 87164.4396861416259625343627703841. + VALUE 87164.4396861416259625343627703841. 77 FLD0010A PIC 9(03)V9(32) COMP-3 - VALUE 932.59120224122482589734772773226723. + VALUE 932.59120224122482589734772773226723. 77 FLD0010B PIC S9(09)V9(06) COMP-3 - VALUE +401314086.816856. + VALUE +401314086.816856. 77 FLD0011A PIC 9(09)V9(04) COMP-6 - VALUE 356168291.4830. + VALUE 356168291.4830. 77 FLD0011B PIC 9(04)V9(29) COMP-6 - VALUE 8869.25340695890795927880390081554. + VALUE 8869.25340695890795927880390081554. 77 FLD0012A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0012B PIC 9(08)V9(19) COMP-3 - VALUE 71485769.2486604356929547066. + VALUE 71485769.2486604356929547066. 77 FLD0013A PIC 9(06)V9(25) COMP-6 - VALUE 829630.0004717120923913853403064. + VALUE 829630.0004717120923913853403064. 77 FLD0013B PIC 9(07)V9(02) COMP-6 - VALUE 2497013.60. + VALUE 2497013.60. 77 FLD0014A PIC 9(09)V9(13) COMP-3 - VALUE 592943121.2490873237541. + VALUE 592943121.2490873237541. 77 FLD0014B PIC 9(06)V9(01) COMP-6 - VALUE 186764.7. + VALUE 186764.7. 77 FLD0015A PIC 9(07)V9(23) COMP-6 - VALUE 7984732.71412134533164817185024. + VALUE 7984732.71412134533164817185024. 77 FLD0015B PIC 9(10)V9(08) COMP-6 - VALUE 4953047329.19498391. + VALUE 4953047329.19498391. 77 FLD0016A PIC 9(05)V9(28) COMP-3 - VALUE 87275.9557853607148558694461826235. + VALUE 87275.9557853607148558694461826235. 77 FLD0016B PIC S9(10)V9(06) COMP-3 - VALUE +4316165362.791636. + VALUE +4316165362.791636. 77 FLD0017A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0017B PIC 9(04)V9(30) COMP-6 - VALUE 8983.341087204116393039043941826093. + VALUE 8983.341087204116393039043941826093. 77 FLD0018A PIC 9(07)V9(21) COMP-3 - VALUE 7619026.805277494540646898713. + VALUE 7619026.805277494540646898713. 77 FLD0018B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0019A PIC S9(10)V9(08) COMP-3 - VALUE -4930528885.68236813. + VALUE -4930528885.68236813. 77 FLD0019B PIC S9(09)V9(06) COMP-3 - VALUE +402620216.542097. + VALUE +402620216.542097. 77 FLD0020A PIC 9(09)V9(15) COMP-3 - VALUE 643887452.720044328735582. + VALUE 643887452.720044328735582. 77 FLD0020B PIC 9(09)V9(11) COMP-3 - VALUE 552340679.26366126055. + VALUE 552340679.26366126055. 77 FLD0021A PIC 9(01)V9(36) COMP-6 - VALUE 9.880441680787707126043528660375159233. + VALUE 9.880441680787707126043528660375159233. 77 FLD0021B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0022A PIC 9(06)V9(24) COMP-3 - VALUE 810040.192546636172998830716096. + VALUE 810040.192546636172998830716096. 77 FLD0022B PIC 9(07)V9(21) COMP-3 - VALUE 7610660.641468062204140210269. + VALUE 7610660.641468062204140210269. 77 FLD0023A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0023B PIC 9(02)V9(34) COMP-3 - VALUE 95.1865432391802879230624512274516746. + VALUE 95.1865432391802879230624512274516746. 77 FLD0024A PIC 9(09)V9(03) COMP-6 - VALUE 329406009.124. + VALUE 329406009.124. 77 FLD0024B PIC S9(09)V9(06) COMP-3 - VALUE +410668612.232476. + VALUE +410668612.232476. 77 FLD0025A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0025B PIC 9(07)V9(02) COMP-6 - VALUE 2497488.27. + VALUE 2497488.27. 77 FLD0026A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0026B PIC S9(09)V9(05) COMP-3 - VALUE -383757196.20564. + VALUE -383757196.20564. 77 FLD0027A PIC 9(09)V9(13) COMP-3 - VALUE 601026867.0937520818498. + VALUE 601026867.0937520818498. 77 FLD0027B PIC 9(06)V9(25) COMP-6 - VALUE 815849.1045356750515082921992870. + VALUE 815849.1045356750515082921992870. 77 FLD0028A PIC 9(04)V9(29) COMP-6 - VALUE 8794.72782911061568000832266989164. + VALUE 8794.72782911061568000832266989164. 77 FLD0028B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. - 77 FLD0029A PIC 9(05) COMP-6 - VALUE 13697. + 77 FLD0029A PIC 9(05) BINARY + VALUE 13697. 77 FLD0029B PIC 9(09)V9(17) COMP-3 - VALUE 684374480.18294422258378517. + VALUE 684374480.18294422258378517. 77 FLD0030A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0030B PIC 9(08)V9(18) COMP-3 - VALUE 70264210.169553353857452293. + VALUE 70264210.169553353857452293. 77 FLD0031A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0031B PIC 9(08)V9(18) COMP-3 - VALUE 70450280.588407820925311852. + VALUE 70450280.588407820925311852. 77 FLD0032A PIC 9(10)V9(10) COMP-6 - VALUE 5269599769.4606222516. + VALUE 5269599769.4606222516. 77 FLD0032B PIC S9(09)V9(03) COMP-3 - VALUE +322379197.669. + VALUE +322379197.669. 77 FLD0033A PIC 9(09)V9(15) COMP-3 - VALUE 641903038.069859710468278. + VALUE 641903038.069859710468278. 77 FLD0033B PIC 9(09)V9(03) COMP-6 - VALUE 318353502.142. + VALUE 318353502.142. 77 FLD0034A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0034B PIC S9(07)V9(01) COMP-3 - VALUE +2126766.9. + VALUE +2126766.9. 77 FLD0035A PIC 9(06)V9(25) COMP-6 - VALUE 816285.5924199176049782522568420. + VALUE 816285.5924199176049782522568420. 77 FLD0035B PIC 9(07)V9(01) COMP-6 - VALUE 2276316.1. + VALUE 2276316.1. 77 FLD0036A PIC 9(01)V9(36) COMP-6 - VALUE 9.789384107274801127829277902492322027. + VALUE 9.789384107274801127829277902492322027. 77 FLD0036B PIC 9(05)V9(27) COMP-6 - VALUE 84790.535447228665422159110676147. + VALUE 84790.535447228665422159110676147. 77 FLD0037A PIC 9(10)V9(11) COMP-6 - VALUE 5559560836.79804091701. + VALUE 5559560836.79804091701. 77 FLD0037B PIC S9(05) COMP-3 - VALUE -15352. + VALUE -15352. 77 FLD0038A PIC 9(02)V9(34) COMP-6 - VALUE 95.5897506417712539139586169767426326. + VALUE 95.5897506417712539139586169767426326. 77 FLD0038B PIC 9(06)V9(25) COMP-6 - VALUE 819342.2486726212872198971126636. + VALUE 819342.2486726212872198971126636. 77 FLD0039A PIC 9(04)V9(29) COMP-3 - VALUE 8933.20399454893721014059337903745. + VALUE 8933.20399454893721014059337903745. 77 FLD0039B PIC 9(06)V9(01) COMP-6 - VALUE 205344.3. + VALUE 205344.3. - 77 FLD0040A PIC S9(06) COMP-3 - VALUE -162227. + 77 FLD0040A PIC S9(06) COMP-5 + VALUE -162227. 77 FLD0040B PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0041A PIC 9(09)V9(17) COMP-6 - VALUE 687709210.19485042879892944. + VALUE 687709210.19485042879892944. 77 FLD0041B PIC 9(10)V9(09) COMP-3 - VALUE 5032246021.307608119. + VALUE 5032246021.307608119. 77 FLD0042A PIC 9(07)V9(22) COMP-6 - VALUE 7680734.5400734650109342283030. + VALUE 7680734.5400734650109342283030. 77 FLD0042B PIC 9(10)V9(10) COMP-6 - VALUE 5398987461.4943655917. + VALUE 5398987461.4943655917. 77 FLD0043A PIC S9(08)V9(02) COMP-3 - VALUE -28038049.48. + VALUE -28038049.48. 77 FLD0043B PIC 9(04)V9(30) COMP-3 - VALUE 9102.051349475740460448491830902639. + VALUE 9102.051349475740460448491830902639. 77 FLD0044A PIC 9(06)V9(01) COMP-6 - VALUE 206224.3. + VALUE 206224.3. 77 FLD0044B PIC 9(09)V9(04) COMP-6 - VALUE 359534215.7883. + VALUE 359534215.7883. 77 FLD0045A PIC 9(08)V9(02) COMP-6 - VALUE 28592495.81. + VALUE 28592495.81. 77 FLD0045B PIC 9(09)V9(05) COMP-6 - VALUE 377058873.76830. + VALUE 377058873.76830. 77 FLD0046A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0046B PIC 9(05)V9(27) COMP-3 - VALUE 86000.025910646182847330010190489. + VALUE 86000.025910646182847330010190489. 77 FLD0047A PIC 9(08)V9(02) COMP-6 - VALUE 26966592.97. + VALUE 26966592.97. 77 FLD0047B PIC 9(10)V9(08) COMP-6 - VALUE 4982239515.90845814. + VALUE 4982239515.90845814. 77 FLD0048A PIC 9(05)V9(26) COMP-6 - VALUE 83962.84254838164429202151950448. + VALUE 83962.84254838164429202151950448. 77 FLD0048B PIC S9(05)V9(01) COMP-3 - VALUE -17309.9. + VALUE -17309.9. 77 FLD0049A PIC 9(09)V9(16) COMP-6 - VALUE 677621907.0336453320635428. + VALUE 677621907.0336453320635428. 77 FLD0049B PIC 9(01)V9(36) COMP-6 - VALUE 9.784571866912429305429554915463086217. + VALUE 9.784571866912429305429554915463086217. 77 FLD0050A PIC 9(09)V9(03) COMP-6 - VALUE 329667670.988. + VALUE 329667670.988. 77 FLD0050B PIC 9(09)V9(06) COMP-6 - VALUE 408790070.710566. + VALUE 408790070.710566. - 77 FLD0051A PIC 9(09)V9(15) COMP-3 - VALUE 643375703.689413991348544. + 77 FLD0051A PIC 9(09)V9(15) + VALUE 643375703.689413991348544. 77 FLD0051B PIC 9(04)V9(30) COMP-6 - VALUE 9064.871948640588206203005938732530. + VALUE 9064.871948640588206203005938732530. 77 FLD0052A PIC 9(09)V9(04) COMP-6 - VALUE 367200483.8576. + VALUE 367200483.8576. 77 FLD0052B PIC 9(09)V9(11) COMP-3 - VALUE 550990476.15163754265. + VALUE 550990476.15163754265. 77 FLD0053A PIC 9(07)V9(01) COMP-6 - VALUE 2260324.6. + VALUE 2260324.6. 77 FLD0053B PIC S9(09)V9(04) COMP-3 - VALUE -361176713.4701. + VALUE -361176713.4701. 77 FLD0054A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0054B PIC 9(09)V9(03) COMP-6 - VALUE 319288758.232. + VALUE 319288758.232. 77 FLD0055A PIC 9(09)V9(14) COMP-3 - VALUE 622232417.66982828604426. + VALUE 622232417.66982828604426. 77 FLD0055B PIC 9(08)V9(17) COMP-3 - VALUE 68254498.02012105715576240. + VALUE 68254498.02012105715576240. 77 FLD0056A PIC 9(07)V9(01) COMP-6 - VALUE 2161993.9. + VALUE 2161993.9. 77 FLD0056B PIC 9(08)V9(02) COMP-6 - VALUE 27806089.73. + VALUE 27806089.73. 77 FLD0057A PIC 9(03)V9(32) COMP-6 - VALUE 929.20878243011406638629523513372987. + VALUE 929.20878243011406638629523513372987. 77 FLD0057B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0058A PIC 9(02)V9(34) COMP-6 - VALUE 96.6574119281082611010447180888149887. + VALUE 96.6574119281082611010447180888149887. 77 FLD0058B PIC S9(09)V9(04) COMP-3 - VALUE +343623662.0368. + VALUE +343623662.0368. 77 FLD0059A PIC 9(07)V9(02) COMP-6 - VALUE 2566438.61. + VALUE 2566438.61. 77 FLD0059B PIC 9(09)V9(14) COMP-6 - VALUE 625762300.58564874525472. + VALUE 625762300.58564874525472. 77 FLD0060A PIC 9(01)V9(36) COMP-6 - VALUE 9.888752946983269120906356874911580234. + VALUE 9.888752946983269120906356874911580234. 77 FLD0060B PIC 9(06) COMP-6 - VALUE 159150. + VALUE 159150. 77 FLD0061A PIC 9(03) COMP-6 - VALUE 095. + VALUE 095. 77 FLD0061B PIC 9(06)V9(25) COMP-6 - VALUE 816564.2123096498172785118185856. + VALUE 816564.2123096498172785118185856. 77 FLD0062A PIC 9(10)V9(11) COMP-6 - VALUE 5579259193.81647705819. + VALUE 5579259193.81647705819. 77 FLD0062B PIC 9(09)V9(13) COMP-3 - VALUE 602304146.8914084317631. + VALUE 602304146.8914084317631. 77 FLD0063A PIC S9(07)V9(01) COMP-3 - VALUE +2106925.6. + VALUE +2106925.6. 77 FLD0063B PIC 9(08)V9(19) COMP-3 - VALUE 73193550.7264897311507922950. + VALUE 73193550.7264897311507922950. 77 FLD0064A PIC 9(06)V9(25) COMP-6 - VALUE 828553.1635867423583263757791428. + VALUE 828553.1635867423583263757791428. 77 FLD0064B PIC S9(04) COMP-3 - VALUE +1113. + VALUE +1113. - 77 FLD0065A PIC 9(08)V9(02) COMP-6 - VALUE 26934154.73. + 77 FLD0065A PIC 9(08)V9(02) BINARY + VALUE 26934154.73. 77 FLD0065B PIC S9(04) COMP-3 - VALUE +1223. + VALUE +1223. 77 FLD0066A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0066B PIC 9(05)V9(27) COMP-3 - VALUE 85085.260849998822774153950376785. + VALUE 85085.260849998822774153950376785. 77 FLD0067A PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0067B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0068A PIC 9(06)V9(25) COMP-6 - VALUE 838055.6814082209537986045688739. + VALUE 838055.6814082209537986045688739. 77 FLD0068B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0069A PIC 9(10)V9(08) COMP-6 - VALUE 4880885916.76487937. + VALUE 4880885916.76487937. 77 FLD0069B PIC 9(03) COMP-6 - VALUE 097. + VALUE 097. 77 FLD0070A PIC 9(08)V9(18) COMP-6 - VALUE 69654747.914044090606466852. + VALUE 69654747.914044090606466852. 77 FLD0070B PIC S9(06)V9(01) COMP-3 - VALUE -192591.5. + VALUE -192591.5. 77 FLD0071A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0071B PIC 9(04) COMP-6 - VALUE 1269. + VALUE 1269. 77 FLD0072A PIC 9(01)V9(36) COMP-3 - VALUE 9.925387953744267965916492357791867107. + VALUE 9.925387953744267965916492357791867107. 77 FLD0072B PIC 9(09)V9(15) COMP-6 - VALUE 655377323.717403204028641. + VALUE 655377323.717403204028641. 77 FLD0073A PIC 9(01)V9(36) COMP-3 - VALUE 9.812328554525302504174533169134519994. + VALUE 9.812328554525302504174533169134519994. 77 FLD0073B PIC 9(08)V9(18) COMP-6 - VALUE 70717230.890474991333860543. + VALUE 70717230.890474991333860543. 77 FLD0074A PIC 9(03)V9(32) COMP-6 - VALUE 925.84903592679257400277492706663906. + VALUE 925.84903592679257400277492706663906. 77 FLD0074B PIC 9(01)V9(36) COMP-3 - VALUE 9.839916331263631743553332853480242192. + VALUE 9.839916331263631743553332853480242192. 77 FLD0075A PIC 9(10)V9(10) COMP-3 - VALUE 5446083738.8683014381. + VALUE 5446083738.8683014381. 77 FLD0075B PIC S9(07)V9(01) COMP-3 - VALUE +2205661.8. + VALUE +2205661.8. 77 FLD0076A PIC S9(07)V9(02) COMP-3 - VALUE +2412584.18. + VALUE +2412584.18. 77 FLD0076B PIC 9(02)V9(34) COMP-3 - VALUE 95.1877730461857529675739897356834262. + VALUE 95.1877730461857529675739897356834262. 77 FLD0077A PIC 9(10)V9(08) COMP-6 - VALUE 4971042025.86989840. + VALUE 4971042025.86989840. 77 FLD0077B PIC 9(05)V9(28) COMP-6 - VALUE 87747.7884783979700245026833727024. + VALUE 87747.7884783979700245026833727024. 77 FLD0078A PIC 9(06)V9(01) COMP-6 - VALUE 186044.2. + VALUE 186044.2. 77 FLD0078B PIC 9(10)V9(10) COMP-6 - VALUE 5264094377.6727222580. + VALUE 5264094377.6727222580. 77 FLD0079A PIC 9(09)V9(15) COMP-6 - VALUE 638119223.314542294289708. + VALUE 638119223.314542294289708. 77 FLD0079B PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0080A PIC 9(07)V9(23) COMP-3 - VALUE 7905587.67133311302011122734256. + VALUE 7905587.67133311302011122734256. 77 FLD0080B PIC S9(09)V9(04) COMP-3 - VALUE -363247849.5626. + VALUE -363247849.5626. 77 FLD0081A PIC 9(01)V9(36) COMP-6 - VALUE 9.951308658902108250643436804239172488. + VALUE 9.951308658902108250643436804239172488. 77 FLD0081B PIC 9(09)V9(04) COMP-6 - VALUE 367206952.3371. + VALUE 367206952.3371. 77 FLD0082A PIC S9(08)V9(02) COMP-3 - VALUE -26324419.10. + VALUE -26324419.10. 77 FLD0082B PIC 9(07)V9(22) COMP-6 - VALUE 7666475.1738066827524420432382. + VALUE 7666475.1738066827524420432382. 77 FLD0083A PIC 9(09)V9(14) COMP-3 - VALUE 631384121.39469823891602. + VALUE 631384121.39469823891602. 77 FLD0083B PIC S9(07)V9(02) COMP-3 - VALUE -2518657.33. + VALUE -2518657.33. 77 FLD0084A PIC 9(04)V9(29) COMP-3 - VALUE 8913.08379718931953483718189090723. + VALUE 8913.08379718931953483718189090723. 77 FLD0084B PIC 9(09)V9(06) COMP-6 - VALUE 405118244.918866. + VALUE 405118244.918866. 77 FLD0085A PIC 9(05) COMP-6 - VALUE 15779. + VALUE 15779. 77 FLD0085B PIC 9(10)V9(06) COMP-6 - VALUE 4354227755.611629. + VALUE 4354227755.611629. 77 FLD0086A PIC 9(01)V9(36) COMP-6 - VALUE 9.766547774737049936177868403319735080. + VALUE 9.766547774737049936177868403319735080. 77 FLD0086B PIC 9(10)V9(11) COMP-3 - VALUE 5711670223.78104349833. + VALUE 5711670223.78104349833. 77 FLD0087A PIC 9(09)V9(14) COMP-6 - VALUE 617158605.01368802193411. + VALUE 617158605.01368802193411. 77 FLD0087B PIC 9(04) COMP-6 - VALUE 1168. + VALUE 1168. 77 FLD0088A PIC 9(10)V9(12) COMP-3 - VALUE 5809468198.000283800652. + VALUE 5809468198.000283800652. 77 FLD0088B PIC 9(09)V9(03) COMP-6 - VALUE 327927843.481. + VALUE 327927843.481. 77 FLD0089A PIC 9(06)V9(24) COMP-3 - VALUE 802942.222446262787727278009697. + VALUE 802942.222446262787727278009697. 77 FLD0089B PIC 9(03)V9(31) COMP-3 - VALUE 913.0556640200002682661306607769802. + VALUE 913.0556640200002682661306607769802. 77 FLD0090A PIC S9(08)V9(02) COMP-3 - VALUE -28271627.31. + VALUE -28271627.31. 77 FLD0090B PIC S9(08)V9(03) COMP-3 - VALUE -29023436.992. + VALUE -29023436.992. 77 FLD0091A PIC 9(09)V9(07) COMP-6 - VALUE 438808038.0901770. + VALUE 438808038.0901770. 77 FLD0091B PIC 9(08)V9(18) COMP-6 - VALUE 69809163.794725925811235356. + VALUE 69809163.794725925811235356. 77 FLD0092A PIC S9(07)V9(01) COMP-3 - VALUE +2146587.0. + VALUE +2146587.0. 77 FLD0092B PIC 9(06)V9(25) COMP-6 - VALUE 828676.9901534452031910404912196. + VALUE 828676.9901534452031910404912196. 77 FLD0093A PIC 9(06)V9(25) COMP-3 - VALUE 831848.6927757260396276706160278. + VALUE 831848.6927757260396276706160278. 77 FLD0093B PIC 9(07)V9(23) COMP-3 - VALUE 7909193.25337388512409120266966. + VALUE 7909193.25337388512409120266966. 77 FLD0094A PIC 9(07)V9(01) COMP-6 - VALUE 2260698.5. + VALUE 2260698.5. 77 FLD0094B PIC 9(10)V9(10) COMP-3 - VALUE 5308926344.5354850645. + VALUE 5308926344.5354850645. 77 FLD0095A PIC 9(07)V9(22) COMP-6 - VALUE 7681159.7607563408818265315858. + VALUE 7681159.7607563408818265315858. 77 FLD0095B PIC 9(06)V9(25) COMP-6 - VALUE 835614.2190518044410296738533361. + VALUE 835614.2190518044410296738533361. 77 FLD0096A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0096B PIC 9(05)V9(28) COMP-6 - VALUE 87505.3049076218392166026660561328. + VALUE 87505.3049076218392166026660561328. 77 FLD0097A PIC 9(03) COMP-6 - VALUE 085. + VALUE 085. 77 FLD0097B PIC 9(07)V9(22) COMP-6 - VALUE 7663819.4132902548449948199049. + VALUE 7663819.4132902548449948199049. 77 FLD0098A PIC 9(05)V9(28) COMP-6 - VALUE 87637.1310136299430659789777564583. + VALUE 87637.1310136299430659789777564583. 77 FLD0098B PIC 9(08)V9(04) COMP-6 - VALUE 33500668.0379. + VALUE 33500668.0379. 77 FLD0099A PIC S9(10)V9(08) COMP-3 - VALUE -4946809917.70565292. + VALUE -4946809917.70565292. 77 FLD0099B PIC S9(08)V9(03) COMP-3 - VALUE +30007106.715. + VALUE +30007106.715. 77 FLD0100A PIC 9(10)V9(09) COMP-3 - VALUE 5148281813.288457797. + VALUE 5148281813.288457797. 77 FLD0100B PIC 9(09)V9(14) COMP-6 - VALUE 609442213.66168171982735. + VALUE 609442213.66168171982735. 77 FLD0101A PIC S9(07)V9(02) COMP-3 - VALUE -2605358.58. + VALUE -2605358.58. 77 FLD0101B PIC S9(07)V9(02) COMP-3 - VALUE -2515761.93. + VALUE -2515761.93. 77 FLD0102A PIC 9(05) COMP-6 - VALUE 13880. + VALUE 13880. 77 FLD0102B PIC 9(09)V9(14) COMP-6 - VALUE 626009568.32775289662151. + VALUE 626009568.32775289662151. 77 FLD0103A PIC 9(03)V9(32) COMP-6 - VALUE 929.51599988912647631877916865050792. + VALUE 929.51599988912647631877916865050792. 77 FLD0103B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0104A PIC 9(07)V9(01) COMP-6 - VALUE 2254306.3. + VALUE 2254306.3. 77 FLD0104B PIC S9(10)V9(08) COMP-3 - VALUE -4810300752.02174334. + VALUE -4810300752.02174334. 77 FLD0105A PIC S9(08)V9(03) COMP-3 - VALUE -29081388.428. + VALUE -29081388.428. 77 FLD0105B PIC 9(08)V9(02) COMP-6 - VALUE 27558698.77. + VALUE 27558698.77. 77 FLD0106A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0106B PIC S9(08)V9(02) COMP-3 - VALUE -26362185.29. + VALUE -26362185.29. 77 FLD0107A PIC 9(09)V9(16) COMP-6 - VALUE 677462443.7557797973497031. + VALUE 677462443.7557797973497031. 77 FLD0107B PIC 9(08)V9(19) COMP-6 - VALUE 71705910.5997380985542122289. + VALUE 71705910.5997380985542122289. 77 FLD0108A PIC 9(09)V9(14) COMP-3 - VALUE 610210882.31341436003418. + VALUE 610210882.31341436003418. 77 FLD0108B PIC S9(08)V9(02) COMP-3 - VALUE -28421053.19. + VALUE -28421053.19. 77 FLD0109A PIC S9(04) COMP-3 - VALUE +1136. + VALUE +1136. 77 FLD0109B PIC 9(04)V9(30) COMP-3 - VALUE 9020.720262660837374113498299266211. + VALUE 9020.720262660837374113498299266211. 77 FLD0110A PIC 9(07)V9(23) COMP-3 - VALUE 7940109.55673497886841971649118. + VALUE 7940109.55673497886841971649118. 77 FLD0110B PIC 9(08)V9(18) COMP-6 - VALUE 69721135.284383173313926818. + VALUE 69721135.284383173313926818. 77 FLD0111A PIC 9(09)V9(03) COMP-6 - VALUE 326472185.831. + VALUE 326472185.831. 77 FLD0111B PIC 9(10)V9(09) COMP-6 - VALUE 5255901748.964217912. + VALUE 5255901748.964217912. 77 FLD0112A PIC 9(08)V9(19) COMP-3 - VALUE 71238052.4624002697819946661. + VALUE 71238052.4624002697819946661. 77 FLD0112B PIC S9(08)V9(02) COMP-3 - VALUE -27133920.74. + VALUE -27133920.74. 77 FLD0113A PIC 9(04)V9(30) COMP-6 - VALUE 9092.566324157485002643852567416615. + VALUE 9092.566324157485002643852567416615. 77 FLD0113B PIC 9(04) COMP-6 - VALUE 1277. + VALUE 1277. 77 FLD0114A PIC 9(09)V9(07) COMP-6 - VALUE 437805064.1539988. + VALUE 437805064.1539988. 77 FLD0114B PIC 9(05)V9(01) COMP-6 - VALUE 17667.3. + VALUE 17667.3. 77 FLD0115A PIC 9(02)V9(34) COMP-3 - VALUE 96.2362934933669089687668929400388151. + VALUE 96.2362934933669089687668929400388151. 77 FLD0115B PIC S9(08)V9(03) COMP-3 - VALUE +30236682.408. + VALUE +30236682.408. 77 FLD0116A PIC 9(07)V9(22) COMP-3 - VALUE 7646463.4359510952332783517704. + VALUE 7646463.4359510952332783517704. 77 FLD0116B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0117A PIC 9(09)V9(14) COMP-6 - VALUE 617509561.34001855346582. + VALUE 617509561.34001855346582. 77 FLD0117B PIC 9(05) COMP-6 - VALUE 13612. + VALUE 13612. 77 FLD0118A PIC 9(10)V9(10) COMP-3 - VALUE 5408402726.5490597358. + VALUE 5408402726.5490597358. 77 FLD0118B PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0119A PIC S9(08)V9(03) COMP-3 - VALUE +30078875.458. + VALUE +30078875.458. 77 FLD0119B PIC 9(07)V9(02) COMP-6 - VALUE 2460449.05. + VALUE 2460449.05. 77 FLD0120A PIC 9(06)V9(25) COMP-3 - VALUE 830160.1137616416714593015058198. + VALUE 830160.1137616416714593015058198. 77 FLD0120B PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0121A PIC S9(07)V9(01) COMP-3 - VALUE +2338292.2. + VALUE +2338292.2. 77 FLD0121B PIC S9(09)V9(03) COMP-3 - VALUE +320991974.822. + VALUE +320991974.822. 77 FLD0122A PIC S9(06)V9(01) COMP-3 - VALUE -184951.8. + VALUE -184951.8. 77 FLD0122B PIC 9(08)V9(02) COMP-6 - VALUE 26752619.72. + VALUE 26752619.72. 77 FLD0123A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0123B PIC 9(07)V9(21) COMP-3 - VALUE 7502027.502690824523057244732. + VALUE 7502027.502690824523057244732. 77 FLD0124A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0124B PIC S9(10)V9(06) COMP-3 - VALUE +4223876720.963152. + VALUE +4223876720.963152. 77 FLD0125A PIC 9(04)V9(29) COMP-3 - VALUE 8800.31826789913984576685379579430. + VALUE 8800.31826789913984576685379579430. 77 FLD0125B PIC 9(09)V9(15) COMP-6 - VALUE 637787216.045794358443288. + VALUE 637787216.045794358443288. 77 FLD0126A PIC 9(06)V9(24) COMP-6 - VALUE 807990.071015203703552742808824. + VALUE 807990.071015203703552742808824. 77 FLD0126B PIC 9(07)V9(01) COMP-6 - VALUE 2285688.0. + VALUE 2285688.0. 77 FLD0127A PIC 9(04)V9(30) COMP-6 - VALUE 8981.860178820127993404298649693373. + VALUE 8981.860178820127993404298649693373. 77 FLD0127B PIC 9(05)V9(28) COMP-6 - VALUE 87878.0390073648609572387613297905. + VALUE 87878.0390073648609572387613297905. 77 FLD0128A PIC 9(10)V9(06) COMP-6 - VALUE 4298489587.591516. + VALUE 4298489587.591516. 77 FLD0128B PIC 9(08)V9(02) COMP-6 - VALUE 26904320.50. + VALUE 26904320.50. 77 FLD0129A PIC S9(08)V9(04) COMP-3 - VALUE +33460508.1048. + VALUE +33460508.1048. 77 FLD0129B PIC 9(09)V9(14) COMP-6 - VALUE 629564859.51748508700376. + VALUE 629564859.51748508700376. 77 FLD0130A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0130B PIC 9(08)V9(03) COMP-6 - VALUE 30500681.275. + VALUE 30500681.275. 77 FLD0131A PIC 9(08)V9(02) COMP-6 - VALUE 26916210.05. + VALUE 26916210.05. 77 FLD0131B PIC 9(08)V9(18) COMP-6 - VALUE 70626515.642831921848454612. + VALUE 70626515.642831921848454612. 77 FLD0132A PIC 9(04) COMP-6 - VALUE 1270. + VALUE 1270. 77 FLD0132B PIC 9(07)V9(01) COMP-6 - VALUE 2163498.7. + VALUE 2163498.7. 77 FLD0133A PIC 9(01)V9(36) COMP-6 - VALUE 9.890353542063604619372085835493635386. + VALUE 9.890353542063604619372085835493635386. 77 FLD0133B PIC S9(07)V9(02) COMP-3 - VALUE -2528421.98. + VALUE -2528421.98. 77 FLD0134A PIC 9(08)V9(18) COMP-3 - VALUE 70385499.741438917187252855. + VALUE 70385499.741438917187252855. 77 FLD0134B PIC 9(09)V9(16) COMP-3 - VALUE 673960062.4739148226893803. + VALUE 673960062.4739148226893803. 77 FLD0135A PIC 9(10)V9(07) COMP-6 - VALUE 4678335500.0128495. + VALUE 4678335500.0128495. 77 FLD0135B PIC 9(07)V9(02) COMP-6 - VALUE 2561321.97. + VALUE 2561321.97. 77 FLD0136A PIC S9(05) COMP-3 - VALUE -15169. + VALUE -15169. 77 FLD0136B PIC 9(08)V9(19) COMP-3 - VALUE 72091249.9695820607747975827. + VALUE 72091249.9695820607747975827. 77 FLD0137A PIC S9(08)V9(02) COMP-3 - VALUE -27190319.39. + VALUE -27190319.39. 77 FLD0137B PIC 9(03)V9(32) COMP-3 - VALUE 921.23024961283406231160597599227912. + VALUE 921.23024961283406231160597599227912. 77 FLD0138A PIC S9(10)V9(08) COMP-3 - VALUE -4824223828.94490853. + VALUE -4824223828.94490853. 77 FLD0138B PIC 9(04)V9(30) COMP-6 - VALUE 8976.142294415691003095503219810780. + VALUE 8976.142294415691003095503219810780. 77 FLD0139A PIC 9(09)V9(03) COMP-6 - VALUE 319644653.394. + VALUE 319644653.394. 77 FLD0139B PIC 9(06)V9(25) COMP-6 - VALUE 818318.3537620841718762676464393. + VALUE 818318.3537620841718762676464393. 77 FLD0140A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0140B PIC 9(03)V9(31) COMP-3 - VALUE 913.4502802484925076953459210926666. + VALUE 913.4502802484925076953459210926666. 77 FLD0141A PIC 9(09)V9(14) COMP-3 - VALUE 612266512.11346116987499. + VALUE 612266512.11346116987499. 77 FLD0141B PIC 9(06)V9(01) COMP-6 - VALUE 198046.5. + VALUE 198046.5. 77 FLD0142A PIC 9(09)V9(04) COMP-6 - VALUE 356201246.7531. + VALUE 356201246.7531. 77 FLD0142B PIC S9(04) COMP-3 - VALUE +1134. + VALUE +1134. 77 FLD0143A PIC S9(07)V9(02) COMP-3 - VALUE -2608987.15. + VALUE -2608987.15. 77 FLD0143B PIC 9(06)V9(01) COMP-6 - VALUE 205887.8. + VALUE 205887.8. 77 FLD0144A PIC 9(10)V9(11) COMP-6 - VALUE 5664625691.64754570216. + VALUE 5664625691.64754570216. 77 FLD0144B PIC 9(07)V9(01) COMP-6 - VALUE 2170292.3. + VALUE 2170292.3. 77 FLD0145A PIC 9(09)V9(13) COMP-3 - VALUE 592809780.4295365813587. + VALUE 592809780.4295365813587. 77 FLD0145B PIC 9(09)V9(06) COMP-6 - VALUE 416669902.306984. + VALUE 416669902.306984. 77 FLD0146A PIC S9(03) COMP-3 - VALUE -091. + VALUE -091. 77 FLD0146B PIC 9(09)V9(13) COMP-3 - VALUE 592675280.7490164309811. + VALUE 592675280.7490164309811. 77 FLD0147A PIC 9(03) COMP-6 - VALUE 085. + VALUE 085. 77 FLD0147B PIC 9(10)V9(05) COMP-6 - VALUE 3974420340.21838. + VALUE 3974420340.21838. 77 FLD0148A PIC 9(04) COMP-6 - VALUE 1189. + VALUE 1189. 77 FLD0148B PIC 9(08)V9(04) COMP-6 - VALUE 33583306.9980. + VALUE 33583306.9980. 77 FLD0149A PIC 9(05)V9(27) COMP-3 - VALUE 86469.811002464236349140946913394. + VALUE 86469.811002464236349140946913394. 77 FLD0149B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0150A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0150B PIC 9(01)V9(36) COMP-6 - VALUE 9.779789481524289174174668914929497987. + VALUE 9.779789481524289174174668914929497987. 77 FLD0151A PIC 9(09)V9(13) COMP-3 - VALUE 602633749.4884196344102. + VALUE 602633749.4884196344102. 77 FLD0151B PIC 9(07)V9(22) COMP-3 - VALUE 7715228.5011189425389943608024. + VALUE 7715228.5011189425389943608024. 77 FLD0152A PIC S9(08)V9(02) COMP-3 - VALUE -28005400.65. + VALUE -28005400.65. 77 FLD0152B PIC 9(02)V9(34) COMP-6 - VALUE 96.9689035330467796747200281970435753. + VALUE 96.9689035330467796747200281970435753. 77 FLD0153A PIC 9(08)V9(18) COMP-3 - VALUE 69246387.672994647033419823. + VALUE 69246387.672994647033419823. 77 FLD0153B PIC 9(07)V9(22) COMP-3 - VALUE 7700147.9845998110906890588012. + VALUE 7700147.9845998110906890588012. 77 FLD0154A PIC 9(09)V9(14) COMP-6 - VALUE 618531644.61004783714059. + VALUE 618531644.61004783714059. 77 FLD0154B PIC 9(10)V9(07) COMP-6 - VALUE 4667533939.9326892. + VALUE 4667533939.9326892. 77 FLD0155A PIC 9(10)V9(12) COMP-3 - VALUE 5816028861.286740569980. + VALUE 5816028861.286740569980. 77 FLD0155B PIC 9(03)V9(31) COMP-3 - VALUE 920.9824083062539967770021576143335. + VALUE 920.9824083062539967770021576143335. 77 FLD0156A PIC 9(02)V9(34) COMP-3 - VALUE 95.3830714078202746009083057288080453. + VALUE 95.3830714078202746009083057288080453. 77 FLD0156B PIC 9(04)V9(30) COMP-6 - VALUE 9080.971133779824899789900882751680. + VALUE 9080.971133779824899789900882751680. 77 FLD0157A PIC 9(09)V9(16) COMP-6 - VALUE 659745695.0483697735165833. + VALUE 659745695.0483697735165833. 77 FLD0157B PIC 9(10)V9(06) COMP-6 - VALUE 4359875032.276696. + VALUE 4359875032.276696. 77 FLD0158A PIC S9(09)V9(06) COMP-3 - VALUE +412656981.234114. + VALUE +412656981.234114. 77 FLD0158B PIC 9(09)V9(14) COMP-3 - VALUE 611832243.66474420197192. + VALUE 611832243.66474420197192. 77 FLD0159A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0159B PIC 9(09)V9(15) COMP-3 - VALUE 643529357.674236912600918. + VALUE 643529357.674236912600918. 77 FLD0160A PIC 9(08)V9(20) COMP-6 - VALUE 74656107.83998073429756914265. + VALUE 74656107.83998073429756914265. 77 FLD0160B PIC 9(06)V9(01) COMP-6 - VALUE 207077.8. + VALUE 207077.8. 77 FLD0161A PIC 9(07)V9(22) COMP-6 - VALUE 7887170.9741627593626134284932. + VALUE 7887170.9741627593626134284932. 77 FLD0161B PIC 9(08)V9(19) COMP-6 - VALUE 71702582.3615881408024108623. + VALUE 71702582.3615881408024108623. 77 FLD0162A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0162B PIC 9(10)V9(11) COMP-6 - VALUE 5668143857.58160899086. + VALUE 5668143857.58160899086. 77 FLD0163A PIC 9(09)V9(14) COMP-6 - VALUE 618392824.19829444403802. + VALUE 618392824.19829444403802. 77 FLD0163B PIC 9(09)V9(15) COMP-3 - VALUE 650815786.826470232817598. + VALUE 650815786.826470232817598. 77 FLD0164A PIC S9(06)V9(01) COMP-3 - VALUE +204076.7. + VALUE +204076.7. 77 FLD0164B PIC 9(04) COMP-6 - VALUE 1076. + VALUE 1076. 77 FLD0165A PIC 9(09)V9(14) COMP-3 - VALUE 610409164.63927785695631. + VALUE 610409164.63927785695631. 77 FLD0165B PIC 9(04) COMP-6 - VALUE 1267. + VALUE 1267. 77 FLD0166A PIC 9(07)V9(02) COMP-6 - VALUE 2460589.98. + VALUE 2460589.98. 77 FLD0166B PIC 9(05)V9(01) COMP-6 - VALUE 17630.0. + VALUE 17630.0. 77 FLD0167A PIC S9(09)V9(03) COMP-3 - VALUE +323253458.962. + VALUE +323253458.962. 77 FLD0167B PIC 9(06)V9(25) COMP-6 - VALUE 838285.1322478405142746282763255. + VALUE 838285.1322478405142746282763255. 77 FLD0168A PIC S9(04) COMP-3 - VALUE +1200. + VALUE +1200. 77 FLD0168B PIC S9(10)V9(06) COMP-3 - VALUE +4326937205.661665. + VALUE +4326937205.661665. 77 FLD0169A PIC 9(06)V9(25) COMP-3 - VALUE 834885.7368063762329768451309064. + VALUE 834885.7368063762329768451309064. 77 FLD0169B PIC 9(08)V9(18) COMP-6 - VALUE 70699865.109667991980302304. + VALUE 70699865.109667991980302304. 77 FLD0170A PIC 9(08)V9(19) COMP-3 - VALUE 72325482.4666709539293663056. + VALUE 72325482.4666709539293663056. 77 FLD0170B PIC 9(01)V9(36) COMP-6 - VALUE 9.863493423765207213094186045054811984. + VALUE 9.863493423765207213094186045054811984. 77 FLD0171A PIC 9(09)V9(16) COMP-6 - VALUE 675345293.4675296948086042. + VALUE 675345293.4675296948086042. 77 FLD0171B PIC 9(10)V9(06) COMP-6 - VALUE 4258478422.558273. + VALUE 4258478422.558273. 77 FLD0172A PIC 9(02)V9(34) COMP-3 - VALUE 96.0216523360032936373897882731398567. + VALUE 96.0216523360032936373897882731398567. 77 FLD0172B PIC 9(04)V9(30) COMP-6 - VALUE 8999.798406174591702821885519369971. + VALUE 8999.798406174591702821885519369971. 77 FLD0173A PIC S9(09)V9(06) COMP-3 - VALUE +412472914.336663. + VALUE +412472914.336663. 77 FLD0173B PIC 9(10)V9(08) COMP-6 - VALUE 4786981213.45750904. + VALUE 4786981213.45750904. 77 FLD0174A PIC S9(04) COMP-3 - VALUE +1244. + VALUE +1244. 77 FLD0174B PIC 9(10)V9(09) COMP-6 - VALUE 5152586737.087611057. + VALUE 5152586737.087611057. 77 FLD0175A PIC S9(05) COMP-3 - VALUE +13456. + VALUE +13456. 77 FLD0175B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0176A PIC 9(07)V9(23) COMP-3 - VALUE 7902178.74582138546379894705751. + VALUE 7902178.74582138546379894705751. 77 FLD0176B PIC 9(08)V9(03) COMP-6 - VALUE 29797398.003. + VALUE 29797398.003. 77 FLD0177A PIC 9(07)V9(21) COMP-3 - VALUE 7618839.577049143496623173632. + VALUE 7618839.577049143496623173632. 77 FLD0177B PIC 9(07)V9(02) COMP-6 - VALUE 2373414.07. + VALUE 2373414.07. 77 FLD0178A PIC 9(09)V9(04) COMP-6 - VALUE 355502105.3348. + VALUE 355502105.3348. 77 FLD0178B PIC S9(08)V9(03) COMP-3 - VALUE +31397739.222. + VALUE +31397739.222. 77 FLD0179A PIC 9(09)V9(05) COMP-6 - VALUE 388560564.63472. + VALUE 388560564.63472. 77 FLD0179B PIC 9(03) COMP-6 - VALUE 099. + VALUE 099. 77 FLD0180A PIC 9(05)V9(27) COMP-6 - VALUE 85946.157652659294079455776227405. + VALUE 85946.157652659294079455776227405. 77 FLD0180B PIC 9(10)V9(10) COMP-3 - VALUE 5435189439.3573940700. + VALUE 5435189439.3573940700. 77 FLD0181A PIC 9(06)V9(01) COMP-6 - VALUE 188908.8. + VALUE 188908.8. 77 FLD0181B PIC S9(10)V9(08) COMP-3 - VALUE -4740924741.33910868. + VALUE -4740924741.33910868. 77 FLD0182A PIC 9(10)V9(13) COMP-6 - VALUE 6061401860.3468300394609. + VALUE 6061401860.3468300394609. 77 FLD0182B PIC 9(09)V9(15) COMP-3 - VALUE 643493508.008180281620980. + VALUE 643493508.008180281620980. 77 FLD0183A PIC 9(07)V9(23) COMP-3 - VALUE 7910108.10526126539876656806882. + VALUE 7910108.10526126539876656806882. 77 FLD0183B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0184A PIC 9(09)V9(15) COMP-6 - VALUE 635945742.812533687526865. + VALUE 635945742.812533687526865. 77 FLD0184B PIC S9(07)V9(01) COMP-3 - VALUE +2343773.6. + VALUE +2343773.6. 77 FLD0185A PIC 9(05) COMP-6 - VALUE 15666. + VALUE 15666. 77 FLD0185B PIC 9(08)V9(20) COMP-6 - VALUE 73935660.38753716096465495866. + VALUE 73935660.38753716096465495866. 77 FLD0186A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0186B PIC 9(05)V9(26) COMP-3 - VALUE 84084.08947119312415452441200613. + VALUE 84084.08947119312415452441200613. 77 FLD0187A PIC 9(09)V9(13) COMP-3 - VALUE 604672028.7423602568921. + VALUE 604672028.7423602568921. 77 FLD0187B PIC 9(10)V9(12) COMP-6 - VALUE 5893278013.192120301511. + VALUE 5893278013.192120301511. 77 FLD0188A PIC 9(08)V9(17) COMP-3 - VALUE 68008236.87569536035724127. + VALUE 68008236.87569536035724127. 77 FLD0188B PIC 9(07)V9(21) COMP-3 - VALUE 7537078.198448752264226868646. + VALUE 7537078.198448752264226868646. 77 FLD0189A PIC 9(10)V9(09) COMP-3 - VALUE 5115071016.238050827. + VALUE 5115071016.238050827. 77 FLD0189B PIC 9(10)V9(11) COMP-6 - VALUE 5668524677.20726727051. + VALUE 5668524677.20726727051. 77 FLD0190A PIC 9(07)V9(02) COMP-6 - VALUE 2382137.54. + VALUE 2382137.54. 77 FLD0190B PIC 9(09)V9(14) COMP-6 - VALUE 627148648.94273569806415. + VALUE 627148648.94273569806415. 77 FLD0191A PIC 9(05) COMP-6 - VALUE 13720. + VALUE 13720. 77 FLD0191B PIC 9(06)V9(24) COMP-3 - VALUE 803717.168989411478996487403492. + VALUE 803717.168989411478996487403492. 77 FLD0192A PIC 9(01)V9(36) COMP-6 - VALUE 9.894259454195439840162862310535274446. + VALUE 9.894259454195439840162862310535274446. 77 FLD0192B PIC 9(09)V9(04) COMP-6 - VALUE 358034239.3955. + VALUE 358034239.3955. 77 FLD0193A PIC 9(10)V9(06) COMP-6 - VALUE 4252943677.090519. + VALUE 4252943677.090519. 77 FLD0193B PIC 9(09)V9(14) COMP-3 - VALUE 612048644.17243076690766. + VALUE 612048644.17243076690766. 77 FLD0194A PIC 9(09)V9(06) COMP-6 - VALUE 417168379.939779. + VALUE 417168379.939779. 77 FLD0194B PIC 9(09)V9(15) COMP-3 - VALUE 634454032.998696626499679. + VALUE 634454032.998696626499679. 77 FLD0195A PIC 9(08)V9(02) COMP-6 - VALUE 26645846.45. + VALUE 26645846.45. 77 FLD0195B PIC 9(05) COMP-6 - VALUE 14921. + VALUE 14921. 77 FLD0196A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0196B PIC S9(05)V9(01) COMP-3 - VALUE -18000.7. + VALUE -18000.7. 77 FLD0197A PIC 9(01)V9(36) COMP-3 - VALUE 9.847788375924405590566834689525421708. + VALUE 9.847788375924405590566834689525421708. 77 FLD0197B PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0198A PIC 9(09)V9(13) COMP-3 - VALUE 593293108.5591157671643. + VALUE 593293108.5591157671643. 77 FLD0198B PIC S9(05) COMP-3 - VALUE +14072. + VALUE +14072. 77 FLD0199A PIC 9(07)V9(02) COMP-6 - VALUE 2483287.24. + VALUE 2483287.24. 77 FLD0199B PIC 9(07)V9(23) COMP-6 - VALUE 7969040.17410605347571106449322. + VALUE 7969040.17410605347571106449322. 77 FLD0200A PIC S9(10)V9(08) COMP-3 - VALUE -4935972790.60619176. + VALUE -4935972790.60619176. 77 FLD0200B PIC 9(10)V9(07) COMP-6 - VALUE 4582475224.7206340. + VALUE 4582475224.7206340. 77 FLD0201A PIC 9(04) COMP-6 - VALUE 1282. + VALUE 1282. 77 FLD0201B PIC 9(07)V9(23) COMP-3 - VALUE 7926313.90444417882612526682351. + VALUE 7926313.90444417882612526682351. 77 FLD0202A PIC S9(09)V9(04) COMP-3 - VALUE -360603443.7503. + VALUE -360603443.7503. 77 FLD0202B PIC 9(03)V9(32) COMP-6 - VALUE 935.68197555010013122256395945441909. + VALUE 935.68197555010013122256395945441909. 77 FLD0203A PIC 9(09)V9(14) COMP-6 - VALUE 628607663.38264040253847. + VALUE 628607663.38264040253847. 77 FLD0203B PIC 9(03)V9(31) COMP-3 - VALUE 920.1886012491730104656539879215415. + VALUE 920.1886012491730104656539879215415. 77 FLD0204A PIC 9(01)V9(35) COMP-3 - VALUE 9.73054030732718233664968465745914727. + VALUE 9.73054030732718233664968465745914727. 77 FLD0204B PIC 9(07)V9(01) COMP-6 - VALUE 2363275.3. + VALUE 2363275.3. 77 FLD0205A PIC 9(09)V9(15) COMP-6 - VALUE 648926914.508991536933990. + VALUE 648926914.508991536933990. 77 FLD0205B PIC 9(09)V9(15) COMP-6 - VALUE 639814213.238647178094709. + VALUE 639814213.238647178094709. 77 FLD0206A PIC 9(06)V9(01) COMP-6 - VALUE 186967.7. + VALUE 186967.7. 77 FLD0206B PIC 9(08)V9(18) COMP-6 - VALUE 70826356.466434425840361654. + VALUE 70826356.466434425840361654. 77 FLD0207A PIC 9(05)V9(26) COMP-6 - VALUE 83944.39242287422553445708217623. + VALUE 83944.39242287422553445708217623. 77 FLD0207B PIC 9(07)V9(21) COMP-3 - VALUE 7607846.993308088334728722657. + VALUE 7607846.993308088334728722657. 77 FLD0208A PIC 9(02)V9(34) COMP-6 - VALUE 96.7940040016311842308027735271025449. + VALUE 96.7940040016311842308027735271025449. 77 FLD0208B PIC 9(07)V9(01) COMP-6 - VALUE 2151595.4. + VALUE 2151595.4. 77 FLD0209A PIC 9(03)V9(32) COMP-6 - VALUE 926.61149050802726900855077474261634. + VALUE 926.61149050802726900855077474261634. 77 FLD0209B PIC 9(07)V9(23) COMP-6 - VALUE 7951784.48263920700789242346218. + VALUE 7951784.48263920700789242346218. 77 FLD0210A PIC 9(08)V9(19) COMP-3 - VALUE 72323528.1456575562764044207. + VALUE 72323528.1456575562764044207. 77 FLD0210B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0211A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0211B PIC S9(09)V9(07) COMP-3 - VALUE +442113770.7554604. + VALUE +442113770.7554604. 77 FLD0212A PIC 9(10)V9(08) COMP-6 - VALUE 4892032792.55731038. + VALUE 4892032792.55731038. 77 FLD0212B PIC S9(09)V9(05) COMP-3 - VALUE -372935567.70682. + VALUE -372935567.70682. 77 FLD0213A PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0213B PIC 9(07)V9(21) COMP-3 - VALUE 7525721.770631302875997903356. + VALUE 7525721.770631302875997903356. 77 FLD0214A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0214B PIC 9(09)V9(16) COMP-6 - VALUE 666893270.4655321508369070. + VALUE 666893270.4655321508369070. 77 FLD0215A PIC 9(03)V9(32) COMP-6 - VALUE 926.34033699271633999217101518297567. + VALUE 926.34033699271633999217101518297567. 77 FLD0215B PIC S9(05)V9(01) COMP-3 - VALUE -18226.5. + VALUE -18226.5. 77 FLD0216A PIC S9(08)V9(02) COMP-3 - VALUE -28095374.87. + VALUE -28095374.87. 77 FLD0216B PIC 9(08)V9(02) COMP-6 - VALUE 28541793.87. + VALUE 28541793.87. 77 FLD0217A PIC 9(08)V9(20) COMP-6 - VALUE 74562962.48658396130792880285. + VALUE 74562962.48658396130792880285. 77 FLD0217B PIC S9(09)V9(07) COMP-3 - VALUE +444563659.0422049. + VALUE +444563659.0422049. 77 FLD0218A PIC S9(05)V9(01) COMP-3 - VALUE -18094.6. + VALUE -18094.6. 77 FLD0218B PIC 9(01)V9(36) COMP-6 - VALUE 9.867255193327033602201936446363106369. + VALUE 9.867255193327033602201936446363106369. 77 FLD0219A PIC 9(09)V9(12) COMP-6 - VALUE 578788992.127507229135. + VALUE 578788992.127507229135. 77 FLD0219B PIC 9(10)V9(10) COMP-6 - VALUE 5297903516.0907261836. + VALUE 5297903516.0907261836. 77 FLD0220A PIC 9(09)V9(12) COMP-3 - VALUE 573343525.907533679841. + VALUE 573343525.907533679841. 77 FLD0220B PIC S9(05) COMP-3 - VALUE +14161. + VALUE +14161. 77 FLD0221A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0221B PIC 9(04)V9(29) COMP-6 - VALUE 8789.10367794605407176788958167890. + VALUE 8789.10367794605407176788958167890. 77 FLD0222A PIC 9(09)V9(14) COMP-6 - VALUE 628182805.25174396977661. + VALUE 628182805.25174396977661. 77 FLD0222B PIC S9(05) COMP-3 - VALUE -15228. + VALUE -15228. 77 FLD0223A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0223B PIC 9(08)V9(18) COMP-6 - VALUE 69950927.082806102497158917. + VALUE 69950927.082806102497158917. 77 FLD0224A PIC 9(06)V9(25) COMP-6 - VALUE 838187.2267509891116787912324070. + VALUE 838187.2267509891116787912324070. 77 FLD0224B PIC S9(09)V9(05) COMP-3 - VALUE -382169497.04991. + VALUE -382169497.04991. 77 FLD0225A PIC 9(05) COMP-6 - VALUE 13797. + VALUE 13797. 77 FLD0225B PIC 9(09)V9(12) COMP-3 - VALUE 572598612.808938978169. + VALUE 572598612.808938978169. 77 FLD0226A PIC 9(05) COMP-6 - VALUE 14900. + VALUE 14900. 77 FLD0226B PIC S9(07)V9(01) COMP-3 - VALUE +2129995.4. + VALUE +2129995.4. 77 FLD0227A PIC 9(09)V9(14) COMP-6 - VALUE 629583055.15940859997670. + VALUE 629583055.15940859997670. 77 FLD0227B PIC 9(04)V9(30) COMP-6 - VALUE 8983.577034983017961522477889957372. + VALUE 8983.577034983017961522477889957372. 77 FLD0228A PIC S9(07)V9(01) COMP-3 - VALUE +2225916.3. + VALUE +2225916.3. 77 FLD0228B PIC 9(01)V9(36) COMP-3 - VALUE 9.739690596877397243957830141880549490. + VALUE 9.739690596877397243957830141880549490. 77 FLD0229A PIC 9(01)V9(36) COMP-6 - VALUE 9.870473603260505601753038718015886843. + VALUE 9.870473603260505601753038718015886843. 77 FLD0229B PIC 9(08)V9(20) COMP-6 - VALUE 73838029.76208535540081356884. + VALUE 73838029.76208535540081356884. 77 FLD0230A PIC S9(06)V9(01) COMP-3 - VALUE +201492.2. + VALUE +201492.2. 77 FLD0230B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0231A PIC 9(05)V9(28) COMP-6 - VALUE 87781.6812716511907233041256404248. + VALUE 87781.6812716511907233041256404248. 77 FLD0231B PIC S9(08)V9(02) COMP-3 - VALUE -27182116.43. + VALUE -27182116.43. 77 FLD0232A PIC 9(09)V9(04) COMP-6 - VALUE 356308264.5328. + VALUE 356308264.5328. 77 FLD0232B PIC 9(06)V9(25) COMP-3 - VALUE 833280.3014261945806495646138500. + VALUE 833280.3014261945806495646138500. 77 FLD0233A PIC 9(07)V9(21) COMP-6 - VALUE 7552156.809035388551620826547. + VALUE 7552156.809035388551620826547. 77 FLD0233B PIC 9(08)V9(04) COMP-6 - VALUE 33739768.3403. + VALUE 33739768.3403. 77 FLD0234A PIC 9(08)V9(04) COMP-6 - VALUE 33831052.6754. + VALUE 33831052.6754. 77 FLD0234B PIC 9(09)V9(13) COMP-3 - VALUE 593899144.9424572133253. + VALUE 593899144.9424572133253. 77 FLD0235A PIC S9(05) COMP-3 - VALUE +14123. + VALUE +14123. 77 FLD0235B PIC S9(10)V9(08) COMP-3 - VALUE -4808329310.19295639. + VALUE -4808329310.19295639. 77 FLD0236A PIC 9(04)V9(29) COMP-3 - VALUE 8818.23528289915170574886360554955. + VALUE 8818.23528289915170574886360554955. 77 FLD0236B PIC 9(08)V9(18) COMP-3 - VALUE 70480160.116860446350983693. + VALUE 70480160.116860446350983693. 77 FLD0237A PIC 9(08)V9(02) COMP-6 - VALUE 28742037.59. + VALUE 28742037.59. 77 FLD0237B PIC 9(04)V9(29) COMP-6 - VALUE 8850.90488581330880890618573175743. + VALUE 8850.90488581330880890618573175743. 77 FLD0238A PIC 9(09)V9(15) COMP-3 - VALUE 634521096.430120334908053. + VALUE 634521096.430120334908053. 77 FLD0238B PIC 9(06)V9(01) COMP-6 - VALUE 198396.3. + VALUE 198396.3. 77 FLD0239A PIC 9(09)V9(16) COMP-6 - VALUE 678585779.2924817610824561. + VALUE 678585779.2924817610824561. 77 FLD0239B PIC 9(09)V9(14) COMP-3 - VALUE 614739880.97122655993587. + VALUE 614739880.97122655993587. 77 FLD0240A PIC 9(10)V9(06) COMP-6 - VALUE 4289853576.446766. + VALUE 4289853576.446766. 77 FLD0240B PIC 9(06)V9(25) COMP-3 - VALUE 833165.4817075836438888813972880. + VALUE 833165.4817075836438888813972880. 77 FLD0241A PIC S9(05) COMP-3 - VALUE +14407. + VALUE +14407. 77 FLD0241B PIC 9(09)V9(14) COMP-6 - VALUE 608742950.23205993171444. + VALUE 608742950.23205993171444. 77 FLD0242A PIC 9(10)V9(12) COMP-6 - VALUE 5860383854.989427154791. + VALUE 5860383854.989427154791. 77 FLD0242B PIC S9(06)V9(01) COMP-3 - VALUE +201770.8. + VALUE +201770.8. 77 FLD0243A PIC 9(02)V9(34) COMP-3 - VALUE 97.0409660969254295181940506154205650. + VALUE 97.0409660969254295181940506154205650. 77 FLD0243B PIC 9(05)V9(28) COMP-6 - VALUE 86928.4847432245544318618613033322. + VALUE 86928.4847432245544318618613033322. 77 FLD0244A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0244B PIC 9(09)V9(13) COMP-6 - VALUE 596454149.7067354924865. + VALUE 596454149.7067354924865. 77 FLD0245A PIC S9(09)V9(05) COMP-3 - VALUE -371716886.14542. + VALUE -371716886.14542. 77 FLD0245B PIC 9(09)V9(15) COMP-6 - VALUE 636050719.355519267317333. + VALUE 636050719.355519267317333. 77 FLD0246A PIC 9(05)V9(28) COMP-3 - VALUE 87216.9313623637143528810611314838. + VALUE 87216.9313623637143528810611314838. 77 FLD0246B PIC 9(06)V9(01) COMP-6 - VALUE 208199.5. + VALUE 208199.5. 77 FLD0247A PIC 9(06)V9(25) COMP-3 - VALUE 834494.8214770686600871840710169. + VALUE 834494.8214770686600871840710169. 77 FLD0247B PIC 9(08)V9(19) COMP-3 - VALUE 73372232.8570783122181353519. + VALUE 73372232.8570783122181353519. 77 FLD0248A PIC 9(04)V9(29) COMP-6 - VALUE 8885.56418584546814365410227765096. + VALUE 8885.56418584546814365410227765096. 77 FLD0248B PIC 9(10)V9(11) COMP-6 - VALUE 5683594830.11341870550. + VALUE 5683594830.11341870550. 77 FLD0249A PIC 9(09)V9(16) COMP-6 - VALUE 678470839.5950102000071524. + VALUE 678470839.5950102000071524. 77 FLD0249B PIC 9(09)V9(16) COMP-3 - VALUE 673175418.3146980707874718. + VALUE 673175418.3146980707874718. 77 FLD0250A PIC 9(09)V9(15) COMP-3 - VALUE 643468324.926731005675151. + VALUE 643468324.926731005675151. 77 FLD0250B PIC 9(04)V9(30) COMP-6 - VALUE 9057.675398841628089385835664870683. + VALUE 9057.675398841628089385835664870683. 77 FLD0251A PIC S9(09)V9(06) COMP-3 - VALUE +402548910.007195. + VALUE +402548910.007195. 77 FLD0251B PIC 9(06)V9(25) COMP-3 - VALUE 830149.1080513825338016431487631. + VALUE 830149.1080513825338016431487631. 77 FLD0252A PIC S9(05)V9(01) COMP-3 - VALUE -18339.3. + VALUE -18339.3. 77 FLD0252B PIC S9(07)V9(01) COMP-3 - VALUE +2343087.3. + VALUE +2343087.3. 77 FLD0253A PIC 9(06)V9(25) COMP-3 - VALUE 822593.8518184680026124055984837. + VALUE 822593.8518184680026124055984837. 77 FLD0253B PIC 9(07)V9(01) COMP-6 - VALUE 2159897.7. + VALUE 2159897.7. 77 FLD0254A PIC 9(10)V9(10) COMP-3 - VALUE 5401895692.3872574193. + VALUE 5401895692.3872574193. 77 FLD0254B PIC S9(07)V9(02) COMP-3 - VALUE +2405256.16. + VALUE +2405256.16. 77 FLD0255A PIC 9(02)V9(34) COMP-6 - VALUE 94.8299297085154591080424779647728428. + VALUE 94.8299297085154591080424779647728428. 77 FLD0255B PIC 9(10)V9(10) COMP-3 - VALUE 5408143412.7739858030. + VALUE 5408143412.7739858030. 77 FLD0256A PIC S9(09)V9(08) COMP-3 - VALUE -473179644.06591722. + VALUE -473179644.06591722. 77 FLD0256B PIC 9(04)V9(30) COMP-3 - VALUE 9107.434804383051085707734273455571. + VALUE 9107.434804383051085707734273455571. 77 FLD0257A PIC 9(09)V9(12) COMP-6 - VALUE 577029491.737192756772. + VALUE 577029491.737192756772. 77 FLD0257B PIC S9(03) COMP-3 - VALUE -084. + VALUE -084. 77 FLD0258A PIC 9(10)V9(12) COMP-3 - VALUE 5908893351.960881057394. + VALUE 5908893351.960881057394. 77 FLD0258B PIC 9(05)V9(27) COMP-6 - VALUE 84978.202175808337237583600654033. + VALUE 84978.202175808337237583600654033. 77 FLD0259A PIC 9(03)V9(32) COMP-6 - VALUE 937.55337057593879368511124994256533. + VALUE 937.55337057593879368511124994256533. 77 FLD0259B PIC S9(09)V9(05) COMP-3 - VALUE -374669242.27931. + VALUE -374669242.27931. 77 FLD0260A PIC 9(05)V9(27) COMP-6 - VALUE 86648.984966754782899300835197209. + VALUE 86648.984966754782899300835197209. 77 FLD0260B PIC 9(09)V9(13) COMP-3 - VALUE 601823310.0433563187436. + VALUE 601823310.0433563187436. 77 FLD0261A PIC S9(09)V9(05) COMP-3 - VALUE -374213925.47904. + VALUE -374213925.47904. 77 FLD0261B PIC 9(09)V9(05) COMP-6 - VALUE 379885544.06227. + VALUE 379885544.06227. 77 FLD0262A PIC S9(05)V9(01) COMP-3 - VALUE -17015.9. + VALUE -17015.9. 77 FLD0262B PIC 9(09)V9(17) COMP-6 - VALUE 687559565.36759821329241049. + VALUE 687559565.36759821329241049. 77 FLD0263A PIC 9(05)V9(26) COMP-3 - VALUE 84046.29767805690265802809335582. + VALUE 84046.29767805690265802809335582. 77 FLD0263B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0264A PIC 9(03)V9(32) COMP-6 - VALUE 935.78568596491340514376133796758949. + VALUE 935.78568596491340514376133796758949. 77 FLD0264B PIC 9(05)V9(01) COMP-6 - VALUE 17620.4. + VALUE 17620.4. 77 FLD0265A PIC S9(09)V9(05) COMP-3 - VALUE -380334582.15301. + VALUE -380334582.15301. 77 FLD0265B PIC 9(01)V9(36) COMP-6 - VALUE 9.854231270822284560750858872779645025. + VALUE 9.854231270822284560750858872779645025. 77 FLD0266A PIC 9(05)V9(27) COMP-6 - VALUE 84707.693570856212872399737534578. + VALUE 84707.693570856212872399737534578. 77 FLD0266B PIC 9(02)V9(34) COMP-3 - VALUE 96.1883348354436562566149859776487573. + VALUE 96.1883348354436562566149859776487573. 77 FLD0267A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0267B PIC S9(07)V9(01) COMP-3 - VALUE +2348814.4. + VALUE +2348814.4. 77 FLD0268A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0268B PIC 9(06)V9(25) COMP-3 - VALUE 821150.0957830146774085733341053. + VALUE 821150.0957830146774085733341053. 77 FLD0269A PIC 9(08)V9(18) COMP-6 - VALUE 69955495.182247551255727557. + VALUE 69955495.182247551255727557. 77 FLD0269B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0270A PIC 9(08)V9(18) COMP-6 - VALUE 69584936.933990082508216801. + VALUE 69584936.933990082508216801. 77 FLD0270B PIC S9(04) COMP-3 - VALUE +1200. + VALUE +1200. 77 FLD0271A PIC 9(10)V9(07) COMP-6 - VALUE 4478155927.4435323. + VALUE 4478155927.4435323. 77 FLD0271B PIC 9(07)V9(02) COMP-6 - VALUE 2371664.59. + VALUE 2371664.59. 77 FLD0272A PIC S9(09)V9(06) COMP-3 - VALUE +411514667.070764. + VALUE +411514667.070764. 77 FLD0272B PIC S9(10)V9(08) COMP-3 - VALUE -4748492295.95657285. + VALUE -4748492295.95657285. - 77 FLD0273A PIC 9(10)V9(07) COMP-6 - VALUE 4698099460.5024867. + 77 FLD0273A PIC 9(10)V9(07) BINARY + VALUE 4698099460.5024867. 77 FLD0273B PIC S9(10)V9(06) COMP-3 - VALUE +4338009792.593093. + VALUE +4338009792.593093. 77 FLD0274A PIC 9(07)V9(01) COMP-6 - VALUE 2190249.4. + VALUE 2190249.4. 77 FLD0274B PIC 9(10)V9(10) COMP-6 - VALUE 5271665070.2586675958. + VALUE 5271665070.2586675958. 77 FLD0275A PIC 9(04) COMP-6 - VALUE 1157. + VALUE 1157. 77 FLD0275B PIC S9(07)V9(02) COMP-3 - VALUE +2422980.94. + VALUE +2422980.94. 77 FLD0276A PIC 9(04)V9(30) COMP-3 - VALUE 9021.044697283423507983002309629227. + VALUE 9021.044697283423507983002309629227. 77 FLD0276B PIC 9(02)V9(33) COMP-6 - VALUE 94.591784695476577304873444518307223. + VALUE 94.591784695476577304873444518307223. 77 FLD0277A PIC 9(01)V9(36) COMP-3 - VALUE 9.749582162084949876756923003995325416. + VALUE 9.749582162084949876756923003995325416. 77 FLD0277B PIC 9(10)V9(08) COMP-6 - VALUE 4992154586.01645512. + VALUE 4992154586.01645512. 77 FLD0278A PIC 9(10)V9(06) COMP-6 - VALUE 4251062706.993476. + VALUE 4251062706.993476. 77 FLD0278B PIC 9(03)V9(31) COMP-3 - VALUE 914.7657257947739983805490737722720. + VALUE 914.7657257947739983805490737722720. 77 FLD0279A PIC S9(08)V9(02) COMP-3 - VALUE -27159201.10. + VALUE -27159201.10. 77 FLD0279B PIC 9(03)V9(32) COMP-3 - VALUE 921.08160397424898579998853165307082. + VALUE 921.08160397424898579998853165307082. 77 FLD0280A PIC 9(07)V9(02) COMP-6 - VALUE 2571968.92. + VALUE 2571968.92. 77 FLD0280B PIC 9(08)V9(19) COMP-3 - VALUE 71229222.1254675839148262639. + VALUE 71229222.1254675839148262639. 77 FLD0281A PIC S9(09)V9(04) COMP-3 - VALUE +342861689.3811. + VALUE +342861689.3811. 77 FLD0281B PIC 9(10)V9(07) COMP-6 - VALUE 4662459797.7205073. + VALUE 4662459797.7205073. 77 FLD0282A PIC S9(10)V9(07) COMP-3 - VALUE -4600147325.4430291. + VALUE -4600147325.4430291. 77 FLD0282B PIC 9(07)V9(22) COMP-6 - VALUE 7889304.3658446049271049105300. + VALUE 7889304.3658446049271049105300. 77 FLD0283A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0283B PIC S9(05)V9(01) COMP-3 - VALUE -18273.9. + VALUE -18273.9. 77 FLD0284A PIC 9(09)V9(17) COMP-6 - VALUE 689733171.20512533939802324. + VALUE 689733171.20512533939802324. 77 FLD0284B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0285A PIC 9(03)V9(32) COMP-6 - VALUE 928.78828230193799520009179104818031. + VALUE 928.78828230193799520009179104818031. 77 FLD0285B PIC 9(08)V9(20) COMP-6 - VALUE 73692142.62351649891158444916. + VALUE 73692142.62351649891158444916. 77 FLD0286A PIC 9(08)V9(18) COMP-3 - VALUE 70426964.322731444578806758. + VALUE 70426964.322731444578806758. 77 FLD0286B PIC 9(07)V9(01) COMP-6 - VALUE 2181620.7. + VALUE 2181620.7. 77 FLD0287A PIC S9(07)V9(02) COMP-3 - VALUE -2521413.84. + VALUE -2521413.84. 77 FLD0287B PIC 9(06) COMP-6 - VALUE 158585. + VALUE 158585. 77 FLD0288A PIC 9(09)V9(17) COMP-6 - VALUE 688074525.02240640246355951. + VALUE 688074525.02240640246355951. 77 FLD0288B PIC 9(04)V9(29) COMP-3 - VALUE 8936.92752615119712089608583482913. + VALUE 8936.92752615119712089608583482913. 77 FLD0289A PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0289B PIC 9(10)V9(11) COMP-6 - VALUE 5676330984.14293657540. + VALUE 5676330984.14293657540. 77 FLD0290A PIC S9(09)V9(05) COMP-3 - VALUE -382951207.35442. + VALUE -382951207.35442. 77 FLD0290B PIC S9(03) COMP-3 - VALUE -094. + VALUE -094. 77 FLD0291A PIC 9(01)V9(36) COMP-6 - VALUE 9.859384124391753490002088256005663424. + VALUE 9.859384124391753490002088256005663424. 77 FLD0291B PIC 9(06)V9(25) COMP-3 - VALUE 830008.1335268413296191170047677. + VALUE 830008.1335268413296191170047677. 77 FLD0292A PIC S9(08)V9(03) COMP-3 - VALUE +31020519.916. + VALUE +31020519.916. 77 FLD0292B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0293A PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0293B PIC 9(08)V9(03) COMP-6 - VALUE 30744484.924. + VALUE 30744484.924. 77 FLD0294A PIC S9(09)V9(06) COMP-3 - VALUE +412445339.504106. + VALUE +412445339.504106. 77 FLD0294B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0295A PIC S9(07)V9(02) COMP-3 - VALUE -2502548.06. + VALUE -2502548.06. 77 FLD0295B PIC S9(07)V9(01) COMP-3 - VALUE +2138373.7. + VALUE +2138373.7. 77 FLD0296A PIC S9(06) COMP-3 - VALUE -160918. + VALUE -160918. 77 FLD0296B PIC 9(09)V9(12) COMP-3 - VALUE 574303107.736577889141. + VALUE 574303107.736577889141. 77 FLD0297A PIC 9(08)V9(03) COMP-6 - VALUE 30843552.269. + VALUE 30843552.269. 77 FLD0297B PIC 9(10)V9(09) COMP-6 - VALUE 5180156945.333709295. + VALUE 5180156945.333709295. 77 FLD0298A PIC S9(10)V9(08) COMP-3 - VALUE -4831587379.88150510. + VALUE -4831587379.88150510. 77 FLD0298B PIC 9(01)V9(36) COMP-6 - VALUE 9.983859909908295859892746193509083241. + VALUE 9.983859909908295859892746193509083241. 77 FLD0299A PIC 9(10)V9(13) COMP-6 - VALUE 6064872573.5835784522720. + VALUE 6064872573.5835784522720. 77 FLD0299B PIC 9(09)V9(16) COMP-6 - VALUE 669818284.8844781434038964. + VALUE 669818284.8844781434038964. 77 FLD0300A PIC 9(08)V9(20) COMP-6 - VALUE 73956142.30661028409841151187. + VALUE 73956142.30661028409841151187. 77 FLD0300B PIC 9(09)V9(14) COMP-3 - VALUE 624082886.12038953502292. + VALUE 624082886.12038953502292. 77 FLD0301A PIC S9(10)V9(07) COMP-3 - VALUE -4524568495.0704084. + VALUE -4524568495.0704084. 77 FLD0301B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0302A PIC 9(02)V9(34) COMP-6 - VALUE 94.9764690231816866017311440373305231. + VALUE 94.9764690231816866017311440373305231. 77 FLD0302B PIC 9(10)V9(06) COMP-6 - VALUE 4291773437.216153. + VALUE 4291773437.216153. 77 FLD0303A PIC 9(01)V9(36) COMP-6 - VALUE 9.998247249142951931233369577967096120. + VALUE 9.998247249142951931233369577967096120. 77 FLD0303B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0304A PIC S9(03) COMP-3 - VALUE -083. + VALUE -083. 77 FLD0304B PIC 9(10)V9(11) COMP-6 - VALUE 5565734306.84127234968. + VALUE 5565734306.84127234968. 77 FLD0305A PIC 9(09)V9(03) COMP-6 - VALUE 328435884.788. + VALUE 328435884.788. 77 FLD0305B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0306A PIC S9(03) COMP-3 - VALUE -083. + VALUE -083. 77 FLD0306B PIC S9(10)V9(08) COMP-3 - VALUE -4936418970.17687181. + VALUE -4936418970.17687181. 77 FLD0307A PIC 9(10)V9(10) COMP-3 - VALUE 5430567751.9659767416. + VALUE 5430567751.9659767416. 77 FLD0307B PIC 9(03)V9(32) COMP-6 - VALUE 928.08547489686554765597747973515652. + VALUE 928.08547489686554765597747973515652. 77 FLD0308A PIC 9(09)V9(05) COMP-6 - VALUE 377189267.62120. + VALUE 377189267.62120. 77 FLD0308B PIC 9(02)V9(34) COMP-3 - VALUE 96.4274365663057242414879510761238634. + VALUE 96.4274365663057242414879510761238634. 77 FLD0309A PIC 9(09)V9(03) COMP-6 - VALUE 325461096.612. + VALUE 325461096.612. 77 FLD0309B PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0310A PIC 9(09)V9(05) COMP-6 - VALUE 377541451.37210. + VALUE 377541451.37210. 77 FLD0310B PIC 9(09)V9(06) COMP-6 - VALUE 416709099.760976. + VALUE 416709099.760976. 77 FLD0311A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0311B PIC 9(01)V9(36) COMP-3 - VALUE 9.931117203050255914931199185957666486. + VALUE 9.931117203050255914931199185957666486. 77 FLD0312A PIC S9(10)V9(07) COMP-3 - VALUE -4631183834.9707568. + VALUE -4631183834.9707568. 77 FLD0312B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0313A PIC 9(05)V9(27) COMP-3 - VALUE 86493.365621715367907995641871821. + VALUE 86493.365621715367907995641871821. 77 FLD0313B PIC 9(09)V9(05) COMP-6 - VALUE 375066571.23058. + VALUE 375066571.23058. 77 FLD0314A PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0314B PIC 9(08)V9(18) COMP-6 - VALUE 69720866.107690404600560896. + VALUE 69720866.107690404600560896. 77 FLD0315A PIC 9(07)V9(23) COMP-3 - VALUE 7933336.74589681625555215305212. + VALUE 7933336.74589681625555215305212. 77 FLD0315B PIC 9(09)V9(17) COMP-6 - VALUE 688307785.43204196306959374. + VALUE 688307785.43204196306959374. 77 FLD0316A PIC 9(06)V9(01) COMP-6 - VALUE 195827.4. + VALUE 195827.4. 77 FLD0316B PIC 9(10)V9(11) COMP-3 - VALUE 5611864585.06384822086. + VALUE 5611864585.06384822086. 77 FLD0317A PIC 9(10)V9(08) COMP-6 - VALUE 4983225307.65216153. + VALUE 4983225307.65216153. 77 FLD0317B PIC S9(09)V9(03) COMP-3 - VALUE +331361572.492. + VALUE +331361572.492. 77 FLD0318A PIC 9(08)V9(02) COMP-6 - VALUE 26926374.69. + VALUE 26926374.69. 77 FLD0318B PIC 9(04)V9(29) COMP-3 - VALUE 8825.34717446214034275442372745601. + VALUE 8825.34717446214034275442372745601. 77 FLD0319A PIC 9(08)V9(18) COMP-6 - VALUE 69931441.978879860243978328. + VALUE 69931441.978879860243978328. 77 FLD0319B PIC 9(09)V9(15) COMP-3 - VALUE 650439668.121860714578019. + VALUE 650439668.121860714578019. 77 FLD0320A PIC 9(08)V9(19) COMP-6 - VALUE 71973495.8824565840274090078. + VALUE 71973495.8824565840274090078. 77 FLD0320B PIC 9(10)V9(11) COMP-3 - VALUE 5542215777.53993832615. + VALUE 5542215777.53993832615. 77 FLD0321A PIC 9(10)V9(09) COMP-3 - VALUE 5005504874.853489161. + VALUE 5005504874.853489161. 77 FLD0321B PIC 9(09)V9(16) COMP-3 - VALUE 660163921.0521921263818967. + VALUE 660163921.0521921263818967. 77 FLD0322A PIC S9(09)V9(07) COMP-3 - VALUE +442005310.2249054. + VALUE +442005310.2249054. 77 FLD0322B PIC 9(09)V9(14) COMP-6 - VALUE 617916374.92097983841432. + VALUE 617916374.92097983841432. 77 FLD0323A PIC S9(05) COMP-3 - VALUE -15097. + VALUE -15097. 77 FLD0323B PIC 9(01)V9(35) COMP-3 - VALUE 9.73366140153258840861383305309573188. + VALUE 9.73366140153258840861383305309573188. 77 FLD0324A PIC 9(10)V9(11) COMP-3 - VALUE 5601604504.75820970162. + VALUE 5601604504.75820970162. 77 FLD0324B PIC 9(10)V9(10) COMP-3 - VALUE 5319146871.9734047443. + VALUE 5319146871.9734047443. 77 FLD0325A PIC 9(04) COMP-6 - VALUE 1169. + VALUE 1169. 77 FLD0325B PIC 9(08)V9(19) COMP-3 - VALUE 72332591.2353324218528882738. + VALUE 72332591.2353324218528882738. 77 FLD0326A PIC S9(08)V9(03) COMP-3 - VALUE +31312044.720. + VALUE +31312044.720. 77 FLD0326B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0327A PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0327B PIC S9(07)V9(01) COMP-3 - VALUE +2122536.7. + VALUE +2122536.7. 77 FLD0328A PIC 9(08)V9(19) COMP-3 - VALUE 71147504.7716873310044150002. + VALUE 71147504.7716873310044150002. 77 FLD0328B PIC S9(09)V9(05) COMP-3 - VALUE -393175029.86891. + VALUE -393175029.86891. 77 FLD0329A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0329B PIC 9(02)V9(34) COMP-3 - VALUE 95.2096907591406971249625712516717612. + VALUE 95.2096907591406971249625712516717612. 77 FLD0330A PIC 9(09)V9(07) COMP-6 - VALUE 445280746.1581723. + VALUE 445280746.1581723. 77 FLD0330B PIC 9(07)V9(23) COMP-6 - VALUE 7955244.25555017788980194382020. + VALUE 7955244.25555017788980194382020. 77 FLD0331A PIC S9(07)V9(01) COMP-3 - VALUE +2232816.8. + VALUE +2232816.8. 77 FLD0331B PIC 9(08)V9(02) COMP-6 - VALUE 27670053.03. + VALUE 27670053.03. 77 FLD0332A PIC 9(05)V9(27) COMP-6 - VALUE 86562.988696340348315771962006692. + VALUE 86562.988696340348315771962006692. 77 FLD0332B PIC 9(09)V9(04) COMP-6 - VALUE 355930982.9079. + VALUE 355930982.9079. 77 FLD0333A PIC 9(02)V9(34) COMP-6 - VALUE 95.6494138775326296908474432711955159. + VALUE 95.6494138775326296908474432711955159. 77 FLD0333B PIC S9(07)V9(02) COMP-3 - VALUE +2431333.31. + VALUE +2431333.31. 77 FLD0334A PIC 9(08)V9(03) COMP-6 - VALUE 28999492.466. + VALUE 28999492.466. 77 FLD0334B PIC 9(09)V9(03) COMP-6 - VALUE 326043905.981. + VALUE 326043905.981. 77 FLD0335A PIC S9(08)V9(03) COMP-3 - VALUE +30334218.791. + VALUE +30334218.791. 77 FLD0335B PIC 9(10)V9(09) COMP-6 - VALUE 5075855226.668805064. + VALUE 5075855226.668805064. 77 FLD0336A PIC 9(05)V9(27) COMP-6 - VALUE 85800.255545984371874368434873758. + VALUE 85800.255545984371874368434873758. 77 FLD0336B PIC S9(08)V9(03) COMP-3 - VALUE -29245898.644. + VALUE -29245898.644. 77 FLD0337A PIC 9(08)V9(19) COMP-3 - VALUE 72003996.5448931451597047725. + VALUE 72003996.5448931451597047725. 77 FLD0337B PIC 9(08)V9(19) COMP-3 - VALUE 71409231.4076567258318561925. + VALUE 71409231.4076567258318561925. 77 FLD0338A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0338B PIC 9(10)V9(10) COMP-3 - VALUE 5304768900.0456310637. + VALUE 5304768900.0456310637. 77 FLD0339A PIC S9(06) COMP-3 - VALUE -160552. + VALUE -160552. 77 FLD0339B PIC 9(09)V9(13) COMP-3 - VALUE 594533435.7259434154840. + VALUE 594533435.7259434154840. 77 FLD0340A PIC 9(10)V9(09) COMP-3 - VALUE 5028381651.473269320. + VALUE 5028381651.473269320. 77 FLD0340B PIC S9(09)V9(04) COMP-3 - VALUE -361499697.6055. + VALUE -361499697.6055. 77 FLD0341A PIC 9(10)V9(11) COMP-6 - VALUE 5676316159.01010966318. + VALUE 5676316159.01010966318. 77 FLD0341B PIC 9(09)V9(12) COMP-3 - VALUE 572076310.146404809486. + VALUE 572076310.146404809486. 77 FLD0342A PIC S9(07)V9(01) COMP-3 - VALUE +2347143.0. + VALUE +2347143.0. 77 FLD0342B PIC S9(10)V9(07) COMP-3 - VALUE -4530575977.8135124. + VALUE -4530575977.8135124. 77 FLD0343A PIC 9(08)V9(19) COMP-6 - VALUE 72866356.1504289902792663724. + VALUE 72866356.1504289902792663724. 77 FLD0343B PIC 9(06)V9(01) COMP-6 - VALUE 195736.6. + VALUE 195736.6. 77 FLD0344A PIC 9(09)V9(07) COMP-6 - VALUE 439744878.9947105. + VALUE 439744878.9947105. 77 FLD0344B PIC 9(04)V9(29) COMP-3 - VALUE 8815.39565612843856179381418769480. + VALUE 8815.39565612843856179381418769480. 77 FLD0345A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0345B PIC 9(09)V9(06) COMP-6 - VALUE 405441574.894889. + VALUE 405441574.894889. 77 FLD0346A PIC 9(07)V9(22) COMP-3 - VALUE 7807860.0333687642187641131386. + VALUE 7807860.0333687642187641131386. 77 FLD0346B PIC 9(09)V9(16) COMP-3 - VALUE 674345587.8778652490268541. + VALUE 674345587.8778652490268541. 77 FLD0347A PIC 9(08)V9(18) COMP-3 - VALUE 70165985.253748408556617732. + VALUE 70165985.253748408556617732. 77 FLD0347B PIC 9(06) COMP-6 - VALUE 158396. + VALUE 158396. 77 FLD0348A PIC 9(08)V9(04) COMP-6 - VALUE 33778742.7133. + VALUE 33778742.7133. 77 FLD0348B PIC 9(09)V9(12) COMP-6 - VALUE 575387126.330844100863. + VALUE 575387126.330844100863. 77 FLD0349A PIC 9(10)V9(09) COMP-3 - VALUE 5122785066.779668161. + VALUE 5122785066.779668161. 77 FLD0349B PIC 9(03)V9(32) COMP-3 - VALUE 924.84903066843715535583214659709483. + VALUE 924.84903066843715535583214659709483. 77 FLD0350A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0350B PIC 9(06)V9(25) COMP-6 - VALUE 826494.1389960360762501068165875. + VALUE 826494.1389960360762501068165875. 77 FLD0351A PIC 9(05)V9(27) COMP-6 - VALUE 84942.576912519174303639601930626. + VALUE 84942.576912519174303639601930626. 77 FLD0351B PIC 9(10)V9(10) COMP-6 - VALUE 5388327188.5283523516. + VALUE 5388327188.5283523516. 77 FLD0352A PIC 9(03)V9(32) COMP-6 - VALUE 937.88592938035042489985926295048557. + VALUE 937.88592938035042489985926295048557. 77 FLD0352B PIC 9(06)V9(01) COMP-6 - VALUE 195629.8. + VALUE 195629.8. 77 FLD0353A PIC S9(07)V9(02) COMP-3 - VALUE -2544588.73. + VALUE -2544588.73. 77 FLD0353B PIC 9(02)V9(33) COMP-3 - VALUE 94.340663054368900652946194895775988. + VALUE 94.340663054368900652946194895775988. 77 FLD0354A PIC 9(07)V9(01) COMP-6 - VALUE 2152460.4. + VALUE 2152460.4. 77 FLD0354B PIC S9(08)V9(03) COMP-3 - VALUE -29015200.342. + VALUE -29015200.342. 77 FLD0355A PIC 9(06)V9(01) COMP-6 - VALUE 208715.4. + VALUE 208715.4. 77 FLD0355B PIC S9(05) COMP-3 - VALUE -15428. + VALUE -15428. 77 FLD0356A PIC S9(09)V9(05) COMP-3 - VALUE -391398983.37050. + VALUE -391398983.37050. 77 FLD0356B PIC 9(05)V9(27) COMP-6 - VALUE 84690.187478976841628508509529638. + VALUE 84690.187478976841628508509529638. 77 FLD0357A PIC 9(10)V9(10) COMP-3 - VALUE 5323345989.0667944591. + VALUE 5323345989.0667944591. 77 FLD0357B PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0358A PIC 9(08)V9(03) COMP-6 - VALUE 29848403.943. + VALUE 29848403.943. 77 FLD0358B PIC 9(09)V9(17) COMP-6 - VALUE 688595894.53938552239264936. + VALUE 688595894.53938552239264936. 77 FLD0359A PIC 9(07)V9(22) COMP-6 - VALUE 7654789.5985185210321333215688. + VALUE 7654789.5985185210321333215688. 77 FLD0359B PIC 9(01)V9(36) COMP-3 - VALUE 9.927521413787718795873615817981772124. + VALUE 9.927521413787718795873615817981772124. 77 FLD0360A PIC S9(09)V9(06) COMP-3 - VALUE +400277612.276280. + VALUE +400277612.276280. 77 FLD0360B PIC 9(08)V9(02) COMP-6 - VALUE 26666225.04. + VALUE 26666225.04. 77 FLD0361A PIC 9(06)V9(25) COMP-3 - VALUE 823089.8044061112361902132761315. + VALUE 823089.8044061112361902132761315. 77 FLD0361B PIC 9(05)V9(27) COMP-6 - VALUE 84762.044237681810621154454565839. + VALUE 84762.044237681810621154454565839. 77 FLD0362A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0362B PIC 9(04)V9(30) COMP-6 - VALUE 8970.899599407193836242413453874178. + VALUE 8970.899599407193836242413453874178. 77 FLD0363A PIC 9(09)V9(04) COMP-6 - VALUE 358575926.2078. + VALUE 358575926.2078. 77 FLD0363B PIC 9(04)V9(30) COMP-3 - VALUE 9034.927431796696550847514117776881. + VALUE 9034.927431796696550847514117776881. 77 FLD0364A PIC S9(04) COMP-3 - VALUE +1234. + VALUE +1234. 77 FLD0364B PIC 9(06)V9(25) COMP-3 - VALUE 830028.0009277749559970516202156. + VALUE 830028.0009277749559970516202156. 77 FLD0365A PIC 9(09)V9(11) COMP-3 - VALUE 551967009.62472056151. + VALUE 551967009.62472056151. 77 FLD0365B PIC 9(09)V9(16) COMP-6 - VALUE 658782379.9892106313436102. + VALUE 658782379.9892106313436102. 77 FLD0366A PIC 9(06)V9(25) COMP-3 - VALUE 822414.3642778768414913770357088. + VALUE 822414.3642778768414913770357088. 77 FLD0366B PIC 9(06)V9(25) COMP-6 - VALUE 838180.2974044693099742175945721. + VALUE 838180.2974044693099742175945721. 77 FLD0367A PIC 9(09)V9(13) COMP-6 - VALUE 595975436.9256639039420. + VALUE 595975436.9256639039420. 77 FLD0367B PIC S9(06)V9(01) COMP-3 - VALUE -191378.3. + VALUE -191378.3. 77 FLD0368A PIC 9(05) COMP-6 - VALUE 15663. + VALUE 15663. 77 FLD0368B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0369A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0369B PIC S9(08)V9(03) COMP-3 - VALUE +31224128.387. + VALUE +31224128.387. 77 FLD0370A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0370B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0371A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0371B PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0372A PIC 9(10)V9(09) COMP-6 - VALUE 5067586024.551302692. + VALUE 5067586024.551302692. 77 FLD0372B PIC 9(10)V9(09) COMP-3 - VALUE 5017586497.117959565. + VALUE 5017586497.117959565. 77 FLD0373A PIC 9(09)V9(16) COMP-3 - VALUE 660730415.8912360447786227. + VALUE 660730415.8912360447786227. 77 FLD0373B PIC S9(09)V9(04) COMP-3 - VALUE -352559577.5040. + VALUE -352559577.5040. 77 FLD0374A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0374B PIC 9(08)V9(19) COMP-3 - VALUE 71126449.7973442155753787119. + VALUE 71126449.7973442155753787119. 77 FLD0375A PIC 9(07)V9(22) COMP-3 - VALUE 7816763.9605777072819847717255. + VALUE 7816763.9605777072819847717255. 77 FLD0375B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0376A PIC 9(05)V9(27) COMP-6 - VALUE 84980.958923270843996533585595898. + VALUE 84980.958923270843996533585595898. 77 FLD0376B PIC 9(10)V9(09) COMP-3 - VALUE 5240094598.000759607. + VALUE 5240094598.000759607. 77 FLD0377A PIC 9(02)V9(34) COMP-6 - VALUE 96.7759547981370871205797357106348499. + VALUE 96.7759547981370871205797357106348499. 77 FLD0377B PIC 9(07)V9(22) COMP-3 - VALUE 7813622.4062247550126159012506. + VALUE 7813622.4062247550126159012506. 77 FLD0378A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0378B PIC S9(06) COMP-3 - VALUE -163135. + VALUE -163135. 77 FLD0379A PIC 9(10)V9(10) COMP-6 - VALUE 5351160784.1302399890. + VALUE 5351160784.1302399890. 77 FLD0379B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0380A PIC 9(09)V9(03) COMP-6 - VALUE 318886259.138. + VALUE 318886259.138. 77 FLD0380B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0381A PIC 9(10)V9(09) COMP-6 - VALUE 5188977124.912377281. + VALUE 5188977124.912377281. 77 FLD0381B PIC 9(03) COMP-6 - VALUE 096. + VALUE 096. 77 FLD0382A PIC 9(10)V9(10) COMP-6 - VALUE 5469463185.9002762475. + VALUE 5469463185.9002762475. 77 FLD0382B PIC 9(04) COMP-6 - VALUE 1276. + VALUE 1276. 77 FLD0383A PIC 9(04)V9(29) COMP-3 - VALUE 8846.28028341020278269013488170458. + VALUE 8846.28028341020278269013488170458. 77 FLD0383B PIC 9(06)V9(24) COMP-3 - VALUE 801588.906111812216082057602761. + VALUE 801588.906111812216082057602761. 77 FLD0384A PIC S9(07)V9(02) COMP-3 - VALUE +2410021.83. + VALUE +2410021.83. 77 FLD0384B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0385A PIC 9(09)V9(14) COMP-6 - VALUE 616198826.41569234671408. + VALUE 616198826.41569234671408. 77 FLD0385B PIC 9(04)V9(29) COMP-3 - VALUE 8914.93363280043138452413131744833. + VALUE 8914.93363280043138452413131744833. 77 FLD0386A PIC 9(10)V9(11) COMP-6 - VALUE 5671006446.22052230126. + VALUE 5671006446.22052230126. 77 FLD0386B PIC 9(07)V9(21) COMP-3 - VALUE 7538453.430795608589676248811. + VALUE 7538453.430795608589676248811. 77 FLD0387A PIC 9(08)V9(03) COMP-6 - VALUE 30516405.931. + VALUE 30516405.931. 77 FLD0387B PIC 9(09)V9(16) COMP-3 - VALUE 660134959.6835575095354897. + VALUE 660134959.6835575095354897. 77 FLD0388A PIC 9(10)V9(11) COMP-6 - VALUE 5691303425.20841603359. + VALUE 5691303425.20841603359. 77 FLD0388B PIC 9(03) COMP-6 - VALUE 099. + VALUE 099. 77 FLD0389A PIC S9(10)V9(06) COMP-3 - VALUE +4300560615.719126. + VALUE +4300560615.719126. 77 FLD0389B PIC 9(10)V9(12) COMP-6 - VALUE 5882065365.633618592156. + VALUE 5882065365.633618592156. 77 FLD0390A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0390B PIC 9(03) COMP-6 - VALUE 095. + VALUE 095. 77 FLD0391A PIC S9(08)V9(03) COMP-3 - VALUE +30066642.536. + VALUE +30066642.536. 77 FLD0391B PIC S9(08)V9(02) COMP-3 - VALUE -26329271.26. + VALUE -26329271.26. 77 FLD0392A PIC 9(02)V9(34) COMP-6 - VALUE 95.7627258628673261320329856971511617. + VALUE 95.7627258628673261320329856971511617. 77 FLD0392B PIC 9(10)V9(07) COMP-6 - VALUE 4682510725.0510572. + VALUE 4682510725.0510572. 77 FLD0393A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0393B PIC 9(04)V9(30) COMP-6 - VALUE 9067.420163680885991652758093550801. + VALUE 9067.420163680885991652758093550801. 77 FLD0394A PIC 9(05)V9(01) COMP-6 - VALUE 16807.8. + VALUE 16807.8. 77 FLD0394B PIC S9(10)V9(08) COMP-3 - VALUE -4746288002.63585892. + VALUE -4746288002.63585892. 77 FLD0395A PIC 9(10)V9(09) COMP-3 - VALUE 5206691882.901124390. + VALUE 5206691882.901124390. 77 FLD0395B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. - 77 FLD0396A PIC 9(09)V9(06) COMP-6 - VALUE 419939827.280791. + 77 FLD0396A PIC 9(09)V9(06) BINARY + VALUE 419939827.280791. 77 FLD0396B PIC 9(09)V9(07) COMP-6 - VALUE 446487444.5871826. + VALUE 446487444.5871826. 77 FLD0397A PIC 9(05)V9(27) COMP-6 - VALUE 85569.982924983467587054519754019. + VALUE 85569.982924983467587054519754019. 77 FLD0397B PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0398A PIC 9(05)V9(26) COMP-3 - VALUE 84110.85692078776876456913669244. + VALUE 84110.85692078776876456913669244. 77 FLD0398B PIC S9(08)V9(02) COMP-3 - VALUE -28358417.67. + VALUE -28358417.67. 77 FLD0399A PIC 9(05)V9(27) COMP-3 - VALUE 86215.377080746946614198122915695. + VALUE 86215.377080746946614198122915695. 77 FLD0399B PIC 9(07)V9(02) COMP-6 - VALUE 2481207.70. + VALUE 2481207.70. 77 FLD0400A PIC 9(10)V9(08) COMP-6 - VALUE 4880703034.67910082. + VALUE 4880703034.67910082. 77 FLD0400B PIC 9(06)V9(25) COMP-6 - VALUE 835199.6491942943467989834971376. + VALUE 835199.6491942943467989834971376. 77 FLD0401A PIC 9(08)V9(03) COMP-6 - VALUE 30757829.425. + VALUE 30757829.425. 77 FLD0401B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0402A PIC 9(04)V9(29) COMP-3 - VALUE 8843.41306989221531686951038864208. + VALUE 8843.41306989221531686951038864208. 77 FLD0402B PIC 9(08)V9(18) COMP-6 - VALUE 69652895.633901057426129455. + VALUE 69652895.633901057426129455. 77 FLD0403A PIC 9(10)V9(10) COMP-6 - VALUE 5351391185.2119278034. + VALUE 5351391185.2119278034. 77 FLD0403B PIC 9(03)V9(32) COMP-6 - VALUE 939.96913575689089448417234962107613. + VALUE 939.96913575689089448417234962107613. 77 FLD0404A PIC S9(10)V9(08) COMP-3 - VALUE -4810592903.51378177. + VALUE -4810592903.51378177. 77 FLD0404B PIC 9(09)V9(16) COMP-3 - VALUE 670850774.7441430080215241. + VALUE 670850774.7441430080215241. 77 FLD0405A PIC S9(09)V9(04) COMP-3 - VALUE -360620744.0007. + VALUE -360620744.0007. 77 FLD0405B PIC S9(05) COMP-3 - VALUE +14133. + VALUE +14133. 77 FLD0406A PIC S9(07)V9(02) COMP-3 - VALUE -2503018.94. + VALUE -2503018.94. 77 FLD0406B PIC 9(07)V9(23) COMP-6 - VALUE 7996063.91391730064732712435215. + VALUE 7996063.91391730064732712435215. 77 FLD0407A PIC 9(09)V9(13) COMP-3 - VALUE 592634898.8738083800598. + VALUE 592634898.8738083800598. 77 FLD0407B PIC 9(01)V9(36) COMP-6 - VALUE 9.879241102928391082826919955550692975. + VALUE 9.879241102928391082826919955550692975. 77 FLD0408A PIC 9(09)V9(07) COMP-6 - VALUE 438100099.1119252. + VALUE 438100099.1119252. 77 FLD0408B PIC 9(08)V9(02) COMP-6 - VALUE 28626783.20. + VALUE 28626783.20. 77 FLD0409A PIC 9(08)V9(02) COMP-6 - VALUE 28575188.65. + VALUE 28575188.65. 77 FLD0409B PIC 9(09)V9(12) COMP-6 - VALUE 576691261.515216657684. + VALUE 576691261.515216657684. 77 FLD0410A PIC 9(09)V9(14) COMP-6 - VALUE 615937928.60877261130525. + VALUE 615937928.60877261130525. 77 FLD0410B PIC 9(01)V9(36) COMP-3 - VALUE 9.822719722312858170454319406417198479. + VALUE 9.822719722312858170454319406417198479. 77 FLD0411A PIC 9(09)V9(17) COMP-6 - VALUE 688573322.26995748847286904. + VALUE 688573322.26995748847286904. 77 FLD0411B PIC 9(07)V9(22) COMP-6 - VALUE 7775778.4281136710369253250973. + VALUE 7775778.4281136710369253250973. 77 FLD0412A PIC 9(09)V9(12) COMP-3 - VALUE 572677017.522024045526. + VALUE 572677017.522024045526. 77 FLD0412B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0413A PIC 9(06)V9(25) COMP-6 - VALUE 828822.6462986850728853482905833. + VALUE 828822.6462986850728853482905833. 77 FLD0413B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0414A PIC 9(05)V9(27) COMP-3 - VALUE 84413.303017262042438062508153961. + VALUE 84413.303017262042438062508153961. 77 FLD0414B PIC S9(05) COMP-3 - VALUE -15377. + VALUE -15377. 77 FLD0415A PIC 9(09)V9(15) COMP-3 - VALUE 650722988.227690701812377. + VALUE 650722988.227690701812377. 77 FLD0415B PIC 9(03)V9(31) COMP-6 - VALUE 919.0351051613949717733476063585840. + VALUE 919.0351051613949717733476063585840. 77 FLD0416A PIC 9(09)V9(16) COMP-6 - VALUE 675584038.8269652718733482. + VALUE 675584038.8269652718733482. 77 FLD0416B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0417A PIC 9(03)V9(32) COMP-3 - VALUE 942.59186417160190085695603556814603. + VALUE 942.59186417160190085695603556814603. 77 FLD0417B PIC 9(04)V9(29) COMP-3 - VALUE 8943.54109346381376255408213182818. + VALUE 8943.54109346381376255408213182818. 77 FLD0418A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0418B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0419A PIC 9(09)V9(06) COMP-6 - VALUE 415695619.544491. + VALUE 415695619.544491. 77 FLD0419B PIC 9(10)V9(10) COMP-3 - VALUE 5349169017.3884820502. + VALUE 5349169017.3884820502. 77 FLD0420A PIC 9(08)V9(02) COMP-6 - VALUE 26881191.37. + VALUE 26881191.37. 77 FLD0420B PIC 9(04)V9(30) COMP-6 - VALUE 9092.387304867948216724471421912312. + VALUE 9092.387304867948216724471421912312. 77 FLD0421A PIC 9(08)V9(19) COMP-3 - VALUE 71124707.9077118260492795798. + VALUE 71124707.9077118260492795798. 77 FLD0421B PIC S9(06)V9(01) COMP-3 - VALUE +210383.3. + VALUE +210383.3. 77 FLD0422A PIC 9(08)V9(18) COMP-3 - VALUE 69276472.004700051510184266. + VALUE 69276472.004700051510184266. 77 FLD0422B PIC 9(02)V9(34) COMP-6 - VALUE 96.7464238557165900900258748151827603. + VALUE 96.7464238557165900900258748151827603. 77 FLD0423A PIC 9(09)V9(13) COMP-6 - VALUE 595417774.2919815052857. + VALUE 595417774.2919815052857. 77 FLD0423B PIC 9(09)V9(17) COMP-6 - VALUE 689527286.14626146441679566. + VALUE 689527286.14626146441679566. 77 FLD0424A PIC 9(09)V9(11) COMP-3 - VALUE 551151541.59885582085. + VALUE 551151541.59885582085. 77 FLD0424B PIC 9(08)V9(19) COMP-6 - VALUE 72724692.5117367437607640567. + VALUE 72724692.5117367437607640567. 77 FLD0425A PIC S9(10)V9(08) COMP-3 - VALUE -4741628720.81754727. + VALUE -4741628720.81754727. 77 FLD0425B PIC 9(10)V9(12) COMP-3 - VALUE 5846836543.074439562772. + VALUE 5846836543.074439562772. 77 FLD0426A PIC 9(10)V9(11) COMP-3 - VALUE 5601456695.80725313885. + VALUE 5601456695.80725313885. 77 FLD0426B PIC 9(10)V9(11) COMP-6 - VALUE 5581868249.31393821280. + VALUE 5581868249.31393821280. 77 FLD0427A PIC 9(09)V9(04) COMP-6 - VALUE 365284621.5641. + VALUE 365284621.5641. 77 FLD0427B PIC 9(07)V9(22) COMP-6 - VALUE 7792109.4871910845380824639505. + VALUE 7792109.4871910845380824639505. 77 FLD0428A PIC 9(05)V9(27) COMP-6 - VALUE 85913.234918316627730661139139556. + VALUE 85913.234918316627730661139139556. 77 FLD0428B PIC 9(01)V9(36) COMP-6 - VALUE 9.753152813075189886404814387788064777. + VALUE 9.753152813075189886404814387788064777. 77 FLD0429A PIC 9(07)V9(22) COMP-3 - VALUE 7833347.6062909002113343603923. + VALUE 7833347.6062909002113343603923. 77 FLD0429B PIC 9(09)V9(06) COMP-6 - VALUE 415311789.274485. + VALUE 415311789.274485. 77 FLD0430A PIC 9(08)V9(03) COMP-6 - VALUE 30820998.502. + VALUE 30820998.502. 77 FLD0430B PIC 9(09)V9(04) COMP-6 - VALUE 345613119.3468. + VALUE 345613119.3468. 77 FLD0431A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0431B PIC 9(03)V9(31) COMP-3 - VALUE 920.3928254587173674039490833820309. + VALUE 920.3928254587173674039490833820309. 77 FLD0432A PIC 9(10)V9(11) COMP-3 - VALUE 5612307034.00538710745. + VALUE 5612307034.00538710745. 77 FLD0432B PIC S9(06) COMP-3 - VALUE -161655. + VALUE -161655. 77 FLD0433A PIC 9(08)V9(19) COMP-3 - VALUE 72012955.8244768763763943297. + VALUE 72012955.8244768763763943297. 77 FLD0433B PIC 9(06)V9(01) COMP-6 - VALUE 206502.1. + VALUE 206502.1. 77 FLD0434A PIC S9(10)V9(07) COMP-3 - VALUE -4547054675.3415619. + VALUE -4547054675.3415619. 77 FLD0434B PIC 9(03)V9(32) COMP-3 - VALUE 931.50114075800283242045907172723673. + VALUE 931.50114075800283242045907172723673. 77 FLD0435A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0435B PIC 9(10)V9(12) COMP-3 - VALUE 5848414344.863717140299. + VALUE 5848414344.863717140299. 77 FLD0436A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0436B PIC 9(06)V9(25) COMP-3 - VALUE 830719.5843004202551185244374210. + VALUE 830719.5843004202551185244374210. 77 FLD0437A PIC 9(09)V9(15) COMP-3 - VALUE 632897272.198471361193128. + VALUE 632897272.198471361193128. 77 FLD0437B PIC 9(09)V9(15) COMP-3 - VALUE 644015379.475938010145341. + VALUE 644015379.475938010145341. 77 FLD0438A PIC 9(09)V9(16) COMP-3 - VALUE 664694021.6365745390802999. + VALUE 664694021.6365745390802999. 77 FLD0438B PIC 9(05)V9(28) COMP-3 - VALUE 87427.7230957161255453513604152249. + VALUE 87427.7230957161255453513604152249. 77 FLD0439A PIC 9(10)V9(08) COMP-6 - VALUE 4961134805.43429519. + VALUE 4961134805.43429519. 77 FLD0439B PIC 9(10)V9(11) COMP-3 - VALUE 5610850764.78219813012. + VALUE 5610850764.78219813012. 77 FLD0440A PIC 9(04)V9(29) COMP-6 - VALUE 8899.07507055040514210020319296745. + VALUE 8899.07507055040514210020319296745. 77 FLD0440B PIC 9(10)V9(07) COMP-6 - VALUE 4554701137.8932739. + VALUE 4554701137.8932739. 77 FLD0441A PIC 9(08)V9(19) COMP-3 - VALUE 71126905.4406556744396539215. + VALUE 71126905.4406556744396539215. 77 FLD0441B PIC S9(10)V9(06) COMP-3 - VALUE +4339238601.837461. + VALUE +4339238601.837461. 77 FLD0442A PIC 9(05)V9(01) COMP-6 - VALUE 16995.1. + VALUE 16995.1. 77 FLD0442B PIC 9(03)V9(31) COMP-6 - VALUE 915.7753741786495149668212434335146. + VALUE 915.7753741786495149668212434335146. 77 FLD0443A PIC S9(10)V9(08) COMP-3 - VALUE -4744984255.46487689. + VALUE -4744984255.46487689. 77 FLD0443B PIC 9(09)V9(14) COMP-3 - VALUE 620915031.52970173307068. + VALUE 620915031.52970173307068. 77 FLD0444A PIC 9(02)V9(33) COMP-6 - VALUE 94.673816662087151296844922399031929. + VALUE 94.673816662087151296844922399031929. 77 FLD0444B PIC 9(10)V9(09) COMP-3 - VALUE 5047752845.189990011. + VALUE 5047752845.189990011. 77 FLD0445A PIC 9(10)V9(10) COMP-3 - VALUE 5416554544.5299512206. + VALUE 5416554544.5299512206. 77 FLD0445B PIC S9(10)V9(07) COMP-3 - VALUE -4623541965.4562581. + VALUE -4623541965.4562581. 77 FLD0446A PIC 9(10)V9(09) COMP-3 - VALUE 5044897846.697211640. + VALUE 5044897846.697211640. 77 FLD0446B PIC 9(09)V9(16) COMP-6 - VALUE 665206327.4939082893055797. + VALUE 665206327.4939082893055797. 77 FLD0447A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0447B PIC 9(08)V9(02) COMP-6 - VALUE 27717300.69. + VALUE 27717300.69. 77 FLD0448A PIC 9(06)V9(01) COMP-6 - VALUE 186565.4. + VALUE 186565.4. 77 FLD0448B PIC 9(10)V9(10) COMP-6 - VALUE 5373290497.5367845601. + VALUE 5373290497.5367845601. 77 FLD0449A PIC S9(09)V9(05) COMP-3 - VALUE -384988094.18704. + VALUE -384988094.18704. 77 FLD0449B PIC S9(08)V9(04) COMP-3 - VALUE +34016016.2924. + VALUE +34016016.2924. 77 FLD0450A PIC 9(09)V9(14) COMP-6 - VALUE 625578375.50228334588808. + VALUE 625578375.50228334588808. 77 FLD0450B PIC 9(09)V9(13) COMP-6 - VALUE 597300618.6146695428718. + VALUE 597300618.6146695428718. 77 FLD0451A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0451B PIC S9(07)V9(02) COMP-3 - VALUE -2517390.40. + VALUE -2517390.40. 77 FLD0452A PIC 9(08)V9(02) COMP-6 - VALUE 26826484.18. + VALUE 26826484.18. 77 FLD0452B PIC 9(10)V9(11) COMP-6 - VALUE 5576443525.30127562772. + VALUE 5576443525.30127562772. 77 FLD0453A PIC 9(10)V9(10) COMP-6 - VALUE 5383526546.5392911909. + VALUE 5383526546.5392911909. 77 FLD0453B PIC 9(02)V9(34) COMP-6 - VALUE 96.7573296701221163829131910461001098. + VALUE 96.7573296701221163829131910461001098. 77 FLD0454A PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0454B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0455A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0455B PIC 9(05)V9(27) COMP-3 - VALUE 85105.998788168291113720442808698. + VALUE 85105.998788168291113720442808698. 77 FLD0456A PIC S9(03) COMP-3 - VALUE -093. + VALUE -093. 77 FLD0456B PIC 9(05) COMP-6 - VALUE 15509. + VALUE 15509. 77 FLD0457A PIC 9(04)V9(30) COMP-6 - VALUE 9063.641671624598217249513254500925. + VALUE 9063.641671624598217249513254500925. 77 FLD0457B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0458A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0458B PIC 9(09)V9(03) COMP-6 - VALUE 319507540.378. + VALUE 319507540.378. 77 FLD0459A PIC 9(06)V9(01) COMP-6 - VALUE 198479.9. + VALUE 198479.9. 77 FLD0459B PIC 9(10)V9(11) COMP-3 - VALUE 5635468078.16151518188. + VALUE 5635468078.16151518188. 77 FLD0460A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0460B PIC 9(07)V9(22) COMP-3 - VALUE 7834589.5335320658858790920930. + VALUE 7834589.5335320658858790920930. 77 FLD0461A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0461B PIC S9(07)V9(01) COMP-3 - VALUE +2146839.2. + VALUE +2146839.2. 77 FLD0462A PIC 9(08)V9(02) COMP-6 - VALUE 26776595.69. + VALUE 26776595.69. 77 FLD0462B PIC 9(02)V9(34) COMP-3 - VALUE 95.2391194548525610308331579290097579. + VALUE 95.2391194548525610308331579290097579. 77 FLD0463A PIC 9(05)V9(27) COMP-3 - VALUE 85490.666934027292889197724434779. + VALUE 85490.666934027292889197724434779. 77 FLD0463B PIC 9(09)V9(06) COMP-6 - VALUE 407249114.981761. + VALUE 407249114.981761. 77 FLD0464A PIC 9(10)V9(07) COMP-6 - VALUE 4587031190.3834293. + VALUE 4587031190.3834293. 77 FLD0464B PIC 9(08)V9(19) COMP-6 - VALUE 71857481.5704608793609509120. + VALUE 71857481.5704608793609509120. 77 FLD0465A PIC 9(10)V9(12) COMP-3 - VALUE 5816563985.597106301028. + VALUE 5816563985.597106301028. 77 FLD0465B PIC 9(06)V9(25) COMP-6 - VALUE 837937.1800695708527584315561398. + VALUE 837937.1800695708527584315561398. 77 FLD0466A PIC 9(09)V9(15) COMP-3 - VALUE 654381306.333900236715805. + VALUE 654381306.333900236715805. 77 FLD0466B PIC 9(05) COMP-6 - VALUE 14616. + VALUE 14616. 77 FLD0467A PIC S9(07)V9(01) COMP-3 - VALUE +2343287.0. + VALUE +2343287.0. 77 FLD0467B PIC 9(04)V9(29) COMP-3 - VALUE 8929.74677715112297171629052172647. + VALUE 8929.74677715112297171629052172647. 77 FLD0468A PIC S9(10)V9(06) COMP-3 - VALUE +4344132145.767680. + VALUE +4344132145.767680. 77 FLD0468B PIC 9(08)V9(03) COMP-6 - VALUE 29592230.696. + VALUE 29592230.696. 77 FLD0469A PIC 9(08)V9(18) COMP-6 - VALUE 70961503.876956555370014712. + VALUE 70961503.876956555370014712. 77 FLD0469B PIC 9(10)V9(09) COMP-3 - VALUE 5200119971.346918168. + VALUE 5200119971.346918168. 77 FLD0470A PIC 9(03)V9(31) COMP-3 - VALUE 913.6810028966669827710234130790922. + VALUE 913.6810028966669827710234130790922. 77 FLD0470B PIC S9(09)V9(05) COMP-3 - VALUE -383130523.18889. + VALUE -383130523.18889. 77 FLD0471A PIC S9(07)V9(02) COMP-3 - VALUE -2507103.69. + VALUE -2507103.69. 77 FLD0471B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0472A PIC 9(10)V9(09) COMP-3 - VALUE 5103990869.050332168. + VALUE 5103990869.050332168. 77 FLD0472B PIC 9(06)V9(26) COMP-3 - VALUE 843393.74409143441635450244575622. + VALUE 843393.74409143441635450244575622. 77 FLD0473A PIC 9(08)V9(20) COMP-3 - VALUE 74367162.06805468187823748849. + VALUE 74367162.06805468187823748849. 77 FLD0473B PIC 9(08)V9(18) COMP-3 - VALUE 70143773.259305752798553612. + VALUE 70143773.259305752798553612. 77 FLD0474A PIC 9(08)V9(19) COMP-6 - VALUE 72625744.5118117406224200749. + VALUE 72625744.5118117406224200749. 77 FLD0474B PIC S9(05) COMP-3 - VALUE +13295. + VALUE +13295. 77 FLD0475A PIC 9(10)V9(07) COMP-6 - VALUE 4588724634.2999971. + VALUE 4588724634.2999971. 77 FLD0475B PIC S9(09)V9(06) COMP-3 - VALUE +420010897.357724. + VALUE +420010897.357724. 77 FLD0476A PIC 9(08)V9(02) COMP-6 - VALUE 28869933.49. + VALUE 28869933.49. 77 FLD0476B PIC 9(06)V9(01) COMP-6 - VALUE 197306.5. + VALUE 197306.5. 77 FLD0477A PIC 9(08)V9(20) COMP-3 - VALUE 74492482.99155191155307420558. + VALUE 74492482.99155191155307420558. 77 FLD0477B PIC S9(09)V9(05) COMP-3 - VALUE -380644102.28203. + VALUE -380644102.28203. 77 FLD0478A PIC 9(08)V9(19) COMP-6 - VALUE 72616162.5751895356550846827. + VALUE 72616162.5751895356550846827. 77 FLD0478B PIC 9(09)V9(04) COMP-6 - VALUE 345871637.9604. + VALUE 345871637.9604. 77 FLD0479A PIC S9(09)V9(06) COMP-3 - VALUE +413502052.896697. + VALUE +413502052.896697. 77 FLD0479B PIC 9(06)V9(25) COMP-3 - VALUE 820524.8465168897276100778981344. + VALUE 820524.8465168897276100778981344. 77 FLD0480A PIC S9(06)V9(01) COMP-3 - VALUE +203017.8. + VALUE +203017.8. 77 FLD0480B PIC 9(08)V9(20) COMP-6 - VALUE 74798417.21657910502685240317. + VALUE 74798417.21657910502685240317. 77 FLD0481A PIC 9(05) COMP-6 - VALUE 15658. + VALUE 15658. 77 FLD0481B PIC 9(01)V9(36) COMP-3 - VALUE 9.907459007614364265847939350351225584. + VALUE 9.907459007614364265847939350351225584. 77 FLD0482A PIC 9(08)V9(18) COMP-6 - VALUE 70905037.950447225014727337. + VALUE 70905037.950447225014727337. 77 FLD0482B PIC S9(10)V9(08) COMP-3 - VALUE -4922020906.16106868. + VALUE -4922020906.16106868. 77 FLD0483A PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0483B PIC S9(09)V9(03) COMP-3 - VALUE +323420049.144. + VALUE +323420049.144. 77 FLD0484A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0484B PIC 9(09)V9(12) COMP-6 - VALUE 577123861.473882282524. + VALUE 577123861.473882282524. 77 FLD0485A PIC 9(07)V9(02) COMP-6 - VALUE 2567572.97. + VALUE 2567572.97. 77 FLD0485B PIC 9(05)V9(01) COMP-6 - VALUE 16688.0. + VALUE 16688.0. 77 FLD0486A PIC 9(05) COMP-6 - VALUE 13937. + VALUE 13937. 77 FLD0486B PIC 9(10)V9(07) COMP-6 - VALUE 4583814690.4965959. + VALUE 4583814690.4965959. 77 FLD0487A PIC 9(06)V9(01) COMP-6 - VALUE 209384.2. + VALUE 209384.2. 77 FLD0487B PIC 9(08)V9(18) COMP-3 - VALUE 70207035.549040885946681100. + VALUE 70207035.549040885946681100. 77 FLD0488A PIC S9(10)V9(07) COMP-3 - VALUE -4519198906.7966076. + VALUE -4519198906.7966076. 77 FLD0488B PIC 9(09)V9(16) COMP-6 - VALUE 669660091.3134611587906874. + VALUE 669660091.3134611587906874. 77 FLD0489A PIC S9(05)V9(01) COMP-3 - VALUE -17360.6. + VALUE -17360.6. 77 FLD0489B PIC 9(01)V9(36) COMP-6 - VALUE 9.950567826331271348294649214949458837. + VALUE 9.950567826331271348294649214949458837. 77 FLD0490A PIC 9(10)V9(10) COMP-6 - VALUE 5352566580.2623056954. + VALUE 5352566580.2623056954. 77 FLD0490B PIC 9(08)V9(02) COMP-6 - VALUE 28596817.06. + VALUE 28596817.06. 77 FLD0491A PIC 9(03)V9(31) COMP-6 - VALUE 918.2459205467069507378141679510008. + VALUE 918.2459205467069507378141679510008. 77 FLD0491B PIC 9(09)V9(16) COMP-3 - VALUE 661285516.5476814178759923. + VALUE 661285516.5476814178759923. 77 FLD0492A PIC 9(06)V9(25) COMP-6 - VALUE 819266.4570447540928199714471702. + VALUE 819266.4570447540928199714471702. 77 FLD0492B PIC S9(09)V9(04) COMP-3 - VALUE +343135449.1145. + VALUE +343135449.1145. - 77 FLD0493A PIC S9(05)V9(01) COMP-3 - VALUE -18038.5. + 77 FLD0493A PIC S9(05)V9(01) BINARY + VALUE -18038.5. 77 FLD0493B PIC 9(06)V9(24) COMP-6 - VALUE 808734.959278862186593528349476. + VALUE 808734.959278862186593528349476. 77 FLD0494A PIC 9(05)V9(28) COMP-6 - VALUE 87574.5417791477964719604187848744. + VALUE 87574.5417791477964719604187848744. 77 FLD0494B PIC 9(10)V9(09) COMP-3 - VALUE 5133082903.157394349. + VALUE 5133082903.157394349. 77 FLD0495A PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0495B PIC 9(09)V9(15) COMP-6 - VALUE 646882578.915106698502768. + VALUE 646882578.915106698502768. 77 FLD0496A PIC 9(06)V9(25) COMP-6 - VALUE 816763.6415427422802437718019064. + VALUE 816763.6415427422802437718019064. 77 FLD0496B PIC S9(04) COMP-3 - VALUE +1240. + VALUE +1240. 77 FLD0497A PIC 9(06)V9(25) COMP-6 - VALUE 836230.6435874340415637107071233. + VALUE 836230.6435874340415637107071233. 77 FLD0497B PIC 9(09)V9(16) COMP-6 - VALUE 665491997.9684780217965567. + VALUE 665491997.9684780217965567. 77 FLD0498A PIC 9(10)V9(08) COMP-6 - VALUE 4792455293.49441590. + VALUE 4792455293.49441590. 77 FLD0498B PIC 9(06)V9(01) COMP-6 - VALUE 189449.4. + VALUE 189449.4. 77 FLD0499A PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0499B PIC 9(09)V9(15) COMP-3 - VALUE 634131211.402607308791345. + VALUE 634131211.402607308791345. * RESULTS-AREA. @@ -30917,7 +30917,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0012B VALUE X'714856822486604356929547066F'. 78 XPC-FLD0013B - VALUE X'0332664360'. + VALUE X'0249701360'. 78 XPC-FLD0014B VALUE X'07563565'. 78 XPC-FLD0015B @@ -30933,7 +30933,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0020B VALUE X'009154677345638306819F'. 78 XPC-FLD0021B - VALUE X'9C'. + VALUE X'0C'. 78 XPC-FLD0022B VALUE X'06800620448921426031141379553F'. 78 XPC-FLD0023B @@ -30965,7 +30965,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0036B VALUE X'84780746063121390621031281398245'. 78 XPC-FLD0037B - VALUE X'45484C'. + VALUE X'15352D'. 78 XPC-FLD0038B VALUE X'08192466589219795159659831540467'. 78 XPC-FLD0039B @@ -31029,7 +31029,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0068B VALUE X'06'. 78 XPC-FLD0069B - VALUE X'0013'. + VALUE X'0097'. 78 XPC-FLD0070B VALUE X'8473394D'. 78 XPC-FLD0071B @@ -31077,7 +31077,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0092B VALUE X'03179100098465547968089595087804'. 78 XPC-FLD0093B - VALUE X'0874104194614961116371887328568F'. + VALUE X'0790919325337388512409120266966F'. 78 XPC-FLD0094B VALUE X'053066656460354850645F'. 78 XPC-FLD0095B @@ -31125,7 +31125,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0116B VALUE X'03'. 78 XPC-FLD0117B - VALUE X'023173'. + VALUE X'013612'. 78 XPC-FLD0118B VALUE X'806D'. 78 XPC-FLD0119B @@ -31141,7 +31141,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0124B VALUE X'04223876720963152C'. 78 XPC-FLD0125B - VALUE X'637796016364062257583133'. + VALUE X'637787216045794358443288'. 78 XPC-FLD0126B VALUE X'14776980'. 78 XPC-FLD0127B @@ -31157,7 +31157,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0132B VALUE X'21622287'. 78 XPC-FLD0133B - VALUE X'252841208D'. + VALUE X'252842198D'. 78 XPC-FLD0134B VALUE X'6035745627324759055021275F'. 78 XPC-FLD0135B @@ -31173,7 +31173,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0140B VALUE X'09134502802484925076953459210926666F'. 78 XPC-FLD0141B - VALUE X'04645586'. + VALUE X'01980465'. 78 XPC-FLD0142B VALUE X'00112D'. 78 XPC-FLD0143B @@ -31189,7 +31189,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0148B VALUE X'335821179980'. 78 XPC-FLD0149B - VALUE X'064C'. + VALUE X'005D'. 78 XPC-FLD0150B VALUE X'05779789481524289174174668914929497987'. 78 XPC-FLD0151B @@ -31205,7 +31205,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0156B VALUE X'8985588062372004625188992577022872'. 78 XPC-FLD0157B - VALUE X'5019620727325065'. + VALUE X'4359875032276696'. 78 XPC-FLD0158B VALUE X'19917526243063020197192F'. 78 XPC-FLD0159B @@ -31221,7 +31221,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0164B VALUE X'3001'. 78 XPC-FLD0165B - VALUE X'0431'. + VALUE X'1267'. 78 XPC-FLD0166B VALUE X'429599'. 78 XPC-FLD0167B @@ -31285,7 +31285,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0196B VALUE X'0180007D'. 78 XPC-FLD0197B - VALUE X'14'. + VALUE X'05'. 78 XPC-FLD0198B VALUE X'79036D'. 78 XPC-FLD0199B @@ -31349,7 +31349,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0228B VALUE X'6560309403122602756042169858119450510F'. 78 XPC-FLD0229B - VALUE X'7383803963255895866131917059'. + VALUE X'7383802976208535540081356884'. 78 XPC-FLD0230B VALUE X'098D'. 78 XPC-FLD0231B @@ -31397,7 +31397,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0252B VALUE X'023614266C'. 78 XPC-FLD0253B - VALUE X'29824915'. + VALUE X'21598977'. 78 XPC-FLD0254B VALUE X'949043622D'. 78 XPC-FLD0255B @@ -31429,7 +31429,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0268B VALUE X'8211500957830146774085733341053F'. 78 XPC-FLD0269B - VALUE X'05'. + VALUE X'00'. 78 XPC-FLD0270B VALUE X'03736D'. 78 XPC-FLD0271B @@ -31445,7 +31445,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0276B VALUE X'026452912587946930678128865110919777'. 78 XPC-FLD0277B - VALUE X'499215459576603728'. + VALUE X'499215458601645512'. 78 XPC-FLD0278B VALUE X'07922277502052260016194509262277280F'. 78 XPC-FLD0279B @@ -31461,7 +31461,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0284B VALUE X'01'. 78 XPC-FLD0285B - VALUE X'7369307141179880084957964925'. + VALUE X'7369214262351649891158444916'. 78 XPC-FLD0286B VALUE X'82453436'. 78 XPC-FLD0287B @@ -31493,7 +31493,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0300B VALUE X'55012674381377925092451F'. 78 XPC-FLD0301B - VALUE X'5D'. + VALUE X'0C'. 78 XPC-FLD0302B VALUE X'4291773342239684'. 78 XPC-FLD0303B @@ -31509,7 +31509,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0308B VALUE X'0711937634336942757585120489238761366F'. 78 XPC-FLD0309B - VALUE X'003C'. + VALUE X'093D'. 78 XPC-FLD0310B VALUE X'0039167648388876'. 78 XPC-FLD0311B @@ -31525,7 +31525,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0316B VALUE X'561166875766384822086F'. 78 XPC-FLD0317B - VALUE X'0314586880144C'. + VALUE X'0331361572492C'. 78 XPC-FLD0318B VALUE X'754934282553785965724557627254399F'. 78 XPC-FLD0319B @@ -31557,7 +31557,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0332B VALUE X'03558444199192'. 78 XPC-FLD0333B - VALUE X'243142895C'. + VALUE X'243133331C'. 78 XPC-FLD0334B VALUE X'297044413515'. 78 XPC-FLD0335B @@ -31605,7 +31605,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0356B VALUE X'83673557978976841628508509529638'. 78 XPC-FLD0357B - VALUE X'0068'. + VALUE X'0079'. 78 XPC-FLD0358B VALUE X'65874749059638552239264936'. 78 XPC-FLD0359B @@ -31637,7 +31637,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0372B VALUE X'0049999527433343127F'. 78 XPC-FLD0373B - VALUE X'3081708383872C'. + VALUE X'3525595775040D'. 78 XPC-FLD0374B VALUE X'711264497973442155753787119F'. 78 XPC-FLD0375B @@ -31653,7 +31653,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0380B VALUE X'9D'. 78 XPC-FLD0381B - VALUE X'0220'. + VALUE X'0096'. 78 XPC-FLD0382B VALUE X'1909'. 78 XPC-FLD0383B @@ -31685,7 +31685,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0396B VALUE X'0265476173063916'. 78 XPC-FLD0397B - VALUE X'062C'. + VALUE X'007D'. 78 XPC-FLD0398B VALUE X'02844252852D'. 78 XPC-FLD0399B @@ -31701,7 +31701,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0404B VALUE X'4814436782579247780215241F'. 78 XPC-FLD0405B - VALUE X'06611D'. + VALUE X'14133C'. 78 XPC-FLD0406B VALUE X'049908285391730064732712435215'. 78 XPC-FLD0407B @@ -31717,7 +31717,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0412B VALUE X'8D'. 78 XPC-FLD0413B - VALUE X'2C'. + VALUE X'0C'. 78 XPC-FLD0414B VALUE X'99790D'. 78 XPC-FLD0415B @@ -31733,7 +31733,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0420B VALUE X'2098982695132051783275528578087688'. 78 XPC-FLD0421B - VALUE X'3350912C'. + VALUE X'2103833C'. 78 XPC-FLD0422B VALUE X'752582761957935941759741251848172397'. 78 XPC-FLD0423B @@ -31749,7 +31749,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0428B VALUE X'03481765503552540774734325168211935223'. 78 XPC-FLD0429B - VALUE X'0423145136880775'. + VALUE X'0415311789274485'. 78 XPC-FLD0430B VALUE X'03147921208448'. 78 XPC-FLD0431B @@ -31781,7 +31781,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0444B VALUE X'5047752750516173349F'. 78 XPC-FLD0445B - VALUE X'07930125790736931C'. + VALUE X'46235419654562581D'. 78 XPC-FLD0446B VALUE X'03796915192033033506944203'. 78 XPC-FLD0447B @@ -31829,7 +31829,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0468B VALUE X'014539915072'. 78 XPC-FLD0469B - VALUE X'5271081475223874723F'. + VALUE X'5200119971346918168F'. 78 XPC-FLD0470B VALUE X'038313143686989D'. 78 XPC-FLD0471B @@ -31845,7 +31845,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0476B VALUE X'06726270'. 78 XPC-FLD0477B - VALUE X'030615161929047D'. + VALUE X'038064410228203D'. 78 XPC-FLD0478B VALUE X'02732554753853'. 78 XPC-FLD0479B @@ -31861,7 +31861,7 @@ AT_DATA([prog.cob], [ 78 XPC-FLD0484B VALUE X'0577123861473882282524'. 78 XPC-FLD0485B - VALUE X'842609'. + VALUE X'166880'. 78 XPC-FLD0486B VALUE X'045838007534965959'. 78 XPC-FLD0487B @@ -34428,2511 +34428,2511 @@ AT_DATA([prog2.cob], [ * DATA-AREA 77 FLD0500A PIC S9(10)V9(08) COMP-3 - VALUE -4830218621.81680639. + VALUE -4830218621.81680639. 77 FLD0500B PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0501A PIC 9(09)V9(15) COMP-3 - VALUE 652910855.370784748430423. + VALUE 652910855.370784748430423. 77 FLD0501B PIC 9(09)V9(14) COMP-6 - VALUE 628093348.73677369337485. + VALUE 628093348.73677369337485. 77 FLD0502A PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0502B PIC 9(07)V9(22) COMP-6 - VALUE 7893241.6286150020034995122841. + VALUE 7893241.6286150020034995122841. 77 FLD0503A PIC 9(10)V9(11) COMP-6 - VALUE 5662523582.77427925159. + VALUE 5662523582.77427925159. 77 FLD0503B PIC 9(04)V9(29) COMP-3 - VALUE 8834.70722999726620905391882843105. + VALUE 8834.70722999726620905391882843105. 77 FLD0504A PIC S9(08)V9(02) COMP-3 - VALUE -28360864.01. + VALUE -28360864.01. 77 FLD0504B PIC 9(10)V9(09) COMP-3 - VALUE 5000570062.577901486. + VALUE 5000570062.577901486. 77 FLD0505A PIC 9(04)V9(30) COMP-3 - VALUE 9110.332843503369248949752545740921. + VALUE 9110.332843503369248949752545740921. 77 FLD0505B PIC 9(10)V9(10) COMP-3 - VALUE 5407979633.7587637822. + VALUE 5407979633.7587637822. 77 FLD0506A PIC 9(10)V9(11) COMP-3 - VALUE 5546838940.35467472960. + VALUE 5546838940.35467472960. 77 FLD0506B PIC S9(07)V9(01) COMP-3 - VALUE +2340559.3. + VALUE +2340559.3. 77 FLD0507A PIC 9(08)V9(18) COMP-6 - VALUE 70736506.262277043521891073. + VALUE 70736506.262277043521891073. 77 FLD0507B PIC 9(10)V9(09) COMP-3 - VALUE 5205430142.820132166. + VALUE 5205430142.820132166. 77 FLD0508A PIC 9(09)V9(16) COMP-6 - VALUE 658855971.9467786957025623. + VALUE 658855971.9467786957025623. 77 FLD0508B PIC S9(09)V9(07) COMP-3 - VALUE +444447149.8618901. + VALUE +444447149.8618901. 77 FLD0509A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0509B PIC 9(10)V9(08) COMP-6 - VALUE 4889373386.26299289. + VALUE 4889373386.26299289. 77 FLD0510A PIC 9(04) COMP-6 - VALUE 1295. + VALUE 1295. 77 FLD0510B PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0511A PIC 9(06)V9(25) COMP-6 - VALUE 815863.7850571600624860479911149. + VALUE 815863.7850571600624860479911149. 77 FLD0511B PIC 9(10)V9(09) COMP-6 - VALUE 5256921146.480894035. + VALUE 5256921146.480894035. 77 FLD0512A PIC 9(05) COMP-6 - VALUE 13945. + VALUE 13945. 77 FLD0512B PIC 9(01)V9(36) COMP-3 - VALUE 9.908282031313487836499120930966455489. + VALUE 9.908282031313487836499120930966455489. 77 FLD0513A PIC 9(09)V9(15) COMP-3 - VALUE 653773832.246937192103075. + VALUE 653773832.246937192103075. 77 FLD0513B PIC 9(08)V9(20) COMP-3 - VALUE 74124087.47450585089211472222. + VALUE 74124087.47450585089211472222. 77 FLD0514A PIC 9(08)V9(18) COMP-3 - VALUE 70109343.593910689040882289. + VALUE 70109343.593910689040882289. 77 FLD0514B PIC 9(09)V9(04) COMP-6 - VALUE 348891343.2762. + VALUE 348891343.2762. 77 FLD0515A PIC 9(09)V9(16) COMP-6 - VALUE 658210435.7548693718271692. + VALUE 658210435.7548693718271692. 77 FLD0515B PIC 9(03)V9(32) COMP-3 - VALUE 941.14524908048735607479784448514692. + VALUE 941.14524908048735607479784448514692. 77 FLD0516A PIC 9(01)V9(36) COMP-6 - VALUE 9.884403805479323734672902901365887373. + VALUE 9.884403805479323734672902901365887373. 77 FLD0516B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0517A PIC 9(10)V9(07) COMP-6 - VALUE 4497620438.0577999. + VALUE 4497620438.0577999. 77 FLD0517B PIC S9(10)V9(08) COMP-3 - VALUE -4811021778.48490686. + VALUE -4811021778.48490686. 77 FLD0518A PIC 9(09)V9(16) COMP-3 - VALUE 664556684.1155496895510168. + VALUE 664556684.1155496895510168. 77 FLD0518B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0519A PIC 9(09)V9(14) COMP-3 - VALUE 630097608.79846921088898. + VALUE 630097608.79846921088898. 77 FLD0519B PIC 9(08)V9(17) COMP-3 - VALUE 68412596.06583623975595287. + VALUE 68412596.06583623975595287. 77 FLD0520A PIC 9(04)V9(30) COMP-6 - VALUE 9052.329380117529744609328190563246. + VALUE 9052.329380117529744609328190563246. 77 FLD0520B PIC 9(09)V9(14) COMP-3 - VALUE 610604586.65389061305717. + VALUE 610604586.65389061305717. 77 FLD0521A PIC 9(05) COMP-6 - VALUE 13956. + VALUE 13956. 77 FLD0521B PIC S9(05) COMP-3 - VALUE +14099. + VALUE +14099. 77 FLD0522A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0522B PIC S9(09)V9(04) COMP-3 - VALUE -351067614.4076. + VALUE -351067614.4076. 77 FLD0523A PIC 9(08)V9(18) COMP-6 - VALUE 70807149.512639711019801325. + VALUE 70807149.512639711019801325. 77 FLD0523B PIC S9(08)V9(02) COMP-3 - VALUE -28004002.44. + VALUE -28004002.44. 77 FLD0524A PIC S9(06)V9(01) COMP-3 - VALUE +201515.3. + VALUE +201515.3. 77 FLD0524B PIC 9(10)V9(09) COMP-3 - VALUE 5046210377.505329081. + VALUE 5046210377.505329081. 77 FLD0525A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0525B PIC 9(04)V9(29) COMP-6 - VALUE 8873.36156634660588871099662355845. + VALUE 8873.36156634660588871099662355845. 77 FLD0526A PIC 9(07)V9(22) COMP-3 - VALUE 7812896.0072540409864672028561. + VALUE 7812896.0072540409864672028561. 77 FLD0526B PIC 9(07)V9(02) COMP-6 - VALUE 2461308.93. + VALUE 2461308.93. 77 FLD0527A PIC 9(10)V9(12) COMP-6 - VALUE 5853770318.384275972434. + VALUE 5853770318.384275972434. 77 FLD0527B PIC 9(10)V9(09) COMP-3 - VALUE 5140096263.891610339. + VALUE 5140096263.891610339. 77 FLD0528A PIC 9(10)V9(08) COMP-6 - VALUE 4856797949.89136714. + VALUE 4856797949.89136714. 77 FLD0528B PIC S9(04) COMP-3 - VALUE +1207. + VALUE +1207. 77 FLD0529A PIC 9(10)V9(10) COMP-6 - VALUE 5298570971.4885653731. + VALUE 5298570971.4885653731. 77 FLD0529B PIC S9(10)V9(07) COMP-3 - VALUE -4613280273.7797717. + VALUE -4613280273.7797717. 77 FLD0530A PIC 9(05)V9(28) COMP-6 - VALUE 87536.5484141958027919372398173436. + VALUE 87536.5484141958027919372398173436. 77 FLD0530B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0531A PIC 9(09)V9(03) COMP-6 - VALUE 317487049.751. + VALUE 317487049.751. 77 FLD0531B PIC S9(07)V9(01) COMP-3 - VALUE +2322772.2. + VALUE +2322772.2. 77 FLD0532A PIC 9(09)V9(15) COMP-3 - VALUE 653250626.044252880042506. + VALUE 653250626.044252880042506. 77 FLD0532B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0533A PIC 9(07)V9(02) COMP-6 - VALUE 2559928.55. + VALUE 2559928.55. 77 FLD0533B PIC 9(03) COMP-6 - VALUE 086. + VALUE 086. 77 FLD0534A PIC 9(09)V9(06) COMP-6 - VALUE 408226706.354108. + VALUE 408226706.354108. 77 FLD0534B PIC 9(10)V9(09) COMP-3 - VALUE 5204512753.981520578. + VALUE 5204512753.981520578. 77 FLD0535A PIC 9(10)V9(11) COMP-6 - VALUE 5556101599.27967472981. + VALUE 5556101599.27967472981. 77 FLD0535B PIC 9(05)V9(27) COMP-3 - VALUE 85335.564071638048133650045201648. + VALUE 85335.564071638048133650045201648. 77 FLD0536A PIC S9(08)V9(03) COMP-3 - VALUE -29061270.882. + VALUE -29061270.882. 77 FLD0536B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0537A PIC 9(08)V9(03) COMP-6 - VALUE 29943354.242. + VALUE 29943354.242. 77 FLD0537B PIC 9(04) COMP-6 - VALUE 1199. + VALUE 1199. 77 FLD0538A PIC 9(03)V9(32) COMP-3 - VALUE 922.29859860523566439383102988358587. + VALUE 922.29859860523566439383102988358587. 77 FLD0538B PIC 9(04)V9(29) COMP-6 - VALUE 8861.76614320458799767266100388951. + VALUE 8861.76614320458799767266100388951. 77 FLD0539A PIC 9(05)V9(27) COMP-6 - VALUE 85666.721070025741990860979058197. + VALUE 85666.721070025741990860979058197. 77 FLD0539B PIC 9(05)V9(27) COMP-3 - VALUE 84375.338828007329095015620623598. + VALUE 84375.338828007329095015620623598. 77 FLD0540A PIC S9(04) COMP-3 - VALUE +1227. + VALUE +1227. 77 FLD0540B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0541A PIC 9(09)V9(05) COMP-6 - VALUE 387240740.80744. + VALUE 387240740.80744. 77 FLD0541B PIC 9(07)V9(22) COMP-6 - VALUE 7676023.3773886621388982121061. + VALUE 7676023.3773886621388982121061. 77 FLD0542A PIC 9(06)V9(25) COMP-3 - VALUE 831706.5789473143677668076634290. + VALUE 831706.5789473143677668076634290. 77 FLD0542B PIC 9(10)V9(11) COMP-3 - VALUE 5532908670.51828949563. + VALUE 5532908670.51828949563. 77 FLD0543A PIC 9(06)V9(01) COMP-6 - VALUE 188772.9. + VALUE 188772.9. 77 FLD0543B PIC 9(07)V9(02) COMP-6 - VALUE 2581387.79. + VALUE 2581387.79. 77 FLD0544A PIC 9(10)V9(09) COMP-3 - VALUE 5241766194.366106468. + VALUE 5241766194.366106468. 77 FLD0544B PIC 9(08)V9(02) COMP-6 - VALUE 27953166.13. + VALUE 27953166.13. 77 FLD0545A PIC 9(09)V9(14) COMP-3 - VALUE 622229285.46684597161942. + VALUE 622229285.46684597161942. 77 FLD0545B PIC 9(08)V9(19) COMP-3 - VALUE 72256359.1476747091313370674. + VALUE 72256359.1476747091313370674. 77 FLD0546A PIC 9(06)V9(25) COMP-3 - VALUE 820358.8689269564193651262939965. + VALUE 820358.8689269564193651262939965. 77 FLD0546B PIC 9(09)V9(14) COMP-3 - VALUE 610779194.05314462508727. + VALUE 610779194.05314462508727. 77 FLD0547A PIC 9(06)V9(25) COMP-3 - VALUE 821925.7242001770658035297856258. + VALUE 821925.7242001770658035297856258. 77 FLD0547B PIC S9(09)V9(04) COMP-3 - VALUE -360691511.9302. + VALUE -360691511.9302. 77 FLD0548A PIC 9(07)V9(23) COMP-6 - VALUE 7955385.78445739497091437897324. + VALUE 7955385.78445739497091437897324. 77 FLD0548B PIC 9(09)V9(17) COMP-6 - VALUE 689149957.90453892343663255. + VALUE 689149957.90453892343663255. 77 FLD0549A PIC 9(07)V9(01) COMP-6 - VALUE 2367856.7. + VALUE 2367856.7. 77 FLD0549B PIC 9(09)V9(06) COMP-6 - VALUE 415548355.051954. + VALUE 415548355.051954. 77 FLD0550A PIC 9(09)V9(15) COMP-6 - VALUE 656651700.520587522369453. + VALUE 656651700.520587522369453. 77 FLD0550B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0551A PIC 9(07)V9(02) COMP-6 - VALUE 2589973.73. + VALUE 2589973.73. 77 FLD0551B PIC 9(09)V9(15) COMP-3 - VALUE 652529070.867454263904505. + VALUE 652529070.867454263904505. 77 FLD0552A PIC 9(10)V9(07) COMP-6 - VALUE 4579590761.6898545. + VALUE 4579590761.6898545. 77 FLD0552B PIC 9(05) COMP-6 - VALUE 14745. + VALUE 14745. 77 FLD0553A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0553B PIC S9(09)V9(04) COMP-3 - VALUE -360871096.9090. + VALUE -360871096.9090. 77 FLD0554A PIC 9(07)V9(02) COMP-6 - VALUE 2568219.15. + VALUE 2568219.15. 77 FLD0554B PIC 9(03)V9(32) COMP-3 - VALUE 932.99236247731820448336748086148872. + VALUE 932.99236247731820448336748086148872. 77 FLD0555A PIC 9(09)V9(05) COMP-6 - VALUE 388184875.66560. + VALUE 388184875.66560. 77 FLD0555B PIC 9(10)V9(09) COMP-3 - VALUE 5217501857.988002811. + VALUE 5217501857.988002811. 77 FLD0556A PIC 9(04)V9(30) COMP-6 - VALUE 8983.209260005348140154524116951506. + VALUE 8983.209260005348140154524116951506. 77 FLD0556B PIC 9(10)V9(11) COMP-6 - VALUE 5685562200.43860527368. + VALUE 5685562200.43860527368. 77 FLD0557A PIC 9(09)V9(15) COMP-3 - VALUE 650877011.601572519339242. + VALUE 650877011.601572519339242. 77 FLD0557B PIC S9(05) COMP-3 - VALUE +13329. + VALUE +13329. 77 FLD0558A PIC 9(09)V9(13) COMP-6 - VALUE 595830550.3266489999703. + VALUE 595830550.3266489999703. 77 FLD0558B PIC 9(06)V9(01) COMP-6 - VALUE 209604.9. + VALUE 209604.9. 77 FLD0559A PIC 9(10)V9(09) COMP-3 - VALUE 5242032248.235551916. + VALUE 5242032248.235551916. 77 FLD0559B PIC 9(07)V9(22) COMP-6 - VALUE 7882034.1791675385678672682843. + VALUE 7882034.1791675385678672682843. 77 FLD0560A PIC S9(09)V9(06) COMP-3 - VALUE +403640603.914505. + VALUE +403640603.914505. 77 FLD0560B PIC 9(09)V9(07) COMP-6 - VALUE 438743115.5223073. + VALUE 438743115.5223073. 77 FLD0561A PIC 9(05) COMP-6 - VALUE 14931. + VALUE 14931. 77 FLD0561B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0562A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0562B PIC 9(02)V9(34) COMP-6 - VALUE 95.8208334412512741096179524902254343. + VALUE 95.8208334412512741096179524902254343. 77 FLD0563A PIC 9(10)V9(09) COMP-3 - VALUE 5040974749.501065943. + VALUE 5040974749.501065943. 77 FLD0563B PIC S9(08)V9(03) COMP-3 - VALUE +31252590.212. + VALUE +31252590.212. 77 FLD0564A PIC 9(09)V9(16) COMP-6 - VALUE 666123633.8391588462926051. + VALUE 666123633.8391588462926051. 77 FLD0564B PIC 9(03)V9(32) COMP-6 - VALUE 925.73034981753798966508384182816371. + VALUE 925.73034981753798966508384182816371. 77 FLD0565A PIC 9(04)V9(30) COMP-6 - VALUE 8999.472704059103822515908177592791. + VALUE 8999.472704059103822515908177592791. 77 FLD0565B PIC 9(06)V9(01) COMP-6 - VALUE 209088.7. + VALUE 209088.7. 77 FLD0566A PIC 9(10)V9(10) COMP-6 - VALUE 5451645287.6426646501. + VALUE 5451645287.6426646501. 77 FLD0566B PIC 9(09)V9(03) COMP-6 - VALUE 317445075.017. + VALUE 317445075.017. 77 FLD0567A PIC S9(07)V9(02) COMP-3 - VALUE -2621767.34. + VALUE -2621767.34. 77 FLD0567B PIC 9(04)V9(29) COMP-6 - VALUE 8789.70351596639054569948257267242. + VALUE 8789.70351596639054569948257267242. 77 FLD0568A PIC S9(08)V9(02) COMP-3 - VALUE -28119737.76. + VALUE -28119737.76. 77 FLD0568B PIC 9(09)V9(14) COMP-6 - VALUE 616894259.97583058336459. + VALUE 616894259.97583058336459. 77 FLD0569A PIC 9(10)V9(10) COMP-3 - VALUE 5301098669.5201622875. + VALUE 5301098669.5201622875. 77 FLD0569B PIC S9(09)V9(06) COMP-3 - VALUE +421009403.834593. + VALUE +421009403.834593. 77 FLD0570A PIC 9(05) COMP-6 - VALUE 13775. + VALUE 13775. 77 FLD0570B PIC 9(08)V9(19) COMP-3 - VALUE 72019797.5322646066764775696. + VALUE 72019797.5322646066764775696. 77 FLD0571A PIC 9(10)V9(08) COMP-6 - VALUE 4995844884.12155025. + VALUE 4995844884.12155025. 77 FLD0571B PIC 9(09)V9(16) COMP-6 - VALUE 666328034.4715885039619251. + VALUE 666328034.4715885039619251. 77 FLD0572A PIC 9(06)V9(01) COMP-6 - VALUE 199648.9. + VALUE 199648.9. 77 FLD0572B PIC S9(06) COMP-3 - VALUE -163410. + VALUE -163410. 77 FLD0573A PIC 9(10)V9(11) COMP-6 - VALUE 5579051586.61930800079. + VALUE 5579051586.61930800079. 77 FLD0573B PIC 9(01)V9(36) COMP-3 - VALUE 9.908582147727897915245875992695800960. + VALUE 9.908582147727897915245875992695800960. 77 FLD0574A PIC 9(10)V9(09) COMP-3 - VALUE 5021035726.447702352. + VALUE 5021035726.447702352. 77 FLD0574B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0575A PIC 9(02)V9(34) COMP-3 - VALUE 96.0495649054037059499933093320578336. + VALUE 96.0495649054037059499933093320578336. 77 FLD0575B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0576A PIC 9(09)V9(11) COMP-3 - VALUE 551289746.02273483895. + VALUE 551289746.02273483895. 77 FLD0576B PIC 9(10)V9(10) COMP-6 - VALUE 5275129807.0789420791. + VALUE 5275129807.0789420791. 77 FLD0577A PIC S9(10)V9(06) COMP-3 - VALUE +4245433083.607936. + VALUE +4245433083.607936. 77 FLD0577B PIC 9(02)V9(34) COMP-6 - VALUE 96.8922152301445405164770363626303151. + VALUE 96.8922152301445405164770363626303151. 77 FLD0578A PIC S9(07)V9(02) COMP-3 - VALUE +2444375.29. + VALUE +2444375.29. 77 FLD0578B PIC 9(05)V9(01) COMP-6 - VALUE 16994.3. + VALUE 16994.3. 77 FLD0579A PIC 9(09)V9(17) COMP-6 - VALUE 688719854.55414208576740975. + VALUE 688719854.55414208576740975. 77 FLD0579B PIC 9(10)V9(09) COMP-3 - VALUE 5219660742.233359629. + VALUE 5219660742.233359629. 77 FLD0580A PIC S9(08)V9(04) COMP-3 - VALUE +33455460.0291. + VALUE +33455460.0291. 77 FLD0580B PIC 9(02)V9(34) COMP-3 - VALUE 95.3840741032953354228141051862621679. + VALUE 95.3840741032953354228141051862621679. 77 FLD0581A PIC S9(08)V9(02) COMP-3 - VALUE -28271118.43. + VALUE -28271118.43. 77 FLD0581B PIC 9(09)V9(15) COMP-6 - VALUE 638334092.073881143036828. + VALUE 638334092.073881143036828. 77 FLD0582A PIC 9(02)V9(34) COMP-3 - VALUE 95.0957041455027018983514608407858759. + VALUE 95.0957041455027018983514608407858759. 77 FLD0582B PIC 9(09)V9(14) COMP-6 - VALUE 628562844.11633944753106. + VALUE 628562844.11633944753106. 77 FLD0583A PIC 9(04)V9(30) COMP-3 - VALUE 9004.015213488590907431330379040446. + VALUE 9004.015213488590907431330379040446. 77 FLD0583B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0584A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0584B PIC 9(02)V9(34) COMP-6 - VALUE 95.5867594557756605766485336062032729. + VALUE 95.5867594557756605766485336062032729. 77 FLD0585A PIC S9(10)V9(06) COMP-3 - VALUE +4326355872.600766. + VALUE +4326355872.600766. 77 FLD0585B PIC 9(03)V9(32) COMP-6 - VALUE 926.67442032915370297985191427869722. + VALUE 926.67442032915370297985191427869722. 77 FLD0586A PIC 9(05)V9(27) COMP-6 - VALUE 85722.001340062370378092282408033. + VALUE 85722.001340062370378092282408033. 77 FLD0586B PIC 9(07)V9(22) COMP-6 - VALUE 7865140.9974229868904416207442. + VALUE 7865140.9974229868904416207442. 77 FLD0587A PIC S9(09)V9(05) COMP-3 - VALUE -381433349.51035. + VALUE -381433349.51035. 77 FLD0587B PIC S9(04) COMP-3 - VALUE +1221. + VALUE +1221. 77 FLD0588A PIC 9(10)V9(09) COMP-6 - VALUE 5181115773.570048599. + VALUE 5181115773.570048599. 77 FLD0588B PIC 9(04)V9(30) COMP-3 - VALUE 9002.074772136551272794235956098418. + VALUE 9002.074772136551272794235956098418. 77 FLD0589A PIC S9(09)V9(06) COMP-3 - VALUE +401102073.275349. + VALUE +401102073.275349. 77 FLD0589B PIC S9(04) COMP-3 - VALUE +1219. + VALUE +1219. 77 FLD0590A PIC 9(08)V9(18) COMP-3 - VALUE 70309799.830174168899787900. + VALUE 70309799.830174168899787900. 77 FLD0590B PIC S9(06)V9(01) COMP-3 - VALUE +203587.9. + VALUE +203587.9. 77 FLD0591A PIC 9(09)V9(12) COMP-6 - VALUE 576933255.371857245386. + VALUE 576933255.371857245386. 77 FLD0591B PIC 9(10)V9(09) COMP-3 - VALUE 5123728162.782491546. + VALUE 5123728162.782491546. 77 FLD0592A PIC 9(09)V9(15) COMP-3 - VALUE 644514829.253344467829833. + VALUE 644514829.253344467829833. 77 FLD0592B PIC S9(08)V9(03) COMP-3 - VALUE -29392268.940. + VALUE -29392268.940. 77 FLD0593A PIC 9(08)V9(19) COMP-3 - VALUE 72063942.4137167527995018190. + VALUE 72063942.4137167527995018190. 77 FLD0593B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0594A PIC S9(08)V9(02) COMP-3 - VALUE -27405154.91. + VALUE -27405154.91. 77 FLD0594B PIC 9(07)V9(22) COMP-3 - VALUE 7738893.5043103479483050932685. + VALUE 7738893.5043103479483050932685. 77 FLD0595A PIC 9(08)V9(18) COMP-3 - VALUE 70489201.749069052560514592. + VALUE 70489201.749069052560514592. 77 FLD0595B PIC 9(06)V9(25) COMP-3 - VALUE 830535.6563477365172687427730124. + VALUE 830535.6563477365172687427730124. 77 FLD0596A PIC 9(04)V9(30) COMP-6 - VALUE 9050.358418523600789740157779306173. + VALUE 9050.358418523600789740157779306173. 77 FLD0596B PIC 9(09)V9(15) COMP-6 - VALUE 657865013.656926733709440. + VALUE 657865013.656926733709440. 77 FLD0597A PIC S9(10)V9(07) COMP-3 - VALUE -4611492066.1642122. + VALUE -4611492066.1642122. 77 FLD0597B PIC 9(06)V9(25) COMP-6 - VALUE 816255.9991782142310157155407068. + VALUE 816255.9991782142310157155407068. 77 FLD0598A PIC 9(10)V9(12) COMP-6 - VALUE 5888650589.753158248740. + VALUE 5888650589.753158248740. 77 FLD0598B PIC S9(09)V9(06) COMP-3 - VALUE +420172956.568651. + VALUE +420172956.568651. 77 FLD0599A PIC 9(05)V9(27) COMP-6 - VALUE 85689.140306102984379066356268594. + VALUE 85689.140306102984379066356268594. 77 FLD0599B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0600A PIC S9(09)V9(06) COMP-3 - VALUE +401694362.049109. + VALUE +401694362.049109. 77 FLD0600B PIC 9(06)V9(24) COMP-3 - VALUE 804504.375985138686644404515391. + VALUE 804504.375985138686644404515391. 77 FLD0601A PIC 9(01)V9(36) COMP-6 - VALUE 9.763793413809590537866256454435642808. + VALUE 9.763793413809590537866256454435642808. 77 FLD0601B PIC 9(08)V9(03) COMP-6 - VALUE 29749803.347. + VALUE 29749803.347. 77 FLD0602A PIC 9(09)V9(17) COMP-6 - VALUE 685435627.00727922454291274. + VALUE 685435627.00727922454291274. 77 FLD0602B PIC 9(07)V9(02) COMP-6 - VALUE 2399467.62. + VALUE 2399467.62. 77 FLD0603A PIC 9(09)V9(16) COMP-6 - VALUE 679265807.5584466770280300. + VALUE 679265807.5584466770280300. 77 FLD0603B PIC S9(05)V9(01) COMP-3 - VALUE -17089.6. + VALUE -17089.6. 77 FLD0604A PIC 9(08)V9(19) COMP-6 - VALUE 72862711.3591577502127449861. + VALUE 72862711.3591577502127449861. 77 FLD0604B PIC 9(10)V9(11) COMP-6 - VALUE 5587264166.34705347341. + VALUE 5587264166.34705347341. 77 FLD0605A PIC 9(04) COMP-6 - VALUE 1194. + VALUE 1194. 77 FLD0605B PIC 9(10)V9(06) COMP-6 - VALUE 4256956703.307752. + VALUE 4256956703.307752. 77 FLD0606A PIC 9(07)V9(23) COMP-6 - VALUE 7955557.56926823565144957228767. + VALUE 7955557.56926823565144957228767. 77 FLD0606B PIC S9(08)V9(04) COMP-3 - VALUE +33373395.9174. + VALUE +33373395.9174. 77 FLD0607A PIC 9(10)V9(08) COMP-6 - VALUE 4950511846.00309279. + VALUE 4950511846.00309279. 77 FLD0607B PIC 9(05) COMP-6 - VALUE 13935. + VALUE 13935. 77 FLD0608A PIC 9(09)V9(03) COMP-6 - VALUE 328182518.441. + VALUE 328182518.441. 77 FLD0608B PIC 9(02)V9(34) COMP-6 - VALUE 95.9183130416232931914066739409463480. + VALUE 95.9183130416232931914066739409463480. 77 FLD0609A PIC 9(08)V9(04) COMP-6 - VALUE 33948712.4475. + VALUE 33948712.4475. 77 FLD0609B PIC 9(10)V9(07) COMP-6 - VALUE 4478674210.4372267. + VALUE 4478674210.4372267. 77 FLD0610A PIC 9(06)V9(24) COMP-6 - VALUE 807988.537497822956190418608457. + VALUE 807988.537497822956190418608457. 77 FLD0610B PIC 9(08)V9(02) COMP-6 - VALUE 28672541.25. + VALUE 28672541.25. 77 FLD0611A PIC 9(07)V9(22) COMP-3 - VALUE 7747853.4043620861382350994972. + VALUE 7747853.4043620861382350994972. 77 FLD0611B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0612A PIC 9(10)V9(11) COMP-3 - VALUE 5644161799.14422944108. + VALUE 5644161799.14422944108. 77 FLD0612B PIC 9(07)V9(22) COMP-6 - VALUE 7874462.2890006543691754359315. + VALUE 7874462.2890006543691754359315. 77 FLD0613A PIC 9(05) COMP-6 - VALUE 15551. + VALUE 15551. 77 FLD0613B PIC S9(07)V9(01) COMP-3 - VALUE +2249276.6. + VALUE +2249276.6. 77 FLD0614A PIC 9(10)V9(09) COMP-3 - VALUE 5201647014.630440546. + VALUE 5201647014.630440546. 77 FLD0614B PIC 9(09)V9(13) COMP-6 - VALUE 596348860.2168276475623. + VALUE 596348860.2168276475623. 77 FLD0615A PIC S9(03) COMP-3 - VALUE +101. + VALUE +101. 77 FLD0615B PIC S9(07)V9(01) COMP-3 - VALUE +2334095.1. + VALUE +2334095.1. 77 FLD0616A PIC 9(07)V9(22) COMP-3 - VALUE 7639230.3574527464782306651613. + VALUE 7639230.3574527464782306651613. 77 FLD0616B PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0617A PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0617B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0618A PIC 9(01)V9(36) COMP-3 - VALUE 9.817148549708982763206677191192284226. + VALUE 9.817148549708982763206677191192284226. 77 FLD0618B PIC 9(03) COMP-6 - VALUE 089. + VALUE 089. 77 FLD0619A PIC 9(06)V9(24) COMP-3 - VALUE 801850.998363624500875346257089. + VALUE 801850.998363624500875346257089. 77 FLD0619B PIC 9(10)V9(10) COMP-3 - VALUE 5342180526.7555677598. + VALUE 5342180526.7555677598. 77 FLD0620A PIC 9(08)V9(19) COMP-6 - VALUE 71717267.3810957062023874186. + VALUE 71717267.3810957062023874186. 77 FLD0620B PIC 9(09)V9(15) COMP-6 - VALUE 655677089.730182127702562. + VALUE 655677089.730182127702562. 77 FLD0621A PIC 9(04)V9(30) COMP-3 - VALUE 9035.013690395441443570234696380794. + VALUE 9035.013690395441443570234696380794. 77 FLD0621B PIC 9(08)V9(19) COMP-3 - VALUE 73424367.1686218957184166811. + VALUE 73424367.1686218957184166811. 77 FLD0622A PIC 9(09)V9(13) COMP-3 - VALUE 592420192.5737704321761. + VALUE 592420192.5737704321761. 77 FLD0622B PIC S9(09)V9(04) COMP-3 - VALUE -361821982.1111. + VALUE -361821982.1111. 77 FLD0623A PIC S9(03) COMP-3 - VALUE +104. + VALUE +104. 77 FLD0623B PIC 9(09)V9(15) COMP-3 - VALUE 641616818.896418195095066. + VALUE 641616818.896418195095066. 77 FLD0624A PIC S9(06) COMP-3 - VALUE -162056. + VALUE -162056. 77 FLD0624B PIC 9(10)V9(06) COMP-6 - VALUE 4356343039.582531. + VALUE 4356343039.582531. 77 FLD0625A PIC 9(04) COMP-6 - VALUE 1296. + VALUE 1296. 77 FLD0625B PIC 9(07)V9(22) COMP-3 - VALUE 7829547.5769811728739000500354. + VALUE 7829547.5769811728739000500354. 77 FLD0626A PIC 9(04)V9(29) COMP-3 - VALUE 8839.60373056715265072114107169909. + VALUE 8839.60373056715265072114107169909. 77 FLD0626B PIC S9(09)V9(05) COMP-3 - VALUE -374265939.71690. + VALUE -374265939.71690. 77 FLD0627A PIC 9(04) COMP-6 - VALUE 1093. + VALUE 1093. 77 FLD0627B PIC S9(07)V9(01) COMP-3 - VALUE +2323895.2. + VALUE +2323895.2. 77 FLD0628A PIC 9(01)V9(36) COMP-3 - VALUE 9.943034041886028573387079632084351032. + VALUE 9.943034041886028573387079632084351032. 77 FLD0628B PIC 9(08)V9(03) COMP-6 - VALUE 29681737.673. + VALUE 29681737.673. 77 FLD0629A PIC 9(03)V9(32) COMP-6 - VALUE 925.54391942612090904418664649710990. + VALUE 925.54391942612090904418664649710990. 77 FLD0629B PIC 9(05)V9(28) COMP-3 - VALUE 87091.5644969416202769707524566911. + VALUE 87091.5644969416202769707524566911. 77 FLD0630A PIC S9(09)V9(06) COMP-3 - VALUE +400669561.119235. + VALUE +400669561.119235. 77 FLD0630B PIC 9(09)V9(12) COMP-6 - VALUE 575188656.368988304734. + VALUE 575188656.368988304734. 77 FLD0631A PIC 9(09)V9(15) COMP-3 - VALUE 644864894.904831453814608. + VALUE 644864894.904831453814608. 77 FLD0631B PIC 9(05)V9(01) COMP-6 - VALUE 17568.5. + VALUE 17568.5. 77 FLD0632A PIC 9(08)V9(18) COMP-6 - VALUE 69998401.036213298009869276. + VALUE 69998401.036213298009869276. 77 FLD0632B PIC 9(10)V9(09) COMP-6 - VALUE 5082278856.741135886. + VALUE 5082278856.741135886. 77 FLD0633A PIC 9(08)V9(19) COMP-3 - VALUE 72186800.0789349095747127194. + VALUE 72186800.0789349095747127194. 77 FLD0633B PIC S9(09)V9(03) COMP-3 - VALUE +332989951.149. + VALUE +332989951.149. 77 FLD0634A PIC S9(10)V9(06) COMP-3 - VALUE +4236607402.255205. + VALUE +4236607402.255205. 77 FLD0634B PIC 9(07)V9(23) COMP-3 - VALUE 7926419.75404680843020344127580. + VALUE 7926419.75404680843020344127580. 77 FLD0635A PIC S9(06)V9(01) COMP-3 - VALUE -190863.2. + VALUE -190863.2. 77 FLD0635B PIC 9(10)V9(11) COMP-6 - VALUE 5580856572.20784292498. + VALUE 5580856572.20784292498. 77 FLD0636A PIC S9(07)V9(01) COMP-3 - VALUE +2326055.8. + VALUE +2326055.8. 77 FLD0636B PIC 9(05) COMP-6 - VALUE 15706. + VALUE 15706. 77 FLD0637A PIC 9(08)V9(19) COMP-3 - VALUE 73470187.3111827330475875896. + VALUE 73470187.3111827330475875896. 77 FLD0637B PIC 9(10)V9(10) COMP-3 - VALUE 5305678545.6603405837. + VALUE 5305678545.6603405837. 77 FLD0638A PIC 9(07)V9(22) COMP-6 - VALUE 7752451.2041246673721417437263. + VALUE 7752451.2041246673721417437263. 77 FLD0638B PIC 9(06)V9(25) COMP-3 - VALUE 822351.5027967045476486873667454. + VALUE 822351.5027967045476486873667454. 77 FLD0639A PIC S9(09)V9(03) COMP-3 - VALUE +320313574.327. + VALUE +320313574.327. 77 FLD0639B PIC 9(01)V9(36) COMP-6 - VALUE 9.751092072024196699686626743641681969. + VALUE 9.751092072024196699686626743641681969. 77 FLD0640A PIC 9(04)V9(29) COMP-3 - VALUE 8818.61493829378950692898797569796. + VALUE 8818.61493829378950692898797569796. 77 FLD0640B PIC 9(03)V9(32) COMP-3 - VALUE 921.50555740058603948483550993842072. + VALUE 921.50555740058603948483550993842072. 77 FLD0641A PIC 9(07)V9(22) COMP-6 - VALUE 7672056.2697199168322725881807. + VALUE 7672056.2697199168322725881807. 77 FLD0641B PIC 9(08)V9(19) COMP-6 - VALUE 72539277.3386829170512157816. + VALUE 72539277.3386829170512157816. 77 FLD0642A PIC 9(08)V9(18) COMP-6 - VALUE 70806494.663622721041917884. + VALUE 70806494.663622721041917884. 77 FLD0642B PIC 9(09)V9(13) COMP-3 - VALUE 592898946.8504934912118. + VALUE 592898946.8504934912118. 77 FLD0643A PIC 9(07)V9(01) COMP-6 - VALUE 2194714.9. + VALUE 2194714.9. 77 FLD0643B PIC 9(08)V9(02) COMP-6 - VALUE 26711153.59. + VALUE 26711153.59. 77 FLD0644A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0644B PIC 9(03)V9(32) COMP-6 - VALUE 936.97460492260109532480782945640385. + VALUE 936.97460492260109532480782945640385. 77 FLD0645A PIC 9(03)V9(31) COMP-3 - VALUE 913.1000502995376688630813077907077. + VALUE 913.1000502995376688630813077907077. 77 FLD0645B PIC 9(07)V9(02) COMP-6 - VALUE 2467302.34. + VALUE 2467302.34. 77 FLD0646A PIC 9(07)V9(21) COMP-3 - VALUE 7520596.805608434909373727350. + VALUE 7520596.805608434909373727350. 77 FLD0646B PIC 9(09)V9(13) COMP-6 - VALUE 595843790.0187590896550. + VALUE 595843790.0187590896550. 77 FLD0647A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0647B PIC 9(09)V9(16) COMP-6 - VALUE 659893156.1456289340839020. + VALUE 659893156.1456289340839020. 77 FLD0648A PIC S9(04) COMP-3 - VALUE +1149. + VALUE +1149. 77 FLD0648B PIC 9(09)V9(15) COMP-3 - VALUE 634287010.942461315643470. + VALUE 634287010.942461315643470. 77 FLD0649A PIC 9(07)V9(23) COMP-3 - VALUE 7912687.10466688007798552462190. + VALUE 7912687.10466688007798552462190. 77 FLD0649B PIC 9(10)V9(09) COMP-3 - VALUE 5026519944.429308495. + VALUE 5026519944.429308495. 77 FLD0650A PIC 9(01)V9(36) COMP-6 - VALUE 9.878734262172308433491707546636462211. + VALUE 9.878734262172308433491707546636462211. 77 FLD0650B PIC 9(09)V9(16) COMP-3 - VALUE 671574601.9768447094833163. + VALUE 671574601.9768447094833163. 77 FLD0651A PIC 9(08)V9(18) COMP-6 - VALUE 69993795.648145529231243244. + VALUE 69993795.648145529231243244. 77 FLD0651B PIC S9(09)V9(05) COMP-3 - VALUE -390933259.39761. + VALUE -390933259.39761. 77 FLD0652A PIC 9(05)V9(01) COMP-6 - VALUE 16676.6. + VALUE 16676.6. 77 FLD0652B PIC S9(07)V9(01) COMP-3 - VALUE +2109381.3. + VALUE +2109381.3. 77 FLD0653A PIC 9(09)V9(14) COMP-3 - VALUE 620233215.83922497168828. + VALUE 620233215.83922497168828. 77 FLD0653B PIC 9(06) COMP-6 - VALUE 165087. + VALUE 165087. 77 FLD0654A PIC 9(09)V9(15) COMP-6 - VALUE 639337130.284049814932245. + VALUE 639337130.284049814932245. 77 FLD0654B PIC 9(08)V9(02) COMP-6 - VALUE 27813223.51. + VALUE 27813223.51. 77 FLD0655A PIC 9(06)V9(25) COMP-6 - VALUE 818013.3890362937254536745967925. + VALUE 818013.3890362937254536745967925. 77 FLD0655B PIC 9(09)V9(13) COMP-3 - VALUE 594166317.4495728227952. + VALUE 594166317.4495728227952. 77 FLD0656A PIC S9(06)V9(01) COMP-3 - VALUE +200859.7. + VALUE +200859.7. 77 FLD0656B PIC 9(09)V9(15) COMP-3 - VALUE 650208537.267117914204561. + VALUE 650208537.267117914204561. 77 FLD0657A PIC 9(03)V9(32) COMP-6 - VALUE 936.17194619070143168926279031438753. + VALUE 936.17194619070143168926279031438753. 77 FLD0657B PIC 9(08)V9(18) COMP-3 - VALUE 70468283.988380520099781278. + VALUE 70468283.988380520099781278. 77 FLD0658A PIC 9(08)V9(18) COMP-3 - VALUE 70069365.832955088357891781. + VALUE 70069365.832955088357891781. 77 FLD0658B PIC 9(10)V9(10) COMP-3 - VALUE 5438086690.5335789596. + VALUE 5438086690.5335789596. 77 FLD0659A PIC 9(04)V9(30) COMP-3 - VALUE 9044.337793801533464943531726021319. + VALUE 9044.337793801533464943531726021319. 77 FLD0659B PIC 9(08)V9(19) COMP-6 - VALUE 71946522.3294514011342926096. + VALUE 71946522.3294514011342926096. 77 FLD0660A PIC 9(10)V9(09) COMP-3 - VALUE 5240012407.843260833. + VALUE 5240012407.843260833. 77 FLD0660B PIC S9(05) COMP-3 - VALUE -15464. + VALUE -15464. 77 FLD0661A PIC 9(02)V9(34) COMP-6 - VALUE 96.5581569624071600621562083688331767. + VALUE 96.5581569624071600621562083688331767. 77 FLD0661B PIC 9(10)V9(11) COMP-3 - VALUE 5705409453.15247127744. + VALUE 5705409453.15247127744. 77 FLD0662A PIC S9(07)V9(01) COMP-3 - VALUE +2131985.0. + VALUE +2131985.0. 77 FLD0662B PIC 9(09)V9(16) COMP-6 - VALUE 669960203.6476681732324323. + VALUE 669960203.6476681732324323. 77 FLD0663A PIC 9(05) COMP-6 - VALUE 15788. + VALUE 15788. 77 FLD0663B PIC 9(04)V9(29) COMP-6 - VALUE 8894.69232052811142885673234559362. + VALUE 8894.69232052811142885673234559362. 77 FLD0664A PIC S9(05) COMP-3 - VALUE +14371. + VALUE +14371. 77 FLD0664B PIC S9(09)V9(07) COMP-3 - VALUE +440580330.5288489. + VALUE +440580330.5288489. 77 FLD0665A PIC 9(07)V9(02) COMP-6 - VALUE 2455875.37. + VALUE 2455875.37. 77 FLD0665B PIC 9(09)V9(16) COMP-3 - VALUE 674160289.5706166886924393. + VALUE 674160289.5706166886924393. 77 FLD0666A PIC 9(05)V9(27) COMP-3 - VALUE 86015.549175288641414738322055200. + VALUE 86015.549175288641414738322055200. 77 FLD0666B PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0667A PIC 9(02)V9(33) COMP-3 - VALUE 94.482499794694274619644147605868056. + VALUE 94.482499794694274619644147605868056. 77 FLD0667B PIC 9(09)V9(15) COMP-3 - VALUE 632143875.790169951223163. + VALUE 632143875.790169951223163. 77 FLD0668A PIC 9(03)V9(32) COMP-6 - VALUE 935.15331845029669999291854765033349. + VALUE 935.15331845029669999291854765033349. 77 FLD0668B PIC 9(10)V9(09) COMP-3 - VALUE 5144629393.825745911. + VALUE 5144629393.825745911. 77 FLD0669A PIC 9(01)V9(36) COMP-3 - VALUE 9.937328225295053441001869032334070652. + VALUE 9.937328225295053441001869032334070652. 77 FLD0669B PIC 9(10)V9(05) COMP-6 - VALUE 3959366397.86081. + VALUE 3959366397.86081. 77 FLD0670A PIC 9(07)V9(02) COMP-6 - VALUE 2567113.54. + VALUE 2567113.54. 77 FLD0670B PIC 9(02)V9(34) COMP-3 - VALUE 97.1019073438902258210703166696475818. + VALUE 97.1019073438902258210703166696475818. 77 FLD0671A PIC 9(09)V9(03) COMP-6 - VALUE 326622169.718. + VALUE 326622169.718. 77 FLD0671B PIC 9(06)V9(01) COMP-6 - VALUE 186874.6. + VALUE 186874.6. 77 FLD0672A PIC 9(10)V9(07) COMP-6 - VALUE 4564917934.3294549. + VALUE 4564917934.3294549. 77 FLD0672B PIC 9(09)V9(15) COMP-6 - VALUE 637002039.815689924395769. + VALUE 637002039.815689924395769. 77 FLD0673A PIC 9(10)V9(06) COMP-6 - VALUE 4285002333.462958. + VALUE 4285002333.462958. 77 FLD0673B PIC 9(07)V9(02) COMP-6 - VALUE 2489778.77. + VALUE 2489778.77. 77 FLD0674A PIC 9(10)V9(10) COMP-6 - VALUE 5491650640.0821929467. + VALUE 5491650640.0821929467. 77 FLD0674B PIC 9(06)V9(25) COMP-6 - VALUE 828061.3110769976525915581078152. + VALUE 828061.3110769976525915581078152. 77 FLD0675A PIC 9(05)V9(27) COMP-6 - VALUE 84609.285471017914304070473008323. + VALUE 84609.285471017914304070473008323. 77 FLD0675B PIC 9(10)V9(09) COMP-6 - VALUE 5083540664.870341840. + VALUE 5083540664.870341840. 77 FLD0676A PIC 9(03) COMP-6 - VALUE 096. + VALUE 096. 77 FLD0676B PIC 9(02)V9(34) COMP-3 - VALUE 96.4664170342459437179627457226160913. + VALUE 96.4664170342459437179627457226160913. 77 FLD0677A PIC S9(07)V9(01) COMP-3 - VALUE +2248183.1. + VALUE +2248183.1. 77 FLD0677B PIC 9(04)V9(29) COMP-3 - VALUE 8903.66445455624266891447859961772. + VALUE 8903.66445455624266891447859961772. 77 FLD0678A PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0678B PIC 9(05)V9(27) COMP-6 - VALUE 85887.366357613359468814451247453. + VALUE 85887.366357613359468814451247453. 77 FLD0679A PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0679B PIC 9(10)V9(07) COMP-6 - VALUE 4490278235.6612852. + VALUE 4490278235.6612852. 77 FLD0680A PIC S9(08)V9(02) COMP-3 - VALUE -28119381.66. + VALUE -28119381.66. 77 FLD0680B PIC 9(10)V9(11) COMP-3 - VALUE 5617591008.16083600804. + VALUE 5617591008.16083600804. 77 FLD0681A PIC 9(08)V9(17) COMP-3 - VALUE 68244115.95644890304868113. + VALUE 68244115.95644890304868113. 77 FLD0681B PIC 9(06)V9(25) COMP-3 - VALUE 821371.7547801553386932482681004. + VALUE 821371.7547801553386932482681004. 77 FLD0682A PIC S9(10)V9(08) COMP-3 - VALUE -4949729784.45772315. + VALUE -4949729784.45772315. 77 FLD0682B PIC 9(06)V9(25) COMP-3 - VALUE 831097.0812489861803129542749957. + VALUE 831097.0812489861803129542749957. 77 FLD0683A PIC 9(05)V9(28) COMP-6 - VALUE 86894.3068817851549390240961656672. + VALUE 86894.3068817851549390240961656672. 77 FLD0683B PIC 9(10)V9(12) COMP-3 - VALUE 5829735573.963021888488. + VALUE 5829735573.963021888488. 77 FLD0684A PIC 9(10)V9(13) COMP-6 - VALUE 6059233373.6406744915115. + VALUE 6059233373.6406744915115. 77 FLD0684B PIC 9(09)V9(07) COMP-6 - VALUE 438339473.7646870. + VALUE 438339473.7646870. 77 FLD0685A PIC S9(07)V9(02) COMP-3 - VALUE -2545714.99. + VALUE -2545714.99. 77 FLD0685B PIC 9(07)V9(23) COMP-3 - VALUE 7915567.03876752143500539204978. + VALUE 7915567.03876752143500539204978. 77 FLD0686A PIC 9(09)V9(14) COMP-3 - VALUE 621044693.11257093355749. + VALUE 621044693.11257093355749. 77 FLD0686B PIC 9(09)V9(13) COMP-3 - VALUE 602970496.8531952591348. + VALUE 602970496.8531952591348. 77 FLD0687A PIC S9(09)V9(05) COMP-3 - VALUE -394005874.76898. + VALUE -394005874.76898. 77 FLD0687B PIC 9(10)V9(08) COMP-6 - VALUE 4960980508.03440715. + VALUE 4960980508.03440715. 77 FLD0688A PIC 9(03)V9(32) COMP-3 - VALUE 932.26844955554755145499257196206599. + VALUE 932.26844955554755145499257196206599. 77 FLD0688B PIC 9(04) COMP-6 - VALUE 1064. + VALUE 1064. 77 FLD0689A PIC 9(10)V9(07) COMP-6 - VALUE 4559306991.4341932. + VALUE 4559306991.4341932. 77 FLD0689B PIC S9(08)V9(04) COMP-3 - VALUE +34024840.8710. + VALUE +34024840.8710. 77 FLD0690A PIC 9(01)V9(36) COMP-6 - VALUE 9.793660005922469879990899244148749858. + VALUE 9.793660005922469879990899244148749858. 77 FLD0690B PIC S9(08)V9(02) COMP-3 - VALUE -28078949.75. + VALUE -28078949.75. 77 FLD0691A PIC 9(09)V9(07) COMP-6 - VALUE 439500550.5938089. + VALUE 439500550.5938089. 77 FLD0691B PIC S9(10)V9(06) COMP-3 - VALUE +4308484639.535531. + VALUE +4308484639.535531. 77 FLD0692A PIC 9(09)V9(04) COMP-6 - VALUE 358382577.7464. + VALUE 358382577.7464. 77 FLD0692B PIC 9(09)V9(15) COMP-6 - VALUE 636450165.553045121846764. + VALUE 636450165.553045121846764. 77 FLD0693A PIC S9(07)V9(01) COMP-3 - VALUE +2127399.6. + VALUE +2127399.6. 77 FLD0693B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0694A PIC 9(09)V9(05) COMP-6 - VALUE 378019656.01658. + VALUE 378019656.01658. 77 FLD0694B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0695A PIC S9(09)V9(04) COMP-3 - VALUE -354304867.1111. + VALUE -354304867.1111. 77 FLD0695B PIC 9(09)V9(15) COMP-6 - VALUE 639721730.127885357397587. + VALUE 639721730.127885357397587. 77 FLD0696A PIC 9(04)V9(30) COMP-6 - VALUE 9067.945209731629319094281527213752. + VALUE 9067.945209731629319094281527213752. 77 FLD0696B PIC 9(09)V9(03) COMP-6 - VALUE 318871778.848. + VALUE 318871778.848. 77 FLD0697A PIC S9(09)V9(06) COMP-3 - VALUE +414586353.841170. + VALUE +414586353.841170. 77 FLD0697B PIC 9(10)V9(09) COMP-6 - VALUE 5161837194.897523906. + VALUE 5161837194.897523906. 77 FLD0698A PIC 9(08)V9(18) COMP-3 - VALUE 69447533.832122987362822641. + VALUE 69447533.832122987362822641. 77 FLD0698B PIC S9(03) COMP-3 - VALUE -080. + VALUE -080. 77 FLD0699A PIC 9(09)V9(13) COMP-6 - VALUE 597064952.5204202445749. + VALUE 597064952.5204202445749. 77 FLD0699B PIC 9(09)V9(14) COMP-3 - VALUE 630288401.27729701681147. + VALUE 630288401.27729701681147. 77 FLD0700A PIC 9(06)V9(25) COMP-3 - VALUE 820234.3139012789885455845251271. + VALUE 820234.3139012789885455845251271. 77 FLD0700B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0701A PIC 9(06)V9(24) COMP-6 - VALUE 809485.363390515577641792788199. + VALUE 809485.363390515577641792788199. 77 FLD0701B PIC 9(02)V9(34) COMP-3 - VALUE 97.0800419877562270620785511709982529. + VALUE 97.0800419877562270620785511709982529. 77 FLD0702A PIC 9(04)V9(30) COMP-3 - VALUE 9021.848589518318695112952809722628. + VALUE 9021.848589518318695112952809722628. 77 FLD0702B PIC 9(07)V9(01) COMP-6 - VALUE 2351439.7. + VALUE 2351439.7. 77 FLD0703A PIC S9(04) COMP-3 - VALUE +1126. + VALUE +1126. 77 FLD0703B PIC 9(08)V9(04) COMP-6 - VALUE 33525578.1235. + VALUE 33525578.1235. 77 FLD0704A PIC 9(10)V9(07) COMP-6 - VALUE 4696322933.5995404. + VALUE 4696322933.5995404. 77 FLD0704B PIC 9(09)V9(14) COMP-3 - VALUE 611168884.71092423174013. + VALUE 611168884.71092423174013. 77 FLD0705A PIC 9(10)V9(10) COMP-6 - VALUE 5381864238.0664638569. + VALUE 5381864238.0664638569. 77 FLD0705B PIC 9(10)V9(07) COMP-6 - VALUE 4699950479.7278301. + VALUE 4699950479.7278301. 77 FLD0706A PIC 9(07)V9(22) COMP-3 - VALUE 7815442.4104873465584120140192. + VALUE 7815442.4104873465584120140192. 77 FLD0706B PIC S9(05)V9(01) COMP-3 - VALUE -17297.4. + VALUE -17297.4. 77 FLD0707A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0707B PIC 9(10)V9(09) COMP-3 - VALUE 5129442198.407349051. + VALUE 5129442198.407349051. 77 FLD0708A PIC 9(02)V9(34) COMP-3 - VALUE 95.1225570140109555339336111501324921. + VALUE 95.1225570140109555339336111501324921. 77 FLD0708B PIC 9(08)V9(04) COMP-6 - VALUE 33834894.3169. + VALUE 33834894.3169. 77 FLD0709A PIC S9(04) COMP-3 - VALUE +1124. + VALUE +1124. 77 FLD0709B PIC 9(09)V9(05) COMP-6 - VALUE 379344826.68404. + VALUE 379344826.68404. 77 FLD0710A PIC 9(01)V9(36) COMP-3 - VALUE 9.946833086486408515014545628218911588. + VALUE 9.946833086486408515014545628218911588. 77 FLD0710B PIC S9(09)V9(03) COMP-3 - VALUE +322996298.459. + VALUE +322996298.459. 77 FLD0711A PIC 9(09)V9(16) COMP-6 - VALUE 677754067.1912668512888444. + VALUE 677754067.1912668512888444. 77 FLD0711B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0712A PIC 9(09)V9(14) COMP-3 - VALUE 610433230.32745544498567. + VALUE 610433230.32745544498567. 77 FLD0712B PIC S9(10)V9(08) COMP-3 - VALUE -4947392148.88603839. + VALUE -4947392148.88603839. 77 FLD0713A PIC S9(08)V9(03) COMP-3 - VALUE -29280564.557. + VALUE -29280564.557. 77 FLD0713B PIC 9(07)V9(01) COMP-6 - VALUE 2168463.7. + VALUE 2168463.7. 77 FLD0714A PIC 9(10)V9(07) COMP-6 - VALUE 4593980567.3719869. + VALUE 4593980567.3719869. 77 FLD0714B PIC 9(09)V9(04) COMP-6 - VALUE 347385951.5252. + VALUE 347385951.5252. 77 FLD0715A PIC 9(09)V9(06) COMP-6 - VALUE 406643755.503527. + VALUE 406643755.503527. 77 FLD0715B PIC 9(10)V9(10) COMP-6 - VALUE 5480282475.3098877685. + VALUE 5480282475.3098877685. 77 FLD0716A PIC S9(08)V9(03) COMP-3 - VALUE -29497495.128. + VALUE -29497495.128. 77 FLD0716B PIC 9(03)V9(31) COMP-3 - VALUE 914.3056916239737930141018296126276. + VALUE 914.3056916239737930141018296126276. 77 FLD0717A PIC 9(05)V9(28) COMP-6 - VALUE 86936.9843469434133709228262887336. + VALUE 86936.9843469434133709228262887336. 77 FLD0717B PIC 9(07)V9(21) COMP-6 - VALUE 7570171.861371541854879296806. + VALUE 7570171.861371541854879296806. 77 FLD0718A PIC 9(06) COMP-6 - VALUE 158746. + VALUE 158746. 77 FLD0718B PIC 9(10)V9(06) COMP-6 - VALUE 4283417063.648062. + VALUE 4283417063.648062. 77 FLD0719A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0719B PIC 9(07)V9(02) COMP-6 - VALUE 2390904.61. + VALUE 2390904.61. 77 FLD0720A PIC 9(03) COMP-6 - VALUE 087. + VALUE 087. 77 FLD0720B PIC S9(09)V9(06) COMP-3 - VALUE +404886316.426392. + VALUE +404886316.426392. 77 FLD0721A PIC S9(09)V9(03) COMP-3 - VALUE +332294869.962. + VALUE +332294869.962. 77 FLD0721B PIC 9(07)V9(01) COMP-6 - VALUE 2285954.3. + VALUE 2285954.3. 77 FLD0722A PIC S9(05)V9(01) COMP-3 - VALUE -17094.9. + VALUE -17094.9. 77 FLD0722B PIC 9(07)V9(21) COMP-3 - VALUE 7607809.920924922808538326535. + VALUE 7607809.920924922808538326535. 77 FLD0723A PIC 9(05)V9(28) COMP-3 - VALUE 87349.0901765646254872876852459739. + VALUE 87349.0901765646254872876852459739. 77 FLD0723B PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0724A PIC 9(09)V9(03) COMP-6 - VALUE 317474559.928. + VALUE 317474559.928. 77 FLD0724B PIC 9(10)V9(09) COMP-6 - VALUE 5251486411.115240393. + VALUE 5251486411.115240393. 77 FLD0725A PIC 9(03)V9(31) COMP-6 - VALUE 915.1169879467740964074096154945436. + VALUE 915.1169879467740964074096154945436. 77 FLD0725B PIC S9(09)V9(07) COMP-3 - VALUE +444412819.1361023. + VALUE +444412819.1361023. 77 FLD0726A PIC 9(05) COMP-6 - VALUE 14771. + VALUE 14771. 77 FLD0726B PIC S9(09)V9(06) COMP-3 - VALUE +401835639.675800. + VALUE +401835639.675800. 77 FLD0727A PIC 9(10)V9(10) COMP-3 - VALUE 5412169008.2113094177. + VALUE 5412169008.2113094177. 77 FLD0727B PIC 9(09)V9(16) COMP-6 - VALUE 677439277.9021225496904889. + VALUE 677439277.9021225496904889. 77 FLD0728A PIC 9(09)V9(07) COMP-6 - VALUE 439411444.5456123. + VALUE 439411444.5456123. 77 FLD0728B PIC S9(09)V9(05) COMP-3 - VALUE -371357711.97684. + VALUE -371357711.97684. 77 FLD0729A PIC 9(02)V9(33) COMP-6 - VALUE 94.514768998125520127473464526701718. + VALUE 94.514768998125520127473464526701718. 77 FLD0729B PIC 9(07)V9(23) COMP-6 - VALUE 7959700.26538914909863819957536. + VALUE 7959700.26538914909863819957536. 77 FLD0730A PIC 9(06)V9(25) COMP-3 - VALUE 822685.8594490329412707296796725. + VALUE 822685.8594490329412707296796725. 77 FLD0730B PIC 9(09)V9(14) COMP-3 - VALUE 630270988.23946403616247. + VALUE 630270988.23946403616247. 77 FLD0731A PIC 9(10)V9(12) COMP-3 - VALUE 5808279049.356201984011. + VALUE 5808279049.356201984011. 77 FLD0731B PIC 9(09)V9(13) COMP-3 - VALUE 600372700.6085320949679. + VALUE 600372700.6085320949679. 77 FLD0732A PIC 9(03)V9(31) COMP-6 - VALUE 915.5080332184045710519626481982413. + VALUE 915.5080332184045710519626481982413. 77 FLD0732B PIC S9(04) COMP-3 - VALUE +1229. + VALUE +1229. 77 FLD0733A PIC 9(09)V9(03) COMP-6 - VALUE 328019305.824. + VALUE 328019305.824. 77 FLD0733B PIC 9(09)V9(15) COMP-6 - VALUE 637621846.224700750127567. + VALUE 637621846.224700750127567. 77 FLD0734A PIC S9(06) COMP-3 - VALUE -164821. + VALUE -164821. 77 FLD0734B PIC 9(02) COMP-6 - VALUE 05. + VALUE 05. 77 FLD0735A PIC S9(06)V9(01) COMP-3 - VALUE -190229.8. + VALUE -190229.8. 77 FLD0735B PIC 9(09)V9(15) COMP-3 - VALUE 641899075.827484955070190. + VALUE 641899075.827484955070190. 77 FLD0736A PIC 9(10)V9(09) COMP-3 - VALUE 5128678158.202983894. + VALUE 5128678158.202983894. 77 FLD0736B PIC 9(07)V9(23) COMP-6 - VALUE 7952260.56216242538354777025233. + VALUE 7952260.56216242538354777025233. 77 FLD0737A PIC S9(07)V9(02) COMP-3 - VALUE -2601084.10. + VALUE -2601084.10. 77 FLD0737B PIC S9(07)V9(02) COMP-3 - VALUE -2623355.12. + VALUE -2623355.12. 77 FLD0738A PIC 9(10)V9(09) COMP-6 - VALUE 5071467647.954436275. + VALUE 5071467647.954436275. 77 FLD0738B PIC 9(02)V9(34) COMP-6 - VALUE 96.7470462418068333221299326396547257. + VALUE 96.7470462418068333221299326396547257. 77 FLD0739A PIC S9(09)V9(03) COMP-3 - VALUE +324797211.447. + VALUE +324797211.447. 77 FLD0739B PIC S9(10)V9(08) COMP-3 - VALUE -4916417996.38161292. + VALUE -4916417996.38161292. 77 FLD0740A PIC S9(08)V9(03) COMP-3 - VALUE +30394739.303. + VALUE +30394739.303. 77 FLD0740B PIC 9(05)V9(28) COMP-3 - VALUE 87461.9397808273024708114462555386. + VALUE 87461.9397808273024708114462555386. 77 FLD0741A PIC S9(09)V9(03) COMP-3 - VALUE +322386723.831. + VALUE +322386723.831. 77 FLD0741B PIC S9(09)V9(03) COMP-3 - VALUE +321782512.880. + VALUE +321782512.880. 77 FLD0742A PIC 9(09)V9(06) COMP-6 - VALUE 419367234.713135. + VALUE 419367234.713135. 77 FLD0742B PIC S9(08)V9(03) COMP-3 - VALUE +30468212.851. + VALUE +30468212.851. 77 FLD0743A PIC 9(05)V9(27) COMP-6 - VALUE 85864.867305029812794003873932524. + VALUE 85864.867305029812794003873932524. 77 FLD0743B PIC 9(06)V9(01) COMP-6 - VALUE 209820.2. + VALUE 209820.2. 77 FLD0744A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0744B PIC 9(08)V9(02) COMP-6 - VALUE 26956228.79. + VALUE 26956228.79. 77 FLD0745A PIC 9(01)V9(36) COMP-6 - VALUE 9.759709501186564217789509712019935250. + VALUE 9.759709501186564217789509712019935250. 77 FLD0745B PIC 9(05) COMP-6 - VALUE 13548. + VALUE 13548. 77 FLD0746A PIC 9(10)V9(10) COMP-3 - VALUE 5435731573.3552813430. + VALUE 5435731573.3552813430. 77 FLD0746B PIC 9(10)V9(09) COMP-3 - VALUE 5204204473.599284286. + VALUE 5204204473.599284286. 77 FLD0747A PIC 9(10)V9(11) COMP-6 - VALUE 5681676571.07930934579. + VALUE 5681676571.07930934579. 77 FLD0747B PIC 9(03)V9(31) COMP-6 - VALUE 916.9159297409485986918298294767737. + VALUE 916.9159297409485986918298294767737. 77 FLD0748A PIC 9(03) COMP-6 - VALUE 086. + VALUE 086. 77 FLD0748B PIC S9(05)V9(01) COMP-3 - VALUE -18032.7. + VALUE -18032.7. 77 FLD0749A PIC S9(10)V9(07) COMP-3 - VALUE -4609096560.3942379. + VALUE -4609096560.3942379. 77 FLD0749B PIC 9(06)V9(25) COMP-3 - VALUE 820519.2560948625368766329302161. + VALUE 820519.2560948625368766329302161. 77 FLD0750A PIC 9(07)V9(22) COMP-6 - VALUE 7666736.3171436386792834127845. + VALUE 7666736.3171436386792834127845. 77 FLD0750B PIC 9(08)V9(04) COMP-6 - VALUE 33966692.5145. + VALUE 33966692.5145. 77 FLD0751A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0751B PIC S9(05) COMP-3 - VALUE -15176. + VALUE -15176. 77 FLD0752A PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0752B PIC 9(03)V9(32) COMP-3 - VALUE 922.38508268330654527034084821934811. + VALUE 922.38508268330654527034084821934811. 77 FLD0753A PIC 9(08)V9(19) COMP-3 - VALUE 73379118.3872512742247806727. + VALUE 73379118.3872512742247806727. 77 FLD0753B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0754A PIC S9(09)V9(03) COMP-3 - VALUE +322061792.108. + VALUE +322061792.108. 77 FLD0754B PIC 9(07)V9(02) COMP-6 - VALUE 2450066.21. + VALUE 2450066.21. 77 FLD0755A PIC 9(06)V9(25) COMP-6 - VALUE 835592.8333445592492978448717622. + VALUE 835592.8333445592492978448717622. 77 FLD0755B PIC 9(10)V9(10) COMP-3 - VALUE 5346301002.0417645051. + VALUE 5346301002.0417645051. 77 FLD0756A PIC 9(09)V9(04) COMP-6 - VALUE 366295057.8421. + VALUE 366295057.8421. 77 FLD0756B PIC S9(05) COMP-3 - VALUE -15366. + VALUE -15366. 77 FLD0757A PIC 9(08)V9(19) COMP-3 - VALUE 71466976.1113856494283425035. + VALUE 71466976.1113856494283425035. 77 FLD0757B PIC S9(07)V9(02) COMP-3 - VALUE +2429438.31. + VALUE +2429438.31. 77 FLD0758A PIC 9(07)V9(01) COMP-6 - VALUE 2293699.9. + VALUE 2293699.9. 77 FLD0758B PIC S9(06) COMP-3 - VALUE -162229. + VALUE -162229. 77 FLD0759A PIC 9(03)V9(32) COMP-3 - VALUE 931.38963166127219928114300273591652. + VALUE 931.38963166127219928114300273591652. 77 FLD0759B PIC 9(07)V9(21) COMP-3 - VALUE 7621303.882836163445801958005. + VALUE 7621303.882836163445801958005. 77 FLD0760A PIC 9(06)V9(01) COMP-6 - VALUE 188511.3. + VALUE 188511.3. 77 FLD0760B PIC 9(04)V9(30) COMP-3 - VALUE 9041.413390221895163278986728982999. + VALUE 9041.413390221895163278986728982999. 77 FLD0761A PIC 9(09)V9(17) COMP-3 - VALUE 690006529.44346418937726639. + VALUE 690006529.44346418937726639. 77 FLD0761B PIC 9(09)V9(14) COMP-6 - VALUE 629261290.31917010792085. + VALUE 629261290.31917010792085. 77 FLD0762A PIC 9(09)V9(16) COMP-3 - VALUE 671435372.9957326377686399. + VALUE 671435372.9957326377686399. 77 FLD0762B PIC 9(07)V9(02) COMP-6 - VALUE 2591343.61. + VALUE 2591343.61. 77 FLD0763A PIC 9(08)V9(19) COMP-3 - VALUE 71468145.3175585401638159055. + VALUE 71468145.3175585401638159055. 77 FLD0763B PIC 9(06)V9(24) COMP-6 - VALUE 815545.608346078032546699887461. + VALUE 815545.608346078032546699887461. 77 FLD0764A PIC 9(10)V9(11) COMP-3 - VALUE 5535007698.50315821329. + VALUE 5535007698.50315821329. 77 FLD0764B PIC 9(10)V9(08) COMP-6 - VALUE 4979398183.62831021. + VALUE 4979398183.62831021. 77 FLD0765A PIC 9(04)V9(29) COMP-6 - VALUE 8855.80582773889624093044403707608. + VALUE 8855.80582773889624093044403707608. 77 FLD0765B PIC S9(04) COMP-3 - VALUE +1212. + VALUE +1212. 77 FLD0766A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0766B PIC 9(07)V9(01) COMP-6 - VALUE 2294943.2. + VALUE 2294943.2. 77 FLD0767A PIC S9(10)V9(08) COMP-3 - VALUE -4848285740.27346248. + VALUE -4848285740.27346248. 77 FLD0767B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0768A PIC 9(09)V9(17) COMP-3 - VALUE 684230789.92735519854306858. + VALUE 684230789.92735519854306858. 77 FLD0768B PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0769A PIC 9(07)V9(02) COMP-6 - VALUE 2565731.27. + VALUE 2565731.27. 77 FLD0769B PIC 9(09)V9(04) COMP-6 - VALUE 356094054.4649. + VALUE 356094054.4649. 77 FLD0770A PIC 9(09)V9(12) COMP-3 - VALUE 574214303.174467532997. + VALUE 574214303.174467532997. 77 FLD0770B PIC 9(10)V9(13) COMP-6 - VALUE 6057194691.9895736094474. + VALUE 6057194691.9895736094474. 77 FLD0771A PIC 9(08)V9(18) COMP-6 - VALUE 69721614.519732855175249142. + VALUE 69721614.519732855175249142. 77 FLD0771B PIC 9(09)V9(17) COMP-3 - VALUE 690190375.47148320843604096. + VALUE 690190375.47148320843604096. 77 FLD0772A PIC 9(10)V9(08) COMP-6 - VALUE 4868623585.10471993. + VALUE 4868623585.10471993. 77 FLD0772B PIC 9(10)V9(05) COMP-6 - VALUE 3959689116.24786. + VALUE 3959689116.24786. 77 FLD0773A PIC S9(07)V9(01) COMP-3 - VALUE +2339835.9. + VALUE +2339835.9. 77 FLD0773B PIC 9(03)V9(32) COMP-3 - VALUE 931.93997423560348547511011929600499. + VALUE 931.93997423560348547511011929600499. 77 FLD0774A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0774B PIC S9(07)V9(02) COMP-3 - VALUE +2425891.04. + VALUE +2425891.04. 77 FLD0775A PIC 9(09)V9(06) COMP-6 - VALUE 418947899.183504. + VALUE 418947899.183504. 77 FLD0775B PIC 9(03)V9(32) COMP-3 - VALUE 930.87735098341006789723905967548489. + VALUE 930.87735098341006789723905967548489. 77 FLD0776A PIC 9(09)V9(06) COMP-6 - VALUE 418950765.017868. + VALUE 418950765.017868. 77 FLD0776B PIC 9(05)V9(27) COMP-6 - VALUE 84781.081485203291236985023715533. + VALUE 84781.081485203291236985023715533. 77 FLD0777A PIC S9(08)V9(03) COMP-3 - VALUE +31438250.184. + VALUE +31438250.184. 77 FLD0777B PIC 9(10)V9(11) COMP-3 - VALUE 5606560858.83416754889. + VALUE 5606560858.83416754889. 77 FLD0778A PIC S9(06)V9(01) COMP-3 - VALUE -192739.4. + VALUE -192739.4. 77 FLD0778B PIC 9(03)V9(31) COMP-6 - VALUE 916.8465464730475300569878527312539. + VALUE 916.8465464730475300569878527312539. 77 FLD0779A PIC 9(04)V9(30) COMP-3 - VALUE 9029.333248069044692840634525055065. + VALUE 9029.333248069044692840634525055065. 77 FLD0779B PIC S9(10)V9(08) COMP-3 - VALUE -4740907582.59428035. + VALUE -4740907582.59428035. 77 FLD0780A PIC 9(09)V9(03) COMP-6 - VALUE 318241207.749. + VALUE 318241207.749. 77 FLD0780B PIC 9(06)V9(25) COMP-3 - VALUE 822759.6235369002419801631731388. + VALUE 822759.6235369002419801631731388. 77 FLD0781A PIC 9(10)V9(08) COMP-6 - VALUE 4967153543.73054196. + VALUE 4967153543.73054196. 77 FLD0781B PIC 9(08)V9(03) COMP-6 - VALUE 29720911.669. + VALUE 29720911.669. 77 FLD0782A PIC 9(05) COMP-6 - VALUE 13793. + VALUE 13793. 77 FLD0782B PIC 9(02)V9(34) COMP-6 - VALUE 95.5158015091007617236584792408393695. + VALUE 95.5158015091007617236584792408393695. 77 FLD0783A PIC 9(04)V9(29) COMP-3 - VALUE 8813.39219378433402773964644438819. + VALUE 8813.39219378433402773964644438819. 77 FLD0783B PIC S9(10)V9(06) COMP-3 - VALUE +4236433759.282261. + VALUE +4236433759.282261. 77 FLD0784A PIC 9(09)V9(15) COMP-3 - VALUE 641964802.793786426526878. + VALUE 641964802.793786426526878. 77 FLD0784B PIC 9(06)V9(25) COMP-3 - VALUE 824637.3935062285553954097849782. + VALUE 824637.3935062285553954097849782. 77 FLD0785A PIC 9(08)V9(17) COMP-3 - VALUE 68097654.34600172362422654. + VALUE 68097654.34600172362422654. 77 FLD0785B PIC 9(09)V9(03) COMP-6 - VALUE 325202869.704. + VALUE 325202869.704. 77 FLD0786A PIC 9(01)V9(36) COMP-3 - VALUE 9.820249933224565186407062356011010706. + VALUE 9.820249933224565186407062356011010706. 77 FLD0786B PIC 9(05)V9(27) COMP-3 - VALUE 85417.725929538756979297886573476. + VALUE 85417.725929538756979297886573476. 77 FLD0787A PIC 9(10)V9(11) COMP-6 - VALUE 5592847098.07636559730. + VALUE 5592847098.07636559730. 77 FLD0787B PIC 9(06)V9(01) COMP-6 - VALUE 199330.4. + VALUE 199330.4. 77 FLD0788A PIC 9(02)V9(34) COMP-6 - VALUE 95.6557531637097668841818176588276401. + VALUE 95.6557531637097668841818176588276401. 77 FLD0788B PIC 9(07)V9(22) COMP-6 - VALUE 7789929.3063459995600794627534. + VALUE 7789929.3063459995600794627534. 77 FLD0789A PIC S9(05)V9(01) COMP-3 - VALUE -17101.7. + VALUE -17101.7. 77 FLD0789B PIC 9(09)V9(16) COMP-3 - VALUE 660444958.2132847496040994. + VALUE 660444958.2132847496040994. 77 FLD0790A PIC 9(07)V9(02) COMP-6 - VALUE 2384369.54. + VALUE 2384369.54. 77 FLD0790B PIC S9(08)V9(03) COMP-3 - VALUE -29309999.122. + VALUE -29309999.122. 77 FLD0791A PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0791B PIC 9(08)V9(20) COMP-6 - VALUE 73827325.48868294886190710712. + VALUE 73827325.48868294886190710712. 77 FLD0792A PIC 9(02)V9(34) COMP-6 - VALUE 95.5230059106088935649836457741912454. + VALUE 95.5230059106088935649836457741912454. 77 FLD0792B PIC 9(09)V9(05) COMP-6 - VALUE 379824535.06313. + VALUE 379824535.06313. 77 FLD0793A PIC 9(06)V9(01) COMP-6 - VALUE 199221.9. + VALUE 199221.9. 77 FLD0793B PIC 9(10)V9(11) COMP-6 - VALUE 5591577156.30166807230. + VALUE 5591577156.30166807230. 77 FLD0794A PIC S9(08)V9(04) COMP-3 - VALUE +33437009.5807. + VALUE +33437009.5807. 77 FLD0794B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0795A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0795B PIC S9(08)V9(04) COMP-3 - VALUE +33494400.6958. + VALUE +33494400.6958. 77 FLD0796A PIC 9(07)V9(21) COMP-6 - VALUE 7565685.006144580171394409262. + VALUE 7565685.006144580171394409262. 77 FLD0796B PIC 9(08)V9(19) COMP-6 - VALUE 72949831.5977354816475042298. + VALUE 72949831.5977354816475042298. 77 FLD0797A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0797B PIC 9(09)V9(04) COMP-6 - VALUE 348777486.0252. + VALUE 348777486.0252. 77 FLD0798A PIC S9(09)V9(03) COMP-3 - VALUE +332243375.906. + VALUE +332243375.906. 77 FLD0798B PIC 9(09)V9(16) COMP-3 - VALUE 673821443.1439371043808250. + VALUE 673821443.1439371043808250. 77 FLD0799A PIC 9(09)V9(17) COMP-3 - VALUE 690866271.33683375934225523. + VALUE 690866271.33683375934225523. 77 FLD0799B PIC 9(09)V9(11) COMP-3 - VALUE 551526790.74963362193. + VALUE 551526790.74963362193. 77 FLD0800A PIC 9(08)V9(18) COMP-3 - VALUE 70036112.416705975647346349. + VALUE 70036112.416705975647346349. 77 FLD0800B PIC 9(08)V9(02) COMP-6 - VALUE 26662512.18. + VALUE 26662512.18. 77 FLD0801A PIC S9(09)V9(07) COMP-3 - VALUE +443093279.8052367. + VALUE +443093279.8052367. 77 FLD0801B PIC 9(01)V9(36) COMP-3 - VALUE 9.827967002397862694706986985693220049. + VALUE 9.827967002397862694706986985693220049. 77 FLD0802A PIC S9(07)V9(02) COMP-3 - VALUE +2449505.23. + VALUE +2449505.23. 77 FLD0802B PIC 9(04)V9(29) COMP-3 - VALUE 8911.32090012832223102634543465683. + VALUE 8911.32090012832223102634543465683. 77 FLD0803A PIC S9(05)V9(01) COMP-3 - VALUE -17467.0. + VALUE -17467.0. 77 FLD0803B PIC 9(10)V9(11) COMP-6 - VALUE 5556247901.99399698487. + VALUE 5556247901.99399698487. 77 FLD0804A PIC 9(07)V9(02) COMP-6 - VALUE 2599541.84. + VALUE 2599541.84. 77 FLD0804B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0805A PIC 9(07)V9(01) COMP-6 - VALUE 2358341.0. + VALUE 2358341.0. 77 FLD0805B PIC 9(10)V9(08) COMP-6 - VALUE 4796323563.66873291. + VALUE 4796323563.66873291. 77 FLD0806A PIC 9(10)V9(11) COMP-3 - VALUE 5703927562.80738821850. + VALUE 5703927562.80738821850. 77 FLD0806B PIC 9(09)V9(07) COMP-6 - VALUE 445849105.9648416. + VALUE 445849105.9648416. 77 FLD0807A PIC 9(09)V9(17) COMP-6 - VALUE 689326682.16034242991696601. + VALUE 689326682.16034242991696601. 77 FLD0807B PIC S9(03) COMP-3 - VALUE -090. + VALUE -090. 77 FLD0808A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0808B PIC 9(10)V9(07) COMP-6 - VALUE 4574455047.5690953. + VALUE 4574455047.5690953. 77 FLD0809A PIC 9(05)V9(28) COMP-6 - VALUE 86873.4196996681751201663246320094. + VALUE 86873.4196996681751201663246320094. 77 FLD0809B PIC S9(09)V9(07) COMP-3 - VALUE +440334288.3961999. + VALUE +440334288.3961999. 77 FLD0810A PIC S9(04) COMP-3 - VALUE +1129. + VALUE +1129. 77 FLD0810B PIC S9(07)V9(01) COMP-3 - VALUE +2130584.0. + VALUE +2130584.0. 77 FLD0811A PIC 9(09)V9(15) COMP-6 - VALUE 648943185.643321429623142. + VALUE 648943185.643321429623142. 77 FLD0811B PIC 9(01)V9(36) COMP-3 - VALUE 9.811592432324195423021251372119877487. + VALUE 9.811592432324195423021251372119877487. 77 FLD0812A PIC S9(08)V9(03) COMP-3 - VALUE -29270905.795. + VALUE -29270905.795. 77 FLD0812B PIC 9(08)V9(02) COMP-6 - VALUE 27514068.39. + VALUE 27514068.39. 77 FLD0813A PIC 9(10)V9(08) COMP-6 - VALUE 4881724662.84412076. + VALUE 4881724662.84412076. 77 FLD0813B PIC S9(08)V9(03) COMP-3 - VALUE -29113136.400. + VALUE -29113136.400. 77 FLD0814A PIC S9(02) COMP-3 - VALUE -07. + VALUE -07. 77 FLD0814B PIC 9(07)V9(21) COMP-3 - VALUE 7525112.595496631362479433846. + VALUE 7525112.595496631362479433846. 77 FLD0815A PIC 9(06)V9(25) COMP-6 - VALUE 838676.0467962863785373883729334. + VALUE 838676.0467962863785373883729334. 77 FLD0815B PIC 9(02)V9(34) COMP-3 - VALUE 95.3836598694868031955707010638434439. + VALUE 95.3836598694868031955707010638434439. 77 FLD0816A PIC 9(08)V9(18) COMP-6 - VALUE 70774184.783492177786001775. + VALUE 70774184.783492177786001775. 77 FLD0816B PIC 9(04)V9(29) COMP-6 - VALUE 8859.15144904112161761133847903693. + VALUE 8859.15144904112161761133847903693. 77 FLD0817A PIC 9(10)V9(09) COMP-6 - VALUE 5163345142.860672476. + VALUE 5163345142.860672476. 77 FLD0817B PIC 9(10)V9(09) COMP-6 - VALUE 5158922133.304477686. + VALUE 5158922133.304477686. 77 FLD0818A PIC 9(08)V9(03) COMP-6 - VALUE 30586164.664. + VALUE 30586164.664. 77 FLD0818B PIC 9(08)V9(19) COMP-6 - VALUE 71565910.0751609544843745425. + VALUE 71565910.0751609544843745425. 77 FLD0819A PIC 9(01)V9(36) COMP-3 - VALUE 9.844708607145921108738662042014766484. + VALUE 9.844708607145921108738662042014766484. 77 FLD0819B PIC S9(03) COMP-3 - VALUE -092. + VALUE -092. 77 FLD0820A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0820B PIC 9(02)V9(34) COMP-6 - VALUE 95.6537139953218984445015848905313760. + VALUE 95.6537139953218984445015848905313760. 77 FLD0821A PIC 9(09)V9(11) COMP-3 - VALUE 550576956.44832715942. + VALUE 550576956.44832715942. 77 FLD0821B PIC S9(09)V9(05) COMP-3 - VALUE -383656536.39422. + VALUE -383656536.39422. 77 FLD0822A PIC S9(05) COMP-3 - VALUE +14037. + VALUE +14037. 77 FLD0822B PIC 9(04) COMP-6 - VALUE 1092. + VALUE 1092. 77 FLD0823A PIC 9(08)V9(20) COMP-6 - VALUE 73880168.20028298070610617287. + VALUE 73880168.20028298070610617287. 77 FLD0823B PIC S9(09)V9(06) COMP-3 - VALUE +410430433.569272. + VALUE +410430433.569272. 77 FLD0824A PIC 9(10)V9(10) COMP-6 - VALUE 5351534260.3280557920. + VALUE 5351534260.3280557920. 77 FLD0824B PIC 9(09)V9(14) COMP-6 - VALUE 619637811.24301098301998. + VALUE 619637811.24301098301998. 77 FLD0825A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0825B PIC S9(05)V9(01) COMP-3 - VALUE -17069.2. + VALUE -17069.2. 77 FLD0826A PIC S9(06)V9(01) COMP-3 - VALUE -190786.5. + VALUE -190786.5. 77 FLD0826B PIC S9(10)V9(08) COMP-3 - VALUE -4805976358.59735916. + VALUE -4805976358.59735916. 77 FLD0827A PIC 9(07)V9(22) COMP-6 - VALUE 7763847.1978375678261841130733. + VALUE 7763847.1978375678261841130733. 77 FLD0827B PIC 9(10)V9(07) COMP-6 - VALUE 4683286251.1747114. + VALUE 4683286251.1747114. 77 FLD0828A PIC S9(10)V9(07) COMP-3 - VALUE -4530916009.2405642. + VALUE -4530916009.2405642. 77 FLD0828B PIC S9(05) COMP-3 - VALUE -15016. + VALUE -15016. 77 FLD0829A PIC 9(09)V9(17) COMP-3 - VALUE 691486534.21926165041355716. + VALUE 691486534.21926165041355716. 77 FLD0829B PIC 9(07)V9(23) COMP-6 - VALUE 7963194.44710118728991687930829. + VALUE 7963194.44710118728991687930829. 77 FLD0830A PIC 9(04)V9(30) COMP-6 - VALUE 8965.722935126121395654763546190224. + VALUE 8965.722935126121395654763546190224. 77 FLD0830B PIC 9(10)V9(11) COMP-6 - VALUE 5655358049.53465004452. + VALUE 5655358049.53465004452. 77 FLD0831A PIC 9(04)V9(30) COMP-6 - VALUE 8956.555580996397036841472072410397. + VALUE 8956.555580996397036841472072410397. 77 FLD0831B PIC 9(09)V9(16) COMP-3 - VALUE 660284490.9595845246386147. + VALUE 660284490.9595845246386147. 77 FLD0832A PIC 9(04) COMP-6 - VALUE 1185. + VALUE 1185. 77 FLD0832B PIC 9(09)V9(06) COMP-6 - VALUE 419049138.539795. + VALUE 419049138.539795. 77 FLD0833A PIC 9(06)V9(24) COMP-3 - VALUE 804859.798300300854911881742737. + VALUE 804859.798300300854911881742737. 77 FLD0833B PIC 9(09)V9(16) COMP-3 - VALUE 664990588.4825918489511309. + VALUE 664990588.4825918489511309. 77 FLD0834A PIC 9(09)V9(04) COMP-6 - VALUE 349209744.2881. + VALUE 349209744.2881. 77 FLD0834B PIC 9(08)V9(19) COMP-3 - VALUE 71191898.1740956136050613167. + VALUE 71191898.1740956136050613167. 77 FLD0835A PIC 9(08)V9(19) COMP-3 - VALUE 71178359.2779248075466114187. + VALUE 71178359.2779248075466114187. 77 FLD0835B PIC 9(07)V9(22) COMP-6 - VALUE 7891261.8513661014763016510187. + VALUE 7891261.8513661014763016510187. 77 FLD0836A PIC 9(09)V9(07) COMP-6 - VALUE 446141389.3412962. + VALUE 446141389.3412962. 77 FLD0836B PIC 9(09)V9(13) COMP-3 - VALUE 594066179.3005866941896. + VALUE 594066179.3005866941896. 77 FLD0837A PIC 9(04)V9(30) COMP-6 - VALUE 8982.008694278872384941792006429750. + VALUE 8982.008694278872384941792006429750. 77 FLD0837B PIC S9(08)V9(03) COMP-3 - VALUE -29146758.519. + VALUE -29146758.519. 77 FLD0838A PIC 9(10)V9(12) COMP-6 - VALUE 5873188106.793812979233. + VALUE 5873188106.793812979233. 77 FLD0838B PIC 9(07)V9(22) COMP-3 - VALUE 7748686.2151072521953665273031. + VALUE 7748686.2151072521953665273031. 77 FLD0839A PIC 9(08)V9(19) COMP-3 - VALUE 71324671.8649382605015318858. + VALUE 71324671.8649382605015318858. 77 FLD0839B PIC 9(06)V9(01) COMP-6 - VALUE 205379.6. + VALUE 205379.6. 77 FLD0840A PIC S9(03) COMP-3 - VALUE -094. + VALUE -094. 77 FLD0840B PIC 9(04) COMP-6 - VALUE 1059. + VALUE 1059. 77 FLD0841A PIC 9(08)V9(18) COMP-3 - VALUE 70179428.042996372383299785. + VALUE 70179428.042996372383299785. 77 FLD0841B PIC 9(06)V9(24) COMP-3 - VALUE 813553.693586876014443021176703. + VALUE 813553.693586876014443021176703. 77 FLD0842A PIC 9(09)V9(16) COMP-3 - VALUE 661649948.5739699704112126. + VALUE 661649948.5739699704112126. 77 FLD0842B PIC 9(02)V9(33) COMP-6 - VALUE 94.543261545044898763734408930758945. + VALUE 94.543261545044898763734408930758945. 77 FLD0843A PIC 9(06)V9(25) COMP-6 - VALUE 818928.0761087860405211813485948. + VALUE 818928.0761087860405211813485948. 77 FLD0843B PIC S9(08)V9(03) COMP-3 - VALUE +30347988.647. + VALUE +30347988.647. 77 FLD0844A PIC 9(07)V9(22) COMP-6 - VALUE 7754458.9142564990247308287507. + VALUE 7754458.9142564990247308287507. 77 FLD0844B PIC 9(10)V9(07) COMP-6 - VALUE 4487113046.2525055. + VALUE 4487113046.2525055. 77 FLD0845A PIC 9(10)V9(12) COMP-3 - VALUE 5903835745.060688200425. + VALUE 5903835745.060688200425. 77 FLD0845B PIC 9(09)V9(15) COMP-3 - VALUE 651184321.418812994686220. + VALUE 651184321.418812994686220. 77 FLD0846A PIC 9(08)V9(03) COMP-6 - VALUE 29802576.878. + VALUE 29802576.878. 77 FLD0846B PIC 9(10)V9(07) COMP-6 - VALUE 4580030325.9646085. + VALUE 4580030325.9646085. 77 FLD0847A PIC 9(05)V9(26) COMP-3 - VALUE 84041.42690564196938041163775778. + VALUE 84041.42690564196938041163775778. 77 FLD0847B PIC 9(08)V9(03) COMP-6 - VALUE 29618694.346. + VALUE 29618694.346. 77 FLD0848A PIC 9(07)V9(23) COMP-3 - VALUE 7949747.62786875510656159349309. + VALUE 7949747.62786875510656159349309. 77 FLD0848B PIC 9(08)V9(19) COMP-3 - VALUE 71130247.7845018432667245633. + VALUE 71130247.7845018432667245633. 77 FLD0849A PIC 9(09)V9(13) COMP-6 - VALUE 595598045.8961575019216. + VALUE 595598045.8961575019216. 77 FLD0849B PIC 9(07)V9(21) COMP-3 - VALUE 7527838.155592773139446194363. + VALUE 7527838.155592773139446194363. 77 FLD0850A PIC 9(09)V9(06) COMP-6 - VALUE 418716850.605351. + VALUE 418716850.605351. 77 FLD0850B PIC 9(09)V9(15) COMP-3 - VALUE 631787055.454641532925563. + VALUE 631787055.454641532925563. 77 FLD0851A PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0851B PIC 9(07)V9(01) COMP-6 - VALUE 2252059.3. + VALUE 2252059.3. 77 FLD0852A PIC 9(10)V9(11) COMP-3 - VALUE 5643399909.75319838462. + VALUE 5643399909.75319838462. 77 FLD0852B PIC 9(08)V9(02) COMP-6 - VALUE 28682579.88. + VALUE 28682579.88. 77 FLD0853A PIC 9(06)V9(24) COMP-3 - VALUE 801200.590406665469345171004533. + VALUE 801200.590406665469345171004533. 77 FLD0853B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0854A PIC 9(01)V9(35) COMP-3 - VALUE 9.72377885073923198255840816273121163. + VALUE 9.72377885073923198255840816273121163. 77 FLD0854B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0855A PIC 9(08)V9(19) COMP-6 - VALUE 73562901.0042854747375429269. + VALUE 73562901.0042854747375429269. 77 FLD0855B PIC 9(05)V9(01) COMP-6 - VALUE 16705.4. + VALUE 16705.4. 77 FLD0856A PIC 9(09)V9(04) COMP-6 - VALUE 356144099.6704. + VALUE 356144099.6704. 77 FLD0856B PIC S9(05) COMP-3 - VALUE +13257. + VALUE +13257. 77 FLD0857A PIC 9(03)V9(31) COMP-6 - VALUE 915.3286634102202334872799838194623. + VALUE 915.3286634102202334872799838194623. 77 FLD0857B PIC S9(02) COMP-3 - VALUE -05. + VALUE -05. 77 FLD0858A PIC 9(10)V9(11) COMP-6 - VALUE 5560594458.08950059131. + VALUE 5560594458.08950059131. 77 FLD0858B PIC 9(08)V9(03) COMP-6 - VALUE 30966624.473. + VALUE 30966624.473. 77 FLD0859A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0859B PIC 9(02)V9(34) COMP-3 - VALUE 97.1628168143447767945986015547532588. + VALUE 97.1628168143447767945986015547532588. 77 FLD0860A PIC 9(07)V9(02) COMP-6 - VALUE 2576407.94. + VALUE 2576407.94. 77 FLD0860B PIC 9(08)V9(04) COMP-6 - VALUE 33654706.3315. + VALUE 33654706.3315. 77 FLD0861A PIC S9(10)V9(07) COMP-3 - VALUE -4605509961.3842453. + VALUE -4605509961.3842453. 77 FLD0861B PIC 9(04) COMP-6 - VALUE 1091. + VALUE 1091. 77 FLD0862A PIC 9(07)V9(22) COMP-6 - VALUE 7652464.2157409383802502134130. + VALUE 7652464.2157409383802502134130. 77 FLD0862B PIC 9(09)V9(12) COMP-6 - VALUE 576630833.581719182134. + VALUE 576630833.581719182134. 77 FLD0863A PIC 9(05)V9(27) COMP-3 - VALUE 85070.091557533766835064170663827. + VALUE 85070.091557533766835064170663827. 77 FLD0863B PIC 9(10)V9(09) COMP-6 - VALUE 5171260723.603198217. + VALUE 5171260723.603198217. 77 FLD0864A PIC 9(10)V9(11) COMP-3 - VALUE 5711242885.34377577697. + VALUE 5711242885.34377577697. 77 FLD0864B PIC 9(04)V9(29) COMP-6 - VALUE 8791.30787212824560405977081245509. + VALUE 8791.30787212824560405977081245509. 77 FLD0865A PIC 9(06)V9(24) COMP-6 - VALUE 807409.725415061507725056344497. + VALUE 807409.725415061507725056344497. 77 FLD0865B PIC S9(03) COMP-3 - VALUE -082. + VALUE -082. 77 FLD0866A PIC 9(09)V9(05) COMP-6 - VALUE 376060050.51851. + VALUE 376060050.51851. 77 FLD0866B PIC 9(04)V9(30) COMP-6 - VALUE 9076.867019798932068042063292523380. + VALUE 9076.867019798932068042063292523380. 77 FLD0867A PIC S9(05) COMP-3 - VALUE +14084. + VALUE +14084. 77 FLD0867B PIC 9(08)V9(19) COMP-6 - VALUE 72879777.6966572774526298417. + VALUE 72879777.6966572774526298417. 77 FLD0868A PIC 9(07)V9(22) COMP-3 - VALUE 7648419.8420910554094831468319. + VALUE 7648419.8420910554094831468319. 77 FLD0868B PIC 9(10)V9(12) COMP-3 - VALUE 5849128371.667725589944. + VALUE 5849128371.667725589944. 77 FLD0869A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0869B PIC 9(08)V9(17) COMP-3 - VALUE 68157822.06919422936408636. + VALUE 68157822.06919422936408636. 77 FLD0870A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0870B PIC 9(09)V9(15) COMP-6 - VALUE 657570531.523696821807334. + VALUE 657570531.523696821807334. 77 FLD0871A PIC 9(09)V9(14) COMP-6 - VALUE 609764683.38536315982878. + VALUE 609764683.38536315982878. 77 FLD0871B PIC 9(10)V9(09) COMP-3 - VALUE 5134836781.377033476. + VALUE 5134836781.377033476. 77 FLD0872A PIC 9(04)V9(29) COMP-3 - VALUE 8816.31176263962479389135751262074. + VALUE 8816.31176263962479389135751262074. 77 FLD0872B PIC 9(10)V9(07) COMP-6 - VALUE 4591409950.7884903. + VALUE 4591409950.7884903. 77 FLD0873A PIC 9(07)V9(21) COMP-6 - VALUE 7561255.223942077163812314211. + VALUE 7561255.223942077163812314211. 77 FLD0873B PIC 9(05) COMP-6 - VALUE 15597. + VALUE 15597. 77 FLD0874A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0874B PIC 9(06)V9(01) COMP-6 - VALUE 188106.3. + VALUE 188106.3. 77 FLD0875A PIC S9(06)V9(01) COMP-3 - VALUE +204126.0. + VALUE +204126.0. 77 FLD0875B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0876A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0876B PIC 9(07)V9(23) COMP-3 - VALUE 7928238.87607293276147402139031. + VALUE 7928238.87607293276147402139031. 77 FLD0877A PIC 9(08)V9(18) COMP-6 - VALUE 69924605.886404200827399790. + VALUE 69924605.886404200827399790. 77 FLD0877B PIC 9(09)V9(15) COMP-3 - VALUE 651975862.412979334514773. + VALUE 651975862.412979334514773. 77 FLD0878A PIC 9(07)V9(22) COMP-3 - VALUE 7831260.9220719830993573395971. + VALUE 7831260.9220719830993573395971. 77 FLD0878B PIC 9(04)V9(29) COMP-3 - VALUE 8832.64528360225620318146866338793. + VALUE 8832.64528360225620318146866338793. 77 FLD0879A PIC 9(07)V9(02) COMP-6 - VALUE 2371533.81. + VALUE 2371533.81. 77 FLD0879B PIC 9(05)V9(27) COMP-3 - VALUE 85230.962794591269560129376259283. + VALUE 85230.962794591269560129376259283. 77 FLD0880A PIC S9(10)V9(06) COMP-3 - VALUE +4237732309.742536. + VALUE +4237732309.742536. 77 FLD0880B PIC 9(05)V9(26) COMP-6 - VALUE 83915.37539577657023315282458497. + VALUE 83915.37539577657023315282458497. 77 FLD0881A PIC 9(10)V9(11) COMP-6 - VALUE 5571129514.90407404264. + VALUE 5571129514.90407404264. 77 FLD0881B PIC S9(09)V9(04) COMP-3 - VALUE -360610120.1846. + VALUE -360610120.1846. 77 FLD0882A PIC 9(10)V9(12) COMP-6 - VALUE 5888713345.878072713546. + VALUE 5888713345.878072713546. 77 FLD0882B PIC 9(09)V9(16) COMP-6 - VALUE 677832951.8186110291821933. + VALUE 677832951.8186110291821933. 77 FLD0883A PIC 9(09)V9(16) COMP-3 - VALUE 672192258.1526228457349247. + VALUE 672192258.1526228457349247. 77 FLD0883B PIC 9(07)V9(21) COMP-6 - VALUE 7561874.624389478549701948395. + VALUE 7561874.624389478549701948395. 77 FLD0884A PIC 9(10)V9(08) COMP-6 - VALUE 4954020911.85092596. + VALUE 4954020911.85092596. 77 FLD0884B PIC 9(07)V9(21) COMP-3 - VALUE 7530519.818486510752464369033. + VALUE 7530519.818486510752464369033. 77 FLD0885A PIC S9(05) COMP-3 - VALUE +13360. + VALUE +13360. 77 FLD0885B PIC S9(05) COMP-3 - VALUE -15432. + VALUE -15432. 77 FLD0886A PIC S9(09)V9(05) COMP-3 - VALUE -374529584.88504. + VALUE -374529584.88504. 77 FLD0886B PIC S9(09)V9(05) COMP-3 - VALUE -380480275.58811. + VALUE -380480275.58811. 77 FLD0887A PIC S9(07)V9(01) COMP-3 - VALUE +2114795.5. + VALUE +2114795.5. 77 FLD0887B PIC 9(06)V9(25) COMP-6 - VALUE 815821.3018675709582439026235078. + VALUE 815821.3018675709582439026235078. 77 FLD0888A PIC 9(08)V9(19) COMP-6 - VALUE 73580519.1914812417586233550. + VALUE 73580519.1914812417586233550. 77 FLD0888B PIC 9(07)V9(02) COMP-6 - VALUE 2394446.18. + VALUE 2394446.18. 77 FLD0889A PIC S9(05) COMP-3 - VALUE -15225. + VALUE -15225. 77 FLD0889B PIC 9(02)V9(34) COMP-3 - VALUE 96.3719675610497206186266794247785583. + VALUE 96.3719675610497206186266794247785583. 77 FLD0890A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0890B PIC 9(08)V9(19) COMP-3 - VALUE 72161358.3480198661490589984. + VALUE 72161358.3480198661490589984. 77 FLD0891A PIC 9(02)V9(34) COMP-6 - VALUE 95.7956124985634538404610793804749846. + VALUE 95.7956124985634538404610793804749846. 77 FLD0891B PIC 9(08)V9(19) COMP-6 - VALUE 73526985.6204998628612656830. + VALUE 73526985.6204998628612656830. 77 FLD0892A PIC 9(10)V9(09) COMP-6 - VALUE 5079027644.377075434. + VALUE 5079027644.377075434. 77 FLD0892B PIC 9(03) COMP-6 - VALUE 088. + VALUE 088. 77 FLD0893A PIC 9(10)V9(12) COMP-3 - VALUE 5900775083.003402254888. + VALUE 5900775083.003402254888. 77 FLD0893B PIC 9(02) COMP-6 - VALUE 07. + VALUE 07. 77 FLD0894A PIC 9(06)V9(25) COMP-6 - VALUE 819872.1409522375935807758651208. + VALUE 819872.1409522375935807758651208. 77 FLD0894B PIC 9(09)V9(15) COMP-6 - VALUE 655129000.141700390535959. + VALUE 655129000.141700390535959. 77 FLD0895A PIC 9(10)V9(09) COMP-6 - VALUE 5099949658.575000377. + VALUE 5099949658.575000377. 77 FLD0895B PIC 9(08)V9(02) COMP-6 - VALUE 28944204.51. + VALUE 28944204.51. 77 FLD0896A PIC 9(10)V9(07) COMP-6 - VALUE 4576511370.6787369. + VALUE 4576511370.6787369. 77 FLD0896B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0897A PIC 9(01)V9(36) COMP-6 - VALUE 9.997543976245016894566219889384228736. + VALUE 9.997543976245016894566219889384228736. 77 FLD0897B PIC S9(09)V9(07) COMP-3 - VALUE +440492210.0858147. + VALUE +440492210.0858147. 77 FLD0898A PIC 9(09)V9(05) COMP-6 - VALUE 378033726.09171. + VALUE 378033726.09171. 77 FLD0898B PIC 9(06)V9(01) COMP-6 - VALUE 199374.1. + VALUE 199374.1. 77 FLD0899A PIC 9(08)V9(20) COMP-6 - VALUE 74918436.40783237834313013081. + VALUE 74918436.40783237834313013081. 77 FLD0899B PIC 9(09)V9(07) COMP-6 - VALUE 438142184.6749312. + VALUE 438142184.6749312. 77 FLD0900A PIC 9(03)V9(32) COMP-6 - VALUE 929.41329164379282712360463847289793. + VALUE 929.41329164379282712360463847289793. 77 FLD0900B PIC 9(06)V9(01) COMP-6 - VALUE 185639.8. + VALUE 185639.8. 77 FLD0901A PIC 9(10)V9(07) COMP-6 - VALUE 4563598931.5070740. + VALUE 4563598931.5070740. 77 FLD0901B PIC 9(01)V9(36) COMP-6 - VALUE 9.782322298369796609307513790554367005. + VALUE 9.782322298369796609307513790554367005. 77 FLD0902A PIC 9(05)V9(28) COMP-3 - VALUE 87405.6741908566081633580324705690. + VALUE 87405.6741908566081633580324705690. 77 FLD0902B PIC 9(10)V9(09) COMP-3 - VALUE 5131137190.755751253. + VALUE 5131137190.755751253. 77 FLD0903A PIC 9(08)V9(02) COMP-6 - VALUE 28616952.10. + VALUE 28616952.10. 77 FLD0903B PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0904A PIC S9(04) COMP-3 - VALUE +1137. + VALUE +1137. 77 FLD0904B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0905A PIC 9(09)V9(04) COMP-6 - VALUE 357938124.4724. + VALUE 357938124.4724. 77 FLD0905B PIC 9(09)V9(04) COMP-6 - VALUE 349599231.9688. + VALUE 349599231.9688. 77 FLD0906A PIC 9(09)V9(16) COMP-6 - VALUE 669388906.6218295935684068. + VALUE 669388906.6218295935684068. 77 FLD0906B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0907A PIC S9(09)V9(05) COMP-3 - VALUE -390800584.69506. + VALUE -390800584.69506. 77 FLD0907B PIC 9(10)V9(11) COMP-6 - VALUE 5692874702.16027324809. + VALUE 5692874702.16027324809. 77 FLD0908A PIC S9(10)V9(06) COMP-3 - VALUE +4306350776.286586. + VALUE +4306350776.286586. 77 FLD0908B PIC 9(03)V9(31) COMP-3 - VALUE 912.0472776451683527554337160836439. + VALUE 912.0472776451683527554337160836439. 77 FLD0909A PIC 9(08)V9(03) COMP-6 - VALUE 30663800.453. + VALUE 30663800.453. 77 FLD0909B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0910A PIC S9(06)V9(01) COMP-3 - VALUE -193158.9. + VALUE -193158.9. 77 FLD0910B PIC 9(04)V9(30) COMP-6 - VALUE 9098.433765600096867487422969134058. + VALUE 9098.433765600096867487422969134058. 77 FLD0911A PIC S9(10)V9(07) COMP-3 - VALUE -4611964452.0728980. + VALUE -4611964452.0728980. 77 FLD0911B PIC 9(08)V9(20) COMP-3 - VALUE 74305071.04102702653491974160. + VALUE 74305071.04102702653491974160. 77 FLD0912A PIC 9(10)V9(09) COMP-3 - VALUE 5000191930.396378214. + VALUE 5000191930.396378214. 77 FLD0912B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0913A PIC S9(04) COMP-3 - VALUE +1246. + VALUE +1246. 77 FLD0913B PIC 9(03) COMP-6 - VALUE 079. + VALUE 079. 77 FLD0914A PIC 9(03)V9(31) COMP-6 - VALUE 917.2012666333545505281676923914346. + VALUE 917.2012666333545505281676923914346. 77 FLD0914B PIC 9(01)V9(36) COMP-3 - VALUE 9.801144784183424274459639491396956145. + VALUE 9.801144784183424274459639491396956145. 77 FLD0915A PIC 9(08)V9(20) COMP-6 - VALUE 74750906.49492384109464637731. + VALUE 74750906.49492384109464637731. 77 FLD0915B PIC S9(04) COMP-3 - VALUE +1130. + VALUE +1130. 77 FLD0916A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0916B PIC 9(10)V9(06) COMP-6 - VALUE 4372777685.598984. + VALUE 4372777685.598984. 77 FLD0917A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0917B PIC 9(04) COMP-6 - VALUE 1084. + VALUE 1084. 77 FLD0918A PIC 9(04) COMP-6 - VALUE 1059. + VALUE 1059. 77 FLD0918B PIC 9(10)V9(11) COMP-6 - VALUE 5693106161.94893204244. + VALUE 5693106161.94893204244. 77 FLD0919A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0919B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0920A PIC S9(05)V9(01) COMP-3 - VALUE -17474.9. + VALUE -17474.9. 77 FLD0920B PIC 9(09)V9(16) COMP-6 - VALUE 669843285.3658151664433262. + VALUE 669843285.3658151664433262. 77 FLD0921A PIC 9(10)V9(10) COMP-6 - VALUE 5463494999.0456427304. + VALUE 5463494999.0456427304. 77 FLD0921B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0922A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0922B PIC S9(05)V9(01) COMP-3 - VALUE -18331.8. + VALUE -18331.8. 77 FLD0923A PIC 9(06) COMP-6 - VALUE 159582. + VALUE 159582. 77 FLD0923B PIC S9(04) COMP-3 - VALUE +1310. + VALUE +1310. 77 FLD0924A PIC 9(10)V9(11) COMP-6 - VALUE 5650505738.70210182114. + VALUE 5650505738.70210182114. 77 FLD0924B PIC 9(06)V9(25) COMP-3 - VALUE 830413.4742864166529585645548650. + VALUE 830413.4742864166529585645548650. 77 FLD0925A PIC S9(04) COMP-3 - VALUE +1236. + VALUE +1236. 77 FLD0925B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0926A PIC 9(08)V9(18) COMP-6 - VALUE 69535643.175280814620720093. + VALUE 69535643.175280814620720093. 77 FLD0926B PIC S9(07)V9(02) COMP-3 - VALUE -2533128.95. + VALUE -2533128.95. 77 FLD0927A PIC 9(06)V9(24) COMP-3 - VALUE 800954.558131814597921049880824. + VALUE 800954.558131814597921049880824. 77 FLD0927B PIC 9(10)V9(09) COMP-3 - VALUE 5121064754.192180545. + VALUE 5121064754.192180545. 77 FLD0928A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0928B PIC 9(07)V9(02) COMP-6 - VALUE 2551694.92. + VALUE 2551694.92. 77 FLD0929A PIC 9(05)V9(28) COMP-3 - VALUE 87174.0739403786824013309342262800. + VALUE 87174.0739403786824013309342262800. 77 FLD0929B PIC 9(08)V9(19) COMP-3 - VALUE 71306594.2354483839338286088. + VALUE 71306594.2354483839338286088. 77 FLD0930A PIC 9(01)V9(36) COMP-3 - VALUE 9.911281003002671008417223674769047647. + VALUE 9.911281003002671008417223674769047647. 77 FLD0930B PIC 9(09)V9(13) COMP-3 - VALUE 591594874.8305130955316. + VALUE 591594874.8305130955316. 77 FLD0931A PIC 9(09)V9(12) COMP-3 - VALUE 573747057.720371378408. + VALUE 573747057.720371378408. 77 FLD0931B PIC S9(07)V9(02) COMP-3 - VALUE -2503283.13. + VALUE -2503283.13. 77 FLD0932A PIC 9(10)V9(09) COMP-6 - VALUE 5079506475.355934913. + VALUE 5079506475.355934913. 77 FLD0932B PIC 9(10)V9(09) COMP-6 - VALUE 5196217943.575858200. + VALUE 5196217943.575858200. 77 FLD0933A PIC 9(07)V9(22) COMP-6 - VALUE 7776883.1704294028028812135744. + VALUE 7776883.1704294028028812135744. 77 FLD0933B PIC 9(09)V9(03) COMP-6 - VALUE 328435728.864. + VALUE 328435728.864. 77 FLD0934A PIC 9(05)V9(01) COMP-6 - VALUE 16899.6. + VALUE 16899.6. 77 FLD0934B PIC 9(07)V9(02) COMP-6 - VALUE 2394400.51. + VALUE 2394400.51. 77 FLD0935A PIC 9(05)V9(01) COMP-6 - VALUE 16691.2. + VALUE 16691.2. 77 FLD0935B PIC 9(10)V9(08) COMP-6 - VALUE 4853829665.64275264. + VALUE 4853829665.64275264. 77 FLD0936A PIC 9(08)V9(03) COMP-6 - VALUE 29560937.131. + VALUE 29560937.131. 77 FLD0936B PIC 9(02)V9(34) COMP-3 - VALUE 95.2998853185021421730027668672846630. + VALUE 95.2998853185021421730027668672846630. 77 FLD0937A PIC 9(02)V9(33) COMP-3 - VALUE 94.462893191714936147462822191300801. + VALUE 94.462893191714936147462822191300801. 77 FLD0937B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0938A PIC 9(09)V9(12) COMP-6 - VALUE 578242437.999430092254. + VALUE 578242437.999430092254. 77 FLD0938B PIC 9(08)V9(18) COMP-6 - VALUE 70721875.972746128802270959. + VALUE 70721875.972746128802270959. 77 FLD0939A PIC 9(10)V9(13) COMP-6 - VALUE 6084884727.3780637401330. + VALUE 6084884727.3780637401330. 77 FLD0939B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. 77 FLD0940A PIC 9(09)V9(12) COMP-6 - VALUE 577997061.609985873786. + VALUE 577997061.609985873786. 77 FLD0940B PIC 9(10)V9(08) COMP-6 - VALUE 4780052522.48498546. + VALUE 4780052522.48498546. 77 FLD0941A PIC 9(09)V9(16) COMP-3 - VALUE 670449367.9367865555107641. + VALUE 670449367.9367865555107641. 77 FLD0941B PIC 9(09)V9(04) COMP-6 - VALUE 345028332.3540. + VALUE 345028332.3540. 77 FLD0942A PIC 9(10)V9(10) COMP-3 - VALUE 5309347867.8071082121. + VALUE 5309347867.8071082121. 77 FLD0942B PIC 9(03)V9(32) COMP-3 - VALUE 922.70492697630424050458941565011627. + VALUE 922.70492697630424050458941565011627. 77 FLD0943A PIC S9(09)V9(03) COMP-3 - VALUE +323766798.919. + VALUE +323766798.919. 77 FLD0943B PIC S9(06)V9(01) COMP-3 - VALUE +203018.6. + VALUE +203018.6. 77 FLD0944A PIC 9(02)V9(34) COMP-6 - VALUE 95.7363239628727824559462078468641266. + VALUE 95.7363239628727824559462078468641266. 77 FLD0944B PIC S9(07)V9(02) COMP-3 - VALUE -2600465.21. + VALUE -2600465.21. 77 FLD0945A PIC 9(10)V9(10) COMP-3 - VALUE 5427766423.1255295934. + VALUE 5427766423.1255295934. 77 FLD0945B PIC S9(10)V9(06) COMP-3 - VALUE +4211785767.712989. + VALUE +4211785767.712989. 77 FLD0946A PIC S9(07)V9(02) COMP-3 - VALUE -2603132.30. + VALUE -2603132.30. 77 FLD0946B PIC 9(02)V9(34) COMP-3 - VALUE 96.2407519811451561686510558502050116. + VALUE 96.2407519811451561686510558502050116. 77 FLD0947A PIC 9(05)V9(27) COMP-6 - VALUE 85846.989065825540787812997223227. + VALUE 85846.989065825540787812997223227. 77 FLD0947B PIC 9(09)V9(16) COMP-3 - VALUE 671942080.3697424560141371. + VALUE 671942080.3697424560141371. 77 FLD0948A PIC 9(04) COMP-6 - VALUE 1058. + VALUE 1058. 77 FLD0948B PIC 9(07)V9(21) COMP-6 - VALUE 7582594.805549627281493485497. + VALUE 7582594.805549627281493485497. 77 FLD0949A PIC S9(10)V9(06) COMP-3 - VALUE +4307044196.647341. + VALUE +4307044196.647341. 77 FLD0949B PIC 9(10)V9(07) COMP-6 - VALUE 4670230467.6696332. + VALUE 4670230467.6696332. 77 FLD0950A PIC 9(09)V9(14) COMP-3 - VALUE 614898523.03850200954116. + VALUE 614898523.03850200954116. 77 FLD0950B PIC 9(04)V9(30) COMP-6 - VALUE 9056.465512238127679722765606129541. + VALUE 9056.465512238127679722765606129541. 77 FLD0951A PIC S9(08)V9(03) COMP-3 - VALUE +31116955.475. + VALUE +31116955.475. 77 FLD0951B PIC 9(08)V9(20) COMP-6 - VALUE 74599134.92992847894313968026. + VALUE 74599134.92992847894313968026. 77 FLD0952A PIC 9(09)V9(03) COMP-6 - VALUE 315844571.317. + VALUE 315844571.317. 77 FLD0952B PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0953A PIC 9(06) COMP-6 - VALUE 166635. + VALUE 166635. 77 FLD0953B PIC 9(10)V9(09) COMP-6 - VALUE 5187782319.462912461. + VALUE 5187782319.462912461. 77 FLD0954A PIC 9(10)V9(11) COMP-6 - VALUE 5577123049.60128579800. + VALUE 5577123049.60128579800. 77 FLD0954B PIC 9(02)V9(34) COMP-3 - VALUE 97.0603521071659591790137255884474143. + VALUE 97.0603521071659591790137255884474143. 77 FLD0955A PIC S9(08)V9(02) COMP-3 - VALUE -27357789.23. + VALUE -27357789.23. 77 FLD0955B PIC 9(06)V9(25) COMP-3 - VALUE 823687.4590304759102821208216482. + VALUE 823687.4590304759102821208216482. 77 FLD0956A PIC S9(08)V9(02) COMP-3 - VALUE -27355040.84. + VALUE -27355040.84. 77 FLD0956B PIC 9(08)V9(18) COMP-3 - VALUE 70029518.862281070479269828. + VALUE 70029518.862281070479269828. 77 FLD0957A PIC 9(09)V9(15) COMP-6 - VALUE 637627083.330792543414133. + VALUE 637627083.330792543414133. 77 FLD0957B PIC S9(04) COMP-3 - VALUE +1212. + VALUE +1212. 77 FLD0958A PIC S9(08)V9(03) COMP-3 - VALUE -29370744.150. + VALUE -29370744.150. 77 FLD0958B PIC 9(10)V9(06) COMP-6 - VALUE 4358178846.720288. + VALUE 4358178846.720288. 77 FLD0959A PIC 9(06)V9(25) COMP-6 - VALUE 827211.6833605048791255853757320. + VALUE 827211.6833605048791255853757320. 77 FLD0959B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0960A PIC 9(10)V9(11) COMP-6 - VALUE 5559976801.18206716315. + VALUE 5559976801.18206716315. 77 FLD0960B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0961A PIC 9(08)V9(19) COMP-6 - VALUE 72708740.7191407630868695832. + VALUE 72708740.7191407630868695832. 77 FLD0961B PIC S9(04) COMP-3 - VALUE +1315. + VALUE +1315. 77 FLD0962A PIC 9(02)V9(34) COMP-6 - VALUE 96.8081984946274620718043024680810049. + VALUE 96.8081984946274620718043024680810049. 77 FLD0962B PIC 9(08)V9(17) COMP-3 - VALUE 68265700.44059103725686554. + VALUE 68265700.44059103725686554. 77 FLD0963A PIC 9(01)V9(36) COMP-3 - VALUE 9.803573230667260718362854277074802666. + VALUE 9.803573230667260718362854277074802666. 77 FLD0963B PIC 9(09)V9(16) COMP-6 - VALUE 657950850.8072698935720268. + VALUE 657950850.8072698935720268. 77 FLD0964A PIC 9(09)V9(15) COMP-6 - VALUE 639504907.969730918004813. + VALUE 639504907.969730918004813. 77 FLD0964B PIC 9(09)V9(13) COMP-6 - VALUE 599568613.7680703575725. + VALUE 599568613.7680703575725. 77 FLD0965A PIC 9(05) COMP-6 - VALUE 13581. + VALUE 13581. 77 FLD0965B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0966A PIC 9(06)V9(01) COMP-6 - VALUE 189200.6. + VALUE 189200.6. 77 FLD0966B PIC 9(06)V9(01) COMP-6 - VALUE 189757.7. + VALUE 189757.7. 77 FLD0967A PIC 9(02) COMP-6 - VALUE 06. + VALUE 06. 77 FLD0967B PIC 9(09)V9(04) COMP-6 - VALUE 356045641.3147. + VALUE 356045641.3147. 77 FLD0968A PIC 9(09)V9(15) COMP-6 - VALUE 649996663.320669743058033. + VALUE 649996663.320669743058033. 77 FLD0968B PIC S9(04) COMP-3 - VALUE +1132. + VALUE +1132. 77 FLD0969A PIC S9(05) COMP-3 - VALUE -15366. + VALUE -15366. 77 FLD0969B PIC 9(09)V9(13) COMP-3 - VALUE 594539058.0989867723715. + VALUE 594539058.0989867723715. 77 FLD0970A PIC 9(09)V9(14) COMP-3 - VALUE 631417540.20798013247173. + VALUE 631417540.20798013247173. 77 FLD0970B PIC 9(02)V9(34) COMP-6 - VALUE 96.8862081091470539462306987843476235. + VALUE 96.8862081091470539462306987843476235. 77 FLD0971A PIC 9(07)V9(01) COMP-6 - VALUE 2161446.9. + VALUE 2161446.9. 77 FLD0971B PIC S9(09)V9(06) COMP-3 - VALUE +400705169.115322. + VALUE +400705169.115322. 77 FLD0972A PIC 9(09)V9(15) COMP-6 - VALUE 647710182.878484586055378. + VALUE 647710182.878484586055378. 77 FLD0972B PIC 9(05) COMP-6 - VALUE 13649. + VALUE 13649. 77 FLD0973A PIC 9(05) COMP-6 - VALUE 13817. + VALUE 13817. 77 FLD0973B PIC 9(06)V9(25) COMP-6 - VALUE 828260.5282429751358819203232997. + VALUE 828260.5282429751358819203232997. 77 FLD0974A PIC 9(04) COMP-6 - VALUE 1180. + VALUE 1180. 77 FLD0974B PIC S9(03) COMP-3 - VALUE +104. + VALUE +104. 77 FLD0975A PIC S9(02) COMP-3 - VALUE -06. + VALUE -06. 77 FLD0975B PIC 9(09)V9(03) COMP-6 - VALUE 329183580.054. + VALUE 329183580.054. 77 FLD0976A PIC S9(07)V9(01) COMP-3 - VALUE +2206144.7. + VALUE +2206144.7. 77 FLD0976B PIC 9(10)V9(09) COMP-6 - VALUE 5191401776.232426046. + VALUE 5191401776.232426046. 77 FLD0977A PIC 9(09)V9(03) COMP-6 - VALUE 327431372.704. + VALUE 327431372.704. 77 FLD0977B PIC S9(09)V9(05) COMP-3 - VALUE -393208707.80387. + VALUE -393208707.80387. 77 FLD0978A PIC 9(09)V9(16) COMP-6 - VALUE 675062190.8116747338368668. + VALUE 675062190.8116747338368668. 77 FLD0978B PIC S9(09)V9(06) COMP-3 - VALUE +411411057.685845. + VALUE +411411057.685845. 77 FLD0979A PIC 9(03)V9(32) COMP-6 - VALUE 925.33169671466619643496187563869170. + VALUE 925.33169671466619643496187563869170. 77 FLD0979B PIC 9(09)V9(05) COMP-6 - VALUE 388509802.38797. + VALUE 388509802.38797. 77 FLD0980A PIC 9(03)V9(32) COMP-6 - VALUE 935.82234581280043794748735308530740. + VALUE 935.82234581280043794748735308530740. 77 FLD0980B PIC 9(09)V9(15) COMP-6 - VALUE 647159992.565670250108667. + VALUE 647159992.565670250108667. 77 FLD0981A PIC 9(06)V9(01) COMP-6 - VALUE 195132.7. + VALUE 195132.7. 77 FLD0981B PIC S9(09)V9(04) COMP-3 - VALUE -360473610.9762. + VALUE -360473610.9762. 77 FLD0982A PIC 9(06)V9(25) COMP-6 - VALUE 816610.1728260642955703474399342. + VALUE 816610.1728260642955703474399342. 77 FLD0982B PIC S9(08)V9(03) COMP-3 - VALUE +31469845.616. + VALUE +31469845.616. 77 FLD0983A PIC 9(10)V9(09) COMP-3 - VALUE 5114754992.436914005. + VALUE 5114754992.436914005. 77 FLD0983B PIC 9(02)V9(34) COMP-6 - VALUE 95.8147071945383510538363225350622087. + VALUE 95.8147071945383510538363225350622087. 77 FLD0984A PIC 9(09)V9(15) COMP-3 - VALUE 632949921.330981046807551. + VALUE 632949921.330981046807551. 77 FLD0984B PIC 9(10)V9(09) COMP-6 - VALUE 5090793805.153389639. + VALUE 5090793805.153389639. 77 FLD0985A PIC 9(10)V9(06) COMP-6 - VALUE 4296662473.303992. + VALUE 4296662473.303992. 77 FLD0985B PIC 9(05)V9(28) COMP-3 - VALUE 87137.5808353749947698929645412135. + VALUE 87137.5808353749947698929645412135. 77 FLD0986A PIC 9(05) COMP-6 - VALUE 14588. + VALUE 14588. 77 FLD0986B PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0987A PIC 9(01)V9(36) COMP-3 - VALUE 9.834402345123109956404050535638816654. + VALUE 9.834402345123109956404050535638816654. 77 FLD0987B PIC 9(06)V9(26) COMP-3 - VALUE 842525.10302045313661523096016026. + VALUE 842525.10302045313661523096016026. 77 FLD0988A PIC 9(01) COMP-6 - VALUE 0. + VALUE 0. 77 FLD0988B PIC S9(05)V9(01) COMP-3 - VALUE -18152.0. + VALUE -18152.0. 77 FLD0989A PIC S9(04) COMP-3 - VALUE +1235. + VALUE +1235. 77 FLD0989B PIC 9(09)V9(13) COMP-3 - VALUE 593212782.9792923634499. + VALUE 593212782.9792923634499. 77 FLD0990A PIC 9(07)V9(22) COMP-3 - VALUE 7806084.0781040319313888176111. + VALUE 7806084.0781040319313888176111. 77 FLD0990B PIC 9(06)V9(01) COMP-6 - VALUE 208986.1. + VALUE 208986.1. 77 FLD0991A PIC 9(06)V9(24) COMP-6 - VALUE 807774.663029880435338725419569. + VALUE 807774.663029880435338725419569. 77 FLD0991B PIC S9(09)V9(06) COMP-3 - VALUE +403465254.324070. + VALUE +403465254.324070. 77 FLD0992A PIC 9(07)V9(22) COMP-6 - VALUE 7784108.2583169551867285917978. + VALUE 7784108.2583169551867285917978. 77 FLD0992B PIC 9(04)V9(29) COMP-3 - VALUE 8920.19846678347883006665597349638. + VALUE 8920.19846678347883006665597349638. 77 FLD0993A PIC 9(08)V9(20) COMP-6 - VALUE 74534466.64416291111976420324. + VALUE 74534466.64416291111976420324. 77 FLD0993B PIC S9(04) COMP-3 - VALUE +1132. + VALUE +1132. 77 FLD0994A PIC 9(06)V9(24) COMP-6 - VALUE 815107.307501011568717785849003. + VALUE 815107.307501011568717785849003. 77 FLD0994B PIC S9(10)V9(08) COMP-3 - VALUE -4847118976.22432053. + VALUE -4847118976.22432053. 77 FLD0995A PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0995B PIC 9(06)V9(01) COMP-6 - VALUE 188825.8. + VALUE 188825.8. 77 FLD0996A PIC 9(09)V9(14) COMP-6 - VALUE 619241405.61761309431432. + VALUE 619241405.61761309431432. 77 FLD0996B PIC 9(09)V9(16) COMP-6 - VALUE 669751940.2443259384227758. + VALUE 669751940.2443259384227758. 77 FLD0997A PIC 9(10)V9(09) COMP-3 - VALUE 5006446394.611311356. + VALUE 5006446394.611311356. 77 FLD0997B PIC 9(10)V9(09) COMP-3 - VALUE 5005353152.147143935. + VALUE 5005353152.147143935. 77 FLD0998A PIC 9(09)V9(13) COMP-6 - VALUE 598229443.4201559374386. + VALUE 598229443.4201559374386. 77 FLD0998B PIC S9(01) COMP-3 - VALUE +0. + VALUE +0. 77 FLD0999A PIC S9(03) COMP-3 - VALUE -081. + VALUE -081. 77 FLD0999B PIC S9(01) COMP-3 - VALUE -0. + VALUE -0. * RESULTS-AREA. 78 XPC-FLD0500B VALUE X'0709'. 78 XPC-FLD0501B - VALUE X'028100420410755844180527'. + VALUE X'062809334873677369337485'. 78 XPC-FLD0502B VALUE X'078931626286150020034995122841'. 78 XPC-FLD0503B @@ -36996,7 +36996,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0532B VALUE X'6D'. 78 XPC-FLD0533B - VALUE X'0014'. + VALUE X'0086'. 78 XPC-FLD0534B VALUE X'4796286047627412578F'. 78 XPC-FLD0535B @@ -37044,7 +37044,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0556B VALUE X'0568555321722934526833'. 78 XPC-FLD0557B - VALUE X'90340C'. + VALUE X'13329C'. 78 XPC-FLD0558B VALUE X'06209454'. 78 XPC-FLD0559B @@ -37060,7 +37060,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0564B VALUE X'070810880902875461543491615817183629'. 78 XPC-FLD0565B - VALUE X'02180881'. + VALUE X'02090887'. 78 XPC-FLD0566B VALUE X'134200212625'. 78 XPC-FLD0567B @@ -37108,7 +37108,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0588B VALUE X'06771495276462448727205764043901582F'. 78 XPC-FLD0589B - VALUE X'03292C'. + VALUE X'01219C'. 78 XPC-FLD0590B VALUE X'1062119D'. 78 XPC-FLD0591B @@ -37172,7 +37172,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0620B VALUE X'583959822349086421500175'. 78 XPC-FLD0621B - VALUE X'734334021823122911598602513F'. + VALUE X'734243671686218957184166811F'. 78 XPC-FLD0622B VALUE X'9542421746848D'. 78 XPC-FLD0623B @@ -37188,7 +37188,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0628B VALUE X'029681727730'. 78 XPC-FLD0629B - VALUE X'880171084163677411860149391031882F'. + VALUE X'870915644969416202769707524566911F'. 78 XPC-FLD0630B VALUE X'0174519095249753304734'. 78 XPC-FLD0631B @@ -37204,7 +37204,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0636B VALUE X'010350'. 78 XPC-FLD0637B - VALUE X'053791487329715233167F'. + VALUE X'053056785456603405837F'. 78 XPC-FLD0638B VALUE X'9300997013279628244930563595546F'. 78 XPC-FLD0639B @@ -37220,7 +37220,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0644B VALUE X'092997460492260109532480782945640385'. 78 XPC-FLD0645B - VALUE X'0246821544'. + VALUE X'0246730234'. 78 XPC-FLD0646B VALUE X'5883231932131506547457'. 78 XPC-FLD0647B @@ -37236,7 +37236,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0652B VALUE X'020927047C'. 78 XPC-FLD0653B - VALUE X'398302'. + VALUE X'165087'. 78 XPC-FLD0654B VALUE X'1152390677'. 78 XPC-FLD0655B @@ -37252,7 +37252,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0660B VALUE X'27872D'. 78 XPC-FLD0661B - VALUE X'570540954971062823984F'. + VALUE X'570540945315247127744F'. 78 XPC-FLD0662B VALUE X'06678282186476681732324323'. 78 XPC-FLD0663B @@ -37268,7 +37268,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0668B VALUE X'5144628458672427461F'. 78 XPC-FLD0669B - VALUE X'0395936640779813'. + VALUE X'0395936639786081'. 78 XPC-FLD0670B VALUE X'0164380926561097741789296833303524182F'. 78 XPC-FLD0671B @@ -37316,7 +37316,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0692B VALUE X'278067587806645121846764'. 78 XPC-FLD0693B - VALUE X'9C'. + VALUE X'0C'. 78 XPC-FLD0694B VALUE X'06'. 78 XPC-FLD0695B @@ -37364,7 +37364,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0716B VALUE X'04094336916239737930141018296126276F'. 78 XPC-FLD0717B - VALUE X'7657108845718485268250219632'. + VALUE X'7570171861371541854879296806'. 78 XPC-FLD0718B VALUE X'4283258317648062'. 78 XPC-FLD0719B @@ -37380,7 +37380,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0724B VALUE X'04934011851187240393'. 78 XPC-FLD0725B - VALUE X'04444137342530902C'. + VALUE X'04444128191361023C'. 78 XPC-FLD0726B VALUE X'401820868675800C'. 78 XPC-FLD0727B @@ -37444,7 +37444,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0756B VALUE X'10424D'. 78 XPC-FLD0757B - VALUE X'389641442C'. + VALUE X'242943831C'. 78 XPC-FLD0758B VALUE X'0455928D'. 78 XPC-FLD0759B @@ -37460,7 +37460,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0764B VALUE X'055560951487484800'. 78 XPC-FLD0765B - VALUE X'00067C'. + VALUE X'01212C'. 78 XPC-FLD0766B VALUE X'22949432'. 78 XPC-FLD0767B @@ -37492,7 +37492,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0780B VALUE X'4184481254630997580198368268612F'. 78 XPC-FLD0781B - VALUE X'096874455399'. + VALUE X'029720911669'. 78 XPC-FLD0782B VALUE X'974841984908992382763415207591606305'. 78 XPC-FLD0783B @@ -37556,7 +37556,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0812B VALUE X'5678497418'. 78 XPC-FLD0813B - VALUE X'52611526444C'. + VALUE X'29113136400D'. 78 XPC-FLD0814B VALUE X'07525119595496631362479433846F'. 78 XPC-FLD0815B @@ -37572,7 +37572,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0820B VALUE X'956537139953218984445015848905313760'. 78 XPC-FLD0821B - VALUE X'016692042005410C'. + VALUE X'038365653639422D'. 78 XPC-FLD0822B VALUE X'2945'. 78 XPC-FLD0823B @@ -37604,7 +37604,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0836B VALUE X'01479247899592904941896F'. 78 XPC-FLD0837B - VALUE X'29137776510D'. + VALUE X'29146758519D'. 78 XPC-FLD0838B VALUE X'54394205787057270376334726969F'. 78 XPC-FLD0839B @@ -37652,7 +37652,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0860B VALUE X'310782983915'. 78 XPC-FLD0861B - VALUE X'8870'. + VALUE X'1091'. 78 XPC-FLD0862B VALUE X'0568978369365978243754'. 78 XPC-FLD0863B @@ -37684,7 +37684,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0876B VALUE X'0792823887607293276147402139031F'. 78 XPC-FLD0877B - VALUE X'0721900468299383535342172F'. + VALUE X'0651975862412979334514773F'. 78 XPC-FLD0878B VALUE X'242827678838084315415812843661207F'. 78 XPC-FLD0879B @@ -37716,7 +37716,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0892B VALUE X'0556'. 78 XPC-FLD0893B - VALUE X'90'. + VALUE X'07'. 78 XPC-FLD0894B VALUE X'654309128000748152942379'. 78 XPC-FLD0895B @@ -37796,7 +37796,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0932B VALUE X'00116711468219923287'. 78 XPC-FLD0933B - VALUE X'336212612034'. + VALUE X'328435728864'. 78 XPC-FLD0934B VALUE X'0237750091'. 78 XPC-FLD0935B @@ -37812,7 +37812,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0940B VALUE X'420205546087499959'. 78 XPC-FLD0941B - VALUE X'00154777002907'. + VALUE X'03450283323540'. 78 XPC-FLD0942B VALUE X'94510218123579575949541058434988373F'. 78 XPC-FLD0943B @@ -37844,7 +37844,7 @@ AT_DATA([prog2.cob], [ 78 XPC-FLD0956B VALUE X'097384559702281070479269828F'. 78 XPC-FLD0957B - VALUE X'08295C'. + VALUE X'01212C'. 78 XPC-FLD0958B VALUE X'4387549590870288'. 78 XPC-FLD0959B @@ -38384,7 +38384,9 @@ AT_DATA([prog2.cob], [ SUBTRACT FLD0716A FROM FLD0716B ROUNDED MODE IS NEAREST-TOWARD-ZERO . ADD FLD0717A TO FLD0717B - ROUNDED MODE IS PROHIBITED . + ROUNDED MODE IS PROHIBITED + ON SIZE ERROR CONTINUE + NOT ON SIZE ERROR DISPLAY 'MISSING EC-SIZE FLD0717B'. SUBTRACT FLD0718A FROM FLD0718B ROUNDED MODE IS TOWARD-GREATER . ADD FLD0719A TO FLD0719B @@ -38416,7 +38418,8 @@ AT_DATA([prog2.cob], [ SUBTRACT FLD0732A FROM FLD0732B ROUNDED MODE IS NEAREST-TOWARD-ZERO . ADD FLD0733A TO FLD0733B - ROUNDED MODE IS PROHIBITED . + ROUNDED MODE IS PROHIBITED + ON SIZE ERROR DISPLAY 'UNEXPECTED EC-SIZE FLD0733B'. SUBTRACT FLD0734A FROM FLD0734B ROUNDED MODE IS TOWARD-GREATER . ADD FLD0735A TO FLD0735B diff --git a/tests/testsuite.src/run_fundamental.at b/tests/testsuite.src/run_fundamental.at index a488247b..e72b1473 100644 --- a/tests/testsuite.src/run_fundamental.at +++ b/tests/testsuite.src/run_fundamental.at @@ -6024,6 +6024,61 @@ AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) AT_CLEANUP +AT_SETUP([Expression numeric vs. DISPLAY]) +AT_KEYWORDS([expression conditional]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + ****************************************************************** + WORKING-STORAGE SECTION. + 01 FLDX50 PIC X(50) VALUE 'X50'. + 01 FLDX10J PIC X(10) VALUE '0123'. + 01 FLDNUMD PIC S9(3) VALUE -123. + 01 FLDNUMD4 PIC S9(4) VALUE -123. + 01 FLDNUMB PIC S9v99 VALUE -1.23 USAGE BINARY. + 01 FILLER USAGE BINARY-INT VALUE 0. + 88 DO-DISP VALUE 0. + 88 NO-DISP VALUE 1. + REPLACE ==DISPLAY== BY ==IF DO-DISP DISPLAY==. + + PROCEDURE DIVISION. + MAIN-LINE. + + *> Test with DISPLAY on error + PERFORM DO-CHECK + >> IF CHECK-PERF IS DEFINED + SET NO-DISP TO TRUE + *> minimal side-test for performance comparisons + PERFORM DO-CHECK 20000 TIMES + >> END-IF + GOBACK. + + DO-CHECK. + MOVE "123" TO FLDX50 + IF 123 = FLDX50 CONTINUE + ELSE DISPLAY '! 123 <> "123"'. + IF FLDNUMD = FLDNUMD4 CONTINUE + ELSE DISPLAY '! 123 <> 0123'. + IF FLDX50 = FLDNUMD4 DISPLAY '! "123" = 0123' + ELSE CONTINUE. + IF FLDNUMD = FLDX50 CONTINUE + ELSE DISPLAY '!-123 DISP <> "123"'. + IF FLDX50 = FLDNUMB CONTINUE + ELSE DISPLAY '!-1.23 BIN <> "123"'. + IF FLDX10J = FLDNUMD4 CONTINUE + ELSE DISPLAY '! "0123" J <> "0123"'. +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CHECK([$COMPILE prog.cob -Wno-constant-expression -fno-constant-folding -fno-fast-compare], [0], [], []) + +AT_CLEANUP + + AT_SETUP([Abbreviated Expressions]) AT_KEYWORDS([expression conditional]) diff --git a/tests/testsuite.src/run_manual_screen.at b/tests/testsuite.src/run_manual_screen.at index c872c172..99ddf889 100644 --- a/tests/testsuite.src/run_manual_screen.at +++ b/tests/testsuite.src/run_manual_screen.at @@ -1,4 +1,4 @@ -## Copyright (C) 2014-2018,2020-2022 Free Software Foundation, Inc. +## Copyright (C) 2014-2018,2020-2023 Free Software Foundation, Inc. ## Written by Edward Hart, Simon Sobisch ## ## This file is part of GnuCOBOL. @@ -815,8 +815,9 @@ MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) AT_CLEANUP -AT_SETUP([BACKGROUND- / FOREGROUND-COLOUR]) -AT_KEYWORDS([BACKGROUND-COLOR BACKGROUND-COLOUR FOREGROUND-COLOR COLOR COLOUR]) +AT_SETUP([SCREEN BACKGROUND- / FOREGROUND-COLOUR]) +AT_KEYWORDS([BACKGROUND-COLOR BACKGROUND-COLOUR FOREGROUND-COLOR +COLOR COLOUR HIGHLIGHT BLINK]) AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) @@ -921,6 +922,413 @@ MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) AT_CLEANUP +AT_SETUP([SCREEN BACKGROUND- / FOREGROUND-COLOUR via COLOR]) +AT_KEYWORDS([BACKGROUND-COLOR BACKGROUND-COLOUR FOREGROUND-COLOR +COLOR COLOUR REVERSED]) + +# Currently not implemented +AT_XFAIL_IF([true]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 dummy PIC X(10). + 01 success-flag PIC X. + 88 success VALUE 'Y', 'y'. + 77 CBLACK PIC 9(05) VALUE 1. + 77 CBLUE PIC 9(05) VALUE 2. + 77 CGREEN PIC 9(05) VALUE 3. + 77 CCYAN PIC 9(05) VALUE 4. + 77 CRED PIC 9(05) VALUE 5. + 77 CMAGENTA PIC 9(05) VALUE 6. + 77 CYELLOW PIC 9(05) VALUE 7. + 77 CWHITE PIC 9(05) VALUE 8. + + SCREEN SECTION. + 01 scr. + 03 PIC X(80) + VALUE 'Enter "y" if the text below matches the colour ' + & 'of the background/text.'. + 03 LINE + 1, COL 1, PIC X(80) + VALUE 'Note: the black text is on white background/the ' + & 'white background has black text'. + 03 LINE + 1, COL 1, PIC X(80) + VALUE 'to make the text visible.'. + + 03 LINE + 1. + 05 COL 1, PIC X(08) VALUE 'Black' COLOR CBLACK. + 05 COL + 2, PIC X(08) VALUE 'Blue' COLOR CBLUE. + 05 COL + 2, PIC X(08) VALUE 'Green' COLOR CGREEN. + 05 COL + 2, PIC X(08) VALUE 'Cyan' COLOR CCYAN. + 05 COL + 2, PIC X(08) VALUE 'Red' COLOR CRED. + 05 COL + 2, PIC X(08) VALUE 'Magenta' COLOR CMAGENTA. + 05 COL + 2, PIC X(15) VALUE 'Brown/Yellow' + COLOR CYELLOW. + 05 COL + 2, PIC X(08) VALUE 'White' COLOR CWHITE. + + 01 scr2. + 03 LINE 5. + 05 COL 1, PIC X(08) VALUE 'Black' BACKGROUND-COLOR 0 + FOREGROUND-COLOR 7. + 05 COL + 2, PIC X(08) VALUE 'Blue' BACKGROUND-COLOR 1. + 05 COL + 2, PIC X(08) VALUE 'Green' BACKGROUND-COLOR 2. + 05 COL + 2, PIC X(08) VALUE 'Cyan' BACKGROUND-COLOR 3. + 05 COL + 2, PIC X(08) VALUE 'Red' BACKGROUND-COLOR 4. + 05 COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 5. + 05 COL + 2, PIC X(15) VALUE 'Brown/Yellow' + BACKGROUND-COLOR 6. + 05 COL + 2, PIC X(08) VALUE 'White' BACKGROUND-COLOR 7 + FOREGROUND-COLOR 0. + + 03 success-field LINE + 2, COL 1, PIC X, REQUIRED, + TO success-flag FROM 'Y'. + + PROCEDURE DIVISION. + ADD 256 TO CBLACK + DISPLAY scr + ADD 1024 TO CBLACK, CBLUE, CGREEN, CCYAN, + CRED, CMAGENTA, CYELLOW, CWHITE + DISPLAY scr2 + ACCEPT scr + + IF success AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([field BACKGROUND- / FOREGROUND-COLOUR]) +AT_KEYWORDS([BACKGROUND-COLOR BACKGROUND-COLOUR FOREGROUND-COLOR +COLOR COLOUR HIGHLIGHT BLINK]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 dummy PIC X(10). + 01 success-flag PIC X. + 88 success VALUE 'Y', 'y'. + + SCREEN SECTION. + 01 scr. + 03 PIC X(80) + VALUE 'Enter "y" if the text below matches the colour ' + & 'of the background/text.'. + 03 LINE + 1, COL 1, PIC X(80) + VALUE 'Note: the black text is on white background/the ' + & 'white background has black text'. + 03 LINE + 1, COL 1, PIC X(80) + VALUE 'to make the text visible.'. + + 03 LINE + 1. + 05 COL 1, PIC X(08) VALUE 'Black' FOREGROUND-COLOR 0 + BACKGROUND-COLOR 7. + 05 COL + 2, PIC X(08) VALUE 'Blue' FOREGROUND-COLOR 1. + 05 COL + 2, PIC X(08) VALUE 'Green' FOREGROUND-COLOR 2. + 05 COL + 2, PIC X(08) VALUE 'Cyan' FOREGROUND-COLOR 3. + 05 COL + 2, PIC X(08) VALUE 'Red' FOREGROUND-COLOR 4. + 05 COL + 2, PIC X(08) VALUE 'Magenta' FOREGROUND-COLOR 5. + 05 COL + 2, PIC X(15) VALUE 'Brown/Yellow' + FOREGROUND-COLOR 6. + 05 COL + 2, PIC X(08) VALUE 'White' FOREGROUND-COLOR 7. + + 03 LINE + 1. + 05 COL 1, PIC X(08) VALUE 'Black' BACKGROUND-COLOR 0 + FOREGROUND-COLOR 7. + 05 COL + 2, PIC X(08) VALUE 'Blue' BACKGROUND-COLOR 1. + 05 COL + 2, PIC X(08) VALUE 'Green' BACKGROUND-COLOR 2. + 05 COL + 2, PIC X(08) VALUE 'Cyan' BACKGROUND-COLOR 3. + 05 COL + 2, PIC X(08) VALUE 'Red' BACKGROUND-COLOR 4. + 05 COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 5. + 05 COL + 2, PIC X(15) VALUE 'Brown/Yellow' + BACKGROUND-COLOR 6. + 05 COL + 2, PIC X(08) VALUE 'White' BACKGROUND-COLOR 7 + FOREGROUND-COLOR 0. + + 03 LINE + 2. + 03 PIC X(80) + VALUE 'The following is the same as above, ' + & 'with "extended" attributes set;'. + 03 LINE + 1, COL 1, PIC X(80) + VALUE 'this should have the same effect as otherwise ' + & 'highlighted for the first line'. + 03 LINE + 1, COL 1, PIC X(80) + VALUE 'and blinking for the second one.'. + + 03 LINE + 1. + 05 COL 1, PIC X(08) VALUE 'Black' FOREGROUND-COLOR 8 + BACKGROUND-COLOR 0. + 05 COL + 2, PIC X(08) VALUE 'Blue' FOREGROUND-COLOR 9. + 05 COL + 2, PIC X(08) VALUE 'Green' FOREGROUND-COLOR 10. + 05 COL + 2, PIC X(08) VALUE 'Cyan' FOREGROUND-COLOR 11. + 05 COL + 2, PIC X(08) VALUE 'Red' FOREGROUND-COLOR 12. + 05 COL + 2, PIC X(08) VALUE 'Magenta' FOREGROUND-COLOR 13. + 05 COL + 2, PIC X(15) VALUE 'Brown/Yellow' + FOREGROUND-COLOR 14. + 05 COL + 2, PIC X(08) VALUE 'White' FOREGROUND-COLOR 15. + + 03 LINE + 1. + 05 COL 1, PIC X(08) VALUE 'Black' BACKGROUND-COLOR 8 + FOREGROUND-COLOR 15. + 05 COL + 2, PIC X(08) VALUE 'Blue' BACKGROUND-COLOR 9. + 05 COL + 2, PIC X(08) VALUE 'Green' BACKGROUND-COLOR 10. + 05 COL + 2, PIC X(08) VALUE 'Cyan' BACKGROUND-COLOR 11. + 05 COL + 2, PIC X(08) VALUE 'Red' BACKGROUND-COLOR 12. + 05 COL + 2, PIC X(08) VALUE 'Magenta' BACKGROUND-COLOR 13. + 05 COL + 2, PIC X(15) VALUE 'Brown/Yellow' + BACKGROUND-COLOR 14. + 05 COL + 2, PIC X(08) VALUE 'White' BACKGROUND-COLOR 15 + FOREGROUND-COLOR 8. + + 03 success-field LINE + 2, COL 1, PIC X, REQUIRED, + TO success-flag FROM 'Y'. + + PROCEDURE DIVISION. + DISPLAY scr + ACCEPT scr + + IF success AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([field BACKGROUND- / FOREGROUND-COLOUR via COLOR]) +AT_KEYWORDS([BACKGROUND-COLOR BACKGROUND-COLOUR FOREGROUND-COLOR +COLOR COLOUR REVERSED HIGHLIGHT BLINK]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + + 77 CBLACK PIC 9(05) COMP-5 VALUE 1. + 77 CBLUE PIC 9(05) COMP-5 VALUE 2. + 77 CGREEN PIC 9(05) COMP-5 VALUE 3. + 77 CCYAN PIC 9(05) COMP-5 VALUE 4. + 77 CRED PIC 9(05) COMP-5 VALUE 5. + 77 CMAGENTA PIC 9(05) COMP-5 VALUE 6. + 77 CYELLOW PIC 9(05) COMP-5 VALUE 7. + 77 CWHITE PIC 9(05) COMP-5 VALUE 8. + + 77 LIN PIC 99 COMP-5. + + 01 scr1 PIC X(80) + VALUE 'Enter "y" if the text below matches the colour ' + & 'of the background/text.'. + 01 scr2 PIC X(80) + VALUE 'Note: the black text is on white background/the ' + & 'white background has black text'. + 01 scr3 PIC X(80) + VALUE 'to make the text visible.'. + 01 scr8 PIC X(80) + VALUE 'following lines should be identical but ' + & 'highlighted for the first line'. + 01 scr9 PIC X(80) + VALUE 'and blinking for the second one.'. + + 01 scrblack PIC X(08) VALUE 'Black'. + 01 scrblue PIC X(08) VALUE 'Blue'. + 01 scrgreen PIC X(08) VALUE 'Green'. + 01 scrcyan PIC X(08) VALUE 'Cyan'. + 01 scrred PIC X(08) VALUE 'Red'. + 01 scrmaggy PIC X(08) VALUE 'Magenta'. + 01 scryell PIC X(14) VALUE 'Brown/Yellow'. + 01 scrwhite PIC X(08) VALUE 'White'. + + PROCEDURE DIVISION. + testme. + ADD 256 TO CBLACK + DISPLAY scr1 AT 0102 + DISPLAY scr2 AT 0202 + DISPLAY scr3 AT 0303 + MOVE 5 TO LIN + PERFORM dspcol + ADD 1024 TO CBLACK, CBLUE, CGREEN, CCYAN, + CRED, CMAGENTA, CYELLOW, CWHITE + MOVE 6 TO LIN + PERFORM dspcol + SUBTRACT 1024 FROM CBLACK, CBLUE, CGREEN, CCYAN, + CRED, CMAGENTA, CYELLOW, CWHITE + * + DISPLAY scr8 AT 0802 + DISPLAY scr9 AT 0903 + ADD 4096 TO CBLACK, CBLUE, CGREEN, CCYAN, + CRED, CMAGENTA, CYELLOW, CWHITE + MOVE 11 TO LIN + PERFORM dspcol + SUBTRACT 4096 FROM CBLACK, CBLUE, CGREEN, CCYAN, + CRED, CMAGENTA, CYELLOW, CWHITE + ADD 1024, 16384 TO CBLACK, CBLUE, CGREEN, CCYAN, + CRED, CMAGENTA, CYELLOW, CWHITE + MOVE 12 TO LIN + PERFORM dspcol + * + ACCEPT success-flag AT 1401 UPDATE REQUIRED + + IF success AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1. + + dspcol. + DISPLAY scrblack LINE LIN COL 1, COLOR CBLACK. + DISPLAY scrblue LINE LIN COL 11, COLOR CBLUE. + DISPLAY scrgreen LINE LIN COL 21, COLOR CGREEN. + DISPLAY scrcyan LINE LIN COL 31, COLOR CCYAN. + DISPLAY scrred LINE LIN COL 41, COLOR CRED. + DISPLAY scrmaggy LINE LIN COL 51, COLOR CMAGENTA. + DISPLAY scryell LINE LIN COL 61, COLOR CYELLOW. + DISPLAY scrwhite LINE LIN COL 77, COLOR CWHITE. +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([field BACKGROUND- / FOREGROUND-COLOUR via CONTROL]) +AT_KEYWORDS([BACKGROUND-COLOR BACKGROUND-COLOUR FOREGROUND-COLOR +COLOR COLOUR REVERSED HIGHLIGHT BLINK]) + +# Currently unfinished in libcob only +AT_XFAIL_IF([true]) + + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + + * ACU: "=", names only + 77 CBLACK PIC X(99) VALUE "FGCOLOR=BLACK, " + & "BGCOLOR=WHITE,". + 77 CBLUE PIC X(99) VALUE "FGCOLOR=BLUE , " + & "BGCOLOR=BLACK,". + * MF: "IS" or "=" or " ", also extended color numbers + 77 CGREEN PIC X(99) VALUE "FGCOLOR IS GREEN, " + & "BGCOLOR BLACK,". + 77 CCYAN PIC X(99) VALUE "FGCOLOR =CYAN, " + & "BGCOLOR= BLACK, ". + 77 CRED PIC X(99) VALUE "FGCOLOR=RED, " + & "BGCOLOR=BLACK, ". + 77 CMAGENTA PIC X(99) VALUE "FGCOLOR=MAGENTA, " + & "BGCOLOR=BLACK,". + 77 CYELLOW PIC X(99) VALUE "FGCOLOR = 6, " + & "BGCOLOR=BLACK,". + 77 CWHITE PIC X(99) VALUE "FGCOLOR=WHITE, " + & "BGCOLOR=BLACK, ". + + 77 LIN PIC 99 COMP-5. + + 01 scr1 PIC X(80) + VALUE 'Enter "y" if the text below matches the colour ' + & 'of the background/text.'. + 01 scr2 PIC X(80) + VALUE 'Note: the black text is on white background/the ' + & 'white background has black text'. + 01 scr3 PIC X(80) + VALUE 'to make the text visible.'. + 01 scr8 PIC X(80) + VALUE 'following lines should be identical but ' + & 'highlighted for the first line'. + 01 scr9 PIC X(80) + VALUE 'and blinking for the second one.'. + + 01 scrblack PIC X(08) VALUE 'Black'. + 01 scrblue PIC X(08) VALUE 'Blue'. + 01 scrgreen PIC X(08) VALUE 'Green'. + 01 scrcyan PIC X(08) VALUE 'Cyan'. + 01 scrred PIC X(08) VALUE 'Red'. + 01 scrmaggy PIC X(08) VALUE 'Magenta'. + 01 scryell PIC X(14) VALUE 'Brown/Yellow'. + 01 scrwhite PIC X(08) VALUE 'White'. + + PROCEDURE DIVISION. + testme. + DISPLAY scr1 AT 0102 + DISPLAY scr2 AT 0202 + DISPLAY scr3 AT 0303 + MOVE 5 TO LIN + PERFORM dspcol + MOVE "REVERSE," TO + CBLACK (40:), CBLUE (40:), CGREEN (40:), CCYAN (40:), + CRED (40:), CMAGENTA (40:), CYELLOW (40:), CWHITE (40:) + MOVE 6 TO LIN + PERFORM dspcol + * + INSPECT CRED REPLACING ALL "=" BY " " + DISPLAY scr8 AT 0802 + DISPLAY scr9 AT 0903 + MOVE "HIGHLIGHT,NO REVERSE" TO + CBLACK (50:), CBLUE (50:), CGREEN (50:), CCYAN (50:), + CRED (50:), CMAGENTA (50:), CYELLOW (50:), CWHITE (50:) + MOVE 11 TO LIN + PERFORM dspcol + MOVE "NO HIGH, BLINK" TO + CBLACK (60:), CBLUE (60:), CGREEN (60:), CCYAN (60:), + CRED (60:), CMAGENTA (60:), CYELLOW (60:), CWHITE (60:) + MOVE 12 TO LIN + PERFORM dspcol + * + ACCEPT success-flag AT 1401 UPDATE REQUIRED + + IF success AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1. + + dspcol. + DISPLAY scrblack LINE LIN COL 1, CONTROL CBLACK. + DISPLAY scrblue LINE LIN COL 11, CONTROL CBLUE. + DISPLAY scrgreen LINE LIN COL 21, CONTROL CGREEN. + DISPLAY scrcyan LINE LIN COL 31, CONTROL CCYAN. + DISPLAY scrred LINE LIN COL 41, CONTROL CRED. + DISPLAY scrmaggy LINE LIN COL 51, CONTROL CMAGENTA. + DISPLAY scryell LINE LIN COL 61, CONTROL CYELLOW. + DISPLAY scrwhite LINE LIN COL 77, CONTROL CWHITE. +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], [ignore]) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + AT_SETUP([BEEP]) AT_KEYWORDS([BELL FLASH]) @@ -1845,6 +2253,357 @@ MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) AT_CLEANUP +AT_SETUP([SPECIAL-NAMES CURSOR phrase 6-digit with field]) +AT_KEYWORDS([position ACCEPT]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SPECIAL-NAMES. + CURSOR IS cur-pos. + DATA DIVISION. + WORKING-STORAGE SECTION. + 77 cur-pos pic 9(06). + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(20). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the 'C'" + LINE 1 COLUMN 1. + DISPLAY "(third column) below, then position it at the" + LINE 2 COLUMN 1. + DISPLAY "'E' (fifth column) and press ENTER." + LINE 3 COLUMN 1. + + MOVE "ABCDEFG " TO WS-X-20. + MOVE 005003 TO cur-pos. + ACCEPT WS-X-20 + LINE 5 COLUMN 1 + WITH + AUTO-SKIP + SIZE 10 + UPDATE. + + IF cur-pos = 005005 AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([SPECIAL-NAMES CURSOR phrase 4-digit with field]) +AT_KEYWORDS([position ACCEPT]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SPECIAL-NAMES. + CURSOR IS cur-pos. + DATA DIVISION. + WORKING-STORAGE SECTION. + 77 cur-pos pic 9(04). + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(20). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the 'C'" + LINE 1 COLUMN 1. + DISPLAY "(third column) below, then position it at the" + LINE 2 COLUMN 1. + DISPLAY "'E' (fifth column) and press ENTER." + LINE 3 COLUMN 1. + + MOVE "ABCDEFG " TO WS-X-20. + MOVE 0503 TO cur-pos. + ACCEPT WS-X-20 + LINE 5 COLUMN 1 + WITH + AUTO-SKIP + SIZE 10 + UPDATE. + + IF cur-pos = 0505 AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ACCEPT field WITH CURSOR data-item]) +AT_KEYWORDS([position]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 77 cur-pos pic 9(04). + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(20). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the 'C'" + LINE 1 COLUMN 1. + DISPLAY "(third column in field) below, then position it at" + LINE 2 COLUMN 1. + DISPLAY "the 'E' (fifth column) and press ENTER." + LINE 3 COLUMN 1. + + MOVE "ABCDEFG " TO WS-X-20. + MOVE 0003 TO cur-pos. + ACCEPT WS-X-20 + LINE 5 COLUMN 3 + WITH + AUTO-SKIP + SIZE 10 + CURSOR cur-pos + UPDATE. + + IF cur-pos = 0005 AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ACCEPT field WITH CURSOR size overflow]) +AT_KEYWORDS([position]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 77 cur-pos pic 9(04). + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(10). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the last" + LINE 1 COLUMN 1. + DISPLAY "column in the field below, then position it at" + LINE 2 COLUMN 1. + DISPLAY "the 'C' (third column) and press ENTER." + LINE 3 COLUMN 1. + + MOVE "ABCDEFGHIJ" TO WS-X-20. + MOVE 0012 TO cur-pos. + ACCEPT WS-X-20 + LINE 5 COLUMN 3 + WITH + AUTO-SKIP + SIZE 10 + CURSOR cur-pos + UPDATE. + + IF cur-pos = 0003 AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ACCEPT field WITH CURSOR data overflow I]) +AT_KEYWORDS([position]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 77 cur-pos pic 9(04). + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(20). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the 'E'" + LINE 1 COLUMN 1. + DISPLAY "(fifth column in field) below, then position it at" + LINE 2 COLUMN 1. + DISPLAY "the 'C' (third column) and press ENTER." + LINE 3 COLUMN 1. + + MOVE "ABCDE " TO WS-X-20. + MOVE 0008 TO cur-pos. + ACCEPT WS-X-20 + LINE 5 COLUMN 3 + WITH + AUTO-SKIP + SIZE 10 + CURSOR cur-pos + UPDATE. + + IF cur-pos = 0003 AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ACCEPT field WITH CURSOR data overflow II]) +AT_KEYWORDS([position UNDERLINE]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 77 cur-pos pic 9(04). + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(20). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the first" + LINE 1 COLUMN 1. + DISPLAY "column in the field below and it is empty, then" + LINE 2 COLUMN 1. + DISPLAY "enter 'AB', position after the 'B' and press ENTER." + LINE 3 COLUMN 1. + + MOVE "ABCDE " TO WS-X-20. + MOVE 0008 TO cur-pos. + ACCEPT WS-X-20 + LINE 5 COLUMN 3 + WITH + SIZE 10 + UNDERLINE + CURSOR cur-pos. + + IF cur-pos = 0003 AND COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + +AT_SETUP([ACCEPT field WITH CURSOR literal]) +AT_KEYWORDS([position]) + +AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 success-flag PIC X VALUE 'Y'. + 88 success VALUE 'Y', 'y'. + 01 ws-x-20 PIC X(20). + PROCEDURE DIVISION. + testme. + set environment 'COB_SCREEN_EXCEPTIONS' to 'TRUE' + set environment 'COB_SCREEN_ESC' to 'TRUE' + + DISPLAY "If the cursor below is positioned at the 'C'" + LINE 1 COLUMN 1. + DISPLAY "(third column in field) below, then press ENTER." + LINE 2 COLUMN 1. + + MOVE "ABCDEFG " TO WS-X-20. + ACCEPT WS-X-20 + LINE 4 COLUMN 2 + WITH + AUTO-SKIP + SIZE 10 + CURSOR 3 + UPDATE. + + IF COB-CRT-STATUS = 0 + GOBACK RETURNING 0 + ELSE + GOBACK RETURNING 1 + END-IF + . +]) + +AT_CHECK([$COMPILE prog.cob], [0], [], []) +MANUAL_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) + +AT_CLEANUP + + AT_SETUP([HOME key]) AT_KEYWORDS([HOME SIZE]) @@ -1989,15 +2748,20 @@ AT_CLEANUP AT_SETUP([BACKSPACE key]) -AT_KEYWORDS([BACKSPACE SIZE]) +AT_KEYWORDS([BACKSPACE SIZE CURSOR]) AT_SKIP_IF([test "$COB_HAS_CURSES" != "yes"]) AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. prog. + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + SPECIAL-NAMES. + CURSOR IS cur-pos. DATA DIVISION. WORKING-STORAGE SECTION. + 77 cur-pos pic 9(06). 01 success-flag PIC X VALUE 'Y'. 88 success VALUE 'Y', 'y'. 01 ws-x-20 PIC X(20). @@ -2012,6 +2776,7 @@ AT_DATA([prog.cob], [ LINE 4 COLUMN 1. MOVE "ABCD " TO WS-X-20. + MOVE 006002 TO cur-pos. ACCEPT WS-X-20 LINE 6 COLUMN 1 WITH diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at index 2b207b38..d67c930c 100644 --- a/tests/testsuite.src/run_misc.at +++ b/tests/testsuite.src/run_misc.at @@ -1163,8 +1163,8 @@ AT_CHECK([$COBCRUN_DIRECT ./unchecked_prog2], [0], [test over ], []) AT_CHECK([$COBCRUN_DIRECT ./prog2], [1], [], -[libcob: prog2.cob:13: error: 'X-NUM' (Type: PACKED-DECIMAL) not numeric: '0x000a123f' -]) +[[libcob: prog2.cob:13: error: 'X-NUM' (Type: PACKED-DECIMAL (unsigned)) not numeric: '0x000a123f' +]]) AT_CLEANUP @@ -9784,6 +9784,43 @@ AT_CHECK([gcdiff reference dumpall.txt], [0], [], []) AT_CLEANUP +AT_SETUP([PROGRAM-ID / CALL with hyphen and underscore]) +AT_KEYWORDS([runmisc]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog. + + PROCEDURE DIVISION. + MAIN. + CALL "_SUB-PROG_NOW" USING 'X'. + STOP RUN. +]) + +AT_DATA([sub.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. "_SUB-PROG_NOW". + + DATA DIVISION. + LINKAGE SECTION. + 01 x PIC X. + + PROCEDURE DIVISION USING x. + MAIN. + DISPLAY "SUB GOT " X. + GOBACK. +]) + +AT_CHECK([$COMPILE_MODULE sub.cob], [0], [], []) +AT_CHECK([$COMPILE prog.cob], [0], [], []) + +AT_CHECK([COB_PRE_LOAD=sub $COBCRUN_DIRECT ./prog], [0], +[SUB GOT X +], []) + +AT_CLEANUP + + AT_SETUP([CALL with directory]) AT_KEYWORDS([runmisc]) diff --git a/tests/testsuite.src/syn_definition.at b/tests/testsuite.src/syn_definition.at index 2e35f217..3ac642c9 100644 --- a/tests/testsuite.src/syn_definition.at +++ b/tests/testsuite.src/syn_definition.at @@ -35,7 +35,9 @@ AT_CLEANUP AT_SETUP([Invalid PROGRAM-ID]) -AT_KEYWORDS([definition]) +AT_KEYWORDS([definition underscore hyphen ENTRY]) + +# note: the name check is identical for the ENTRY statement AT_DATA([SHORT.cob], [ IDENTIFICATION DIVISION. @@ -48,6 +50,39 @@ AT_CHECK([$COMPILE_ONLY SHORT.cob], [1], [], [SHORT.cob:3: error: invalid PROGRAM-ID 'short' - name duplicates a 'C' keyword ]) +AT_DATA([SHORT2.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. "_short". + PROCEDURE DIVISION. + STOP RUN. +]) + +AT_CHECK([$COMPILE_ONLY SHORT2.cob], [0], [], []) + + +AT_DATA([SHORT3.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. _short. + PROCEDURE DIVISION. + STOP RUN. +]) + +AT_CHECK([$COMPILE_ONLY SHORT3.cob], [1], [], +[SHORT3.cob:3: error: invalid symbol '_' - skipping word +SHORT3.cob:4: error: syntax error, unexpected DIVISION +]) + +AT_DATA([SHORT4.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. "-short". + PROCEDURE DIVISION. + STOP RUN. +]) + +AT_CHECK([$COMPILE_ONLY SHORT4.cob], [1], [], +[SHORT4.cob:3: error: invalid PROGRAM-ID '-short' - name cannot begin with space or hyphen +]) + AT_CLEANUP @@ -423,7 +458,7 @@ AT_CLEANUP AT_SETUP([Redefinition of 02 items]) -AT_KEYWORDS([definition]) +AT_KEYWORDS([definition redefines]) AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. @@ -435,9 +470,21 @@ AT_DATA([prog.cob], [ 02 X PIC X. ]) -AT_CHECK([$COMPILE_ONLY prog.cob], [0], [], -[prog.cob:8: warning: redefinition of 'X' -prog.cob:7: note: 'X' previously defined here +# validation for #881 - error if redefinition on redefines +AT_DATA([prog2.cob], [ + IDENTIFICATION DIVISION. + PROGRAM-ID. prog2. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 G. + 02 X PIC X. + 02 X REDEFINES X PIC X. + 02 Y PIC 9. +]) + +AT_CHECK([$COMPILE_ONLY prog2.cob], [0], [], +[prog2.cob:8: warning: redefinition of 'X' +prog2.cob:7: note: 'X' previously defined here ]) AT_CLEANUP diff --git a/tests/testsuite.src/syn_literals.at b/tests/testsuite.src/syn_literals.at index d89ff048..cc9914be 100644 --- a/tests/testsuite.src/syn_literals.at +++ b/tests/testsuite.src/syn_literals.at @@ -1126,6 +1126,14 @@ prog.cob:10: error: invalid X literal: '1' prog.cob:10: note: literal does not have an even number of digits ]) +AT_CHECK([$COMPILE_ONLY -std=mf-strict prog.cob], [1], [], +[prog.cob:9: error: invalid X literal: 'GH' +prog.cob:9: note: literal contains invalid character 'G' +prog.cob:9: note: literal contains invalid character 'H' +prog.cob:10: warning: invalid X literal: '1' +prog.cob:10: note: literal does not have an even number of digits +]) + AT_CLEANUP diff --git a/tests/testsuite.src/syn_misc.at b/tests/testsuite.src/syn_misc.at index 1c5cab6f..05d2760a 100644 --- a/tests/testsuite.src/syn_misc.at +++ b/tests/testsuite.src/syn_misc.at @@ -2482,11 +2482,10 @@ AT_CHECK([$COMPILE_ONLY -std=rm-strict prog.cob], [1], [], [prog.cob:12: error: syntax error, unexpected Identifier prog.cob:14: error: 'handle' is not defined, but is a reserved word in another dialect prog.cob:15: error: syntax error, unexpected Identifier -prog.cob:17: error: 'handle' is not defined, but is a reserved word in another dialect -prog.cob:19: error: syntax error, unexpected Identifier -prog.cob:20: error: 'handle' is not defined, but is a reserved word in another dialect -prog.cob:21: error: syntax error, unexpected Identifier -prog.cob:15: error: PICTURE clause required for 'unused-thread' +prog.cob:17: error: syntax error, unexpected Identifier +prog.cob:19: error: 'handle' is not defined, but is a reserved word in another dialect +prog.cob:20: error: syntax error, unexpected Identifier +prog.cob:21: error: 'handle' is not defined, but is a reserved word in another dialect prog.cob: in paragraph 'MAIN': prog.cob:35: error: 'handle IN mywindow' is not defined prog.cob:34: error: invalid expression @@ -2653,12 +2652,11 @@ AT_DATA([prog.cob], [ AT_CHECK([$COMPILE_ONLY -std=acu-strict prog.cob], [0], [], [prog.cob:16: warning: GRAPHICAL CONTROL is not implemented -prog.cob:21: warning: COLOR clause is not implemented +prog.cob:21: warning: COLOR clause (SCREEN) is not implemented prog.cob:23: warning: LINES clause is not implemented prog.cob:26: warning: screen positions from data-item is not implemented prog.cob: in paragraph 'MAIN': prog.cob:36: warning: GRAPHICAL WINDOW is not implemented -prog.cob:42: warning: COLOR is not implemented prog.cob:53: warning: GRAPHICAL WINDOW is not implemented ]) @@ -4884,9 +4882,9 @@ prog.cob:9: error: '/' operator misplaced AT_CHECK([$COMPILE_ONLY -std=mf-strict prog.cob], [1], [], [prog.cob:6: error: syntax error, unexpected Identifier -prog.cob:7: error: 'CONSTANT' is not defined, but is a reserved word in another dialect +prog.cob:7: error: syntax error, unexpected Identifier prog.cob:8: error: syntax error, unexpected Identifier -prog.cob:9: error: 'CONSTANT' is not defined, but is a reserved word in another dialect +prog.cob:9: error: syntax error, unexpected Identifier prog.cob:10: error: syntax error, unexpected Identifier ])