新彩天欢迎您!
幻海优品

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副本。它在检查源代码以查找语法错误后编译代码。

链接编辑器

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

免责声明:以上内容(如有图片或视频亦包括在内)有转载其他网站资源,如有侵权请联系删除