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&minus编译程序;

 
 // 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由管理员提供。它将显示以下输出 :

CICS Output

程序编译

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

CICS Compilation

翻译器

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

编译器

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

链接编辑器

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