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.