Shortcuts for the Mainframe Subsystem Code Snippets

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.