Re: blank or 0 in database field

[Jeff Young <cooljeff913@xxxxxxxxx>]

Jay,
Since the field is defined as a Signed field, not Packed, you will not get a 
data decimal error.
You can test the field for BLANK by redefining it in your program as a 
Character field and testing that value for *Blank.
 
Jeff Young 
Sr. Programmer Analyst
Dynax Solutions, Inc.
A wholly owned subsidiary of enherent Corp.
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer 
V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions 
Implementer V5R3 


  
 





----- Original Message ----
From: Alan Shore <AlanShore@xxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, October 18, 2006 5:05:31 PM
Subject: Re: blank or 0 in database field


Hi Jay
My first question would be, even though its a non-AS/400 application, its
still bad practice to move a nonnumeric value to a field that is defined as
numeric, unless on the non-AS/400 system, the field it IS a nonnumeric
field.
Anyway.
The first thing that comes to my mind is to code to see if the field = 0
(that's zero), and by default, the exception is blank. However, I think
(underline think) you may get a data decimal error on this if statement,
therefore you may have to enclose this if code between monitor end-mon.


rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/18/2006 04:44:19 PM:

> We have a PF with a field defined 9s0...
>
> A non-as/400 application moves data to that field and according to the
> programmer, it is either 0 or blank...
>
> Is there a way to determine in my rpg pgm whether he moved a 0 or blank
to
> that field?
>
>
>
>
>
> Thanks,
>
>
> Jay Vaughn
> iSeries Senior Programmer/Analyst
> RateWatch
> jayv@xxxxxxxxxxxxxx
> 251-633-8929
> --
> 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.