Re: Preventing a divide by zero error

If a zero value is expected (perhaps a stock quantity) then test before the divide.

If it is not expected (but could happen) use MONITOR.

MONITOR has a very low overhead - less than a test - so it makes sense to use it if it is not going to occur often. Also I personally think that MONITOR makes the intent of the code more obvious - i.e. the expected logic path and the exception are clearly identified as to which is which.


On 2013-06-21, at 9:15 AM, Gary Thompson <gthompson@xxxxxxxxxxx> wrote:

Me too: what Michael said.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Clay Carley
Sent: Thursday, June 20, 2013 9:24 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Preventing a divide by zero error

This sounds like an easy an easy thing to check for, but here's what is going on:

I'm studying (on my own) RPG IV using Stanley Myers' book, "RPG IV Programming on the AS/400". I'm doing the programming assignments at the end of Chapter 5, and assignment 5-2 wants "Include the control that prevents a divide-by-zero error". As far as I can tell, this hasn't been discussed in the book yet; so I don't want to jump ahead with a solution that isn't what they are really looking for.

This is what the line in question could be something like:

C EVAL GRPFT = NETPRICE / GROSSPRFT

Is there some EVAL option I'm missing for this? Setting indicators is discussed, but for the life of me I don't see anything related to divide by zero.

I did some searching, but I found what I would logically do to check for a zero in the variable before doing the math. That hasn't been covered in this book yet, so I'm guessing there is something else to it.

Thanks,
Clay Carley
Sonic.net/ Sonic Telecom
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com