Well, Walter, if you knew what the problem was ... It seems perfectly reasonable to be for the interpreter to treat 'call' there as the name of a control variable (as that's all that is allowed there). But in this case I suppose "loop has no control variable but one is specified" might be more accurate -- but perhaps is just as confusing? Mike
_____ From: WalterPachl via Oorexx-devel [mailto:oorexx-devel@lists.sourceforge.net] Sent: 25 July 2022 11:47 To: Open Object Rexx Developer Mailing List Cc: WalterPachl Subject: Re: [Oorexx-devel] suboptimal error diagnostic I know what the problem is: the comma after the End. I consider your diagnostic no better. There is no control variable. Anyway: the diagnostic in context is what I consider suboptimal! See my first posting on that matter Thanks anyway Walter Rick McGuire <object.r...@gmail.com> hat am 25.07.2022 12:03 geschrieben: I get a different result on the current build, 29 *-* End ,Call lineout oid 1 *-* call merge Error 21 running E:\ORexxDev\builds\oorexx\merge.rex line 29: Invalid data on end of clause. Error 21.909: Data must not follow the END control variable name; found "LINEOUT". you do have a dangling continuation character after the END. Rick On Mon, Jul 25, 2022 at 5:55 AM WalterPachl via Oorexx-devel <oorexx-devel@lists.sourceforge.net> wrote: H:\_tri>rexx merge REXX-ooRexx_5.0.0(MT)_64-bit 6.05 21 Apr 2022 H:\_tri\.html konnte nicht gefunden werden H:\_tri>rexx merge 29 *-* End ,Call lineout oid Error 21 running H:\_tri\merge.rex line 29: Invalid data on end of clause. Error 21.909: Data must not follow the END control variable name; found "LINEOUT". Parse Arg pn Parse Var pn name '_' frame='7.html' data=name'_html.data' oid=name'.html'; 'erase' oid Do While lines(data)>0 dl=linein(data) Do While lines(frame)>0 fl=linein(frame) If left(fl,4)='<img' Then Do Parse Var fl aaa "'" p "." bbb Call o aaa"'"pn"."bbb Iterate End If left(fl,2)=left(dl,2) Then Do Call o dl'<br>' Leave End call o fl End End Do While lines(frame)>0 fl=linein(frame) If left(fl,4)='<p>D' Then Do Parse Var fl aaa ':' fl=aaa':' date() time() End call o fl End , Call lineout oid Exit o: Return lineout(oid,arg(1)) Rick McGuire <object.r...@gmail.com> hat am 25.07.2022 11:22 geschrieben: Without being able to see merge.rex, it's pretty much impossible to give you an answer. Also, which version of oorexx are you using? Rick On Mon, Jul 25, 2022 at 2:28 AM WalterPachl via Oorexx-devel <oorexx-devel@lists.sourceforge.net> wrote: A phenomenon: A rather large program of mine ends as follows: H:\_tri>rexx trid test Syntax raised in line 219 Call merge pn rc=21 (Invalid data on end of clause.) The problem lies in merge.rex as shown by this snippet: H:\_tri>rexx good We call bad 27 *-* End , call o fl 2 *-* Call merge Error 21 running H:\_tri\merge.rex line 27: Invalid data on end of clause. Error 21.909: Data must not follow the END control variable name; found "O". Any idea? Regards Walter PS There is no "END control variable name" in merge.rex _______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel _______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel _______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel _______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel LG Walter
_______________________________________________ Oorexx-devel mailing list Oorexx-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-devel
