RE: Printer File Line Count

["Popeil, Russ" <Russ.Popeil@xxxxxxxxx>]

For the printer file create a INFDS and the current line number can be found
at 367 368  type binary. 

The following code snippet checks to see if the last printed line is greater
than 60 (your choice) and then prints headings 


FQPRT198   O    F  198        PRINTER OFLIND(*INOF)

F
INFDS(INFDS)
DINFDS            DS

D LINE@                 367    368B 0                  
C                   IF        Line@ > 60                                  
C                   Except    HEAD

C                   Endif


Russ Popeil
IBM Certified Specialist - RPG Programmer & AS/400 Sales Associate 
Avnet Computer - Integrated Solutions. Bottom-Line Results.
Office: 516-677-9346, Fax: 516-677-0296, Beeper: 516-786-5846
eMail:  Russ.popeil@avnet.com
http://www.avnetcomputer.com




-----Original Message-----
From: Joe Giusto [mailto:JDG@patuxent.com]
Sent: Monday, July 06, 1998 12:37 PM
To: 'midrange-l@midrange.com'; 'RPG400-L@midrange.com'
Subject: Printer File Line Count


Is there any way to know what line number of a printed page i am on
without keeping my own line counter?  i looked in the INFDS but unless i
am missing something, it is not there.  (pos 152 - 153 binary will show
the number of lines of the printer file but not the number of lines used
on the page.)  we have a need for dynamic overflow (summary lines for an
account can vary in number which is why i can not just set and check for
overflow).  Hate to set it to something like 50 and waste 16 lines of
space if i don't have to.

thank you,

Joe Giusto 
Patuxent Publishing
mailto:jdg@patuxent.com


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---