RE: Printing a Subfile - Revisited

Don, you are correct.  In my F-Spec, I have:
MYDISPLAY   CF   E             Workstn Sfile(MySubFile:Rrn)

So I went and made some changes to the program.  Here's the modified
print subroutine:

WrkRrn = 1;
Write heading;
DoW WrkRrn < Rrn;
Chain WrkRrn MySubFile;
.. process ..
Write Detail;
Chain WrkRrn MySubFile;
Enddo

When I run the program, it will only print the very last record in the
subfile plus one other record that has mixed data (some fields from the
last record and some fields from another record in the subfile).

Thanks,

Brian.

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

Assuming rrn is the subfile relative record number specified in the "F"
specification, which is what I gathered from the original post, this
will
cause only the first record to be processed as rrn is updated with each
i/o
operation on the subfile. 

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

<clip>
If rrn > 0; // skip the whole thing if no records in subfile
  For Wrkrrn = 1 to rrn;
  Chain wrkrrn mysubfile;
    if %found(mydisplay); // should always be true
      If *IN99;  // or whatever your PRTF overflow indicator is    
        write heading;
      endif;
      write detail; // print a detail line
    Endif;
  Endfor;
Endif; 
<clip>