Re: procedure/subroutine to quote a string with quotes

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Use a constant defined as follows:

D Quote           C                   Const(X'7D')

To put the quote in line, use the + operator.  ie:

eval   thisstring = 'Don' + QUOTE + 's in deep doo-doo with deleting Dave' +
QUOTE + s files.'

Have Fun!

Mike

----- Original Message -----
From: "Dan" <dbcerpg@yahoo.com>
To: <rpg400-l@midrange.com>
Sent: Friday, November 08, 2002 2:43 PM
Subject: procedure/subroutine to quote a string with quotes


> The archives are down...  I have an urgent need... <g>
>
> I've got to take a string from a user input and surround it in quotes.
> The problem arises when the string itself has a quote or multiple
> quotes in it.  So if a user keys in:
>   Don's in deep doo-doo with deleting Dave's files.
>
> then I gotta put into a variable:
>   'Don''s in deep doo-doo with deleting Dave''s files.'
>
> Can someone help me from having to reinvent the wheel?  I will need
> solutions for both CL and RPG-IV (at v4r5), but will gladly take one or
> the other for now.
>
> TIA, Dan
>
> __________________________________________________
> Do you Yahoo!?
> U2 on LAUNCH - Exclusive greatest hits videos
> http://launch.yahoo.com/u2
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>