CICS，全称为Customer Information Control System，是一种IBM开发的企业级交易处理系统，主要用于在大型机环境中处理在线事务处理（OLTP）。本培训主要涵盖了CICS客户端和服务器端程序的开发，以及如何通过CICS访问数据库。
一、CICS客户端程序开发基础
CICS客户端程序主要是非CICS环境中的应用程序，通过CICS External Call Interface (ECI) 来调用CICS服务器上的交易。ECI允许非CICS程序与CICS系统进行交互，它提供了同步和异步调用两种方式。在CICS客户端程序开发中，开发者需要了解并使用`CICS_ExternalCall()`函数来发起对CICS服务器的调用。例如，以下代码片段展示了初始化ECI_PARMS结构体并设置必要的参数，如系统名、用户ID、密码、程序名等，然后调用`CICS_ExternalCall()`进行通信。
```cpp
#include <cics_eci.h>
ECI_PARMS EciParms;
char commArea[1024];
// 初始化参数
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);
// 设置通信区
EciParms.eci_commarea = commArea;
EciParms.eci_commarea_length = sizeof(commArea);
EciParms.eci_extend_mode = ECI_NO_EXTEND;
EciParms.eci_luw_token = ECI_LUW_NEW;
EciParms.eci_timeout = 30;
// 调用CICS服务器
int rc = CICS_ExternalCall(&EciParms);
```
二、CICS服务器端程序开发基础
CICS服务器端程序通常是用CICS特定的编程语言（如COBOL或PL/I）编写，它们在CICS环境中运行，负责处理来自客户端的请求。例如，下面的COBOL代码展示了如何在CICS服务器端程序中处理通信区（CommArea）和执行SQL语句：
```cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. CICS-SERVER.
PROCEDURE DIVISION.
main.
SECTION.
01 comm-area USAGE DISPLAY.
02 comm-data PIC X(100).
PERFORM initialize-comm-area.
EXEC CICS ADDRESS EIB(dfheiptr) RESP(rc)
EXEC CICS ADDRESS COMMAREA(comm-area) RESP(rc)
// 执行SQL语句
EXEC SQL ...
...
EXEC CICS SYNCPOINT
MOVE "Result Data" TO comm-area
EXEC CICS RETURN
initialize-comm-area.
// 初始化CommArea
MOVE SPACE TO comm-area
...
```
三、CICS应用模型
CICS应用模型通常由多个区域组成，如区域1、区域2和区域3，以及其他CICS服务器。客户端程序可以通过ECI或External Presentation Interface (EPI)调用不同区域的CICS服务器进行交互。
四、数据通讯区CommArea
CommArea是CICS客户端和服务器之间传输数据的关键组件。在客户端，开发者需要自行分配和管理CommArea，确保其大小能容纳发送和接收的数据。而在CICS服务器端，CommArea的分配和管理由CICS系统自动完成。同步调用时，CommArea用于在客户端和服务器之间传递数据；异步调用时，CommArea则用于存储请求的状态和结果。
五、编译和运行CICS ECI程序
在SCO OpenServer上，可以使用`cc`命令编译CICS ECI程序，链接所需的CCLSSCO和C库。运行CICS ECI程序时，需要先启动CICS ECI环境，然后执行程序，最后通过CICSCLI停止单元。
总结，CICS培训涵盖了CICS客户端和服务器端程序的开发，ECI调用机制，以及数据通讯区的使用。理解和掌握这些知识点对于在大型机环境下构建和维护企业级交易处理系统至关重要。
