LINENO( ) (Función)

  • Artículo

Devuelve el número de la línea que se está ejecutando en un programa con respecto al primer número de línea del programa principal.

LINENO([1])

Valores devueltos

Numeric

Parámetros

  • 1
    Devuelve el número de línea con respecto a la primera línea del programa o procedimiento actual. Si omite el argumento 1, se devolverá el número de línea relativo a la primera línea del programa principal.

Observaciones

Las líneas de programa se cuentan a partir del principio del programa. Las líneas de comentario, líneas de continuación y líneas en blanco se incluyen en el recuento del número de línea. Si un programa se suspende durante la ejecución, LINENO( ) devolverá el número de la línea del programa donde se ha suspendido la ejecución. LINENO( ) devuelve 0 si se cancela un programa.

De forma predeterminada, los números de línea se devuelven con respecto al principio del programa principal. Si se llama a un procedimiento, la numeración de líneas continuará con respecto al principio del programa que realiza la llamada.

LINENO( ) es útil para depurar programas. Puede establecer un punto de interrupción para detener la ejecución del programa en un número de línea determinado si especifica el comando siguiente en la ventana Depuración:

LINENO( ) = nExpression

La ejecución de programa se suspende cuando el valor de LINENO( ) es igual a nExpression.

Ejemplo

El ejemplo siguiente forma parte de una rutina sencilla de tratamiento de errores.

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

Vea también

ERROR( ) | MESSAGE( ) | PROGRAM( ) | SYS(16) - Nombre de archivo del programa en ejecución