Returns the page number of the output destination as an INTEGER value. If the output stream is not paged, PAGE-NUMBER returns a value of 0.
Syntax
PAGE-NUMBER [ ( stream| STREAM-HANDLE handle ) ]
stream
The name of an output stream. If you do not name a stream, PAGE-NUMBER returns the page number of the default unnamed output stream.
STREAM-HANDLE handle
The handle to an output stream. If handle it is not a valid handle to a stream, the AVM generates a run-time error.
Example
This procedure creates a customer report with a page number on each page:
r-pgnbr.p
OUTPUT TO pagenum.txt PAGED.
FOR EACH Customer NO-LOCK:
FORM HEADER "Customer report" AT 30
"Page:" AT 60 PAGE-NUMBER FORMAT ">>9" SKIP(1).
DISPLAY Customer.CustNum Customer.Name Customer.Address Customer.City
Customer.State Customer.Country.
END.