RE: Divide by zero monitoring

["Wills, Mike N. (TC)" <MNWills@xxxxxxxxxxxxxx>]

thanks, we are still currently at V4R5 :-(

-----Original Message-----
From: Jon Paris [mailto:Jon.Paris@Partner400.com]
Sent: Monday, March 04, 2002 7:20 PM
To: rpg400-l@midrange.com
Subject: Divide by zero monitoring


 > For the EVAL statement, is there a way to monitor for divide by zero
errors?

If you are on V5R1 - YES.  Use the MONITOR/ENDMON pair around any code where
this may happen and code the error recovery in the ON-ERROR section.  Like
so:

     C                   Monitor
     C                   Eval      X = Y / Z
     C                   On-Error  DivideByZero
     C*                     Fix it!
     C                   EndMon

You are not restricted to a single operation - there could be a whole bunch
of stuff in between Monitor and On-Error.  It's great for validating
transactions that may contain "dirty" numeric data.  Just scream through it
and fix it if it blows. Much faster than having to test each field.

If you are on a release earlier than V5R1 - Sorry.

Jon Paris
Partner400


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.