Sentencia WEOFSEQ

Sintaxis

WEOFSEQ variable.archivo [ON ERROR sentencias]

Descripción

Utilice la sentencia WEOFSEQ para grabar una marca de fin del archivo (EOF) en un archivo abierto para el acceso secuencial. La marca de fin del archivo se graba en la posición actual y tiene el efecto de truncar el archivo en ese punto. En cualquier sentencia READSEQ posterior, se ejecutarán las sentencias ELSE.

El valor de variable.archivo especifica un archivo abierto para el acceso secuencial. Si variable.archivo se evalúa como valor nulo, la sentencia WEOFSEQ falla y el programa termina con un mensaje de error de tiempo de ejecución.

Nota: En sistemas Windows, no puede emplear la sentencia WEOFSEQ con una unidad de disquetes abierta con la sentencia OPENDEV. En el caso de las unidades de cintas de cartucho de 1/4 pulg. (de 60 MB o 150 MB), puede emplear WEOFSEQ para grabar una marca de fin del archivo (EOF) al principio de los datos o tras una grabación.

Cláusula ON ERROR

La cláusula ON ERROR es opcional en la sentencia WEOFSEQ. La cláusula ON ERROR permite especificar una opción alternativa a la terminación del programa cuando se encuentra un error muy grave al procesar la sentencia WEOFSEQ.

Si se produce un error muy grave, y no se ha especificado la cláusula ON ERROR, o esta se ha omitido (como en el caso de una transacción activa), se produce lo siguiente:

Aparece un mensaje de error.
Se retrotrae alguna transacción no confirmada iniciada en el entorno de ejecución actual.
Termina el programa actual.
El proceso continúa con la sentencia siguiente del entorno de ejecución anterior, o el programa vuelve al indicador de mandatos.

Puede producirse un error muy grave si se da alguna de las circunstancias siguientes:

No hay un archivo abierto.
El valor de variable.archivo es nulo.
Un archivo distribuido contiene un archivo componente al cual no se puede acceder.

Si se emplea la cláusula ON ERROR, el valor devuelto por la función STATUS es el número de error.

Consulte las sentencias OPENSEQ, READSEQ y WRITESEQ para obtener más información sobre el proceso de archivo secuencial.

Nota: Algunos sistemas no admiten el truncamiento de los archivos de disco. En estos sistemas se omite WEOFSEQ, con la excepción de que WEOFSEQ siempre se ejecuta al principio de un archivo.

Ejemplo

El ejemplo siguiente graba una marca de fin del archivo en el registro RECORD del archivo TYPE1:

OPENSEQ 'TYPE1','RECORD' TO FILE ELSE STOP
WEOFSEQ FILE