RE: Printing a Subfile - Revisited

I'm not sure you're stuck on the last record from following the
thread....

*some* of the detail data on the report does change per record...those
are the same fields that are defined in your subfile.  The other fields
on your detail record should be as well else you'll have to move the
data from the display fields to the print fields. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Piotrowski
Sent: Thursday, October 13, 2005 2:03 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Printing a Subfile - Revisited

Thanks for the info, Tommy.

I still seem to be stuck on the last record of the subfile.  When I run
the print subroutine, it prints out the same last record info for the
number of records in the subfile.

So if there are 50 rows in the subfile, I will get the last record
printed out 50 times.

Is there some way to do a SetLL on a subfile?

Brian.

-----Original Message-----
From: Holden Tommy [mailto:Tommy.Holden@xxxxxxxxxxxxxxxxx]
Sent: Thursday, October 13, 2005 2:43 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Printing a Subfile - Revisited

MaxRRN=RRN;
For WrkRRN = 1 to MaxRRN;
  Chain WrkRRN mysubfile;
   // do print stuff
EndFor; 

Don't touch RRN anywhere in the for loop...

Appears you are using the RRN on the Chain statement....

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Piotrowski
Sent: Thursday, October 13, 2005 1:25 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Printing a Subfile - Revisited

Hi Again,

Ok, I also tried doing an Rrn_Max and moving the Rrn value into it.

Here's a sample of the subfile that prints out to the display:
200510-ZA-001 32155S9V A031            6      191630 13 RP  10/01/2005
08:08
200510-ZA-001 32155S9V A121            6      191630 13 RP  10/01/2005
08:08
200510-ZA-001 32155S9V A301            6      191630 13 RP  10/01/2005
08:08
200510-ZA-002 33100S3V A120M1          2      141350 04 SS  10/02/2005
09:38
200510-ZA-003 51320S0X C000M1          120    132280 01 SS  10/02/2005
11:37
200510-ZA-004 76861S3V A040M2          10     140290 04 SS  10/02/2005
14:11
200510-ZA-005 79100S3V A400M1          3      140290 11 SS  10/02/2005
14:11

However, when I print it out, here's the output I get:
200510-ZA-005  79100S3V A400M1           3       140290 11  SS
10/02/2005  14:11
 200510-ZA-005  79100S3V A400M1           3       140290 11  RP
10/02/2005  14:11
 200510-ZA-005  79100S3V A400M1           3       140290 11  RP
10/02/2005  14:11
 200510-ZA-005  79100S3V A400M1           3       140290 11  RP
10/02/2005  14:11
 200510-ZA-005  79100S3V A400M1           3       140290 11  SS
10/02/2005  14:11
 200510-ZA-005  79100S3V A400M1           3       140290 11  SS
10/02/2005  14:11
 200510-ZA-005  79100S3V A400M1           3       140290 11  SS
10/02/2005  14:11

It's maddening knowing that I'm so close and yet there's one small issue
that is not working.

Brian.

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

You're also making the assumption there have been no other file i/o
operations to the subfile, which seems valid in this case, but would not
necessarily be so all the time.  

That's why I usually have Rrn_max updated with rrn after I load records
into the subfile.  It makes my life less complicated...my programming
life anyway.

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


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