RE: Printing a Subfile - Revisited

When you chain through the sub-file, don't you need to use RRN (the
relative record number associated with the subfile)?
As RRN was the last record written, the chain would get the last record
written
Change your logic to the following
NOTE as you create the sub-file, save the RRN to another field (as
suggested previously e.g. RRNMAX)
then
Rrn = 1;
Write heading;
DoW Rrn < Rrnmax;
Chain Rrn MySubFile;
.. process ..
Write Detail;
Chain Rrn MySubFile;
Enddo



                                                                       
             "Brian                                                    
             Piotrowski"                                               
             <bpiotrowski@simc                                          To
             oeparts.com>              "RPG programming on the AS400 / 
             Sent by:                  iSeries" <rpg400-l@xxxxxxxxxxxx>
             rpg400-l-bounces@                                          cc
             midrange.com                                              
                                                                   Subject
                                       RE: Printing a Subfile - Revisited
             10/13/2005 02:16                                          
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




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