× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Could you change it to a For loop?

For Dr# = 1 To SFLRRN; // (whatever the current value for RRN is)
Chain Dr# Ord122d;
exsr lsitemtaxed;
EndFor;

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:57 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.