RE: Message queue is full...

Tommy - here you go

C eval Dr# = 0
C dou not %found(Ord122)
C eval Dr# += 1
C Dr# chain Ord122d
C if %found(Ord122)
C exsr Isitemtaxed
C endif

This is just a sampling of what I would "loosely" term - a MONOLITH of a
program
If you look up the definition of MONOLITH in the dictionary, I'm sure you
will see a listing of this program there.
I've tried to keep a count of how many subfile records there are, but with
numerous ways of adding, deleting and changing line items, it just was'nt
feasable. hence the method of reading the subfile until there is no more.



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill





"Holden Tommy"
<Tommy.Holden@hca
healthcare.com> To
Sent by: "RPG programming on the AS400 /
rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx>
midrange.com cc

Subject
05/14/2007 04:41 RE: Message queue is full...
PM


Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>






Why not just prevent the error?? Can you post some code? Seems much better
to fix the real problem instead of ignoring it...


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Shore
Sent: Monday, May 14, 2007 3:20 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Message queue is full...


Afternoon all
I wonder if someone could point me in the right direction regarding the API
QMHRMVPM..
Here is the problem
We have an order entry program with the usual screens.
Bill to
Ship to
Items ordered
etc.
For all input errors (whatever they may be) we use a message subfile at the
bottom of each screen.
The items ordered screen is a subfile, which we have to read to determine
if ANY of the items ordered are taxable, depending upon the destination,
and if so what is the tax rate to use.
Here is where my problem arises.
To read the subfile, I use rrn chain, until no more records. Now because of
that, we are getting the error message
Subfile record not found
Which is message-id CPF5020
The error message "Subfile record not found" also appears in the error
message subfile, and it sometimes causes consternation with our users.
I am trying to use the API QMHRMVPM. to remove CPF5020 from the program
message queue, but keep all the others, but no matter what I do I either
clear ALL the messages, or the program dies when I am trying to use the
QMHRMVPM API.
Any help or pointers would be much appreciated.
Thanks in advance



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill



rpg400-l-bounces@xxxxxxxxxxxx wrote on 05/14/2007 02:51:58 PM:

At COMMON, Bruce Vining gave a session about, among other things, the
APIs used to remove messages.

The title of the session was "Integrating Servicability into your ILE
Apps" Or something like that.

The relevant portion is the API QMHRMVPM which can be called from RPG
to remove the message fromthe program message queue just like the
commands available in CL. His point was that if you have taken care of
the reason for the message and no longer need it you can remove it.

If you have access to COMMON because of attending the conference, you
could get his handout on the web I think.

hth,

Dave B

"Charles St-Laurent" <dringpiece@xxxxxxxxxxx> 05/14/07 8:50 AM >>>

Hi!

I will try to receive the error in my on-error block... It seems that
it is
the only real solution in my case...

Charles


<rob@xxxxxxxxx> a écrit dans le message de

news:OFC30A6E7D.D52474B2-ON852572DB.0049AA5F-852572DB.0049E512@xxxxxxxxxxxx

One of the drawbacks on monitor, in which the possibility of

numerous

errors is high, is just what you cited. A method commonly used when
errors are smaller, but you still do not want them cluttering the job

log

(since you've already handled them) is to use the api to receive a

message

from the job message queue in he on-error logic to remove the

clutter. If

that sounds like the ticket, respond back and someone may post a

sample.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Charles St-Laurent" <dringpiece@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/14/2007 08:06 AM
Please respond to
RPG programming on the AS400 / iSeries

<rpg400-l@xxxxxxxxxxxx>

To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
Message queue is full...






Hi!

I run a program that detects decimal errors in files that I converted

from

S/36 environment to native externally described files. The way my

program

works is simple: I trap the decimal errors with MONITOR blocks. The

only

problem is: with big files, my program generates many "decimal

error"

messages in the background and sometimes I received a message saying

that

the message queue is full.

The way I temporary patched my application is to launch it with

*WRAP

parameter for my message queue but I do believe that it is not the

best

solution. Is there any way to launch my program without changing

deeply my

code and without generating this message? Or at least, can I delete

this

message each time it is generated in my message queue?

Thanks in advance for your answers
Charles

--
This is the RPG programming on the AS400 / 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 AS400 / 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 AS400 / 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.