RE: Monitor block performance question

Thanks Charles and John!

When I said fairly large the whole log which was about 9999+ pages long had this error only..... I would say out of million records may be more than 70% + of them gad the error.....

TEST(N) is good idea or bad? Open for any suggestions


MCH1202 Escape 40 07/06/21 22:56:58.951684 EF9XXXXX CXXXXXX *STMT EF9XXXXXX CXXXXXXX *STMT
From module . . . . . . . . : EF9XXXXXXX
From procedure . . . . . . : EF9XXXXXXX
Statement . . . . . . . . . : 94700
To module . . . . . . . . . : EF9XXXXXXX
To procedure . . . . . . . : EF9XXXXXXX
Statement . . . . . . . . . : 94700
Message . . . . : Decimal data error.
Cause . . . . . : The sign or the digit codes of the packed or the zoned
decimal operand is in error. Valid signs are hex A-F, valid digit range is
hex 0-9.

Data definition -

XXXXXD DS
XXXXXD NP18 1 9a Inz
XXXXXD NP18D 1 9P 0 Inz

XXXXXD DtlRefNum S 18s 0 Inz
D refNum 18a

Thanks,
Ashwani                                                              


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Charles Wilt
Sent: Thursday, July 8, 2021 5:11 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Monitor block performance question

⚠ EXTERNAL MESSAGE – Think Before You Click



Exceptions are always "costly"...

But 400K out of how many? 500K? Yeah, check before conversion.

400K out of 10M? I wouldn't worry about it.

Charles


On Thu, Jul 8, 2021 at 12:13 PM Singh, Ashwani (Lake Mary) via RPG400-L < rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Hello,

Would like to check with you guys if monitor block handling
significant higher errors ( > 400K and may be more do not have exact
stat but significantly higher) would impact performance the program
or is it insignificant and will not have any impact at all.

if bkntRefNum <> *blanks;
np18 = bkntRefNum;
dtlRefNum = np18d;
evalR refNum = %char(dtlRefNum);
endif;
on-Error;
refNum = bkntRefNum;
endMon;

TIA!

Thanks,
Ashwani
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
https://urldefense.com/v3/__https://lists.midrange.com/mailman/listinf
o/rpg400-l__;!!P9vvK-4S!wXuFVXenZ9MCY7DDdwhEy8392ZorMDUCV-MBKq6MV3H1xR
L8xtuDYzZn1Hw9yviSs_A$ or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!P9vvK-4S!wXuFVXenZ9MCY7DDdwhEy8392ZorMDUCV-MBKq6MV3H1xRL8xtuDYzZn1Hw9xPabLNM$ .

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://urldefense.com/v3/__https://amazon.midrange.com__;!!P9vvK-4S!w
XuFVXenZ9MCY7DDdwhEy8392ZorMDUCV-MBKq6MV3H1xRL8xtuDYzZn1Hw9CBZHqkU$

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.com/v3/__https://lists.midrange.com/mailman/listinfo/rpg400-l__;!!P9vvK-4S!wXuFVXenZ9MCY7DDdwhEy8392ZorMDUCV-MBKq6MV3H1xRL8xtuDYzZn1Hw9yviSs_A$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://urldefense.com/v3/__https://archive.midrange.com/rpg400-l__;!!P9vvK-4S!wXuFVXenZ9MCY7DDdwhEy8392ZorMDUCV-MBKq6MV3H1xRL8xtuDYzZn1Hw9xPabLNM$ .

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://urldefense.com/v3/__https://amazon.midrange.com__;!!P9vvK-4S!wXuFVXenZ9MCY7DDdwhEy8392ZorMDUCV-MBKq6MV3H1xRL8xtuDYzZn1Hw9CBZHqkU$