CICS-COBOL基础

简介

CICS（Customer Information Control System）是一种主机操作系统上的事务处理系统，它允许用户创建和管理业务应用程序，提高了主机系统的性能和效率。

COBOL（Common Business Oriented Language）是一种面向商业应用的编程语言，它被广泛用于金融，保险，银行等领域的应用程序开发。

CICS-COBOL是将这两种技术相结合，用COBOL编写CICS应用程序的一种方式。

开发环境

在开始开发CICS-COBOL应用程序之前，需要确保以下环境已经配置好：

• CICS Transaction Server
• COBOL编译器
• CICS支持库

基本结构

CICS-COBOL程序的基本结构如下：

       IDENTIFICATION DIVISION.
       PROGRAM-ID. program-name.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       LINKAGE SECTION.
       PROCEDURE DIVISION.
       CICS-START.
       MAINLINE.
       CICS-RETURN.

其中，IDENTIFICATION DIVISION是标识该程序的部分，需要包含PROGRAM-ID语句；

ENVIRONMENT DIVISION是定义环境的部分，需要在此声明使用的CICS环境；

DATA DIVISION是定义数据的部分，需要在此声明程序使用的变量；

WORKING-STORAGE SECTION是定义程序工作存储空间的部分；

LINKAGE SECTION是定义接口参数的部分；

PROCEDURE DIVISION是程序处理部分，需要在此编写程序逻辑。

CICS语句

CICS提供了一些特殊的语句，用于在COBOL程序中调用CICS功能，常用的CICS语句包括：

• SEND：向终端发送屏幕消息；
• RECEIVE：接收终端输入；
• WRITE：向打印机输出消息；
• XCTL：调用另一个CICS程序；
• LINK：调用同一程序内的另一个程序；
• RETURN：返回CICS命令控制；
• GETMAIN：分配存储空间；
• FREEMAIN：释放存储空间等。

示例

以下是一个简单的CICS-COBOL程序，用于将用户输入的数字相加并输出结果：

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADD.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(6).
       01 NUM2 PIC 9(6).
       01 SUM PIC 9(6) VALUE ZERO.
       LINKAGE SECTION.
       PROCEDURE DIVISION.
       CICS-START.
           EXEC CICS RECEIVE INTO(NUM1)
               LENGTH(6)
               END-EXEC.
           EXEC CICS RECEIVE INTO(NUM2)
               LENGTH(6)
               END-EXEC.
           COMPUTE SUM = FUNCTION NUM1 + NUM2.
           MOVE SUM TO LINKAGE-ITEM.
       CICS-RETURN.
           EXEC CICS SEND MAP('RESULT')
               MAPSET('MSET')
               END-EXEC.

该程序首先接收用户输入的两个数字，然后将其相加并将结果存入接口参数LINKAGE-ITEM中，最后将结果输出到终端屏幕。

参考资料

1. IBM CICS Official Website. https://www.ibm.com/products/cics-transaction-server.
2. COBOL Programming Guide. https://www.tutorialspoint.com/cobol/index.htm.
3. CICS Application Programming Guide. https://www.ibm.com/support/knowledgecenter/en/SSGMCP_5.1.0/applications/cicsprogbook.html.