LINENO Function

Purpose

Returns a Fixed Binary integer that gives the line number of an open file control block with the specified PRINT attribute.

LINENO(x)

x is a file value representing a file control block.

The LINENO function returns an integer that gives the line number of an open file control block identified by x.

The precision of the result is Fixed Binary(15) unless the -bifprec compiler option overrides it.

x must identify an open file control block with the PRINT attribute.

DECLARE X FILE;
   .
   .
   .
CURRENT = LINENO(X);  /* GET CORRECT LINE # */

None.