Re: %replace question

["Francis Lapeyre" <flapeyre@xxxxxxxxx>]

Oops, I hit Send too soon...

In your case, you would initialize *Nullstring* with the replacement
character of your choice (and rename the variable for clarity). The
double-quote you're searching for would be in the first parameter the *
%Check* BIF (assuming you want to replace all occurances; if only one, then
take out the DO loop).

On Jan 18, 2008 3:51 PM, Francis Lapeyre <flapeyre@xxxxxxxxx> wrote:

> 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.
>
>
> --
> Francis Lapeyre
>
> Solum potestis prohibere ignes silvarum.