|
Thanks all, I'm don't know why OVRPRT would do that to it, seems like it would just overide the output queue.
But I don't feel bad, I know little to nothing about the rules of printing. Even after reviewing several of the Redbooks on printing.
(Maybe I should have left out that last part.)
Thanks again.
Buddy,jrusling@xxxxxxxxxxxxxxxxxxx 7/10/2009 1:49:49 PM >>>
Ie; (of what Charles said) -
1) You don't have an OFLIND keyword on the printer file's f-spec to
specify an indicator to be used to indicate overflow.
// Printer file
fediinrrpf o e printer oflind(overflow)
Once you have the overflow indicator defined, you simply check it
before printing to determine when you've gotten to the overflow line
and if so you write your headings again to get to the next page.
Here I check for overlow, i use a local function, and call it immediately
after I write a line on the report.
//===============================================================
p checkforOverFlow...
p b
d pi
//===============================================================
/free
if Overflow = *on;
doOverFlow();
endif;
/end-free
p e
If there's overflow, I call the dooverflow() local function to 'do-it'.
//===============================================================
p doOverFlow...
p b
d pi
//===============================================================
/free
write NEWPAGE;
write REPORTHDR;
Overflow = *off;
/end-free
p e
prt file specs -
A* ------------
A R NEWPAGE
A* ------------
A SKIPB(001)
A* ------------ Report Header/beginning
A R REPORTHDR
A* ------------
A 1'Device .:'
A RPJOB 10A O 11
A RPTITLE1 50A O 24
A 87'Page:'
A PAGE 4 0O 97EDTCDE(Z)
A 1'Program :'
A SPACEB(001)
A RPPGM 10A O 11
A RPTITLE2 50A O 24
A 87'Date:'
A RPDATE 8A O 93
A 1'User . .:'
A SPACEB(001)
A RPUSER 10A O 11
A RPTITLE3 50A O 24
A 87'Time:'
A RPTIME 8A O 93
A RPTITLE4 50A O 24
A SPACEB(001)
I just snipped these out of a program, but the idea is there.
hth
John B.
--
This is the RPG programming on the IBM i / System i (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.
--
This is the RPG programming on the IBM i / System i (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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.