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

 EXEC CICS 
ASKTIME ABSTIME(utime)
END-EXEC

EXEC CICS LINK
PROGRAM(data-value1)
COMMAREA(data-area)
DATALENGTH(data-value2)
END-EXEC

EXEC CICS READ
FILE(data-value1)
INTO(data-area1)
RIDFLD(data-area2)
END-EXEC

EXEC CICS READNEXT 
DATASET(data-value)
INTO(data-area1)
                  LENGTH(data-area2) 
RIDFLD(data-area3) 
END-EXEC

 EXEC CICS READPREV
DATASET(data-value)
INTO(data-area1)
                  LENGTH(data-area2) 
RIDFLD(data-area3) 
END-EXEC

EXEC CICS READQ TD
                   QUEUE   (data-value)
                   INTO    (data-area1)
                   LENGTH  (data-area2)
END-EXEC

EXEC CICS READQ TS
                   QUEUE   (data-value)
                   INTO    (data-area1)
                   ITEM    (data-area2)
                   LENGTH  (data-area3)
END-EXEC

EXEC CICS RECEIVE 
INTO(data-area1)
LENGTH(data-area2)
END-EXEC

 EXEC CICS RECEIVE MAP(data-value1)
MAPSET(data-value2)
INTO(data-area)
END-EXEC

EXEC CICS RECEIVE MAPSET (data-value1data-value2)
                       MAP ()
                       INTO (data-area)
END-EXEC

EXEC CICS RELEASE
PROGRAM(data-value)	
END-EXEC

EXEC CICS
RETURN	
END-EXEC

EXEC CICS REWRITE 
FILE(data-value)
FROM (data-area)
END-EXEC 

EXEC CICS REWRITE 
DATASET(data-value)
FROM (data-area)
END-EXEC 

EXEC CICS SEND TEXT
                     FROM (MSG-MAPFAIL)
                     LENGTH (LENGTH OF MSG-MAPFAIL)
                     ERASE
END-EXEC

EXEC CICS WRITE
FILE(data-value)
FROM(data-area1)
RIDFLD(data-area2)
END-EXEC

EXEC CICS WRITEQ
               QUEUE(data-area1)
               FROM(data-area2)
               LENGTH(data-value)
END-EXEC

EXEC CICS WRITEQ TD
               QUEUE(data-area1)
               FROM(data-area2)
               LENGTH(data-value)
END-EXEC

EXEC CICS WRITEQ TS 
QUEUE(data-area1) 
FROM(data-area2)
LENGTH(data-value)
END-EXEC 

EXEC CICS XCTL
PROGRAM(data-value1)
COMMAREA(data-area)
LENGTH(data-value2)
END-EXEC

EXEC DLI DLET 
USING PCB(expression1)
                  SEGMENT(name)
                  FROM(area)
                  SEGLENGTH(expression2)
END-EXEC

 EXEC DLI GN 
USING PCB (expression)
SEGMENT (name)
WHERE (qualification-statement)
INTO    (area)
END-EXEC

EXEC DLI GNP 
USING PCB (expression)
                SEGMENT (name)
                INTO    (area)
                WHERE   (qualification-statement )
END-EXEC

EXEC DLI GU 
USING PCB(expression)
                SEGMENT(name)
                   INTO(area)
END-EXEC

 EXEC DLI ISRT  
USING PCB(expression)
                SEGMENT(name)
                   FROM(area)
END-EXEC