
TRATAMIENTO DE ARCHIVOS EN EL SERVIDOR: Es un ambiente real de trabajo, es común la utilización de un servidor de aplicaciones, para trabajar con archivos.
PRINCIPALES SENTENCIAS: Estas son las principales para manejar archivos en el servidor de aplicaciones.
* OPEN DATASET: Para la apertura de archivos del servidor. Si la apertura se hizo bien el SY-SUBRC será 0, sino será 8. El nombre junto con la directorio del archivo puede ser escrito o en una variable. sintaxis: OPEN DATASET <archivo> FOR <ACCESS> IN <MODE>.
Archivo para lectura : Si queremos abrir y leerlo se usa OPEN DATASET <archivo> FOR INPUT IN TEXT MODE ENCODING DEFAULT. Debe existir el archivo, sino existe el SY-SUBRC será 8. Si el archivo existe y esta abierto el sistema se posiciona la comienzo del archivo para su lectura.
Nota: Se recomienda cerrar todos los archivos abiertos antes de abrirlos con OPEN DATASET.
Archivo para escritura: Si queremos abrir un archivo para escribir en él, se usa OPEN DATASET <archivo> FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. Si no existe se crea el archivo automáticamente. Si existe y esta cerrado, el contenido se sobrescribe. Si el archivo existe y esta abierto el sistema se posiciona la comienzo del archivo. Si la apertura se realiza bien el SY-SUBRC será 0 sino será 8.
Agregar Información: Si queremos abrir un archivo para agregar información se usa OPEN DATASET <archivo> FOR APPENDING IN TEXT MODE ENCODING DEFAULT. Si no existe se crea el archivo automáticamente. Si existe y esta cerrado, el sistema se posiciona al final del archivo. Si el archivo existe y esta abierto el sistema se posiciona al final. Siempre el SY-SUBRC será 0.
Existen dos modos de apertura de archivos:
MODO TEXTO: Para abrir archivos modo texto se una IN TEXTO MODE. Si se usa este modo se debe agregar la palabra reservada ENCODING DEFAULT. Si leemos o escribimos en un archivo que se abre modo texto la información se transfiere linea a linea.
MODO BINARIO: Para abrir archivos modo binario se usa IN BINARY MODE. Si leemos o escribimos en un archivo que se abre modo binario la información se transfiere byte a byte.
* READ DATASET: Para lectura de archivos del servidor. Sintaxis: READ DATASET <archivo> INTO <estructura>. Para saber en que variable se va almacenar la información, se debe conocer la estructura del archivo. Si se hizo bien el SY-SUBBRC será 0, sino será 8.