CICS技术培训课件.pptx

CICS技术培训－－CICS开发介绍通过这门课，我们可以学习：CICS客户端程序开发基础CICS服务器端程序开发基础编写利用CICS访问数据库的程序CICS提供的应用数据类型区域1区域2区域3CICS应用模型SFSRDB客户程序MQECIEPICICS服务器其他CICS服务器CICS CLIENT 开发CICS CLIENT 开发CICS ECI 调用功能从非CICS程序的客户程序调用CICS Server交易方式ECI—External Call InterfaceEPI—External Presentation Interface函数CICS_ExternalCall ()CICS ECI 程序实例(1)#include cics_eci.hECI_PARMS EciParms; char commArea[1024]; 注：commArea不能大于32KCICS 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=CICSRGxCICS SERVER 开发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程序时传递数据异步调用时传递数据长度不大于32KSERVER程序获得COMMAREA获得请求数据char *commarea; /* 无须申请空间 */EXEC CICS ADDRESS EIB(dfheiptr)EXEC CICS ADDRESS COMMAREA(commarea)获得请求数据的长度 dfheiptr-eibcalen例如：if (dfheiptr-eibcalen