📜  CICS-COBOL基础

📅  最后修改于: 2020-11-22 16:32:35             🧑  作者: Mango


CICS程序是用大型机中的COBOL语言编写的。我们将讨论有关编写一个简单的COBOL-CICS程序,对其进行编译然后执行的问题。

CICS计划

我们将编写一个简单的COBOL-CICS程序,该程序在CICS输出屏幕上显示一些消息。该程序是为了演示执行COBOL-CICS程序所涉及的步骤。以下是编写简单程序的步骤-

第1步

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

第2步

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

第三步

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

CICS输出

程序编译

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

CICS编译

译者

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

编译器

编译器的函数是扩展COBOL复制书。检查源代码中的语法错误后,它将编译代码。

链接编辑器

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