RE: Message queue is full...

Why can't you do a RCVMSG RMV(*YES)?

-----Original Message-----
From: rpg400-l-bounces+dturnidge=oldrepublictitle.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+dturnidge=oldrepublictitle.com@xxxxxxxxxxxx] On
Behalf Of Alan Shore
Sent: Tuesday, May 15, 2007 8:21 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Message queue is full...

Thanks for your reply Larry
however, I think I will get the same problem. Not necessarily the same
code, but a different one.
The problem is NOT that the CPF5020 is being generated, (the program
continues on its merry way, after all that's I'm surmising that's how
%found works ) but how can I remove it from the program log.



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 06:39:44 PM:

Hi Alan,

<snip>
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
</snip>

One solution is to put the SFLNXTCHG keyword in the DDS for the
subfile

but

DO NOT condition it on an indicator. This will ALWAYS mark ALL subfile

records as changed.

Then replace your loop with a readc loop. You will read all records

written

because they have all "changed". This prevents you having to worry
about whether a particular record was written with a particular RRN.
you can simply readc until eof.

HTH

Cheers

Larry Ducie


--
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.