RE: Question of retreiving the negative value in the program

["Haas, Matt" <Matt.Haas@xxxxxxxxxxx>]

If you go this route, you want to make sure than the negative symbol is either 
at the beginning or the end and not in the middle. You'll also need to make 
sure that just numbers are entered since using a character field would allow 
someone to enter garbage like A-B1. A validation routine like this would be a 
great service program. 

There are also examples of this type of code available. An example of one is at 
http://www.netshare400.com/cgi-bin/DSPSAMP?file=QRPGLESRC&mbr=F.CONVERT. This 
example strips non-numerics out so my garbage example would come back as -1. I 
use this specific routine quite a bit when validating numerics from CGI 
programs since all of the parameters come in as character data.

Matt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
ganeshkumar.murugesan@xxxxxxxxx
Sent: Wednesday, March 16, 2005 5:51 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Question of retreiving the negative value in the program



Use a character field (which is one length greater than the actual
field) in the screen. Inside your program, scan for the '-' sign and if
found process accordingly.

Note: This will work fine if the user enters the data either way. 100-
or -100.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Matchrefree@xxxxxxxxx
Sent: Wednesday, March 16, 2005 3:58 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Question of retreiving the negative value in the program

Hi

I know when i enter 100- as the input i am getting the value as
negative.
But the question i like to ask is is there any way i can retreive the
nagative value in the program if the user enters -100 in the screen
field.

I am using

CVAR1             S           3P 0  INZ(0)

 this is the varaible that hold the value entered be the user in the
screen field FLD001 whihc is given as

 A            FLD001           3Y 0B  9 33

The program works fine for negative condition if the user enters 100-.
Is it possibel to catch -100 entered?.            Please excuse me if my
questions seems to be dumb.

Thanks a lot
Hari
<snip>