RE: Auto-eject Printouts

Thanks for the info, everyone.  I solved the problem by closing the file
and opening it right away as soon as it was closed (I had to do this
because it would give me an I/O error if you tried to print again right
away).

Brian.

-----Original Message-----
From: Booth Martin [mailto:booth@xxxxxxxxxxxx] 
Sent: Friday, June 24, 2005 4:28 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.

 

 

.