CICS-COBOLの基本

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

CICSプログラム

CICS出力画面にメッセージを表示する簡単なCOBOL-CICSプログラムを作成します。このプログラムは、COBOL-CICSプログラムの実行に関連する手順を示すためのものです。以下は、単純なプログラムをコーディングする手順です-

ステップ1

Mainframesにログインして、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は管理者によって提供されます。次の出力が表示されます-

CICS出力

プログラムのコンパイル

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

CICSコンパイル

翻訳者

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

コンパイラ

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

リンケージエディター

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

Cics-cobol-basics

目次