× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.