Re: Ext Print Files - In the Beginning -- RPG400-L

Nope, when you say TOFILE(QPRINT) on the OVRPTRF instead of opening
the named printerfile, it opens the QPRINT printerfile. There are
times you want this..but 99.9% of the time when using OVRPRTF you want
the default of TOFILE(*FILE) which means use the same printer file,
I'm just overriding some other attributes.

Charles

On Fri, Jul 10, 2009 at 3:08 PM, Buddy
McClean<Buddy.McClean@xxxxxxxxxxxx> wrote:

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.

--
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.