Re: Auto-eject Printouts

You'd need to close and open the printer file manually.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                           
             "Brian                                                        
             Piotrowski"                                                   
             <bpiotrowski@simc                                          To 
             oeparts.com>              "RPG programming on the AS400 /     
             Sent by:                  iSeries" <rpg400-l@xxxxxxxxxxxx>    
             rpg400-l-bounces@                                          cc 
             midrange.com                                                  
                                                                   Subject 
                                       Auto-eject Printouts                
             06/24/2005 03:38                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




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

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



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.