RE: Replace

Try this...

Dblanks           c                   Const('                           ')

Eval alphc=%xlate(specchars:blanks:alphc)



Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On 
Behalf Of steema@xxxxxxxxxxxxx
Sent: Tuesday, January 31, 2006 10:28 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Replace

Tommy - not compiling, doesn't like the factor 2.

mine is:

eval      alphc=%Xlate(specchars:*blanks:alphc)

D Alphc                         58a
D ARC                            1    DIM(58) Overlay(alphc)

is the problem that it is a data strucure type of field?



> Dspecchars        c                   Const(',.#@!$%¢&*()-_=+";:/?><`~\|')
>
> c                   eval      comment=%Xlate(specchars:*blanks:comment)
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of steema@xxxxxxxxxxxxx
> Sent: Tuesday, January 31, 2006 9:53 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Replace
>
> I have looked here,
> http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSCAN
>  but can't seem to figure out the code I need to,
>
> look at the entire comment field of 40. Replace any special characters
> found w/ a *Blank.
>
> This should be the final hurdle.
> --
> 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.
>
>
> --
> 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.
>
>