× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.