CICS - COBOL 基础

CICS 程序是用大型机的 COBOL 语言编写的。我们将讨论如何编写一个简单的 COBOL-CICS 程序，如何编译它，然后如何执行它。

CICS 程序

我们将编写一个简单的 COBOL-CICS 程序，它在 CICS 输出屏幕上显示一些消息。此程序旨在演示执行 COBOL-CICS 程序的步骤。以下是编写简单程序的步骤：

步骤 1

登录大型机并打开 TSO 会话。

步骤 2

创建一个新的 PDS，我们将在其中编写程序。

步骤 3

在 PDS 中创建一个新成员并编写以下程序：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(40).
01 WS-LENGTH  PIC S9(4) COMP.
PROCEDURE DIVISION.
A000-MAIN-PARA.
   MOVE 'Hello World' TO WS-MESSAGE
   MOVE '+12' TO WS-LENGTH
   EXEC CICS SEND TEXT 
      FROM (WS-MESSAGE)
      LENGHT(WS-LENGTH)  
   END-EXEC
   EXEC CICS RETURN
   END-EXEC.	 

步骤 4

编写程序后，需要对其进行编译。可以使用以下 JCL 编译程序：

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C  
//CICSCOB  EXEC CICSCOB,                                                
//COPYLIB = ABC.XYZ.COPYLIB,                            
//LOADLIB = ABC.XYZ.LOADLIB 
//LIB        JCLLIB ORDER = CICSXXX.CICS.XXXPROC                
//CPLSTP     EXEC DFHEITVL                                
//TRN.SYSIN  DD DSN = ABC.XYZ.PDS(HELLO),DISP = SHR     
//LKED.SYSIN DD *                                        
   NAME HELLO(R)                                          
//

步骤 5

打开 CICS 会话。

步骤 6

现在，我们将使用以下命令安装程序：

CEMT SET PROG(HELLO) NEW.

步骤 7

使用关联的事务 ID 执行程序。事务 ID 由管理员提供。它将显示以下输出：

程序编译

下图显示了编译 COBOL-CICS 程序的步骤：

翻译器

翻译器的功能是检查 CICS 命令中的语法错误。它将它们转换为等效的 COBOL 语句。

编译器

编译器的功能是扩展 COBOL 复制书。它在检查源代码的语法错误后编译代码。

连接编辑器

连接编辑器的功能是链接不同的目标模块以创建单个加载模块。