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

使用关联的 transaction-id 执行程序。Transaction-id 由管理员提供。它将显示以下输出 −

程序编译

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

翻译器

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

编译器

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

链接编辑器

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