Re: Editting a numeric entry field in DDS

Robert,
While the VALNUM keyword will test if the field is a valid numeric, you might
want to use the CHECK(RZ) keyword to force the user to press the Field Exit key
on the field.
This would prevent the condition you are seeing. ( I am assuming the the data to
the right of the ____ is left over from a prior entry).

Thanks,
 
Jeff Young
Sr. Programmer Analyst
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

  
 






________________________________
From: Robert Rogerson <rogersonra@xxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Fri, October 29, 2010 1:12:48 PM
Subject: Re: Editting a numeric entry field in DDS

Thanks Cameron,

I had just found and tested it.

Sorry Dennis, I had checked the RPG list and come up empty.  At your
suggestion,  I checked all the lists and finally found VALNUM in the
midrange-l list archive.

Thanks,

Robert Rogerson


On Fri, Oct 29, 2010 at 12:38 PM, Cameron Ross <c.ross.work@xxxxxxxxx>wrote:

Try the VALNUM keyword.

On Fri, Oct 29, 2010 at 11:58 AM, Robert Rogerson <rogersonra@xxxxxxxxx

wrote:

Hi All,

I have an entry screen with a numeric entry field (15, 2).  The user
accidentally entered 8_____452 (underscore represent blanks) and when the
field exit key was pressed the field was converted to 8000004.52.

I have tried changing the keyboard shift values and added CHECK(FE) but
this
did not invalidate the entry.

What I'm trying to accomplish is that only the right most numbers are
valid,
if a number, followed by a blank and then another number is entered, it

is

invalid.
For example:
  8___452 is invalid as a blank separates the numbers.
452____  is valid as no numbers follow the blank.

This is probably pretty basic but I can't think of it right now.  I hope
someone knows off the top of their head.

Thanks,

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