CICS - ESCRIBIR

El comando de escritura se usa para agregar nuevos registros a un archivo. Los parámetros usados en el comando Write son los mismos que describimos antes. Los datos se obtienen del área de datos mencionada en la cláusula FROM. A continuación se muestra la sintaxis del comando Write:

Sintaxis

EXEC CICS WRITE
   FILE(name)
   FROM(data-area)
   RIDFLD(data-area)
   LENGTH(data-value)
   KEYLENGTH(data-value)
END-EXEC.

Ejemplo

A continuación se muestra el ejemplo para escribir un registro en el archivo 'FL001' donde Student-id es la clave principal y se escribirá un nuevo registro con 101 ID de estudiante en el archivo:

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. HELLO.                                               
DATA DIVISION. 
WORKING-STORAGE SECTION.
01 WS-STD-REC-LEN    PIC S9(4) COMP.
01 WS-STD-KEY-LEN    PIC S9(4) COMP.
01 WS-STD-REC-KEY    PIC 9(3).
01 WS-STD-REC        PIC X(70).
PROCEDURE DIVISION.
MOVE +70           TO WS-STD-REC-LEN.
MOVE ‘101’         TO WS-STD-REC-KEY.
MOVE 3             TO WS-STD-KEY-LEN.
MOVE '101Mohtahim M TutorialsPoint' TO WS-STD-REC.
EXEC CICS WRITE
   FILE ('FL001')
   FROM (WS-STD-REC)
   LENGTH (WS-STD-REC-LEN)
   RIDFLD (WS-STD-REC-KEY)
   KEYLENGTH (WS-STD-KEY-LEN)
END-EXEC.

Escribir excepciones de comandos

La siguiente tabla muestra la lista de excepciones que surgen durante una instrucción WRITE:

No Señor	Excepción y descripción
1	NOTOPEN El archivo no está abierto.
2	FILENOTFOUND La entrada de archivos no se realiza en FCT.
3	LENGERR Discrepancia entre la longitud especificada en el comando y la longitud real del registro.
4	NOTAUTH Si el usuario no tiene suficientes permisos para usar el archivo.
5	DUPKEY Si más de 1 registro satisfacen la condición de la clave alternativa.
6	NOSPACE No hay suficiente espacio en el conjunto de datos.

↰ Previous page