RE: Printing a Subfile - Revisited

Brian,

Can u change BIF from %FOUND() to NOT %EOF(Display File) and see whether it is 
working? Also an extra Chain at the end of the Dow loop for further Subfile 
record fetch.

Shepherd 



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

Hi All,

 

I have a new program that reads from a physical file and populates a
subfile.  I would like to use the contents of the subfile and print out
a report.

 

In my D-Specs, I have RRN 4 0 INZ and also WrkRRN Like(RRN).  In my
subroutine, I do this:

Wrkrrn = 1;

Write heading;

Chain wrkrrn mysubfile;

Dow %found(mydisplay);

... process ...

Wrkrrn = Wrkrrn + 1;

Enddo;

 

However, the system automatically jumps over the DoW statement and
doesn't print out any details.  I have checked the value of RRN when it
enters this subroutine, and the value of RRN is equal to the amount of
records in the subfile.  However, I believe that when this routine is
executed, it is already at the end of the recordset, and the details
aren't printed.

 

Does anyone have any ideas what might be wrong in this situation?

 

Thanks!



Brian.

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

bpiotrowski@xxxxxxxxxxxxxxx

-=-=-=-=-=-=-=-=-=-=-=-=-=-