CICS常用语句语法.docxVIP

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 INT