Re: %replace question

Alan,

I snipped this from a working program of mine:


*// Get rid of all invalid characters in title. *
*// Nullstring is a 1A Varying character stand-alone field with keyword
Inz('')*

*Dou Pos = 0; *
* Pos = %CHECK('ABCDEFGHIJKLMNOPQRSTUVWXYZ ':Custtl); *
* If Pos > 0; *
* Custtl = %REPLACE(Nullstring:Custtl:Pos:1); *
* Endif; *
*Enddo;*
That routine gets rid of anything that isn't upper-case alpha or blanks in
Custtl. So if Custtl was, say,
*'3MR.'*

it would change to

*'MR '.*
On Jan 18, 2008 3:24 PM, Alan Shore <AlanShore@xxxxxxxx> wrote:

Hi everyone
my name is Alan, and I am a person who has Friday afternoon brain freeze
(In unison : "Hi, Alan")
I have some data that contains pairs of double-quotes ("") that need to be
replaced with single quote (" - with 2 characters being replaced with 1 so
that the rest of the data is moved to the left.
Now the data field may contain a number of pairs of these double quotes
(but never 2 pairs together - for example ""STREET"" that needs to be
replaced with "STREET" - left adjusted
My head is stuck on using %replace - is this correct, or should I be using
something else?

Thanks in advance



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.