RE: Replace

[steema@xxxxxxxxxxxxx]

I did this, but there is no replacing happening w/ the data in Alphc.


> 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.
>>
>>
>
> --
> 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.
>
>