Cics-write
提供:Dev Guides
CICS-書き込み
書き込みコマンドは、ファイルに新しいレコードを追加するために使用されます。 Writeコマンドで使用されるパラメーターは、前に説明したものと同じです。 データは、FROM句で言及されたデータ領域から選択されます。 以下は、書き込みコマンドの構文です-
構文
EXEC CICS WRITE
FILE(name)
FROM(data-area)
RIDFLD(data-area)
LENGTH(data-value)
KEYLENGTH(data-value)
END-EXEC.
例
以下は、学生IDが主キーで、学生IDが101の新しいレコードがファイルに書き込まれる「FL001」ファイルにレコードを書き込む例です-
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 finddevguides' 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.
書き込みコマンドの例外
次の表は、WRITEステートメント中に発生する例外のリストを示しています-
Sr.No | Exception & Description |
---|---|
1 |
NOTOPEN ファイルが開いていません。 |
2 |
FILENOTFOUND ファイルエントリはFCTでは作成されません。 |
3 |
LENGERR コマンドで指定された長さとレコードの実際の長さとの不一致。 |
4 |
NOTAUTH ユーザーにファイルを使用するための十分な権限がない場合。 |
5 |
DUPKEY 複数のレコードが代替キーの条件を満たしている場合。 |
6 |
NOSPACE データセットに十分なスペースがありません。 |