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
