Re: Auto-eject Printouts

You don't need to have the file be user-open.  You can close any file any
time.  Once closed you can open it any time.  The user-open keyword is
useful when you want to delay the opening of some file until its needed or
some other action has occurred. 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 06/24/05 15:15:03
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Auto-eject Printouts
 
I think you need to do a user-controlled open on your print file and
then close it in your program.  As long as the file is open, it won't print.
 
Brian Piotrowski wrote:
> 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.
 
 
.