第九章 CICS培训-开发.ppt

CICS技术培训 －－CICS开发 介绍 通过这门课，我们可以学习： CICS客户端程序开发基础 CICS服务器端程序开发基础 编写利用CICS访问数据库的程序 CICS提供的应用数据类型 CICS应用模型 CICS CLIENT 开发 CICS ECI 调用 功能 从非CICS程序的客户程序调用CICS Server交易 方式 ECI—External Call Interface EPI—External Presentation Interface 函数 CICS_ExternalCall () CICS ECI 程序实例(1) #include cics_eci.h ECI_PARMS EciParms; char commArea[1024]; 注：commArea不能大于32K CICS ECI 程序实例(2) memset( EciParms, 0, sizeof(ECI_PARMS) ); memset( commArea, 0, sizeof(commArea) ); EciParms.eci_version = ECI_VERSION_1; EciParms.eci_call_type = ECI_SYNC; memcpy( EciParms.eci_system_name, CICSRG01, 8 ); memcpy( EciParms.eci_userid, CICSUSER, 8 ); memcpy( EciParms.eci_password, CICSUSER, 8 ); memcpy( EciParms.eci_program_name, SERV0001, 8 ); CICS ECI 程序实例(3) EciParm.eci_commarea = commArea; EciParm.eci_commarea_length = sizeof(commArea); EciParm.eci_extend_mode = ECI_NO_EXTEND; EciParm.eci_luw_token = ECI_LUW_NEW; EciParm.eci_timeout = 30; 注1：commArea 任意格式，最好是字符串。 注2：长度为发送和接收的较大者。 CICS ECI 程序实例(4) rc = CICS_ExternalCall ( EciParms ); 注： rc : 在cics_eci.h中定义 EciParms. eci_abend_code : # info –l cics –s abend 编译 CICS ECI 程序 在SCO OpenServer： cc -DCICS_SCO -b elf -lcclsco -lc -o c c.c 运行 CICS ECI 程序 启动 CICS ECI # cicscli /S=CICSRGx 运行程序 $ c 停止 CICS ECI # cicscli /X=CICSRGx CICS SERVER 开发 CICS SERVER 程序实例 main() { unsigned long rc; char * commArea; EXEC CICS ADDRESS EIB(dfheiptr) RESP(rc); EXEC CICS ADDRESS COMMAREA(commArea) RESP(rc); ... EXEC SQL ... ... EXEC CICS SYNCPOINT; strcpy( commArea, Result Data ); EXEC CICS RETURN; } CICS语句语法 EXEC CICS [command [options]] … options: RESP(rc) 例如： unsigned long rc; EXEC CICS SYNCPOINT RESP(rc); if ( rc == DFHRESP(NORMAL) ) then … 数据通讯区 CommArea 使用方式 非CICS程序中（客户端程序）： 用户申请空间 接收和返回均使用此空间 申请大小为发送和接收两者的较大者 CICS程序中： 无须申请空间 接收和返回均使用此空间 同步调用其他CICS程序时传递数据 异步调用时传递数据 长度不大于32K SERVER程序获得COMMAREA 获得请求数据 char *commarea; /* 无须申请空间 */ EXEC CICS ADDRESS EIB(dfheip