|
Don, You are correct - mea culpa. So we have to save the maximum value in another field defined like RRN: If rrn > 0; // skip the whole thing if no records in subfile Rrn_max = rrn; For Wrkrrn = 1 to Rrn_max; 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; Francis Lapeyre IS Dept. Programmer/Analyst Stewart Enterprises, Inc. Voice: (504) 729-1468 or (800) 257-1610, ext. 1468 FAX: (504) 729-1457 E-mail: flapeyre@xxxxxxxx -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Fisher, Don Sent: Thursday, October 13, 2005 12: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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.