CICS-COBOLの基本

CICSプログラムは、メインフレームでCOBOL言語で記述されています。簡単なCOBOL-CICSプログラムの作成、コンパイル、および実行について説明します。

CICSプログラム

CICS出力画面にメッセージを表示する単純なCOBOL-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を使用してプログラムを実行します。Transaction-idは管理者によって提供されます。次の出力が表示されます-

プログラムのコンパイル

次のフローチャートは、COBOL-CICSプログラムのコンパイルに使用されるステップを示しています。

翻訳者

トランスレーターの機能は、CICSコマンドの構文エラーをチェックすることです。それらを同等のCOBOLステートメントに変換します。

コンパイラ

コンパイラーの機能は、COBOLコピーブックを拡張することです。ソースコードの構文エラーをチェックした後、コードをコンパイルします。

リンケージエディタ

リンケージエディタの機能は、さまざまなオブジェクトモジュールをリンクして、単一のロードモジュールを作成することです。