Re: %replace question

["Francis Lapeyre" <flapeyre@xxxxxxxxx>]

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.