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

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