📅  最后修改于: 2020-11-22 16:32:35             🧑  作者: Mango
CICS程序是用大型机中的COBOL语言编写的。我们将讨论有关编写一个简单的COBOL-CICS程序,对其进行编译然后执行的问题。
我们将编写一个简单的COBOL-CICS程序,该程序在CICS输出屏幕上显示一些消息。该程序是为了演示执行COBOL-CICS程序所涉及的步骤。以下是编写简单程序的步骤-
登录到大型机并打开一个TSO会话。
创建一个新的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.
对程序进行编码后,我们需要对其进行编译。我们可以使用以下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)
//
打开一个CICS会话。
我们现在将使用以下命令安装程序-
CEMT SET PROG(HELLO) NEW.
使用关联的transaction-id执行程序。交易ID由管理员提供。它将显示以下输出-
以下流程图显示了用于编译COBOL-CICS程序的步骤-
转换器的函数是检查CICS命令中的语法错误。它将它们转换为等效的COBOL语句。
编译器的函数是扩展COBOL复制书。检查源代码中的语法错误后,它将编译代码。
链接编辑器的函数是链接不同的对象模块以创建单个加载模块。