RE: Printing a Subfile - Revisited

Sorry, yes there is another CHAIN command from within the DoW routine
just after wrkrrn = wrkrrn +1.  The problem I'm having is that it's not
even entering the routine.  As soon as it hits the "DoW" command, it
skips over the entire processing as (I'm guessing) %found(mydisplay) is
not true.

I did a DoW wrkrrn < rrn and found that it is indeed at the end of the
recordset.  I just need to move to the top of the recordset and process.

Brian.

-----Original Message-----
From: Fisher, Don [mailto:dfisher@xxxxxxxxxxxxx] 
Sent: Thursday, October 13, 2005 1:33 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Printing a Subfile - Revisited

Is that all the code?  It seems like there should be another CHAIN after
adding 1 to Wrkrrn.  I usually write these routines with DOW Wrkrrn <
NumberOfRecordsInSubfile and place the CHAIN inside the DOW loop.  Aside
from being intuitive, it eliminates all those "Subfile record not found"
messages in the job log. 

Hope that helps. 

Donald R. Fisher, III
Project Manager
Roomstore Furniture Company
(804) 784-7600 extension 2124
DFisher@xxxxxxxxxxxxx


<clip>
Wrkrrn = 1;

Write heading;

Chain wrkrrn mysubfile;

Dow %found(mydisplay);

... process ...

Wrkrrn = Wrkrrn + 1;

Enddo;

However, the system automatically jumps over the DoW statement and
doesn't
print out any details.
<clip>