LOC
SINTAXIS:
LOC(<número de archivo>)
Donde <número de archivo> es el que se utilizó cuando se abrió el
archivo.
PROPOSITO:
Cuando se utilizan archivos de acceso directo, LOC retorna el número de
registro que acaba de ser leído o grabado con las sentencias GET o PUT.
Si el archivo ha sido abierto, pero no se ha ejecutado ninguna
entrada/salida al disco, LOC devuelve 0. Con archivos secuenciales, LOC
devuelve el número de registros que se han leído o grabado desde que el
archivo se abrió con el comando OPEN. Cuando no se ha leído ningún
registro de un archivo secuencial desde su apertura, LOC devuelve 1, ya
que el sistema operativo ha leído el primer sector.
EJEMPLO:
200 IF LOC(1)>50 THEN STOP
128