Re: Ext Print Files - In the Beginning

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.

jrusling@xxxxxxxxxxxxxxxxxxx 7/10/2009 1:49:49 PM >>>

Buddy,

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.