RE: Divide by zero monitoring - fixed

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

I would have done that... however, in my array processing, I had to print
out each month separately, so I would have had 5 times the number of lines
in my program. Now that I have changed it to loops, I can do that. Then I
wouldn't have bothered asking.

Thanks for all of the responses everyone. I have it all figured out now!

-----Original Message-----
From: Nicolay, Paul [mailto:paul_nicolay@merck.com]
Sent: Tuesday, March 05, 2002 10:11 AM
To: 'rpg400-l@midrange.com'
Subject: RE: Divide by zero monitoring


Mike,

In this case (although Monitor is more advanced)... you could also have
written

        If      Z = 0
           Fix it
        Else
        Eval    X = Y / Z
        EndIf

To prevent is always better than to cure !

Kind regards,
Paul

-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@taylorcorp.com]
Sent: 05 March, 2002 17:05
To: 'rpg400-l@midrange.com'
Subject: RE: Divide by zero monitoring


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.