RE: Printing a Subfile - Revisited

I am curious why you don't choose a for,endfor loop?  You will never go back
to dow or dou in a situation like you are describing. 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 10/13/05 13:25:33
To: RPG programming on the AS400 / iSeries
Subject: 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>
--
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.
 
.