次のショートカットを使用して、一部のメインフレーム CICS 呼び出しおよび DLI 呼び出しのコード スニペットを挿入します。エディターでショートカットを入力し、TAB キーを押してスニペットを挿入します。
ショートカット | スニペット | 説明 |
---|---|---|
cicsasktime |
EXEC CICS ASKTIME ABSTIME(utime) END-EXEC |
CICS ASKTIME 呼び出しを挿入します。 |
cicslink |
EXEC CICS LINK PROGRAM(data-value1) COMMAREA(data-area) DATALENGTH(data-value2) END-EXEC |
COBOL プログラムが外部 CICS インターフェース (EXCI) を使用して CICS プログラムを呼び出せるようにします。 |
cicsread |
EXEC CICS READ FILE(data-value1) INTO(data-area1) RIDFLD(data-area2) END-EXEC |
CICS READ 呼び出しを挿入します。 |
cicsreadnext |
EXEC CICS READNEXT DATASET(data-value) INTO(data-area1) LENGTH(data-area2) RIDFLD(data-area3) END-EXEC |
CICS READNEXT 呼び出しを挿入します。 |
cicsreadprev |
EXEC CICS READPREV DATASET(data-value) INTO(data-area1) LENGTH(data-area2) RIDFLD(data-area3) END-EXEC |
CICS READPREV 呼び出しを挿入します。 |
cicsreadqtd |
EXEC CICS READQ TD QUEUE (data-value) INTO (data-area1) LENGTH (data-area2) END-EXEC |
CICS READ TD 呼び出しを挿入します。 |
cicsreadqts |
EXEC CICS READQ TS QUEUE (data-value) INTO (data-area1) ITEM (data-area2) LENGTH (data-area3) END-EXEC |
CICS READ TS 呼び出しを挿入します。 |
cicsreceive |
EXEC CICS RECEIVE INTO(data-area1) LENGTH(data-area2) END-EXEC |
プログラムがデータを受信できるようにします。 |
cicsreceivemap |
EXEC CICS RECEIVE MAP(data-value1) MAPSET(data-value2) INTO(data-area) END-EXEC |
プログラムが CICS マップのデータからデータを受信できるようにします。 |
cicsreceivemapset |
EXEC CICS RECEIVE MAPSET (data-value1data-value2) MAP () INTO (data-area) END-EXEC |
プログラムが CICS マップセットのデータからデータを受信できるようにします。 |
cicsrelease |
EXEC CICS RELEASE PROGRAM(data-value) END-EXEC |
CICS RELEASE 呼び出しを挿入します。 |
cicsreturn |
EXEC CICS RETURN END-EXEC |
CICS RETURN 呼び出しを挿入します。 |
cicsrewrite |
EXEC CICS REWRITE FILE(data-value) FROM (data-area) END-EXEC または
EXEC CICS REWRITE DATASET(data-value) FROM (data-area) END-EXEC |
CICS REWRITE 呼び出しを挿入します。 |
cicssendtext |
EXEC CICS SEND TEXT FROM (MSG-MAPFAIL) LENGTH (LENGTH OF MSG-MAPFAIL) ERASE END-EXEC |
CICS SEND TEXT 呼び出しを挿入します。 |
cicswrite |
EXEC CICS WRITE FILE(data-value) FROM(data-area1) RIDFLD(data-area2) END-EXEC |
CICS WRITE 呼び出しを挿入します。 |
cicswriteq |
EXEC CICS WRITEQ QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
処理された入力データを CICS 一時ストレージに書き込みます。 |
cicswriteqtd |
EXEC CICS WRITEQ TD QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
JCL ジョブ ストリームを書き込むために、CICS コマンド WRITEQ TD を挿入します。 |
cicswriteqts |
EXEC CICS WRITEQ TS QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
CICS コマンド WRITEQ TS を挿入します。 |
cicsxctl |
EXEC CICS XCTL PROGRAM(data-value1) COMMAREA(data-area) LENGTH(data-value2) END-EXEC |
CICS XCTL 呼び出しを挿入します。 |
dlidlet |
EXEC DLI DLET USING PCB(expression1) SEGMENT(name) FROM(area) SEGLENGTH(expression2) END-EXEC |
DLI DLET 呼び出しを挿入します。 |
dlign |
EXEC DLI GN USING PCB (expression) SEGMENT (name) WHERE (qualification-statement) INTO (area) END-EXEC |
DLI GET NEXT 呼び出しを挿入します。 |
dlignp |
EXEC DLI GNP USING PCB (expression) SEGMENT (name) INTO (area) WHERE (qualification-statement ) END-EXEC |
DLI GET NEXT IN PARENT 呼び出しを挿入します。 |
dligu |
EXEC DLI GU USING PCB(expression) SEGMENT(name) INTO(area) END-EXEC |
DLI GET UNIQUE 呼び出しを挿入します。 |
dliisrt |
EXEC DLI ISRT USING PCB(expression) SEGMENT(name) FROM(area) END-EXEC |
EXEC DLI ISRT 呼び出しを挿入します。 |
gndlign |
EXEC DLI GN USING PCB(expression) SEGMENT(segmentName) WHERE(qualificationStatement) INTO(areaName) END-EXEC |
GET NEXT 呼び出しを挿入します。 |