Re: Special characters

[steema@xxxxxxxxxxxxx]

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