CICS常用语句语法

常用CICS语句语法

1． EXEC CICS READ

INTO（DATA-AREA） 变量，定义在工作区的01或其它层 UPDATE 读时用于锁住文件

LENGTH（DATA-LENGTH-AREA） 常量或变量 DATASET（）

RIDFLD（） 键值

END-EXEC

2． EXEC CICS RECEIVE

INTO（）| SET（POINTER-REF）指定放到某变量中 或 某一指定内存 LENGTH（）

MAXLENGTH（） NOTRUNCATE

END-EXEC

3． EXEC CICS SEND

FROM（） 不带目标就SEND到屏幕 LENGTH（）m FLENGTH（）

DEST（） 指定4字节的TCAM终点标识名

ERASE 有就从屏幕左上角开始，没有就从光标当前位置开始 WAIT

END-EXEC

4． EXEC CICS HANDLE CONDITION

EXCEPTIONAL CONDITION1（LABLE1）最多可有16个

END-EXEC

5． EXEC CICS RETURN

TRANSID（）

COMMAREA（） 程序从此中传递数据到下一个TASK LENGTH（）

END-EXEC 控制权逐层退还，直到CICS

6． EXEC CICS XCTL

PROGRAM（NAME） COMMAREA（） LENGTH（）

END-EXEC 运行新程序，结束旧程序，程序结束时返回调用的上一层 7． EXEC CICS LINK

PROGRAM（NAME） COMMAREA（） LENGTH（）

END-EXEC 用于调用子程序 8． EXEC CICS LOAD

PROGRAM（NAME） SET（POINTER-REF） LENGTH（）

HOLE ▲

END-EXEC 以程序形式保存数据（常驻内存） 9． EXEC CICS RELEASE

PROGRAM（NAME）

END-EXEC

10． EXEC CICS START

TRANSID（） INTERVAL（HHMMSS） M TIME（HHMMSS） 不指定就立刻启动新TASK FROM（） 向新TASK传送数据，还要执行RETRIEVE才能收到 LENGTH（）

TERMID（NAME）

REQID（NAME） 作标识符用，可在未到时间限时撤消

END-EXEC 用来启动新TASK

11． EXEC CICS START

TRANSID('TSTC')

FROM(PIKTSTC)

RESP(WK-RESP) 在此可得到系统返回RESPONSE PROTECT

END-EXEC //PROTECT参数是指：当本程序执行完毕后，才启动被START的程序。

12． EXEC CICS CANCEL

REQID（NAME）

END-EXEC

13． EXEC CICS RETRIEVE

INTO（） M SET（POINTER-REF） LENGTH（）

END-EXEC

如果新的TASK通终端没有联系，最多接受的数据为一批，使用一次RETRIEVE就可全部接受完毕；如果新的TASK 通终端有联系，每用一次START就会有可能是多批数据，此时新TASK反复执行RETRIEVE接收数据，直到ENDDATA例外条件出现为止。

面向暂态存储的CICS命令： 14． EXEC CICS WRITEQ TS

QUEUE（NAME） FROM（） LENGTH（）

ITEM（）REWRITE//ITEM指定从什么位置开始添加数据，REWRITE修改 MAIN M AUXILIARY//MAIN暂存在内存内，AUXILIARY在VSAM外存

END-EXEC//常出现两种异常。找不到对应匹配记录，报‘ITEMERR’错误；修改不存在队列，报‘QIDERR’错误。常作两个HANDEL CONDITION判断。 15． EXEC CICS READQ TS

QUEUE（NAME）

SET（POINTER-REF） M INTO（）

LENGTH（）

ITEM（） M NEXT//ITEM实现暂存队列的随机访问，NEXT实现顺序访问 NUMITEMS（）包含指定的暂存队列中记录总个数的数据区

END-EXEC

16． EXEC CICS DELETEQ TS

QUEUE（NAME）

END-EXEC

面向暂态存储的CICS命令已结束。

17． EXEC CICS ENTER TRACEID(01) END-EXEC 为CEDF跟踪提供接口。

EXEC CICS ENTER TRACEID(10) FORM(变量) 功能：是下程序的断点，并显示出“变量”的值。 例：* TEST STM R14,R1,SAVREG+16 SAVE WORKING REGISTERS EXEC CICS ENTER TRACEID(13) FROM(PAFXINF) LM R14,R1,SAVREG+16 ESTORE WORKING REGISTERS * END TEST

对VSAM文件操作的CICS：查看《VSAM在CICS环境中的应用》 18． EXEC CICS STARTBR

DATASET(DDBTRI) RIDFLD(KEYBTER) GTEQ

END-EXEC

19． EXEC CICS READNEXT

DATASET(DDBTRI) RIDFLD(KEYBTER) SET(BTPTR)

LENGTH(RECLEN)

END-EXEC

20． EXEC CICS ENDBR

DATASET(DDBTRI)

END-EXEC 功能：上述三个指令分别是：先由STARTBR将指针指向DDBTRI数据库（大于等于KEYBTER处）；再由READNEXT指令根据1的条件向下读数据库DDBTRI；最后根据某一条件通过3来结束显示，同时释放指针。

注意：通过上面方法读VSAM文件时，如果没有找到会报ENDFILE错误

21． EXEC CICS CONVERSE

FROM(0(R5)) SET(R6)

FROMLENGTH(HWORK1) TOLENGTH(HWORK2)

