RE: Printing a Subfile - Revisited

You are not reading the subfile for some reason.  It is just printing the
last values, probably from when the subfile was filled in the first place.. 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 10/13/05 13:30:35
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.
 
.