Use the following shortcuts to insert the code snippets for some mainframe CICS and DLI calls. Type the shortcut in the editor and then press TAB to insert the snippet.
| Shortcut | Snippet | Description |
|---|---|---|
| cicsasktime |
EXEC CICS ASKTIME ABSTIME(utime) END-EXEC |
Inserts a CICS ASKTIME call. |
| cicslink |
EXEC CICS LINK PROGRAM(data-value1) COMMAREA(data-area) DATALENGTH(data-value2) END-EXEC |
Enables COBOL programs to use the External CICS Interface (EXCI) to call CICS programs. |
| cicsread |
EXEC CICS READ FILE(data-value1) INTO(data-area1) RIDFLD(data-area2) END-EXEC |
Inserts a CICS READ call. |
| cicsreadnext |
EXEC CICS READNEXT
DATASET(data-value)
INTO(data-area1)
LENGTH(data-area2)
RIDFLD(data-area3)
END-EXEC
|
Inserts a CICS READNEXT call. |
| cicsreadprev |
EXEC CICS READPREV
DATASET(data-value)
INTO(data-area1)
LENGTH(data-area2)
RIDFLD(data-area3)
END-EXEC
|
Inserts a CICS READPREV call. |
| cicsreadqtd |
EXEC CICS READQ TD
QUEUE (data-value)
INTO (data-area1)
LENGTH (data-area2)
END-EXEC
|
Inserts a CICS READ TD call. |
| cicsreadqts |
EXEC CICS READQ TS
QUEUE (data-value)
INTO (data-area1)
ITEM (data-area2)
LENGTH (data-area3)
END-EXEC
|
Inserts a CICS READ TS call. |
| cicsreceive |
EXEC CICS RECEIVE INTO(data-area1) LENGTH(data-area2) END-EXEC |
Enables the program to receive data. |
| cicsreceivemap |
EXEC CICS RECEIVE MAP(data-value1) MAPSET(data-value2) INTO(data-area) END-EXEC |
Enables the program to receive data from the data from a CICS map. |
| cicsreceivemapset |
EXEC CICS RECEIVE MAPSET (data-value1data-value2)
MAP ()
INTO (data-area)
END-EXEC
|
Enables the program to receive data from the data from the CICS mapset. |
| cicsrelease |
EXEC CICS RELEASE PROGRAM(data-value) END-EXEC |
Inserts a CICS RELEASE call. |
| cicsreturn |
EXEC CICS RETURN END-EXEC |
Inserts a CICS RETURN call. |
| cicsrewrite |
EXEC CICS REWRITE FILE(data-value) FROM (data-area) END-EXEC Or:
EXEC CICS REWRITE DATASET(data-value) FROM (data-area) END-EXEC |
Inserts a CICS REWRITE call. |
| cicssendtext |
EXEC CICS SEND TEXT
FROM (MSG-MAPFAIL)
LENGTH (LENGTH OF MSG-MAPFAIL)
ERASE
END-EXEC
|
Inserts a CICS SEND TEXT call. |
| cicswrite |
EXEC CICS WRITE FILE(data-value) FROM(data-area1) RIDFLD(data-area2) END-EXEC |
Inserts a CICS WRITE call. |
| cicswriteq |
EXEC CICS WRITEQ
QUEUE(data-area1)
FROM(data-area2)
LENGTH(data-value)
END-EXEC
|
Writes the processed input data to CICS temporary storage. |
| cicswriteqtd |
EXEC CICS WRITEQ TD
QUEUE(data-area1)
FROM(data-area2)
LENGTH(data-value)
END-EXEC
|
Inserts the CICS command WRITEQ TD to write a JCL job stream. |
| cicswriteqts |
EXEC CICS WRITEQ TS QUEUE(data-area1) FROM(data-area2) LENGTH(data-value) END-EXEC |
Inserts the CICS command WRITEQ TS. |
| cicsxctl |
EXEC CICS XCTL PROGRAM(data-value1) COMMAREA(data-area) LENGTH(data-value2) END-EXEC |
Inserts a CICS XCTL call. |
| dlidlet |
EXEC DLI DLET
USING PCB(expression1)
SEGMENT(name)
FROM(area)
SEGLENGTH(expression2)
END-EXEC
|
Inserts a DLI DLET call. |
| dlign |
EXEC DLI GN USING PCB (expression) SEGMENT (name) WHERE (qualification-statement) INTO (area) END-EXEC |
Inserts a DLI GET NEXT call. |
| dlignp |
EXEC DLI GNP
USING PCB (expression)
SEGMENT (name)
INTO (area)
WHERE (qualification-statement )
END-EXEC
|
Inserts a DLI GET NEXT IN PARENT call. |
| dligu |
EXEC DLI GU
USING PCB(expression)
SEGMENT(name)
INTO(area)
END-EXEC
|
Inserts a DLI GET UNIQUE call. |
| dliisrt |
EXEC DLI ISRT
USING PCB(expression)
SEGMENT(name)
FROM(area)
END-EXEC
|
Inserts an EXEC DLI ISRT call. |
| gndlign |
EXEC DLI GN USING PCB(expression) SEGMENT(segmentName) WHERE(qualificationStatement) INTO(areaName) END-EXEC |
Inserts a GET NEXT call. |