RE: printing a subfile

To go one step further, you can give your users an enhanced print key by
doing what Booth showed below, adding PRINT(*PGM) to the display file
and finally checking for %STATUS(DSPF) = 1121 (or your favorite
constant) to run code like below.  This works best with full load sub
files but other sub file program types just requires the programmer to
do more of the work to output the data.   

With the above added to your program you must, however, report back to
the users that you generated the report. Not hard with message sub
files.

I also take the DSPF and convert it to a PRTF (taking out the items that
are not allowed in PRTFS, renaming formats, adding spacing keywords and
viola you have a quick report that looks just like the screen.   Once
you know what to remove and add to a DSPF converted to a PRTF, it become
a very quick step to complete. 

Thanks, Matt



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Friday, May 26, 2006 10:52 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: printing a subfile

Use an for/endfor loop

   C          for     Index  =  1 to SubfileSize
   C  Index   chain   subfile
   C          exsr    PrintSubroutine
   C          endfor

(no need to clear or increment the Index unless I really screwed up. 
SubfileSize is already established, so this is a pretty straightforward 
process.)



RPower@xxxxxxxxxx wrote:
> Reread the file that loads the subfile and use that to produce the
print.
> Or forcably read the subfile and use that to produce the print.
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> 709-576-8132
> rpower@xxxxxxxxxx
> http://www.stjohns.ca/
>
________________________________________________________________________
___
> Success is going from failure to failure without a loss of enthusiasm.
- 
> Sir Winston Churchill
> 
> 
> 
> 
> steema@xxxxxxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 2006/05/25 01:16 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> 
> To
> rpg400-l@xxxxxxxxxxxx
> cc
> 
> Subject
> printing a subfile
> 
> 
> 
> 
> 
> 
> HI I wrote a subfile inquiry, now they want to be able to print it. Is
> there an easy way to print it in one shot? Or would need to move each
line
> to the print file?
> 
> Thanks,
> Steve