RE: Problem using CHECK

["Klein, Ron" <ron.klein@xxxxxxxxxx>]

Richard,
I did try that, the problem though is that I need the result to be the array
so I can see all fields that need to be translated and not just the first
one that it hits.

Even though I move all my characters to a string I still get the error on
the result array.

Ron

-----Original Message-----
From: Richard B Baird [mailto:rbaird@esourceconsulting.com]
Sent: Monday, February 11, 2002 3:30 PM
To: rpg400-l@midrange.com
Subject: Re: Problem using CHECK



Ron,

what is VALIDCHR(1)? if an array of valid characters, you'd get a hit on
every one.

Try something like this instead:

make validchr a string (not an array) initialized with all valid
characters.
badchr is a number (big enough to hold size of GNADD3).

 C     VALIDCHR      CHECK     GNADD3        BADCHR

 C                   DOW       %FOUND
 C                   EXSR      FIX_NM1RECORD
 C     VALIDCHR      CHECK     GNADD3        BADCHR
 C                   ENDDO

hth,

rick

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.