RE: Printing from a Subfile

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

%EOF() needs the name of the FILE (display file in this case) or leave
it off.

Thank you,
Matt Tyler
WinCo Foods, LLC
mattt@xxxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Piotrowski
Sent: Monday, October 03, 2005 10:37 AM
To: RPG programming on the AS400 / iSeries
Subject: Printing from a Subfile

Hi All,

 

I'm having a brain-freeze today.... How do I print from a subfile?  So
far in my code I have (KDSDATA is the name of the subfile):

 

Write heading;

Rrn = 1;

DoW not %eof(kdsdata);

Chain Rrn Kdsdata;

If prtoverflow;

  Write heading;

  Prtoverflow = *Off;

Endif;

Write detail;

Rrn = Rrn + 1;

Enddo;

Write Footer;

 

But the compiler is giving me grief with the %EOF() statement.  I now
know it is because the KDSDATA is not really a file, but a record.  Is
there such thing as "end of recordset", or am I going about this wrong?

 

Any ideas?

 

Thanks!


Brian.

 

 

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

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

bpiotrowski@xxxxxxxxxxxxxxx

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