次のショートカットを使用して、一部のメインフレーム CICS 呼び出しおよび DLI 呼び出しのコード・スニペットを挿入します。エディタでショートカットを入力し、TAB キーを押してスニペットを挿入します。
ショートカット | スニペット |
---|---|
cicsasktime |
EXEC CICS ASKTIME ABSTIME(utime) END-EXEC |
cicslink |
EXEC CICS LINK PROGRAM(data-value1) COMMAREA(data-area) DATALENGTH(data-value2) END-EXEC |
cicsread |
EXEC CICS READ FILE(data-value1) INTO(data-area1) RIDFLD(data-area2) END-EXEC |
cicsreadnext |
EXEC CICS READNEXT DATASET(data-value) INTO(data-area1) LENGTH(data-area2) RIDFLD(data-area3) END-EXEC |
cicsreadprev |
EXEC CICS READPREV DATASET(data-value) INTO(data-area1) LENGTH(data-area2) RIDFLD(data-area3) END-EXEC |
cicsreadqtd |
EXEC CICS READQ TD QUEUE (data-value) INTO (data-area1) LENGTH (data-area2) END-EXEC |
cicsreadqts |
EXEC CICS READQ TS QUEUE (data-value) INTO (data-area1) ITEM (data-area2) LENGTH (data-area3) END-EXEC |
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 |
cicsreceivemapset |
EXEC CICS RECEIVE MAPSET (data-value1data-value2) MAP () INTO (data-area) END-EXEC |
cicsrelease |
EXEC CICS RELEASE PROGRAM(data-value) END-EXEC |
cicsreturn |
EXEC CICS RETURN END-EXEC |
cicsrewrite |
EXEC CICS REWRITE FILE(data-value) FROM (data-area) END-EXEC または
EXEC CICS REWRITE DATASET(data-value) FROM (data-area) END-EXEC |
cicssendtext |
EXEC CICS SEND TEXT FROM (MSG-MAPFAIL) LENGTH (LENGTH OF MSG-MAPFAIL) ERASE END-EXEC |
cicswrite |
EXEC CICS WRITE FILE(data-value) FROM(data-area1) RIDFLD(data-area2) END-EXEC |
cicswriteq |
EXEC CICS WRITEQ QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
cicswriteqtd |
EXEC CICS WRITEQ TD QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
cicswriteqts |
EXEC CICS WRITEQ TS QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
cicsxctl |
EXEC CICS XCTL PROGRAM(data-value1) COMMAREA(data-area) LENGTH(data-value2) END-EXEC |
dlidlet |
EXEC DLI DLET USING PCB(expression1) SEGMENT(name) FROM(area) SEGLENGTH(expression2) END-EXEC |
dlign |
EXEC DLI GN USING PCB (expression) SEGMENT (name) WHERE (qualification-statement) INTO (area) END-EXEC |
dlignp |
EXEC DLI GNP USING PCB (expression) SEGMENT (name) INTO (area) WHERE (qualification-statement ) END-EXEC |
dligu |
EXEC DLI GU USING PCB(expression) SEGMENT(name) INTO(area) END-EXEC |
dliisrt |
EXEC DLI ISRT USING PCB(expression) SEGMENT(name) FROM(area) END-EXEC |