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