求助 CICS的几个命令 - 中间件技术 - LoveUnix -- 最强AIX小机技术论坛,UNIX,Linux,存储,数据库,中间件,开发,管理 -- 蓝色的IBM技术天堂 --bbs.LoveUnix.net

LU新生

UID 90051
精华 0
积分 9
帖子 17
活跃指数 5
LU金币 22 个
LU金条 0 个
阅读权限 10
注册 2007-5-22

发表于 2007-5-28 21:50 资料个人空间短消息加为好友

求助 CICS的几个命令

CICS SEND
            FREEKB
            ERASE
            ALARM
         CURSOR

请问各位大虾，上面的各个参数的含义和具体的用法能给解答一下吗？最好给举个例子说明，谢谢了！！！

liu.rui.

LU新生

UID 83845
精华 0
积分 13
帖子 25
活跃指数 1
LU金币 26 个
LU金条 0 个
阅读权限 10
注册 2007-3-7

大中小

使用道具

发表于 2007-5-29 08:18 资料个人空间短消息加为好友

都是终端显示接口的CICS API，国内较少用(比如开发字符终端程序)。FREEKB解冻键盘，ERASE清屏，CURSOR定位光标，ALARM激活ALARM特性。

afaapple

LU新生

UID 90051
精华 0
积分 9
帖子 17
活跃指数 5
LU金币 22 个
LU金条 0 个
阅读权限 10
注册 2007-5-22

大中小

使用道具

发表于 2007-5-29 09:07 资料个人空间短消息加为好友

谢谢！能给具体地说说怎么用么？或者给举个例子？

TXSeries_Z

LU新生

UID 88682
精华 0
积分 1
帖子 1
活跃指数 0
LU金币 1 个
LU金条 0 个
阅读权限 10
注册 2007-4-24

大中小

使用道具

发表于 2007-7-6 16:22 资料个人空间短消息加为好友

EXEC CICS ADDRESS EIB(dfheiptr);
...
EXEC CICS SEND MAP("PANEL1") MAPSET("UXA1") FREEKB ERASE RESP(rcode);
...
EXEC CICS RECEIVE MAP("PANEL1") MAPSET("UXA1") RESP(rcode);
...
EXEC CICS SEND MAP("PANEL2") MAPSET("UXA1") FREEKB ERASE RESP(rcode);
...
EXEC CICS RECEIVE MAP("PANEL2") MAPSET("UXA1") RESP(rcode);
...
EXEC CICS SEND MAP("PANEL4") MAPSET("UXA1") FREEKB ERASE RESP(rcode);
...
EXEC CICS SEND CONTROL FREEKB;
EXEC CICS RETURN;