RE: Special characters

Switch Factor 1 and Factor 2.

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of steema@xxxxxxxxxxxxx
Sent: Tuesday, January 31, 2006 8:03 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Special characters

Thank you, but I am not getting a compile:

arw(k)        scan      ':#,.*':fl

it doesn't like factor 2.

fl is defined elsewhere.


> To find them:  %scan(':;,.*': field)   This will return zero if not
> found, where it is the first one otherwise.
> To find anything other than valid: %check('0123456...': field)  Gives 
> zero if all valid,
>
> steema@xxxxxxxxxxxxx wrote:
>
>>is there a simple way to check a field for characters as '#', ':', 
>>'.', etc... rather than asking on each one?
>>
>>
>
>
> --
> 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.