END-EXEC

功能：这个指令是先把R5指向的区域，长度为HWORK1的数据SEND到终端；然后RECEIVE一笔数据存入到R6指向的区域，长度为HWORK2。

22． EXEC CICS ASKTIME

ABSTIME(WK-ABSTIME)

END-EXEC 23． EXEC CICS FORMATTIME ABSTIME(WK-ABSTIME)

YYYYMMDD(DATE12O) TIME(TIME22O) TIMESEP(':') DATESEP('/')

END-EXEC 取到系统时间的值，再格式化成需要表达的格式。

24． EXEC CICS GETMAIN

SET(R7)

LENGTH(RECLEN)

INITIMG(C' ') END-EXEC

功能：申请内存空间，申请的空间长度为RECLEN。INITIMG是对申请的内存进行初始化。

错误处理

EXEC CICS HANDLE CONDITION DUPREC(WRTTV050) EXEC CICS HANDLE ABEND LABEL(PGMABEND) EXEC CICS HANDLE CONDITION ERROR(PGMERROR)

EXEC CICS HANDLE CONDITION ENDFILE(CREATE) NOTFND(CREATE) EXEC CICS IGNORE CONDITION DUPREC ENDFILE NOTFND

25． EXEC CICS ENQ

RESOURCE(WK-TS-NAME)

RESP(WK-RESP) END-EXEC 资源的锁定

26． EXEC CICS DEQ

RESOURCE(WK-TS-NAME)

RESP(WK-RESP)

END-EXEC 资源的释放

PPT(Processing Program Table)：

1、XCTL－transfer program control。

2、LINK－link to another program anticipating return 3、RETURN－return program control 4、LOAD－fetch （load）program or table

5、RELEASE－release a fetch program or table （delete a loaded program）

TCT(Terminal Control Table)：

1、SEND － send data to terminal。（sytax、options、conditions、 notes） 2、RECEIVE－receive data form terminal。

3、SEND CONTROL－send control codes to terminal。

FCT(File Control Table)：

1、READ－retrives a record（syntax、options、conditions、 notes） 2、WRITE－inserts new record 3、REWRITE－update a record 4、DELETE－removes a record

5、UNLOCK－releases exclusive control 6、STARTBR－initiates a browsed

7、READNEXT－retrieve record in key-sequence

8、READPREV－retrive record in reverse key-sequence 9、ENDBR－terminates a browse operation 10、RESETBR－ reset browse starting2 position

Task Control：

1、SUSPEND－suspend a task。

2、ENQ－queue use of a resource by a task。 3、DEQ－dequeue use of a resource by a task。 4、CHANGE TASK－change priority of a task。 5、WAIT EXTERNAL－synchronize events。 6、WAITCICS－synchronize CICS。 Storage Control：

1、GETMAIN－obtain and initialize main storage（allocates storage）。 2、FREEMAIN－release main storage（free storage acquired）。

Temporary Storage Control：

1、WRITEQ TS－write data to a Temporary Storage queue 2、READQ TS－read data from a Temporary Storage queue 3、DELETEQ TS－delete a Temporary Storage queue

Transient Data Control：

1、READQ TD－read data from a transient data queue。 2、WRITEQ TD－write data to a transient data queue。

3、DELETEQ TD-delete an intrapartition transient data queue。

Interval Control：

1、ASKTIME－request current date and time of day。 2、START－ start a task〖interval（n）〗 3、DELAY－ delay processing of a task。〖interval（m）〗 4、CANCEL－cancel interval control request。

5、POST－requst notification when specified time has expired。 6、FORMATTIME－select the of date and time。 7、RETRIEVE－retrieve data stored for a task。 8、WAIT EVENT－wait for event to occur。

Syncpoint Control：

1、SYNCPOINT－establish a syncpoint 2、ROLLBACK－back out to last syncpoint

Error Handling & Recovery：

1、HANDLE CONDITION－set exceptional condition handler 2、HANDLE AID －handle attention identifier

3、IGNORE CONDITION－ignore exceptional condition handler 4、PUSH HANDLE －suspend and save condition handler 5、POP HANDLE －restore saved condition handlers 6、ABEND －terminates a task abnormally 7、HANDLE ABEND －set abend handling routine

CICS系统提供常用命令：

1、CEBR －BRowse temporary storage queues临时队列的基本处理 2、CECI －Command level Interpreter命令级翻译程序 3、CECS －Command level Syntax checker命令语语法检查

4、CEDA－DynAmic define CICS resources(programs,mapsets,transactions,profiles…)定义CICS中各种资源

5、CEDB －update CICS CSD data set(DataBase) 6、CEDC －interrogate CICS CSD data set

7、CEDF －Execution Diagnostic Facility（确定、更正程序中错误；跟踪每一条CICS命令； 异常条件模拟；为异常结束提供更详细的信息；用于强迫产生DUMP；在源程序不可用时，提供检查代码的方法）

8、CESF － single terminal Sign-ofF 退出 9、CESN －single terminal Sign-On 登陆

10、CEMT －Master Terminal transaction主要终端交易语句 11、CEOT －Terminal status

12、CETR －TRace control facility

13、CMAC －display Messages And Codes 14、CMSG －MeSsaGe switching 15、CSPG －terminal PaGing 16、CWTO －Write To Operator

本文来源：https://www.bwwdw.com/article/555f.html