RE: Printer Overflow and BIF's -- RPG400-L

Title: RE: Printer Overflow and BIF's

Jim,

Don't give up on the %Error BiF. I am using it to regulate overflow successfully in several programs. If you could send us a snippet of the actual code you were running when you were having the problem perhaps we could figure it out. What I am doing is almost identical to the sample you provided.

Here it is:

Fspecs first:

FMROMRLL1 IF   E           K DISK
F*
FJCV278P   O    E             PRINTER
D*

Cspces:

C*
C                   WRITE(E) DETAIL
C*

C                   IF        %ERROR
C                   WRITE     HEADING
C                   Endif

This works beautifully for me with no problem.

Bryan Yates

Sr. Programmer/Analyst

Information Systems

Collin County Government

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On Behalf Of Sneddon, Jim
Sent: Wednesday, May 02, 2001 10:37 AM
To: 'RPG400-L@midrange.com'
Subject: RE: Printer Overflow and BIF's

Peter,

I'm sorry - I forgot that little detail.

It is an externally described printer file.

It works (of course) by using an OFLIND(*IN55) and then watching for *in55. I was not able to get it to work by using the %error method and it won't let you specify something like OFIND(%ERROR)... I did not think of setting an OFLIND and then watching for %error but I doubt it will work - I'll give it a try just for grins.

So it works with the old method and everyone is happy (as happy as end-users will ever be) but I was just curious if I could take advantage of some new method using the BIF's instead.

Thanks

>Printer Overflow and BIF's

>Hi Jim,

>The manual states "An error occurs if overflow is reached to an externally
>described print file and no overflow indicator has been specified on the
>File description specification." It doesn't say what it will do for an
>internally-describer print file, with or without the overflow indicator
>specified. Which did you have, internal or external? And did you specify an
>overflow indicator?

>Curious,
>Peter Dow
>Dow Software Services, Inc.
>909 425-0194 voice
>909 425-0196 fax

Jim Sneddon

AS400 RPG Programmer

Allstate Ticketing

jsneddon@allstateticketing.com

www.showtickets.com