RE: procedure/subroutine to quote a string with quotes

Dan,
One way to do this in RPG IV is to
D Dodo          S        1064     Varying
D Q1            S         1   inz(')
D NewDoDo       S        1070     Varying

C     Eval NewDODO = Q1 + DoDo + Q1

I am sure that there are many other ways to do this and most likely better
but I know this works

Ron Newman
Sr. Programmer Analyst
IBM - Certified Programmer
MHC
1524 North Corrington
Kansas City, MO 64120
816.242.6273


-----Original Message-----
From: Dan [mailto:dbcerpg@yahoo.com]
Sent: Friday, November 08, 2002 1:44 PM
To: rpg400-l@midrange.com
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.