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 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
>     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

Reply via email to