Возвращает номер выполняемой строки программы относительно первой строки основной программы.

Синтаксис:

LINENO([1])

Параметры:
1
Возвращает номер строки относительно первой строки текущей программы или процедуры. Если опустить параметр 1, будет возвращен номер строки относительно первой строки основной программы.

Результат:
Числовой.

Комментарии:
Счет строк в программе ведется от ее начала. Строки комментариев, строки продолжения и пустые строки тоже учитываются при подсчете. Если программа приостановила свое выполнение, функция LINENO( ) возвращает номер строки, на которой выполнение было приостановлено. Если программа снята с выполнения, LINENO( ) возвращает 0.
По умолчанию возвращаемые номера строк считаются относительно начала основной программы. При вызове процедуры нумерация строк продолжается с начала вызывающей программы.
Функция LINENO( ) полезна при отладке программ. Можно задавать точки останова, чтобы остановить выполнение программы на строке с определенным номером, для этого в окне трассировки нужно выдать следующую команду:

LINENO( ) = nExpression

Выполнение программы будет приостановлено, когда значение LINENO( ) сравняется с nExpression.

Пример:

* Следующий пример представляет собой фрагмент простой программы
* обработки ошибок.

ON ERROR DO bug_proc WITH LINENO( )
BRWS	&& Causes an error
ON ERROR

*** Bug_Proc error handler ***

PROCEDURE bug_proc
PARAMETERS gnBadLine
WAIT WINDOW 'Error occurred at line: ' + ALLTRIM(STR(gnBadLine))
RETURN