diff --git a/src/lsp/cobol_indent/indenter.ml b/src/lsp/cobol_indent/indenter.ml index 78b13e943..7a7c3c103 100644 --- a/src/lsp/cobol_indent/indenter.ml +++ b/src/lsp/cobol_indent/indenter.ml @@ -64,14 +64,6 @@ let indenter ~source_format (str:string) (rdl:indent_record list) range = (*indent a range of file, with the default indent_config*) let indent_range' ~source_format ~range ~file = let file_content = Ez_file.V1.EzFile.read_file file in - let check_indent = Indent_check.check_indentation in - let state = { - scope = BEGIN; - context = []; - acc = []; - range; - } - in (* Not satisfied with the `Cobol_preproc.fold_text_lines`, this function has an argument which is the name of file, @@ -80,8 +72,9 @@ let indent_range' ~source_format ~range ~file = (* NB: not anymore. *) *) let state = - Cobol_preproc.fold_text_lines ~source_format check_indent - (Filename file) state + Cobol_preproc.fold_source_lines ~source_format + ~f:(fun _lnum line acc -> Indent_check.check_indentation line acc) + (Filename file) { scope = BEGIN; context = []; acc = []; range } in let ind_recds = state.acc in indenter ~source_format file_content ind_recds state.range diff --git a/src/lsp/cobol_parser/parser_engine.ml b/src/lsp/cobol_parser/parser_engine.ml index c06b3b3ab..9fcd55a2a 100644 --- a/src/lsp/cobol_parser/parser_engine.ml +++ b/src/lsp/cobol_parser/parser_engine.ml @@ -154,7 +154,7 @@ module Make (Config: Cobol_config.T) = struct (* --- *) let rec produce_tokens (ps: _ state as 's) : 's * Text_tokenizer.tokens = - let text, pp = Cobol_preproc.next_sentence ps.preproc.pp in + let text, pp = Cobol_preproc.next_chunk ps.preproc.pp in let { preproc = { pp; tokzr; _ }; _ } as ps = update_pp ps pp in assert (text <> []); (* Note: this is the source format in use at the end of the sentence. *) diff --git a/src/lsp/cobol_preproc/preproc.ml b/src/lsp/cobol_preproc/preproc.ml index dfad8df5e..68d6c3851 100644 --- a/src/lsp/cobol_preproc/preproc.ml +++ b/src/lsp/cobol_preproc/preproc.ml @@ -44,7 +44,7 @@ let srclex_newline_cnums (Plx (pl, _)) = type 'k source_line = | Line: 'k srclexer * text -> 'k source_line -let source_lines_reader lexer = +let source_chunks_reader lexer = let rec next_source_line (state, lexbuf) = let state, pseutoks = lexer state lexbuf in match pseutoks with @@ -53,32 +53,70 @@ let source_lines_reader lexer = in next_source_line -let fold_source_lines lexer f pl = - let next_source_line = source_lines_reader lexer in - let rec aux pl acc = match next_source_line pl with +let fold_source_chunks lexer f pl = + let next_source_chunk = source_chunks_reader lexer in + let rec aux pl acc = match next_source_chunk pl with | Line (_, [{ payload = Eof; _}]) -> acc | Line (pl, text) -> f text acc |> aux pl in aux pl -let print_source_lines lexer ppf pl = - fold_source_lines lexer (fun t () -> Pretty.print ppf "%a@." Text.pp_text t) +let print_source lexer ppf pl = + fold_source_chunks lexer (fun t () -> Pretty.print ppf "%a@." Text.pp_text t) pl () -let next_source_line (Plx pl) = - let Line (pl, text) = source_lines_reader Src_lexer.line pl in +let next_source_chunk (Plx pl) = + let Line (pl, text) = source_chunks_reader Src_lexer.line pl in Plx pl, text -let print_source_lines ppf (Plx pl) = - print_source_lines Src_lexer.line ppf pl +let print_source ppf (Plx pl) = + print_source Src_lexer.line ppf pl -let fold_source_lines pl f acc = - let rec aux pl acc = match next_source_line pl with +let fold_source_chunks pl f acc = + let rec aux pl acc = match next_source_chunk pl with | _, [{ payload = Eof; _}] -> acc | pl, text -> aux pl (f text acc) in aux pl acc +(** [fold_source_lines pl ~f acc] applies [f line_number line acc] for each + successive line [line] of the input lexed by [pl]. [line_number] gives the + line number for [line] (starting at [1]). [line] is given empty to [f] if + it corresponds to empty line in the input, or was a line continuation. *) +let fold_source_lines pl ~f acc = + let tok_lnum tok = + (* On source text, which is NOT manipulated, we only have lexical locations, + so using [start_pos] is enough. *) + (Cobol_common.Srcloc.start_pos ~@tok).pos_lnum + in + let spit_empty_lines ~until_lnum cur_lnum acc = + let rec aux cur_lnum acc = + if cur_lnum < until_lnum + then aux (succ cur_lnum) (f cur_lnum [] acc) + else acc + in + aux cur_lnum acc + in + let rec spit_chunk chunk (acc, cur_lnum, cur_prefix) = + match + Cobol_common.Basics.LIST.split_at_first ~prefix:`Same ~where:`Before + (fun tok -> tok_lnum tok > cur_lnum) chunk + with + | Error () -> (* still on the same line *) + (acc, cur_lnum, cur_prefix @ chunk) + | Ok (prefix, []) -> (* should not happen (in case, just append) *) + (acc, cur_lnum, cur_prefix @ prefix) + | Ok (prefix, (tok :: _ as suffix)) -> (* terminating a line *) + let acc = f cur_lnum (cur_prefix @ prefix) acc in + let new_lnum = tok_lnum tok in + let acc = spit_empty_lines ~until_lnum:new_lnum (succ cur_lnum) acc in + spit_chunk suffix (acc, new_lnum, []) + in + let acc, last_lnum, tail = fold_source_chunks pl spit_chunk (acc, 1, []) in + match tail with (* fold on the last line upon exit... *) + | [] | { payload = Eof; _ } :: _ -> acc (* ... if non-empty *) + | _ -> f last_lnum tail acc + (* --- *) let with_source_format diff --git a/src/lsp/cobol_preproc/preproc.mli b/src/lsp/cobol_preproc/preproc.mli index 357505e97..5c28722f8 100644 --- a/src/lsp/cobol_preproc/preproc.mli +++ b/src/lsp/cobol_preproc/preproc.mli @@ -87,15 +87,20 @@ val srclex_comments val srclex_newline_cnums : any_srclexer -> int list -val next_source_line +val next_source_chunk : any_srclexer -> any_srclexer * text -val fold_source_lines +val fold_source_chunks : any_srclexer -> (text -> 'a -> 'a) -> 'a -> 'a -val print_source_lines +val fold_source_lines + : any_srclexer + -> f:(int -> text -> 'a -> 'a) + -> 'a + -> 'a +val print_source : Format.formatter -> any_srclexer -> unit diff --git a/src/lsp/cobol_preproc/preproc_engine.ml b/src/lsp/cobol_preproc/preproc_engine.ml index 91d7da7d0..29995e756 100644 --- a/src/lsp/cobol_preproc/preproc_engine.ml +++ b/src/lsp/cobol_preproc/preproc_engine.ml @@ -155,53 +155,71 @@ let apply_active_replacing_full { pplog; persist; _ } = match persist with | { replacing = r :: _; _ } -> Preproc.apply_replacing OnFullText r pplog | _ -> fun text -> text, pplog -(** [next_sentence lp] reads the next sentence from [lp], handling lexical and - compiler directives along the way. It never returns an empty sentence: the - output text always terminates with a period or {!Eof}. *) -let rec next_sentence ({ srclex; buff; _ } as lp) = - match Preproc.next_source_line srclex with +(** [lookup_compiler_directive chunk] searches for a compiler-directive + text-word (that starts with either `{v >> v}' or `{v $ v}') in the given + chunk of source text. + + Returns [Ok (prefix, cdir_text)] if a compiler directive is recognised, + where [cdir_text] is guaranteed to start with a compiler-directive word on a + line [l] and terminates at the end [l]. *) +(* Note: {!Preproc.next_source_chunk} never outputs compiler-directive + text-words in positions other than the first two. Such a chunk also + terminates at the end of the source line as it cannot be continued (contrary + to normal source lines). *) +let lookup_compiler_directive: Text.text -> _ = function + | t :: _ as text when Text.cdirp t -> Ok ([ ], text) + | p :: (t :: _ as text) when Text.cdirp t -> Ok ([p], text) + | _ -> Error `NotCDir + +(* --- *) + +(** [next_chunk lp] reads the next chunk from [lp], handling lexical and + compiler directives along the way. It never returns an empty result: the + output text always containts at least {!Eof}. *) +let rec next_chunk ({ srclex; buff; _ } as lp) = + match Preproc.next_source_chunk srclex with | srclex, ([{ payload = Eof; _}] as eof) -> let text, pplog = apply_active_replacing_full lp (buff @ eof) in text, { lp with srclex; pplog; buff = [] } | srclex, text -> if show `Src lp then Pretty.error "Src: %a@." Text.pp_text text; - match try_lexing_directive (with_srclex lp srclex) text with - | Ok lp -> - next_sentence lp - | Error `NotLexDir -> + match lookup_compiler_directive text with + | Error `NotCDir -> preprocess_line { lp with srclex; buff = [] } (buff @ text) - -and try_lexing_directive ({ persist = { pparser = (module Pp); - overlay_manager = om; _ }; - srclex; _ } as lp) srctext = - match Text_supplier.supply_text_if_compiler_directive om srctext with - | Error `NotCDir -> - Error `NotLexDir - | Ok supplier -> - (* Here, [srctext] is never empty as it's known to start with a compiler - directive marker `>>` (or `$` for MF-style directives), so we should - always have a loc: *) - let loc = Option.get @@ Cobol_common.Srcloc.concat_locs srctext in - let parser = Pp.Incremental.lexing_directive (position lp) in - match ~&(Pp.MenhirInterpreter.loop supplier parser) with - | { result = Some Preproc_directives.LexDirSource sf as lexdir; diags } -> - let pplog = Preproc_trace.new_lexdir ~loc ?lexdir lp.pplog in - let lp = add_diags lp diags in - let lp = with_pplog lp pplog in - Ok (with_srclex lp (Preproc.with_source_format sf srclex)) - | { result = None; diags } -> (* valid lexdir with erroneous semantics *) - let pplog = Preproc_trace.new_lexdir ~loc lp.pplog in - let lp = with_pplog lp pplog in - Ok (add_diags lp diags) - | exception Pp.Error -> - Ok (DIAGS.Cont.kerror (add_diag lp) ~loc - "Malformed@ or@ unknown@ compiler@ directive") + | Ok ([], lexdir_text) -> + next_chunk @@ on_lexing_directive { lp with srclex } lexdir_text + | Ok (text, lexdir_text) -> + let lp = { lp with srclex; buff = [] } in + preprocess_line (on_lexing_directive lp lexdir_text) (buff @ text) + +and on_lexing_directive ({ persist = { pparser = (module Pp); + overlay_manager = om; _ }; + srclex; _ } as lp) lexdir_text = + (* Here, [lexdir_text] is never empty as it's known to start with a compiler + directive marker `>>` (or `$` for MF-style directives), so we should always + have a loc: *) + let supplier = Text_supplier.pptoks_of_text_supplier om lexdir_text in + let loc = Option.get @@ Cobol_common.Srcloc.concat_locs lexdir_text in + let parser = Pp.Incremental.lexing_directive (position lp) in + match ~&(Pp.MenhirInterpreter.loop supplier parser) with + | { result = Some Preproc_directives.LexDirSource sf as lexdir; diags } -> + let pplog = Preproc_trace.new_lexdir ~loc ?lexdir lp.pplog in + let lp = add_diags lp diags in + let lp = with_pplog lp pplog in + with_srclex lp (Preproc.with_source_format sf srclex) + | { result = None; diags } -> (* valid lexdir with erroneous semantics *) + let pplog = Preproc_trace.new_lexdir ~loc lp.pplog in + let lp = with_pplog lp pplog in + add_diags lp diags + | exception Pp.Error -> + DIAGS.Cont.kerror (add_diag lp) ~loc + "Malformed@ or@ unknown@ compiler@ directive" and preprocess_line lp srctext = match try_preproc lp srctext with | Ok (`CDirNone (lp, [])) -> (* Never return empty: skip to next sentence *) - next_sentence lp + next_chunk lp | Ok (`CDirNone (lp, text)) -> do_replacing lp text | Ok (`CopyDone (lp, srctext)) @@ -210,16 +228,16 @@ and preprocess_line lp srctext = be a compiler directive. *) preprocess_line lp srctext | Ok (`ReplaceDone (lp, text, srctext)) -> - text, with_buff lp srctext + text, with_buff lp @@ Text.strip_eof srctext | Error (`MissingPeriod | `MissingText) -> - next_sentence (with_buff lp srctext) + next_chunk (with_buff lp srctext) and do_replacing lp text = match apply_active_replacing lp text with | Ok (text, pplog) -> text, with_pplog lp pplog | Error (`MissingText ([], pplog, buff)) -> - next_sentence (with_buff_n_pplog lp buff pplog) + next_chunk (with_buff_n_pplog lp buff pplog) | Error (`MissingText (text, pplog, buff)) -> text, with_buff_n_pplog lp buff pplog @@ -336,7 +354,7 @@ and read_lib ({ persist = { libpath; copybooks; verbose; _ }; _ } as lp) and full_text ?(item = "library") ?postproc lp : Text.text * preprocessor = let eofp p = ~&p = Text.Eof in let rec aux acc lp = - let text, lp = next_sentence lp in + let text, lp = next_chunk lp in let text = match postproc with | None -> text | Some p -> List.(rev @@ rev_map p text) @@ -351,8 +369,8 @@ and full_text ?(item = "library") ?postproc lp : Text.text * preprocessor = in aux [] lp -let next_sentence lp = - let text, lp = next_sentence lp in +let next_chunk lp = + let text, lp = next_chunk lp in if show `Txt lp then Pretty.error "Txt: %a@." Text.pp_text text; text, lp @@ -417,8 +435,7 @@ let lex_file ~source_format ?(ppf = default_oppf) = Cobol_common.do_unit begin fun (module DIAGS) input -> let source_format = DIAGS.grab_diags @@ decide_source_format input source_format in - let pl = make_srclex ~source_format input in - Preproc.print_source_lines ppf pl + Preproc.print_source ppf (make_srclex ~source_format input) end let lex_lib ~source_format ~libpath ?(ppf = default_oppf) = @@ -429,17 +446,16 @@ let lex_lib ~source_format ~libpath ?(ppf = default_oppf) = DIAGS.grab_diags @@ decide_source_format (Filename filename) source_format in let pl = Preproc.srclex_from_file ~source_format filename in - Preproc.print_source_lines ppf pl + Preproc.print_source ppf pl | Error lnf -> Copybook.lib_not_found_error (DIAGS.error "%t") lnf end -let fold_text_lines ~source_format ?epf f = +let fold_source_lines ~source_format ?epf ~f = Cobol_common.do_any ?epf begin fun (module DIAGS) input -> let source_format = DIAGS.grab_diags @@ decide_source_format input source_format in - let pl = make_srclex ~source_format input in - Preproc.fold_source_lines pl f + Preproc.fold_source_lines (make_srclex ~source_format input) ~f end let pp_preprocessed ppf lp = diff --git a/src/lsp/cobol_preproc/preproc_engine.mli b/src/lsp/cobol_preproc/preproc_engine.mli index 0210debce..d323fb5b9 100644 --- a/src/lsp/cobol_preproc/preproc_engine.mli +++ b/src/lsp/cobol_preproc/preproc_engine.mli @@ -45,7 +45,7 @@ val position: preprocessor -> Lexing.position val source_format: preprocessor -> Src_format.any val newline_cnums: preprocessor -> int list -val next_sentence: preprocessor -> Text.text * preprocessor +val next_chunk: preprocessor -> Text.text * preprocessor (** {2 High-level commands} *) @@ -61,14 +61,6 @@ val lex_file -> input -> unit -val fold_text_lines - : source_format: Cobol_config.source_format_spec - -> ?epf:Format.formatter - -> (Text.text -> 'a -> 'a) - -> input - -> 'a - -> 'a - val lex_lib : source_format: Cobol_config.source_format_spec -> libpath:string list @@ -77,6 +69,14 @@ val lex_lib -> [< `Alphanum | `Word ] * string -> unit +val fold_source_lines + : source_format: Cobol_config.source_format_spec + -> ?epf:Format.formatter + -> f:(int -> Text.text -> 'a -> 'a) + -> input + -> 'a + -> 'a + val preprocess_file : ?options: Preproc_options.preproc_options -> ?ppf:Format.formatter diff --git a/src/lsp/cobol_preproc/src_lexing.ml b/src/lsp/cobol_preproc/src_lexing.ml index 0c56fd669..e22640223 100644 --- a/src/lsp/cobol_preproc/src_lexing.ml +++ b/src/lsp/cobol_preproc/src_lexing.ml @@ -82,13 +82,18 @@ let newline_cnums { newline_cnums; _ } = List.rev newline_cnums let source_format { config = { source_format; _ }; _ } = source_format let allow_debug { config = { debug; _ }; _ } = debug -(* Just check there are no buffered stuffs. *) -let flushed = function - | { lex_prods = []; continued = CNone; pseudotext = None; _ } -> true - | _ -> false - -let flush state = - { state with lex_prods = []; cdir_seen = false }, List.rev state.lex_prods +(** Flush buffered lexing productions, possibly holding onto one that may be + subject to continuation on the following line. + + Always flushes completely whenever a compiler-directive word has been seen, + or the last token is a lonesome period. *) +let flush ({ lex_prods; _ } as state) : _ state * text = + match lex_prods with + | { payload = TextWord w; _ } as h :: prods + when not state.cdir_seen && w <> "." -> + { state with lex_prods = [h] }, List.rev prods + | prods -> + { state with lex_prods = []; cdir_seen = false }, List.rev prods let reset_cont state = { state with continued = CNone } @@ -100,6 +105,11 @@ let lex_diag ~severity state = let lex_error state = lex_diag ~severity:DIAGS.Error state let change_source_format ({ config; _ } as state) { payload = sf; loc } = + (* Just check there is no text that requires continuation. *) + let flushed = function + | { continued = CNone; pseudotext = None; _ } -> true + | _ -> false + in if flushed state then Ok { state with config = { config with source_format = sf } } else Error (lex_error state ~loc "Forbidden@ change@ of@ source@ format") diff --git a/src/lsp/cobol_preproc/text.ml b/src/lsp/cobol_preproc/text.ml index cb1ca1944..fecbff6b4 100644 --- a/src/lsp/cobol_preproc/text.ml +++ b/src/lsp/cobol_preproc/text.ml @@ -132,3 +132,8 @@ let pseudotext_of_string = pseudotext_ pseudo_string let pseudotext_of_alphanum = pseudotext_ pseudo_alphanum let pseudotext_of_integer = pseudotext_ pseudo_integer let alphanum_as_pseudotext a = pseudotext_ alphanum_as_pseudo a + +(** Strips any end-of-input/file item from the beginning of the given text. *) +let rec strip_eof = function + | { payload = Eof; _ } :: text -> strip_eof text + | text -> text diff --git a/src/lsp/cobol_preproc/text.mli b/src/lsp/cobol_preproc/text.mli index a7cbcc732..2ff0905e5 100644 --- a/src/lsp/cobol_preproc/text.mli +++ b/src/lsp/cobol_preproc/text.mli @@ -61,3 +61,4 @@ val pp_alphanum: alphanum Pretty.printer val prefix_of_literal_kind: literal_kind -> string val char_of_quotation: quotation -> char +val strip_eof: text -> text diff --git a/src/lsp/cobol_preproc/text_supplier.ml b/src/lsp/cobol_preproc/text_supplier.ml index e9da1c8f6..20f30bb76 100644 --- a/src/lsp/cobol_preproc/text_supplier.ml +++ b/src/lsp/cobol_preproc/text_supplier.ml @@ -75,10 +75,3 @@ let ondemand_list_supplier (module Om: Src_overlay.MANAGER) ~pp ~eoi l = let pptoks_of_text_supplier om text = ondemand_list_supplier ~eoi:Preproc_tokens.EOL ~pp:pptoks_of_chstr om text - -(** Tokenize the given text into pptokens if it starts with a {!CDirWord}. *) -let supply_text_if_compiler_directive om = function - | t :: _ as text when Text.cdirp t -> - Ok (pptoks_of_text_supplier om text) - | _ -> - Error `NotCDir diff --git a/src/lsp/cobol_preproc/text_supplier.mli b/src/lsp/cobol_preproc/text_supplier.mli index c059e648f..28240c1fd 100644 --- a/src/lsp/cobol_preproc/text_supplier.mli +++ b/src/lsp/cobol_preproc/text_supplier.mli @@ -19,8 +19,3 @@ val pptoks_of_text_supplier : (module Src_overlay.MANAGER) -> Text.t -> Preproc_tokens.token supplier - -val supply_text_if_compiler_directive - : (module Src_overlay.MANAGER) - -> Text.t - -> (Preproc_tokens.token supplier, [> `NotCDir]) result diff --git a/src/lsp/superbol_free_lib/common_args.ml b/src/lsp/superbol_free_lib/common_args.ml index f96f4c1d2..a634bc843 100644 --- a/src/lsp/superbol_free_lib/common_args.ml +++ b/src/lsp/superbol_free_lib/common_args.ml @@ -49,13 +49,20 @@ let iter_comma_separated_spec ~showable ~option_name ~f spec = (StringSet.elements unknowns)) let get () = - let conf = ref "" in (* Fixed by default *) + let conf = ref "" in let dialect = ref None in let strict = ref false in let format = ref Cobol_config.Auto in (* Fixed by default *) let formats = ["free"; "Free"; "FREE"; "fixed"; "Fixed"; "FIXED"; - "cobolx"; "Cobolx"; "CobolX"; "COBOLX"] in + "cobol85"; "COBOL85"; + "variable"; "VARIABLE"; + "xopen"; "XOPEN"; "XOpen"; + "xcard"; "xCard"; "XCARD"; + "crt"; "CRT"; + "terminal"; "Terminal"; "TERMINAL"; + "cobolx"; "Cobolx"; "CobolX"; "COBOLX"; + "auto"; "AUTO"] in let libpath = ref ["."] in let recovery = ref true in let show = ref [`Pending] in (* default *) @@ -80,9 +87,15 @@ let get () = ["source-format"], Arg.Symbol (formats, fun f -> format := match String.uppercase_ascii f with - | "FIXED" -> Cobol_config.SF Cobol_config.SFFixed + | "FIXED" | "COBOL85" -> Cobol_config.SF Cobol_config.SFFixed | "FREE" -> SF SFFree + | "VARIABLE" -> SF SFVariable + | "XOPEN" -> SF SFXOpen + | "XCARD" -> SF SFxCard + | "CRT" -> SF SFCRT + | "TERMINAL" -> SF SFTrm | "COBOLX" -> SF SFCOBOLX + | "AUTO" -> Auto | _ -> Cobol_common.Diagnostics.Now.warn Fmt.stderr diff --git a/test/output-tests/gnucobol.ml b/test/output-tests/gnucobol.ml index df858cad9..4013a52a5 100644 --- a/test/output-tests/gnucobol.ml +++ b/test/output-tests/gnucobol.ml @@ -137,7 +137,40 @@ let setup_input ~filename contents = let delete_file ~filename = Ez_file.FileString.remove filename -let free_format_regexp = Str.regexp {re|\(^-free\|[ \t]-free\b\)|re} +let free_flag_regexp = Str.regexp {re|\(^-free\|[ \t]-free\b\)|re} +let fixd_format_regexp = Str.regexp_string "-fformat=fixed" +let free_format_regexp = Str.regexp_string "-fformat=free" +let cb85_format_regexp = Str.regexp_string "-fformat=cobol85" +let vrbl_format_regexp = Str.regexp_string "-fformat=variable" +let xopn_format_regexp = Str.regexp_string "-fformat=xopen" +let xcrd_format_regexp = Str.regexp_string "-fformat=xcard" +let crt__format_regexp = Str.regexp_string "-fformat=crt" +let term_format_regexp = Str.regexp_string "-fformat=terminal" +let cblx_format_regexp = Str.regexp_string "-fformat=cobolx" +let auto_format_regexp = Str.regexp_string "-fformat=auto" + +let guess_source_format ~filename ~command = (* hackish detection of format *) + let filename_suffixp suffix = + EzString.ends_with ~suffix filename + and command_matchp regexp = + try ignore (Str.search_forward regexp command 0); true + with Not_found -> false + in + Option.value ~default:Cobol_config.(SF SFFixed) @@ + List.find_map (fun (p, f) -> if Lazy.force p then Some f else None) [ + lazy (filename_suffixp "free.cob"), Cobol_config.(SF SFFree); + lazy (command_matchp free_flag_regexp), Cobol_config.(SF SFFree); + lazy (command_matchp fixd_format_regexp), Cobol_config.(SF SFFixed); + lazy (command_matchp free_format_regexp), Cobol_config.(SF SFFree); + lazy (command_matchp cb85_format_regexp), Cobol_config.(SF SFFixed); + lazy (command_matchp vrbl_format_regexp), Cobol_config.(SF SFVariable); + lazy (command_matchp xopn_format_regexp), Cobol_config.(SF SFXOpen); + lazy (command_matchp xcrd_format_regexp), Cobol_config.(SF SFxCard); + lazy (command_matchp term_format_regexp), Cobol_config.(SF SFTrm); + lazy (command_matchp cblx_format_regexp), Cobol_config.(SF SFCOBOLX); + lazy (command_matchp auto_format_regexp), Cobol_config.Auto; + ] + let do_check_parse (test_filename, contents, _, { check_loc; check_command; _ }) = let filename = filename_for_loc test_filename check_loc in @@ -150,13 +183,7 @@ let do_check_parse (test_filename, contents, _, { check_loc; let loc = Autofonce_m4.M4Printer.string_of_location check_loc in Pretty.error "Considering: %a... " pp_relloc loc; Pretty.out "Considering: %a@\n" pp_relloc loc; - let source_format = (* hackish detection of format *) - if EzString.ends_with ~suffix:"free.cob" filename || - try ignore (Str.search_forward free_format_regexp check_command 0); true - with Not_found -> false - then Cobol_config.(SF SFFree) - else Cobol_config.(SF SFFixed) - in + let source_format = guess_source_format ~filename ~command:check_command in let parse_simple input = input |> Cobol_preproc.preprocessor diff --git a/test/output-tests/listings.expected b/test/output-tests/listings.expected index c4f018d98..4c615c140 100644 --- a/test/output-tests/listings.expected +++ b/test/output-tests/listings.expected @@ -1140,6 +1140,16 @@ listings.at-2030-expected.lst:22.10-22.15: 24 SIZE TYPE LVL NAME PICTURE >> Warning: Invalid syntax +listings.at-2030-expected.lst:24.6-24.7: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^ + 25 + 26 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `T' + listings.at-2030-expected.lst:22.15: 19 warning: unreachable statement 'DISPLAY' 20 000015 @@ -1160,16 +1170,6 @@ listings.at-2030-expected.lst:22.25-22.35: 24 SIZE TYPE LVL NAME PICTURE >> Warning: Invalid syntax -listings.at-2030-expected.lst:24.6-24.7: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^ - 25 - 26 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `T' - listings.at-2030-expected.lst:22.35: 19 warning: unreachable statement 'DISPLAY' 20 000015 @@ -1240,16 +1240,6 @@ listings.at-2030-expected.lst:26.6-26.7: 28 00001 ALPHANUMERIC 01 blah X >> Error: Unexpected indicator: `W' -listings.at-2030-expected.lst:24.57-24.64: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^^^^^^^ - 25 - 26 WORKING-STORAGE SECTION ->> Error: Invalid syntax - listings.at-2030-expected.lst:28.6-28.7: 25 26 WORKING-STORAGE SECTION @@ -1260,6 +1250,16 @@ listings.at-2030-expected.lst:28.6-28.7: 30 GnuCOBOL V.R.P prog-1.cob Page 0003 >> Error: Unexpected indicator: `A' +listings.at-2030-expected.lst:24.57-24.64: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^^^^^^^ + 25 + 26 WORKING-STORAGE SECTION +>> Error: Invalid syntax + listings.at-2030-expected.lst:26.29: 23 24 SIZE TYPE LVL NAME PICTURE @@ -1320,6 +1320,16 @@ listings.at-2030-expected.lst:28.26-28.30: 30 GnuCOBOL V.R.P prog-1.cob Page 0003 >> Warning: Invalid syntax +listings.at-2030-expected.lst:30.6-30.7: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^ + 31 + 32 NAME DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:28.30: 25 26 WORKING-STORAGE SECTION @@ -1340,16 +1350,6 @@ listings.at-2030-expected.lst:28.57-28.58: 30 GnuCOBOL V.R.P prog-1.cob Page 0003 >> Warning: Invalid syntax -listings.at-2030-expected.lst:30.6-30.7: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^ - 31 - 32 NAME DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:28.58: 25 26 WORKING-STORAGE SECTION @@ -1510,6 +1510,16 @@ listings.at-2030-expected.lst:34.56-34.58: 36 GnuCOBOL V.R.P prog-1.cob Page 0004 >> Warning: Invalid syntax +listings.at-2030-expected.lst:36.6-36.7: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^ + 37 + 38 LABEL DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:34.58: 31 32 NAME DEFINED REFERENCES @@ -1530,16 +1540,6 @@ listings.at-2030-expected.lst:34.71-34.72: 36 GnuCOBOL V.R.P prog-1.cob Page 0004 >> Warning: Invalid syntax -listings.at-2030-expected.lst:36.6-36.7: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^ - 37 - 38 LABEL DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:34.72: 31 32 NAME DEFINED REFERENCES @@ -1710,6 +1710,16 @@ listings.at-2030-expected.lst:41.40-41.42: 43 >> Warning: Invalid syntax +listings.at-2030-expected.lst:42.6-42.7: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:41.42: 38 LABEL DEFINED REFERENCES 39 @@ -1730,16 +1740,6 @@ listings.at-2030-expected.lst:41.71-41.72: 43 >> Warning: Invalid syntax -listings.at-2030-expected.lst:42.6-42.7: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:41.72: 38 LABEL DEFINED REFERENCES 39 @@ -1780,6 +1780,16 @@ listings.at-2030-expected.lst:42.10-42.15: 44 FUNCTION TYPE REFERENCES >> Warning: Invalid syntax +listings.at-2030-expected.lst:44.6-44.7: + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 + 44 > FUNCTION TYPE REFERENCES +---- ^ + 45 + 46 L prog-2 EXTERN 11 x1 +>> Error: Unexpected indicator: `O' + listings.at-2030-expected.lst:42.15: 39 40 E prog__1 10 @@ -1800,16 +1810,6 @@ listings.at-2030-expected.lst:42.25-42.35: 44 FUNCTION TYPE REFERENCES >> Warning: Invalid syntax -listings.at-2030-expected.lst:44.6-44.7: - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 - 44 > FUNCTION TYPE REFERENCES ----- ^ - 45 - 46 L prog-2 EXTERN 11 x1 ->> Error: Unexpected indicator: `O' - listings.at-2030-expected.lst:42.35: 39 40 E prog__1 10 @@ -1880,6 +1880,16 @@ listings.at-2030-expected.lst:46.40-46.42: 48 GnuCOBOL V.R.P prog-1.cob Page 0006 >> Warning: Invalid syntax +listings.at-2030-expected.lst:48.6-48.7: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^ + 49 + 50 Error/Warning summary: +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:46.42: 43 44 FUNCTION TYPE REFERENCES @@ -1900,16 +1910,6 @@ listings.at-2030-expected.lst:46.71-46.72: 48 GnuCOBOL V.R.P prog-1.cob Page 0006 >> Warning: Invalid syntax -listings.at-2030-expected.lst:48.6-48.7: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^ - 49 - 50 Error/Warning summary: ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:46.72: 43 44 FUNCTION TYPE REFERENCES @@ -1950,6 +1950,16 @@ listings.at-2030-expected.lst:48.10-48.15: 50 Error/Warning summary: >> Warning: Invalid syntax +listings.at-2030-expected.lst:50.6-50.7: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Error: Unexpected indicator: `W' + listings.at-2030-expected.lst:48.15: 45 46 L prog-2 EXTERN 11 x1 @@ -1970,16 +1980,6 @@ listings.at-2030-expected.lst:48.25-48.35: 50 Error/Warning summary: >> Warning: Invalid syntax -listings.at-2030-expected.lst:50.6-50.7: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Error: Unexpected indicator: `W' - listings.at-2030-expected.lst:48.35: 45 46 L prog-2 EXTERN 11 x1 @@ -2000,6 +2000,16 @@ listings.at-2030-expected.lst:50.7-50.13: 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' >> Warning: Invalid syntax +listings.at-2030-expected.lst:52.6-52.7: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Error: Unexpected indicator: `.' + listings.at-2030-expected.lst:50.13: 47 48 GnuCOBOL V.R.P prog-1.cob Page 0006 @@ -2020,16 +2030,6 @@ listings.at-2030-expected.lst:50.14-50.22: 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' >> Warning: Invalid syntax -listings.at-2030-expected.lst:52.6-52.7: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Error: Unexpected indicator: `.' - listings.at-2030-expected.lst:50.22: 47 48 GnuCOBOL V.R.P prog-1.cob Page 0006 @@ -2450,6 +2450,16 @@ listings.at-2030-expected.lst:80.10-80.15: 82 SIZE TYPE LVL NAME PICTURE >> Warning: Invalid syntax +listings.at-2030-expected.lst:82.6-82.7: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^ + 83 + 84 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `T' + listings.at-2030-expected.lst:80.15: 77 000017 78 000018 EX. STOP RUN. @@ -2470,16 +2480,6 @@ listings.at-2030-expected.lst:80.25-80.35: 82 SIZE TYPE LVL NAME PICTURE >> Warning: Invalid syntax -listings.at-2030-expected.lst:82.6-82.7: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^ - 83 - 84 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `T' - listings.at-2030-expected.lst:80.35: 77 000017 78 000018 EX. STOP RUN. @@ -2550,16 +2550,6 @@ listings.at-2030-expected.lst:84.6-84.7: 86 00001 NUMERIC 01 data-b 9 >> Error: Unexpected indicator: `W' -listings.at-2030-expected.lst:82.57-82.64: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^^^^^^^ - 83 - 84 WORKING-STORAGE SECTION ->> Error: Invalid syntax - listings.at-2030-expected.lst:86.6-86.7: 83 84 WORKING-STORAGE SECTION @@ -2570,6 +2560,16 @@ listings.at-2030-expected.lst:86.6-86.7: 88 LINKAGE SECTION >> Error: Unexpected indicator: `N' +listings.at-2030-expected.lst:82.57-82.64: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^^^^^^^ + 83 + 84 WORKING-STORAGE SECTION +>> Error: Invalid syntax + listings.at-2030-expected.lst:84.29: 81 82 SIZE TYPE LVL NAME PICTURE @@ -2630,6 +2630,16 @@ listings.at-2030-expected.lst:86.26-86.32: 88 LINKAGE SECTION >> Warning: Invalid syntax +listings.at-2030-expected.lst:88.6-88.7: + 85 + 86 00001 NUMERIC 01 data-b 9 + 87 + 88 > LINKAGE SECTION +---- ^ + 89 + 90 00001 ALPHANUMERIC 01 stuff X +>> Error: Unexpected indicator: `L' + listings.at-2030-expected.lst:86.32: 83 84 WORKING-STORAGE SECTION @@ -2650,16 +2660,6 @@ listings.at-2030-expected.lst:86.57-86.58: 88 LINKAGE SECTION >> Warning: Invalid syntax -listings.at-2030-expected.lst:88.6-88.7: - 85 - 86 00001 NUMERIC 01 data-b 9 - 87 - 88 > LINKAGE SECTION ----- ^ - 89 - 90 00001 ALPHANUMERIC 01 stuff X ->> Error: Unexpected indicator: `L' - listings.at-2030-expected.lst:86.58: 83 84 WORKING-STORAGE SECTION @@ -2750,6 +2750,16 @@ listings.at-2030-expected.lst:90.26-90.31: 92 GnuCOBOL V.R.P prog-2.cob Page 0003 >> Warning: Invalid syntax +listings.at-2030-expected.lst:92.6-92.7: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^ + 93 + 94 NAME DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:90.31: 87 88 LINKAGE SECTION @@ -2770,16 +2780,6 @@ listings.at-2030-expected.lst:90.57-90.58: 92 GnuCOBOL V.R.P prog-2.cob Page 0003 >> Warning: Invalid syntax -listings.at-2030-expected.lst:92.6-92.7: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^ - 93 - 94 NAME DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:90.58: 87 88 LINKAGE SECTION @@ -3020,6 +3020,16 @@ listings.at-2030-expected.lst:98.55-98.58: 100 GnuCOBOL V.R.P prog-2.cob Page 0004 >> Warning: Invalid syntax +listings.at-2030-expected.lst:100.6-100.7: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^ + 101 + 102 LABEL DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:98.58: 95 96 data-b 7 *12 13 x2 @@ -3040,16 +3050,6 @@ listings.at-2030-expected.lst:98.71-98.72: 100 GnuCOBOL V.R.P prog-2.cob Page 0004 >> Warning: Invalid syntax -listings.at-2030-expected.lst:100.6-100.7: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^ - 101 - 102 LABEL DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:98.72: 95 96 data-b 7 *12 13 x2 @@ -3260,6 +3260,16 @@ listings.at-2030-expected.lst:106.40-106.42: 108 GnuCOBOL V.R.P prog-2.cob Page 0005 >> Warning: Invalid syntax +listings.at-2030-expected.lst:108.6-108.7: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^ + 109 + 110 Error/Warning summary: +>> Error: Unexpected indicator: `B' + listings.at-2030-expected.lst:106.42: 103 104 E prog__2 11 @@ -3280,16 +3290,6 @@ listings.at-2030-expected.lst:106.71-106.72: 108 GnuCOBOL V.R.P prog-2.cob Page 0005 >> Warning: Invalid syntax -listings.at-2030-expected.lst:108.6-108.7: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^ - 109 - 110 Error/Warning summary: ->> Error: Unexpected indicator: `B' - listings.at-2030-expected.lst:106.72: 103 104 E prog__2 11 @@ -3330,6 +3330,16 @@ listings.at-2030-expected.lst:108.10-108.15: 110 Error/Warning summary: >> Warning: Invalid syntax +listings.at-2030-expected.lst:110.6-110.7: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Error: Unexpected indicator: `W' + listings.at-2030-expected.lst:108.15: 105 P MAIN 11 not referenced 106 P EX 18 14 x1 @@ -3350,16 +3360,6 @@ listings.at-2030-expected.lst:108.25-108.35: 110 Error/Warning summary: >> Warning: Invalid syntax -listings.at-2030-expected.lst:110.6-110.7: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Error: Unexpected indicator: `W' - listings.at-2030-expected.lst:108.35: 105 P MAIN 11 not referenced 106 P EX 18 14 x1 @@ -3380,6 +3380,16 @@ listings.at-2030-expected.lst:110.7-110.13: 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' >> Warning: Invalid syntax +listings.at-2030-expected.lst:112.6-112.7: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Error: Unexpected indicator: `.' + listings.at-2030-expected.lst:110.13: 107 108 GnuCOBOL V.R.P prog-2.cob Page 0005 @@ -3400,16 +3410,6 @@ listings.at-2030-expected.lst:110.14-110.22: 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' >> Warning: Invalid syntax -listings.at-2030-expected.lst:112.6-112.7: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Error: Unexpected indicator: `.' - listings.at-2030-expected.lst:110.22: 107 108 GnuCOBOL V.R.P prog-2.cob Page 0005 diff --git a/test/output-tests/run_extensions.expected b/test/output-tests/run_extensions.expected index 8943e76b9..bfe9cd926 100644 --- a/test/output-tests/run_extensions.expected +++ b/test/output-tests/run_extensions.expected @@ -3454,432 +3454,25 @@ Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5065:0 Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5049:0 Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5101:0 Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5149:0 -run_extensions.at-5149-fit.cob:2.6-2.7: - 1 - 2 > * Sample program in X/Open format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5149-fit.cob:4.6-4.7: - 1 - 2 * Sample program in X/Open format, and with longer lines and truncated literals. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5149-fit.cob:5.6-5.7: - 2 * Sample program in X/Open format, and with longer lines and truncated literals. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. fit. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5149-fit.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 > WORKING-STORAGE SECTION. ----- ^ - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' ->> Error: Unexpected indicator: `G' - -run_extensions.at-5149-fit.cob:8.6-8.7: - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > PROCEDURE DIVISION. ----- ^ - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 D DISPLAY ' 20 30 40 50 60 70 79' ->> Error: Unexpected indicator: `U' - -run_extensions.at-5149-fit.cob:9.6-9.7: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 79' ----- ^ - 10 D DISPLAY ' 20 30 40 50 60 70 79' - 11 STOP RUN. ->> Error: Unexpected indicator: `Y' - -run_extensions.at-5149-fit.cob:10.6-10.7: - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 > D DISPLAY ' 20 30 40 50 60 70 79' ----- ^ - 11 STOP RUN. ->> Error: Unexpected indicator: `L' - -run_extensions.at-5149-fit.cob:11.6-11.7: - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 D DISPLAY ' 20 30 40 50 60 70 79' - 11 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `U' - -run_extensions.at-5149-fit.cob:9.8-9.72: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 79' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 D DISPLAY ' 20 30 40 50 60 70 79' - 11 STOP RUN. ->> Error: Missing continuation of ` 20 30 40 50 60 70 ' - -run_extensions.at-5149-fit.cob:10.10-10.72: - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 > D DISPLAY ' 20 30 40 50 60 70 79' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 STOP RUN. ->> Error: Missing continuation of ` 20 30 40 50 60 70 ' - -run_extensions.at-5149-fit.cob:2.7-2.8: - 1 - 2 > * Sample program in X/Open format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5131:0 -run_extensions.at-5131-prog.cob:2.6-2.7: - 1 - 2 > * Sample program in X/Open free-form format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5131-prog.cob:4.6-4.7: - 1 - 2 * Sample program in X/Open free-form format. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5131-prog.cob:5.6-5.7: - 2 * Sample program in X/Open free-form format. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. prog. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5131-prog.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 > WORKING-STORAGE SECTION. ----- ^ - 8 PROCEDURE DIVISION. - 9 / Beginning of the code ->> Error: Unexpected indicator: `G' - -run_extensions.at-5131-prog.cob:8.6-8.7: - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > PROCEDURE DIVISION. ----- ^ - 9 / Beginning of the code - 10 DISPLAY "OK" NO ADVANCING ->> Error: Unexpected indicator: `U' - -run_extensions.at-5131-prog.cob:9.6-9.7: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 > / Beginning of the code ----- ^ - 10 DISPLAY "OK" NO ADVANCING - 11 * If debug: ->> Error: Unexpected indicator: `n' - -run_extensions.at-5131-prog.cob:10.6-10.7: - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 / Beginning of the code - 10 > DISPLAY "OK" NO ADVANCING ----- ^ - 11 * If debug: - 12 D DISPLAY "KO" NO ADVANCING ->> Error: Unexpected indicator: `Y' - -run_extensions.at-5131-prog.cob:11.6-11.7: - 8 PROCEDURE DIVISION. - 9 / Beginning of the code - 10 DISPLAY "OK" NO ADVANCING - 11 > * If debug: ----- ^ - 12 D DISPLAY "KO" NO ADVANCING - 13 STOP RUN. ->> Error: Unexpected indicator: `e' - -run_extensions.at-5131-prog.cob:12.6-12.7: - 9 / Beginning of the code - 10 DISPLAY "OK" NO ADVANCING - 11 * If debug: - 12 > D DISPLAY "KO" NO ADVANCING ----- ^ - 13 STOP RUN. ->> Error: Unexpected indicator: `L' - -run_extensions.at-5131-prog.cob:13.6-13.7: - 10 DISPLAY "OK" NO ADVANCING - 11 * If debug: - 12 D DISPLAY "KO" NO ADVANCING - 13 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `U' - -run_extensions.at-5131-prog.cob:2.7-2.8: - 1 - 2 > * Sample program in X/Open free-form format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5231:0 -run_extensions.at-5231-fit.cob:2.6-2.7: - 1 - 2 > * Sample program in ACU terminal format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5231-fit.cob:4.6-4.7: - 1 - 2 * Sample program in ACU terminal format, and with longer lines and truncated literals. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5231-fit.cob:5.6-5.7: - 2 * Sample program in ACU terminal format, and with longer lines and truncated literals. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. fit. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5231-fit.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 > WORKING-STORAGE SECTION. ----- ^ - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ->> Error: Unexpected indicator: `G' - -run_extensions.at-5231-fit.cob:8.6-8.7: - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > PROCEDURE DIVISION. ----- ^ - 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ->> Error: Unexpected indicator: `U' - -run_extensions.at-5231-fit.cob:11.6-11.7: - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 11 > \D END-DISPLAY. ----- ^ - 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 - 13 - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ->> Error: Unexpected indicator: `E' - -run_extensions.at-5231-fit.cob:14.6-14.7: - 11 \D END-DISPLAY. - 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 - 13 - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 14 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `S' - -run_extensions.at-5231-fit.cob:13.14-13.72: - 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 11 \D END-DISPLAY. - 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 - 13 > - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 STOP RUN. ->> Error: Missing continuation of ` 140 150 160 170 180 ' - -run_extensions.at-5231-fit.cob:2.7-2.8: - 1 - 2 > * Sample program in ACU terminal format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5188:0 -run_extensions.at-5188-prog.cob:2.6-2.7: - 1 - 2 > * Sample program in ACU terminal format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5188-prog.cob:4.6-4.7: - 1 - 2 * Sample program in ACU terminal format. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. prog. - 6 AUTHOR. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5188-prog.cob:5.6-5.7: - 2 * Sample program in ACU terminal format. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. prog. ----- ^ - 6 AUTHOR. - 7 Somebody. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5188-prog.cob:6.6-6.7: +run_extensions.at-5188-prog.cob:6.0-9.20: 3 4 IDENTIFICATION DIVISION. 5 PROGRAM-ID. prog. 6 > AUTHOR. ----- ^ - 7 Somebody. - 8 \D Somebody else. ->> Error: Unexpected indicator: `.' - -run_extensions.at-5188-prog.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. - 6 AUTHOR. +---- ^^^^^^^ 7 > Somebody. ----- ^ - 8 \D Somebody else. - 9 One last author. ->> Error: Unexpected indicator: `m' - -run_extensions.at-5188-prog.cob:8.6-8.7: - 5 PROGRAM-ID. prog. - 6 AUTHOR. - 7 Somebody. +---- ^^^^^^^^^^^^^^ 8 > \D Somebody else. ----- ^ - 9 One last author. - 10 DATA DIVISION. ->> Error: Unexpected indicator: `S' - -run_extensions.at-5188-prog.cob:9.6-9.7: - 6 AUTHOR. - 7 Somebody. - 8 \D Somebody else. +---- ^^^^^^^^^^^^^^^^^^^^^ 9 > One last author. ----- ^ +---- ^^^^^^^^^^^^^^^^^^^^^ 10 DATA DIVISION. 11 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `e' - -run_extensions.at-5188-prog.cob:11.6-11.7: - 8 \D Somebody else. - 9 One last author. - 10 DATA DIVISION. - 11 > WORKING-STORAGE SECTION. ----- ^ - 12 PROCEDURE DIVISION. - 13 DISPLAY "OK" NO ADVANCING ->> Error: Unexpected indicator: `G' - -run_extensions.at-5188-prog.cob:9.13-10.26: - 6 AUTHOR. - 7 Somebody. - 8 \D Somebody else. - 9 > One last author. ----- ^^^^^^^ - 10 > DATA DIVISION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 WORKING-STORAGE SECTION. - 12 PROCEDURE DIVISION. >> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default -run_extensions.at-5188-prog.cob:12.6-12.7: - 9 One last author. - 10 DATA DIVISION. - 11 WORKING-STORAGE SECTION. - 12 > PROCEDURE DIVISION. ----- ^ - 13 DISPLAY "OK" NO ADVANCING - 14 END-DISPLAY. ->> Error: Unexpected indicator: `U' - -run_extensions.at-5188-prog.cob:14.6-14.7: - 11 WORKING-STORAGE SECTION. - 12 PROCEDURE DIVISION. - 13 DISPLAY "OK" NO ADVANCING - 14 > END-DISPLAY. ----- ^ - 15 \D DISPLAY "KO" NO ADVANCING - 16 \D END-DISPLAY. ->> Error: Unexpected indicator: `E' - -run_extensions.at-5188-prog.cob:16.6-16.7: - 13 DISPLAY "OK" NO ADVANCING - 14 END-DISPLAY. - 15 \D DISPLAY "KO" NO ADVANCING - 16 > \D END-DISPLAY. ----- ^ - 17 STOP RUN. ->> Error: Unexpected indicator: `E' - -run_extensions.at-5188-prog.cob:17.6-17.7: - 14 END-DISPLAY. - 15 \D DISPLAY "KO" NO ADVANCING - 16 \D END-DISPLAY. - 17 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `S' - -run_extensions.at-5188-prog.cob:2.7-2.8: - 1 - 2 > * Sample program in ACU terminal format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5266:0 Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5290:0 Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5315:0 diff --git a/test/output-tests/run_file.expected b/test/output-tests/run_file.expected index 344a95514..317c9ebf5 100644 --- a/test/output-tests/run_file.expected +++ b/test/output-tests/run_file.expected @@ -7986,14 +7986,6 @@ run_file.at-13896-expected.txt:2.7-2.11: 4 READ FILE1 >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:2.11-2.13: - 1 ERROR ON FILE2 - 2 > STAT-FILE1: 00 ----- ^^ - 3 STAT-FILE2: 35 - 4 READ FILE1 ->> Error: Unexpected `1:' in continuation - run_file.at-13896-expected.txt:3.7-3.11: 1 ERROR ON FILE2 2 STAT-FILE1: 00 @@ -8003,15 +7995,6 @@ run_file.at-13896-expected.txt:3.7-3.11: 5 ERROR ON FILE1 >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:3.11-3.13: - 1 ERROR ON FILE2 - 2 STAT-FILE1: 00 - 3 > STAT-FILE2: 35 ----- ^^ - 4 READ FILE1 - 5 ERROR ON FILE1 ->> Error: Unexpected `2:' in continuation - run_file.at-13896-expected.txt:4.6-4.7: 1 ERROR ON FILE2 2 STAT-FILE1: 00 @@ -8042,16 +8025,6 @@ run_file.at-13896-expected.txt:6.7-6.11: 8 READ FILE2 >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:6.11-6.13: - 3 STAT-FILE2: 35 - 4 READ FILE1 - 5 ERROR ON FILE1 - 6 > STAT-FILE1: 10 ----- ^^ - 7 STAT-FILE2: 35 - 8 READ FILE2 ->> Error: Unexpected `1:' in continuation - run_file.at-13896-expected.txt:7.7-7.11: 4 READ FILE1 5 ERROR ON FILE1 @@ -8062,16 +8035,6 @@ run_file.at-13896-expected.txt:7.7-7.11: 9 ERROR ON FILE2 >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:7.11-7.13: - 4 READ FILE1 - 5 ERROR ON FILE1 - 6 STAT-FILE1: 10 - 7 > STAT-FILE2: 35 ----- ^^ - 8 READ FILE2 - 9 ERROR ON FILE2 ->> Error: Unexpected `2:' in continuation - run_file.at-13896-expected.txt:8.6-8.7: 5 ERROR ON FILE1 6 STAT-FILE1: 10 @@ -8102,16 +8065,6 @@ run_file.at-13896-expected.txt:10.7-10.11: 12 CLOSE FILES >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:10.11-10.13: - 7 STAT-FILE2: 35 - 8 READ FILE2 - 9 ERROR ON FILE2 - 10 > STAT-FILE1: 10 ----- ^^ - 11 STAT-FILE2: 47 - 12 CLOSE FILES ->> Error: Unexpected `1:' in continuation - run_file.at-13896-expected.txt:11.7-11.11: 8 READ FILE2 9 ERROR ON FILE2 @@ -8122,16 +8075,6 @@ run_file.at-13896-expected.txt:11.7-11.11: 13 ERROR ON FILE2 >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:11.11-11.13: - 8 READ FILE2 - 9 ERROR ON FILE2 - 10 STAT-FILE1: 10 - 11 > STAT-FILE2: 47 ----- ^^ - 12 CLOSE FILES - 13 ERROR ON FILE2 ->> Error: Unexpected `2:' in continuation - run_file.at-13896-expected.txt:12.6-12.7: 9 ERROR ON FILE2 10 STAT-FILE1: 10 @@ -8162,16 +8105,6 @@ run_file.at-13896-expected.txt:14.7-14.11: 16 DELETE FILES >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:14.11-14.13: - 11 STAT-FILE2: 47 - 12 CLOSE FILES - 13 ERROR ON FILE2 - 14 > STAT-FILE1: 00 ----- ^^ - 15 STAT-FILE2: 42 - 16 DELETE FILES ->> Error: Unexpected `1:' in continuation - run_file.at-13896-expected.txt:15.7-15.11: 12 CLOSE FILES 13 ERROR ON FILE2 @@ -8181,15 +8114,6 @@ run_file.at-13896-expected.txt:15.7-15.11: 16 DELETE FILES >> Warning: Unexpected non-blank area A on continuation line -run_file.at-13896-expected.txt:15.11-15.13: - 12 CLOSE FILES - 13 ERROR ON FILE2 - 14 STAT-FILE1: 00 - 15 > STAT-FILE2: 42 ----- ^^ - 16 DELETE FILES ->> Error: Unexpected `2:' in continuation - run_file.at-13896-expected.txt:1.7-1.8: 1 > ERROR ON FILE2 ---- ^ diff --git a/test/output-tests/run_reportwriter.expected b/test/output-tests/run_reportwriter.expected index 0a16841f6..933207e27 100644 --- a/test/output-tests/run_reportwriter.expected +++ b/test/output-tests/run_reportwriter.expected @@ -4767,16 +4767,6 @@ run_reportwriter.at-2890-reference:4.7-4.11: 6 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-2890-reference:4.11-4.14: - 1 C E N T U R Y M E D I C A L C E N T E R - 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 - 3 - 4 > --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET ----- ^^^ - 5 NO NAME PAY TAX TAX DEDUCT. PAY - 6 ->> Error: Unexpected `---' in continuation - run_reportwriter.at-2890-reference:5.6-5.7: 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 3 @@ -6747,16 +6737,6 @@ run_reportwriter.at-3787-reference:8.7-8.11: 10 Dorken, Keith A 35 Waterloo " >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-3787-reference:8.11-8.71: - 5 MAJOR CS - 6 - 7 STUDENT NAME PTS CAMPUS ADVISOR - 8 > -------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike - 10 Dorken, Keith A 35 Waterloo " ->> Error: Unexpected `------------------------------------------------------------' in continuation - run_reportwriter.at-3787-reference:9.6-9.7: 6 7 STUDENT NAME PTS CAMPUS ADVISOR @@ -6837,16 +6817,6 @@ run_reportwriter.at-3787-reference:33.7-33.11: 35 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-3787-reference:33.11-33.71: - 30 MAJOR EC - 31 - 32 STUDENT NAME PTS CAMPUS ADVISOR - 33 > -------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 34 Allinson, A R 25 Whistler Hello Manning, Eric - 35 ->> Error: Unexpected `------------------------------------------------------------' in continuation - run_reportwriter.at-3787-reference:34.6-34.7: 31 32 STUDENT NAME PTS CAMPUS ADVISOR @@ -8695,16 +8665,6 @@ run_reportwriter.at-9078-reference:5.7-5.11: 7 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:5.11-5.72: - 2 Region: MW - 3 Location: 1000051 - 4 Invoice# Date Order# Line# Item# TX Qty Cost - 5 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 - 7 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:8.6-8.7: 5 -------------------------------------------------------------------------------------------------------------------------------- 6 @@ -8765,16 +8725,6 @@ run_reportwriter.at-9078-reference:65.7-65.11: 67 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:65.11-65.72: - 62 Region: MW - 63 Location: 1000071 - 64 Invoice# Date Order# Line# Item# TX Qty Cost - 65 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 66 - 67 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:68.6-68.7: 65 -------------------------------------------------------------------------------------------------------------------------------- 66 @@ -8835,16 +8785,6 @@ run_reportwriter.at-9078-reference:125.7-125.11: 127 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:125.11-125.72: - 122 Region: MW - 123 Location: 1000201 - 124 Invoice# Date Order# Line# Item# TX Qty Cost - 125 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 126 - 127 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:128.6-128.7: 125 -------------------------------------------------------------------------------------------------------------------------------- 126 @@ -8905,16 +8845,6 @@ run_reportwriter.at-9078-reference:185.7-185.11: 187 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:185.11-185.72: - 182 Region: MW - 183 Location: 1000291 - 184 Invoice# Date Order# Line# Item# TX Qty Cost - 185 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 186 - 187 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:188.6-188.7: 185 -------------------------------------------------------------------------------------------------------------------------------- 186 @@ -8965,16 +8895,6 @@ run_reportwriter.at-9078-reference:245.7-245.11: 247 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:245.11-245.72: - 242 Region: MW - 243 Location: 1000411 - 244 Invoice# Date Order# Line# Item# TX Qty Cost - 245 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 246 - 247 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:248.6-248.7: 245 -------------------------------------------------------------------------------------------------------------------------------- 246 @@ -9025,16 +8945,6 @@ run_reportwriter.at-9078-reference:305.7-305.11: 307 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:305.11-305.72: - 302 Region: MW - 303 Location: 1000451 - 304 Invoice# Date Order# Line# Item# TX Qty Cost - 305 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 306 - 307 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:308.6-308.7: 305 -------------------------------------------------------------------------------------------------------------------------------- 306 @@ -9085,16 +8995,6 @@ run_reportwriter.at-9078-reference:365.7-365.11: 367 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:365.11-365.72: - 362 Region: MW - 363 Location: 1000471 - 364 Invoice# Date Order# Line# Item# TX Qty Cost - 365 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 366 - 367 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:368.6-368.7: 365 -------------------------------------------------------------------------------------------------------------------------------- 366 @@ -9145,16 +9045,6 @@ run_reportwriter.at-9078-reference:425.7-425.11: 427 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:425.11-425.72: - 422 Region: MW - 423 Location: 1000831 - 424 Invoice# Date Order# Line# Item# TX Qty Cost - 425 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 426 - 427 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:428.6-428.7: 425 -------------------------------------------------------------------------------------------------------------------------------- 426 @@ -9225,16 +9115,6 @@ run_reportwriter.at-9078-reference:485.7-485.11: 487 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:485.11-485.72: - 482 Region: MW - 483 Location: 1000891 - 484 Invoice# Date Order# Line# Item# TX Qty Cost - 485 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 486 - 487 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:488.6-488.7: 485 -------------------------------------------------------------------------------------------------------------------------------- 486 @@ -9295,16 +9175,6 @@ run_reportwriter.at-9078-reference:545.7-545.11: 547 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:545.11-545.72: - 542 Region: NE - 543 Location: 1000001 - 544 Invoice# Date Order# Line# Item# TX Qty Cost - 545 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 546 - 547 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:548.6-548.7: 545 -------------------------------------------------------------------------------------------------------------------------------- 546 @@ -9355,16 +9225,6 @@ run_reportwriter.at-9078-reference:605.7-605.11: 607 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:605.11-605.72: - 602 Region: NE - 603 Location: 1000201 - 604 Invoice# Date Order# Line# Item# TX Qty Cost - 605 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 606 - 607 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:608.6-608.7: 605 -------------------------------------------------------------------------------------------------------------------------------- 606 @@ -9415,16 +9275,6 @@ run_reportwriter.at-9078-reference:665.7-665.11: 667 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:665.11-665.72: - 662 Region: NE - 663 Location: 1000431 - 664 Invoice# Date Order# Line# Item# TX Qty Cost - 665 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 666 - 667 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:668.6-668.7: 665 -------------------------------------------------------------------------------------------------------------------------------- 666 @@ -9485,16 +9335,6 @@ run_reportwriter.at-9078-reference:725.7-725.11: 727 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:725.11-725.72: - 722 Region: NE - 723 Location: 1000451 - 724 Invoice# Date Order# Line# Item# TX Qty Cost - 725 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 726 - 727 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:728.6-728.7: 725 -------------------------------------------------------------------------------------------------------------------------------- 726 @@ -9545,16 +9385,6 @@ run_reportwriter.at-9078-reference:785.7-785.11: 787 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:785.11-785.72: - 782 Region: NE - 783 Location: 1000471 - 784 Invoice# Date Order# Line# Item# TX Qty Cost - 785 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 786 - 787 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:788.6-788.7: 785 -------------------------------------------------------------------------------------------------------------------------------- 786 @@ -9605,16 +9435,6 @@ run_reportwriter.at-9078-reference:845.7-845.11: 847 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:845.11-845.72: - 842 Region: NE - 843 Location: 1000491 - 844 Invoice# Date Order# Line# Item# TX Qty Cost - 845 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 846 - 847 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:848.6-848.7: 845 -------------------------------------------------------------------------------------------------------------------------------- 846 @@ -9665,16 +9485,6 @@ run_reportwriter.at-9078-reference:905.7-905.11: 907 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:905.11-905.72: - 902 Region: NE - 903 Location: 1000601 - 904 Invoice# Date Order# Line# Item# TX Qty Cost - 905 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 906 - 907 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:908.6-908.7: 905 -------------------------------------------------------------------------------------------------------------------------------- 906 @@ -9725,16 +9535,6 @@ run_reportwriter.at-9078-reference:965.7-965.11: 967 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:965.11-965.72: - 962 Region: NE - 963 Location: 1000631 - 964 Invoice# Date Order# Line# Item# TX Qty Cost - 965 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 966 - 967 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:968.6-968.7: 965 -------------------------------------------------------------------------------------------------------------------------------- 966 @@ -9785,16 +9585,6 @@ run_reportwriter.at-9078-reference:1025.7-1025.11: 1027 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1025.11-1025.72: -1022 Region: NE -1023 Location: 1000671 -1024 Invoice# Date Order# Line# Item# TX Qty Cost -1025 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1026 -1027 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1028.6-1028.7: 1025 -------------------------------------------------------------------------------------------------------------------------------- 1026 @@ -9845,16 +9635,6 @@ run_reportwriter.at-9078-reference:1085.7-1085.11: 1087 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1085.11-1085.72: -1082 Region: NE -1083 Location: 1000811 -1084 Invoice# Date Order# Line# Item# TX Qty Cost -1085 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1086 -1087 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1088.6-1088.7: 1085 -------------------------------------------------------------------------------------------------------------------------------- 1086 @@ -9915,16 +9695,6 @@ run_reportwriter.at-9078-reference:1145.7-1145.11: 1147 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1145.11-1145.72: -1142 Region: NE -1143 Location: 1000831 -1144 Invoice# Date Order# Line# Item# TX Qty Cost -1145 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1146 -1147 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1148.6-1148.7: 1145 -------------------------------------------------------------------------------------------------------------------------------- 1146 @@ -9975,16 +9745,6 @@ run_reportwriter.at-9078-reference:1205.7-1205.11: 1207 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1205.11-1205.72: -1202 Region: NW -1203 Location: 1000001 -1204 Invoice# Date Order# Line# Item# TX Qty Cost -1205 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1206 -1207 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1208.6-1208.7: 1205 -------------------------------------------------------------------------------------------------------------------------------- 1206 @@ -10035,16 +9795,6 @@ run_reportwriter.at-9078-reference:1265.7-1265.11: 1267 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1265.11-1265.72: -1262 Region: NW -1263 Location: 1000011 -1264 Invoice# Date Order# Line# Item# TX Qty Cost -1265 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1266 -1267 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1268.6-1268.7: 1265 -------------------------------------------------------------------------------------------------------------------------------- 1266 @@ -10095,16 +9845,6 @@ run_reportwriter.at-9078-reference:1325.7-1325.11: 1327 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1325.11-1325.72: -1322 Region: NW -1323 Location: 1000051 -1324 Invoice# Date Order# Line# Item# TX Qty Cost -1325 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1326 -1327 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1328.6-1328.7: 1325 -------------------------------------------------------------------------------------------------------------------------------- 1326 @@ -10175,16 +9915,6 @@ run_reportwriter.at-9078-reference:1385.7-1385.11: 1387 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1385.11-1385.72: -1382 Region: NW -1383 Location: 1000071 -1384 Invoice# Date Order# Line# Item# TX Qty Cost -1385 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1386 -1387 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1388.6-1388.7: 1385 -------------------------------------------------------------------------------------------------------------------------------- 1386 @@ -10235,16 +9965,6 @@ run_reportwriter.at-9078-reference:1445.7-1445.11: 1447 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1445.11-1445.72: -1442 Region: NW -1443 Location: 1000091 -1444 Invoice# Date Order# Line# Item# TX Qty Cost -1445 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1446 -1447 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1448.6-1448.7: 1445 -------------------------------------------------------------------------------------------------------------------------------- 1446 @@ -10325,16 +10045,6 @@ run_reportwriter.at-9078-reference:1505.7-1505.11: 1507 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1505.11-1505.72: -1502 Region: NW -1503 Location: 1000201 -1504 Invoice# Date Order# Line# Item# TX Qty Cost -1505 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1506 -1507 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1508.6-1508.7: 1505 -------------------------------------------------------------------------------------------------------------------------------- 1506 @@ -10385,16 +10095,6 @@ run_reportwriter.at-9078-reference:1565.7-1565.11: 1567 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1565.11-1565.72: -1562 Region: NW -1563 Location: 1000231 -1564 Invoice# Date Order# Line# Item# TX Qty Cost -1565 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1566 -1567 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1568.6-1568.7: 1565 -------------------------------------------------------------------------------------------------------------------------------- 1566 @@ -10445,16 +10145,6 @@ run_reportwriter.at-9078-reference:1625.7-1625.11: 1627 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1625.11-1625.72: -1622 Region: NW -1623 Location: 1000251 -1624 Invoice# Date Order# Line# Item# TX Qty Cost -1625 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1626 -1627 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1628.6-1628.7: 1625 -------------------------------------------------------------------------------------------------------------------------------- 1626 @@ -10505,16 +10195,6 @@ run_reportwriter.at-9078-reference:1685.7-1685.11: 1687 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1685.11-1685.72: -1682 Region: NW -1683 Location: 1000401 -1684 Invoice# Date Order# Line# Item# TX Qty Cost -1685 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1686 -1687 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1688.6-1688.7: 1685 -------------------------------------------------------------------------------------------------------------------------------- 1686 @@ -10575,16 +10255,6 @@ run_reportwriter.at-9078-reference:1745.7-1745.11: 1747 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1745.11-1745.72: -1742 Region: NW -1743 Location: 1000411 -1744 Invoice# Date Order# Line# Item# TX Qty Cost -1745 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1746 -1747 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1748.6-1748.7: 1745 -------------------------------------------------------------------------------------------------------------------------------- 1746 @@ -10645,16 +10315,6 @@ run_reportwriter.at-9078-reference:1805.7-1805.11: 1807 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1805.11-1805.72: -1802 Region: NW -1803 Location: 1000491 -1804 Invoice# Date Order# Line# Item# TX Qty Cost -1805 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1806 -1807 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1808.6-1808.7: 1805 -------------------------------------------------------------------------------------------------------------------------------- 1806 @@ -10705,16 +10365,6 @@ run_reportwriter.at-9078-reference:1865.7-1865.11: 1867 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1865.11-1865.72: -1862 Region: NW -1863 Location: 1000611 -1864 Invoice# Date Order# Line# Item# TX Qty Cost -1865 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1866 -1867 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1868.6-1868.7: 1865 -------------------------------------------------------------------------------------------------------------------------------- 1866 @@ -10765,16 +10415,6 @@ run_reportwriter.at-9078-reference:1925.7-1925.11: 1927 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1925.11-1925.72: -1922 Region: NW -1923 Location: 1000631 -1924 Invoice# Date Order# Line# Item# TX Qty Cost -1925 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1926 -1927 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1928.6-1928.7: 1925 -------------------------------------------------------------------------------------------------------------------------------- 1926 @@ -10845,16 +10485,6 @@ run_reportwriter.at-9078-reference:1985.7-1985.11: 1987 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:1985.11-1985.72: -1982 Region: NW -1983 Location: 1000651 -1984 Invoice# Date Order# Line# Item# TX Qty Cost -1985 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -1986 -1987 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:1988.6-1988.7: 1985 -------------------------------------------------------------------------------------------------------------------------------- 1986 @@ -10905,16 +10535,6 @@ run_reportwriter.at-9078-reference:2045.7-2045.11: 2047 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2045.11-2045.72: -2042 Region: NW -2043 Location: 1000671 -2044 Invoice# Date Order# Line# Item# TX Qty Cost -2045 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2046 -2047 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2048.6-2048.7: 2045 -------------------------------------------------------------------------------------------------------------------------------- 2046 @@ -10965,16 +10585,6 @@ run_reportwriter.at-9078-reference:2105.7-2105.11: 2107 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2105.11-2105.72: -2102 Region: NW -2103 Location: 1000691 -2104 Invoice# Date Order# Line# Item# TX Qty Cost -2105 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2106 -2107 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2108.6-2108.7: 2105 -------------------------------------------------------------------------------------------------------------------------------- 2106 @@ -11025,16 +10635,6 @@ run_reportwriter.at-9078-reference:2165.7-2165.11: 2167 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2165.11-2165.72: -2162 Region: NW -2163 Location: 1000811 -2164 Invoice# Date Order# Line# Item# TX Qty Cost -2165 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2166 -2167 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2168.6-2168.7: 2165 -------------------------------------------------------------------------------------------------------------------------------- 2166 @@ -11085,16 +10685,6 @@ run_reportwriter.at-9078-reference:2225.7-2225.11: 2227 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2225.11-2225.72: -2222 Region: NW -2223 Location: 1000851 -2224 Invoice# Date Order# Line# Item# TX Qty Cost -2225 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2226 -2227 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2228.6-2228.7: 2225 -------------------------------------------------------------------------------------------------------------------------------- 2226 @@ -11145,16 +10735,6 @@ run_reportwriter.at-9078-reference:2285.7-2285.11: 2287 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2285.11-2285.72: -2282 Region: NW -2283 Location: 1000871 -2284 Invoice# Date Order# Line# Item# TX Qty Cost -2285 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2286 -2287 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2288.6-2288.7: 2285 -------------------------------------------------------------------------------------------------------------------------------- 2286 @@ -11215,16 +10795,6 @@ run_reportwriter.at-9078-reference:2345.7-2345.11: 2347 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2345.11-2345.72: -2342 Region: NW -2343 Location: 1000891 -2344 Invoice# Date Order# Line# Item# TX Qty Cost -2345 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2346 -2347 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2348.6-2348.7: 2345 -------------------------------------------------------------------------------------------------------------------------------- 2346 @@ -11275,16 +10845,6 @@ run_reportwriter.at-9078-reference:2405.7-2405.11: 2407 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2405.11-2405.72: -2402 Region: SE -2403 Location: 1000001 -2404 Invoice# Date Order# Line# Item# TX Qty Cost -2405 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2406 -2407 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2408.6-2408.7: 2405 -------------------------------------------------------------------------------------------------------------------------------- 2406 @@ -11335,16 +10895,6 @@ run_reportwriter.at-9078-reference:2465.7-2465.11: 2467 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2465.11-2465.72: -2462 Region: SE -2463 Location: 1000011 -2464 Invoice# Date Order# Line# Item# TX Qty Cost -2465 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2466 -2467 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2468.6-2468.7: 2465 -------------------------------------------------------------------------------------------------------------------------------- 2466 @@ -11405,16 +10955,6 @@ run_reportwriter.at-9078-reference:2525.7-2525.11: 2527 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2525.11-2525.72: -2522 Region: SE -2523 Location: 1000091 -2524 Invoice# Date Order# Line# Item# TX Qty Cost -2525 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2526 -2527 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2528.6-2528.7: 2525 -------------------------------------------------------------------------------------------------------------------------------- 2526 @@ -11485,16 +11025,6 @@ run_reportwriter.at-9078-reference:2585.7-2585.11: 2587 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2585.11-2585.72: -2582 Region: SE -2583 Location: 1000211 -2584 Invoice# Date Order# Line# Item# TX Qty Cost -2585 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2586 -2587 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2588.6-2588.7: 2585 -------------------------------------------------------------------------------------------------------------------------------- 2586 @@ -11545,16 +11075,6 @@ run_reportwriter.at-9078-reference:2645.7-2645.11: 2647 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2645.11-2645.72: -2642 Region: SE -2643 Location: 1000411 -2644 Invoice# Date Order# Line# Item# TX Qty Cost -2645 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2646 -2647 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2648.6-2648.7: 2645 -------------------------------------------------------------------------------------------------------------------------------- 2646 @@ -11605,16 +11125,6 @@ run_reportwriter.at-9078-reference:2705.7-2705.11: 2707 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2705.11-2705.72: -2702 Region: SE -2703 Location: 1000431 -2704 Invoice# Date Order# Line# Item# TX Qty Cost -2705 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2706 -2707 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2708.6-2708.7: 2705 -------------------------------------------------------------------------------------------------------------------------------- 2706 @@ -11675,16 +11185,6 @@ run_reportwriter.at-9078-reference:2765.7-2765.11: 2767 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2765.11-2765.72: -2762 Region: SE -2763 Location: 1000451 -2764 Invoice# Date Order# Line# Item# TX Qty Cost -2765 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2766 -2767 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2768.6-2768.7: 2765 -------------------------------------------------------------------------------------------------------------------------------- 2766 @@ -11735,16 +11235,6 @@ run_reportwriter.at-9078-reference:2825.7-2825.11: 2827 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2825.11-2825.72: -2822 Region: SE -2823 Location: 1000471 -2824 Invoice# Date Order# Line# Item# TX Qty Cost -2825 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2826 -2827 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2828.6-2828.7: 2825 -------------------------------------------------------------------------------------------------------------------------------- 2826 @@ -11805,16 +11295,6 @@ run_reportwriter.at-9078-reference:2885.7-2885.11: 2887 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2885.11-2885.72: -2882 Region: SE -2883 Location: 1000491 -2884 Invoice# Date Order# Line# Item# TX Qty Cost -2885 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2886 -2887 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2888.6-2888.7: 2885 -------------------------------------------------------------------------------------------------------------------------------- 2886 @@ -11865,16 +11345,6 @@ run_reportwriter.at-9078-reference:2945.7-2945.11: 2947 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:2945.11-2945.72: -2942 Region: SE -2943 Location: 1000601 -2944 Invoice# Date Order# Line# Item# TX Qty Cost -2945 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -2946 -2947 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:2948.6-2948.7: 2945 -------------------------------------------------------------------------------------------------------------------------------- 2946 @@ -11925,16 +11395,6 @@ run_reportwriter.at-9078-reference:3005.7-3005.11: 3007 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3005.11-3005.72: -3002 Region: SE -3003 Location: 1000631 -3004 Invoice# Date Order# Line# Item# TX Qty Cost -3005 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3006 -3007 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3008.6-3008.7: 3005 -------------------------------------------------------------------------------------------------------------------------------- 3006 @@ -11985,16 +11445,6 @@ run_reportwriter.at-9078-reference:3065.7-3065.11: 3067 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3065.11-3065.72: -3062 Region: SE -3063 Location: 1000671 -3064 Invoice# Date Order# Line# Item# TX Qty Cost -3065 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3066 -3067 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3068.6-3068.7: 3065 -------------------------------------------------------------------------------------------------------------------------------- 3066 @@ -12055,16 +11505,6 @@ run_reportwriter.at-9078-reference:3125.7-3125.11: 3127 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3125.11-3125.72: -3122 Region: SE -3123 Location: 1000891 -3124 Invoice# Date Order# Line# Item# TX Qty Cost -3125 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3126 -3127 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3128.6-3128.7: 3125 -------------------------------------------------------------------------------------------------------------------------------- 3126 @@ -12115,16 +11555,6 @@ run_reportwriter.at-9078-reference:3185.7-3185.11: 3187 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3185.11-3185.72: -3182 Region: SW -3183 Location: 1000011 -3184 Invoice# Date Order# Line# Item# TX Qty Cost -3185 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3186 -3187 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3188.6-3188.7: 3185 -------------------------------------------------------------------------------------------------------------------------------- 3186 @@ -12175,16 +11605,6 @@ run_reportwriter.at-9078-reference:3245.7-3245.11: 3247 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3245.11-3245.72: -3242 Region: SW -3243 Location: 1000031 -3244 Invoice# Date Order# Line# Item# TX Qty Cost -3245 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3246 -3247 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3248.6-3248.7: 3245 -------------------------------------------------------------------------------------------------------------------------------- 3246 @@ -12245,16 +11665,6 @@ run_reportwriter.at-9078-reference:3305.7-3305.11: 3307 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3305.11-3305.72: -3302 Region: SW -3303 Location: 1000091 -3304 Invoice# Date Order# Line# Item# TX Qty Cost -3305 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3306 -3307 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3308.6-3308.7: 3305 -------------------------------------------------------------------------------------------------------------------------------- 3306 @@ -12305,16 +11715,6 @@ run_reportwriter.at-9078-reference:3365.7-3365.11: 3367 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3365.11-3365.72: -3362 Region: SW -3363 Location: 1000201 -3364 Invoice# Date Order# Line# Item# TX Qty Cost -3365 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3366 -3367 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3368.6-3368.7: 3365 -------------------------------------------------------------------------------------------------------------------------------- 3366 @@ -12375,16 +11775,6 @@ run_reportwriter.at-9078-reference:3425.7-3425.11: 3427 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3425.11-3425.72: -3422 Region: SW -3423 Location: 1000211 -3424 Invoice# Date Order# Line# Item# TX Qty Cost -3425 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3426 -3427 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3428.6-3428.7: 3425 -------------------------------------------------------------------------------------------------------------------------------- 3426 @@ -12445,16 +11835,6 @@ run_reportwriter.at-9078-reference:3485.7-3485.11: 3487 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3485.11-3485.72: -3482 Region: SW -3483 Location: 1000271 -3484 Invoice# Date Order# Line# Item# TX Qty Cost -3485 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3486 -3487 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3488.6-3488.7: 3485 -------------------------------------------------------------------------------------------------------------------------------- 3486 @@ -12515,16 +11895,6 @@ run_reportwriter.at-9078-reference:3545.7-3545.11: 3547 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3545.11-3545.72: -3542 Region: SW -3543 Location: 1000401 -3544 Invoice# Date Order# Line# Item# TX Qty Cost -3545 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3546 -3547 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3548.6-3548.7: 3545 -------------------------------------------------------------------------------------------------------------------------------- 3546 @@ -12575,16 +11945,6 @@ run_reportwriter.at-9078-reference:3605.7-3605.11: 3607 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3605.11-3605.72: -3602 Region: SW -3603 Location: 1000411 -3604 Invoice# Date Order# Line# Item# TX Qty Cost -3605 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3606 -3607 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3608.6-3608.7: 3605 -------------------------------------------------------------------------------------------------------------------------------- 3606 @@ -12635,16 +11995,6 @@ run_reportwriter.at-9078-reference:3665.7-3665.11: 3667 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3665.11-3665.72: -3662 Region: SW -3663 Location: 1000431 -3664 Invoice# Date Order# Line# Item# TX Qty Cost -3665 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3666 -3667 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3668.6-3668.7: 3665 -------------------------------------------------------------------------------------------------------------------------------- 3666 @@ -12705,16 +12055,6 @@ run_reportwriter.at-9078-reference:3725.7-3725.11: 3727 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3725.11-3725.72: -3722 Region: SW -3723 Location: 1000601 -3724 Invoice# Date Order# Line# Item# TX Qty Cost -3725 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3726 -3727 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3728.6-3728.7: 3725 -------------------------------------------------------------------------------------------------------------------------------- 3726 @@ -12765,16 +12105,6 @@ run_reportwriter.at-9078-reference:3785.7-3785.11: 3787 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3785.11-3785.72: -3782 Region: SW -3783 Location: 1000611 -3784 Invoice# Date Order# Line# Item# TX Qty Cost -3785 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3786 -3787 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3788.6-3788.7: 3785 -------------------------------------------------------------------------------------------------------------------------------- 3786 @@ -12825,16 +12155,6 @@ run_reportwriter.at-9078-reference:3845.7-3845.11: 3847 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3845.11-3845.72: -3842 Region: SW -3843 Location: 1000651 -3844 Invoice# Date Order# Line# Item# TX Qty Cost -3845 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3846 -3847 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3848.6-3848.7: 3845 -------------------------------------------------------------------------------------------------------------------------------- 3846 @@ -12885,16 +12205,6 @@ run_reportwriter.at-9078-reference:3905.7-3905.11: 3907 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3905.11-3905.72: -3902 Region: SW -3903 Location: 1000831 -3904 Invoice# Date Order# Line# Item# TX Qty Cost -3905 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3906 -3907 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3908.6-3908.7: 3905 -------------------------------------------------------------------------------------------------------------------------------- 3906 @@ -12965,16 +12275,6 @@ run_reportwriter.at-9078-reference:3965.7-3965.11: 3967 >> Warning: Unexpected non-blank area A on continuation line -run_reportwriter.at-9078-reference:3965.11-3965.72: -3962 Region: SW -3963 Location: 1000871 -3964 Invoice# Date Order# Line# Item# TX Qty Cost -3965 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3966 -3967 ->> Error: Unexpected `-------------------------------------------------------------' in continuation - run_reportwriter.at-9078-reference:3968.6-3968.7: 3965 -------------------------------------------------------------------------------------------------------------------------------- 3966 diff --git a/test/output-tests/syn_misc.expected b/test/output-tests/syn_misc.expected index 51b11d42f..b4b266011 100644 --- a/test/output-tests/syn_misc.expected +++ b/test/output-tests/syn_misc.expected @@ -1206,14 +1206,6 @@ syn_misc.at-1903-prog.cob:8.0: >> Warning: Invalid syntax Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1936:0 -syn_misc.at-1936-prog.cob:6.11-6.15: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 GO - 6 > - BACK. ----- ^^^^ ->> Error: Unexpected `BACK' in continuation - Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2005:0 Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2045:0 syn_misc.at-2045-prog2.cob:11.7-11.46: @@ -4621,5 +4613,7 @@ syn_misc.at-8199-prog.cob:7.7-7.16: Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8235:0 Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8284:0 Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8286:0 +>> Warning: Source format `auto` is not supported yet, using `fixed` + Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8283:0 Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8340:0