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 mailto: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 
> > mailto: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 
> > > mailto: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 
> > > > mailto:Oorexx-devel@lists.sourceforge.net
> > > >                 
> > > > https://lists.sourceforge.net/lists/listinfo/oorexx-devel
> > > > 
> > > >             > > >             
> > > > _______________________________________________
> > >             Oorexx-devel mailing list
> > >             Oorexx-devel@lists.sourceforge.net 
> > > mailto:Oorexx-devel@lists.sourceforge.net
> > >             https://lists.sourceforge.net/lists/listinfo/oorexx-devel
> > > 
> > >         > > 
> > 
> > 
> >         _______________________________________________
> >         Oorexx-devel mailing list
> >         Oorexx-devel@lists.sourceforge.net 
> > mailto: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

Reply via email to