CICS命令及交易.pptVIP

* * CICS/VS常用命令及常用交易 CICS/VS常用命令 1、? STARTBR、READNEXT、ENDBR（浏览、读取） 1、 EXEC CICS STARTBR DATASET(DDBTRI) RIDFLD(KEYBTER) GTEQ END-EXEC 2、 EXEC CICS READNEXT DATASET(DDBTRI) RIDFLD(KEYBTER) SET(BTPTR) LENGTH(RECLEN) END-EXEC 3、 EXEC CICS ENDBR DATASET(DDBTRI) END-EXEC 功能：上述三个指令分别是：先由STARTBR将指针指向DDBTRI数据库（大于等于KEYBTER处）；再由READNEXT指令根据1的条件向下读数据库DDBTRI；最后根据某一条件通过3来结束显示，同时释放指针。 注意：通过上面方法读VSAM文件时，如果没有找到会报ENDFILE错误 CICS/VS常用命令 2、? CONVERSE（发送、接收） EXEC CICS CONVERSE FROM(0(R5)) SET(R6) FROMLENGTH(HWORK1) TOLENGTH(HWORK2) END-EXEC 功能：这个指令是先把R5指向的区域，长度为HWORK1的数据SEND到终端；然后RECEIVE一笔数据存入到R6指向的区域，长度为HWORK2。 CICS/VS常用命令 3、? TRACEID（下断点） 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 CICS/VS常用命令 4、? ASKTIME、FORMATTIME(取系统时间，并格式化) EXEC CICS ASKTIME ABSTIME(DWORK1) EXEC CICS FORMATTIME ABSTIME(DWORK1) DAYOFWEEK(DAYOFWK) 注：ASKTIME是查找系统日期时间， FORMATTIME是将系统日期格式化成需要的表达格式。 例1： EXEC CICS ASKTIME ABSTIME(WK-ABSTIME) END-EXEC EXEC CICS FORMATTIME ABSTIME(WK-ABSTIME) YYYYMMDD(DATE12O) TIME(TIME22O) TIMESEP(:) DATESEP(/) END-EXEC CICS/VS常用命令 5、? GETMAIN(开辟内存空间) EXEC CICS GETMAIN SET(R7) LENGTH(RECLEN) INITIMG(C ) END-EXEC 功能：申请内存空间，申请的空间长度为RECLEN。 INITIMG是对申请的内存进行初始化。 例： EXEC CICS GETMAIN SET(PIS015-PTR-APA) FLENGTH(WK-FLEN)