CICS - ÉCRIRE

La commande Write est utilisée pour ajouter de nouveaux enregistrements à un fichier. Les paramètres utilisés dans la commande Write sont les mêmes que ceux décrits précédemment. Les données sont sélectionnées dans la zone de données mentionnée dans la clause FROM. Voici la syntaxe de la commande Write -

Syntaxe

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

Exemple

Voici l'exemple d'écriture d'un enregistrement dans le fichier 'FL001' où Student-id est la clé primaire et un nouvel enregistrement avec 101 Student ID sera écrit dans le fichier -

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.

Ecrire des exceptions de commande

Le tableau suivant présente la liste des exceptions qui surviennent lors d'une instruction WRITE -

Sr.Non	Exception et description
1	NOTOPEN Le fichier n'est pas ouvert.
2	FILENOTFOUND La saisie de fichier n'est pas effectuée dans FCT.
3	LENGERR Non-concordance entre la longueur spécifiée dans la commande et la longueur réelle de l'enregistrement.
4	NOTAUTH Si l'utilisateur ne dispose pas des autorisations suffisantes pour utiliser le fichier.
5	DUPKEY Si plus d'un enregistrement satisfait la condition de la clé alternative.
6	NOSPACE Il n'y a pas assez d'espace dans le jeu de données.