PAGENO returns an unscaled REAL FIXED BIN(31) value that is the current page number associated with file x.
>>-PAGENO(x)---------------------------------------------------><
If the file is not a PRINT file, the ERROR condition is raised.
The BIFPREC compiler option determines the precision of the result returned.