Page Numbers on Reports

[Reggie Freedman]

I've used this for a regular output:    1 - A report

Report heading:
*ba
*bb
*bc
*bd                                                Page <@pn

Fill in the report data lines as you need them, sub or grand totals too.

Output processing
 1  -------   -   -   -   -   -   -   -   -   -   -
      ? If: hd gt ""        ' lets first header print  and blanks further 
headers
      Then: ba="" ; bb="" ; bc="" ; bd="" ; goto cont   '  except the Page 
<@pn
 2  -------   -   -   -   -   -   -   -   -   -   -
      ? If:
      Then: ba="line 1"
 3  -------   -   -   -   -   -   -   -   -   -   -
      ? If:
      Then: bb="line 2"
 4  -------   -   -   -   -   -   -   -   -   -   -
      ? If:
      Then: bc="line 3"
 5  -------   -   -   -   -   -   -   -   -   -   -
      ? If:
      Then: bd="line 4"
 6  -------   -   -   -   -   -   -   -   -   -   -
      ? If:
      Then: hd="1"
  7  -------   -   -   -   -   -   -   -   -   -
cont   ? If:
       Then: ' line info / calculations start here
  8  -------   -   -   -   -   -   -   -   -   -
end    ? If:
       Then:
  9  -------   -   -   -   -   -   -   -   -   -
       ? If:
       Then:

Set in auto:
hd(1,,g);ba(xx,,g);bb(xx,,g);bc(xx,,g);bd(xx,,g)

Report is:
line 1
line 2
line 3
line 4                                  Page 1
Simon           Gate
Joe               Bummer
Jeffrey          Book
.
.
.
.
End of page 1
                                        Page 2   (new page)
John             Beer
Len              Bore
Sam             Bender
.
.
.
.
End of page 2
                                        Page 3   (new page)
Fred             Bennett
Tom              Benson
Chad             Bernardi
.
.
.
.
End of page 3
.
.
.
End of Report


----- Original Message ----- 
From: "Wally Turnbull" <wally at tbull.com>
To: "Fplist" <filepro-list at lists.celestial.com>
Sent: Sunday, December 23, 2007 6:12 PM
Subject: RE: Page Numbers on Reports


> 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
>
>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list