メインフレーム サブシステム コード スニペットのショートカット

次のショートカットを使用して、一部のメインフレーム 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 呼び出しを挿入します。
上位ヘルプ：コード スニペットの挿入
関連情報
コードへのスニペットの挿入
COBOL スニペットのショートカット
カスタム COBOL スニペットの作成