Re: "Monitor" does not monitor for RNQ0103 (target for numeric operation is too small)?

Kerry,

Here's how I might do it without regard to any status code.
Honest, I've never had an RPG run-time exception that monitor did not catch.

----------------------------------------------

D MinutesLate S 5p 0D realMinutes S 20u 0

MinutesLate = *hival;
realMinutes = *hival;

monitor;
realMinutes = %diff( %timestamp: LateTS: *minutes );
on-error;
endmon;

if realMinutes < MinutesLate;
MinutesLate = realMinutes;
endif;

----------------------------------------------

Ought not to cause any error ever.

Stu



On Tue, Sep 29, 2009 at 09:00, <KLockwood@xxxxxxxxxxxxxxxxxxx> wrote:

I put a Monitor in my code to specifically catch this error, but it
doesn't seem to work. Here is the code. Note the TruncNbr(*no) that I
put in the H-spec to make sure that was working (but I think that is the
default, right?)
I didn't see anything in the archives.

H OPTION (*NoDebugIO : *SrcStmt) TruncNbr(*no)
.
.
D MinutesLate S 5p 0
.
.
monitor;
MinutesLate = %diff(%timestamp : LateTS : *minutes);
on-error;
MinutesLate = 99999;
endMON;

Yesterday I added a check specifically for the RNQ0103 in hopes that it
would catch the error, but I don't think I should have to do that. I
don't know if that fixed it, but I haven't gotten any complaints about
getting the error since then!

monitor;
MinutesLate = %diff(%timestamp : LateTS : *minutes);
on-error 0103; // Target too small to hold result
MinutesLate = 99999;
on-error;
MinutesLate = 99999;
endMON;

Mr. Kerry Lockwood
Celadon Trucking, Inc.
9503 E. 33rd Street
Indianapolis, IN 46235
(317) 972-7000 ext. 2147


NOT JUST A TRUCKING COMPANY! Celadon offers a wide array of logistics
solutions, including Warehousing, Brokerage, and LTL Consolidation. To
learn more, call (800) CELADON ext. 7048.


STATEMENT OF CONFIDENTIALITY: The information in this message is
privileged and confidential and is intended only for the use of the
individual or entity named above. If the reader of this message is not the
intended recipient you are hereby notified that you are prohibited from
disseminating distributing or copying the information contained in this
message. If you have received this message in error please notify the
sender immediately and destroy all copies of the original message.
--
This is the RPG programming on the IBM i / System i (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.