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由管理员提供。它将显示以下输出 :
程序编译
以下流程图显示了编译COBOL-CICS程序时使用的步骤 :
翻译器
翻译器的功能是检查CICS命令中的语法错误。它将它们转换为等效的COBOL语句。
编译器
编译器的功能是扩展COBOL副本。它在检查源代码以查找语法错误后编译代码。
链接编辑器
链接编辑器的功能是将不同的对象模块链接到创建一个加载模块。