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 执行程序。Transaction-id 由管理员提供。它将显示以下输出 -

CICS输出

程序编译

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

CICS编译

翻译者

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

编译器

编译器的作用就是扩展COBOL抄本。它在检查源代码是否存在语法错误后编译代码。

联动编辑器

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