RE: Handling decimal data errors at the field level

Thanks, Alan. I had found that REXX code in my googling this issue. I
think I may have to do a similar process (without REXX).

Best Regards,

Thomas Garvey
Office: 630-462-3991

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Shore
Sent: Friday, June 20, 2008 11:55 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Handling decimal data errors at the field level

Hi Thomas
I don't know if this will give you what you want, but give it a go
http://www.itjungle.com/fhg/fhg061307-story01.html



Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/20/2008 12:40:12 PM:

Hi,

Has anyone had any experience handling decimal data errors at the
field level? I know you can trap for the decimal data error that
happens when

a

record is read that contains a decimal data error in one of the field
values, and I know you can set the FIXNBR parameter on the RPG compile
to automatically fix numeric values that are bad. But I want to know
which specific field(s) in the record were bad. It's OK that the
compiler will fix them for me, but I want to know which field(s) in
the record were

fixed.

Any ideas?

Best Regards,

Thomas Garvey
630-462-3991

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