Re: REXX QIBM_REX_FIND_SRCMBR

[Tom Liotta <qsrvbas@xxxxxxxxxxxx>]

lgoodbar@xxxxxxxxxxxxxx wrote:
> David, the procedure simply removes the "outside" quotes, not the inside
> ones. If the string doesn't have any surrounding quotes then no harm.
>
> RUNSQL2 CMD('update truc set ma=''hello'' where myzone = ''blah blah''')
> REXX session:
> 'update truc set ma=''hello'' where myzone = ''blah blah'''
> update truc set ma=''hello'' where myzone = ''blah blah''
> Press ENTER to end terminal session.
>
> One extra call in the REXX and problem solved. In my opinion the extra
> flexibility and validation the command interface provides offsets
> working with quotes.

I did it this way:

parse arg 'SQL('sqlstring') OUTPUT('
[snip]
sql = undouble_apost(substr(sqlstring,2,length(sqlstring)-2))
[snip]
exit

undouble_apost:

parse arg wrk?

do while pos("''",wrk?) \= 0
    parse var wrk? head "''" tail
    wrk? = head'00'x||tail
end

do while pos('00'x,wrk?) \= 0
    parse var wrk? head '00'x tail
    wrk? = head"'"tail
end

return(wrk?)
[snip]

I'm sure it can be much more efficient than that, but it's never 
been enough of a problem to be a... umm... problem.

In my usage, the outer quotes always exist; so, I cut them out as 
part of the argument to the undouble_apost() procedure. In the proc, 
I convert each doubled apostrophe to a '00'x token. Then I convert 
each '00'x token to a single apostrophe.

I know, I could've combined those into essentially a single 
operation by tracking my positions in the string; but that just 
didn't turn out to be worth the effort.

Tom Liotta

> -----Original Message-----
>
> I'll be sticking to my original command with a CL as a CPP. Imagine this
> command :
> RUNSQL2 CMD('update truc set ma=''hello'' where myzone = ''blah blah''')
> etc, it's simply unworkable.
>
> But thanks for the interesting REXX functions that I completely ignored
> the existance of until now.