RE: Level 40 field size problem

[rob@xxxxxxxxx]

...to not know when an error has occurred and return erroneous results 
back to the user.  Yes, Mr. Accountant, if I add 1 dollar to 999 dollars 
the result is zero dollars, right?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/04/2005 11:53 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Level 40 field size problem






Just goes to show, you can't beat the old tried and trusted opcodes...

;-)

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Cozzi
Sent: 04 February 2005 16:20
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Level 40 field size problem


Sure, just try it.

D testfld   S     3P 0

C        Z-ADD 999999    testFld      // Will work

C        eval  testFld = 999999      // Will fail

-Bob




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