RE: Check for Invalid data

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

If the field actually supports NULL values, you can use

IF %NULLID(field) = *ON

to check to see if it is null.

If that's not it, then use:

IF  %Subst(field : 1 : 1) = X'00'



Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Mike.Windbeck@US.exel.com
> Sent: Thursday, January 03, 2002 4:01 PM
> To: rpg400-l@midrange.com
> Subject: Check for Invalid data
>
> I am doing an EVAL to put multiple fields into one variable.  Two of
the
> fields in the EVAL contained invalid data.   All of the  fields for
the
> EVAL are from a pf and they are defined as character data, but when I
look
> at the data I noticed that the values are NULL or hex 00.   My
question is
> how do I check for this invalid value before my EVAL?   I can not
change
> the pf because it is from package.
>
>
> Thank you,
>
> Mike Windbeck
>
>
>
>
> ______________________________________________________________________
> Important Email Information
>
> The information in this email is confidential and may be legally
> privileged. It is intended solely for the addressee. Access to this
email
> by anyone else is unauthorized. If you are not the intended recipient,
any
> disclosure, copying, distribution or any action taken or omitted to be
> taken in reliance on it, is prohibited and may be unlawful. If you are
not
> the intended addressee please contact the sender and dispose of this
> e-mail.
>
> _______________________________________________
> 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.