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 編譯程式：

//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

使用關聯的事務 ID 執行程式。事務 ID 由管理員提供。它將顯示以下輸出：

程式編譯

下圖顯示了編譯 COBOL-CICS 程式的步驟：

翻譯器

翻譯器的功能是檢查 CICS 命令中的語法錯誤。它將它們轉換為等效的 COBOL 語句。

編譯器

編譯器的功能是擴充套件 COBOL 複製書。它在檢查原始碼的語法錯誤後編譯程式碼。

連線編輯器

連線編輯器的功能是連結不同的目標模組以建立單個載入模組。