Page Numbers on Reports

[Wally Turnbull]

Rodgers Hemer wrote:
> 
> ....  I am using PFONEHEAD to only put the header (only) 
> on the first printed page.  Following the header will be from one to
> a thousand data lines, one for each item being delivered.
> I need to place (only) a page number on each page of the document...

You can do that by using dummy fields to hold the header and data lines.

Don't use PFONEHEAD
Header line-1 is the dummy variable *AA
Header line-2 is the dummy variable *BB
Header line-3 is the literal "Report_Name Run_Date and Page @PN" (for
example) that is to go on every page.  
--------------
Data line is *DD (put fields together with ampersand dd=1&2&3 etc)

Define the report to Remove unwanted blank lines=Y

In the processing do something like this:

	If FT ne "Y" then gosub firstim
	AA=""
	BB=""
	DD=Whatever you want to go on the data line
	Print
	End

	Firstim:
	AA=Whatever you want to go on the first line of the header
         on the first page
	BB=Whatever you want to go on the second line of the header
         on the first page 
	FT(1,*,G)="Y"
	Print
	Return

The subroutine Firstim will print all the header lines on the first page.
Because AA and BB are blank after than they will not print.  Because remove
unwanted blank lines applies to the header as well as to the data the blank
lines from AA and BB will be removed and you will get the report the way you
describe it.

Peace,
Wally Turnbull