RE: Using %dec to validate a field contains only numeric characters

Keep in mind that if you are actually expecting non-numeric values with any regularity, a Monitor block will write error messages out to the job log. I wish there was a way to not do so, but I was pretty much shut down when I suggested that to Alison Butterill. Since then I wrote a couple procedures I use to pull out job log entries caused by expected errors.

Another option would be to use %check to avoid the job log messages.
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBCHK

However, if job log entries are of no concern, Monitor should be perfect.

Kurt Anderson

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Christen, Duane
Sent: Thursday, February 10, 2011 9:04 AM
To: RPG programming on the IBM i / System i
Subject: RE: Using %dec to validate a field contains only numeric characters

Alan;

Monitor;
X = %Dec(%Trim(charField) : 13 : 0);

On-Error;
// Non decimal data in charField

EndMon;

You may or may not need/want the %Trim.

Duane Christen

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Thursday, February 10, 2011 8:34 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Using %dec to validate a field contains only numeric characters


Morning all
my brain is still stuck in neutral even though I've had a large number of cups of coffee

I am sure that I have done this before, but I cannot locate it I have a 13 character field that can contain a number of any length with leading and/or trailing blanks I am pretty sure that I have used %dec to validate that the field contains numeric data and will give an error if a blank is somewhere other than trailing or leading Does any one know what I am talking about?

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.