RE: Auto-eject Printouts

I also use FEOD (old style RPG) to end spooling before the close; this combo
always worked for me

Rich Sara
Senior Programmer\Analyst
John Maneely and Related Companies
Station House Building
900 Haddon Ave
Collingswood NJ, 08108
Phone: 856-854-5400, ext 347
Toll Free:  800-257-8182, ext 347
Fax: 856-854-6267
 
"Treat a man as he is, he will remain so. Treat a man the way he can be and
ought to be, and he will become as he can be and should be. " Johann
Wolfgang von Goethe.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Eric A. Wolf
Sent: Friday, June 24, 2005 3:51 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Auto-eject Printouts

You may need to control the opening of the printer file and once you get out
of the loop and after you write the footer, close the file. Open it again
for the next set....

Eric

----- Original Message -----
From: "Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, June 24, 2005 12:38 PM
Subject: Auto-eject Printouts


Hi All,



I have a command that will call the printout routine once the data is
displayed on-screen.  However, I'm having an issue in the fact that the
program will not actually print the report until the program is stopped.



Here's my code for the printing feature:



        BegSR PrintReport;

          TLOT = GETYM + '-' + GETRRN;

          rdashes = *ALL'-';

          write HEADING;

          SetGT SEARCHKEY DPKDL_LF;

          ReadP DPKDL_LF;

          Rrn = 1;

          DoW NOT %EOF(DPKDL_LF) and (Rrn <= 9999);

            If PrtOverFlow;

              Write HEADING;

              PrtOverflow = *off;

            endif;

            SUPPLIER = %TRIM(SUPP) + '-' + %TRIM(SUPPLC);

            If ASNQTY = 0;

              ASNAMT = 'N/A';

            Else;

              ASNAMT = %char(ASNQTY);

            Endif;



            If ASNETA ='01/01/2000';

              ASNDATE = 'N/A';

            Else;

              ASNDATE = ASNETA;

            Endif;



            Write DETAIL;

            ReadP DPKDL_LF;

            Rrn = Rrn + 1;

          EndDo;

          Write pfooter;

        EndSR



What do I need to add to my code to get it to automatically print?



Thanks again!


Brian.





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

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

bpiotrowski@xxxxxxxxxxxxxxx

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