CICS のもとで実行する COBOL プログラムのコー ディング

EXEC CICS command-name command-options
END-EXEC

CICS コマンドの基本形式は、上記のとおりです。 EXEC コマンド内では、スペースをワード分離文字として使用してください。 コンマやセミコロンは使用しないでください。 EXEC CICS コマンド内に COBOL ステートメントをコーディングしないでください。

• ENVIRONMENT DIVISION内の FILE-CONTROL 項目 ( FILE-CONTROL 項目が SORT ステートメントに使用されている場合を除く)
• DATA DIVISION の FILE SECTION (FILE SECTION が SORT ステートメントで使用される場合を除く)
• メインプログラムに対してユーザー指定のパラメーターを使用する
• USE 宣言部分 (USE FOR DEBUGGING を除く) を使用する
• 次の COBOL 言語ステートメントを使用する
  • ACCEPT 形式 1: データ転送 (システムの日付と時刻を取得するには、形式 2 の ACCEPT を使用できます)
  • CLOSE
  • DELETE
  • DISPLAY UPON CONSOLE
  • DISPLAY UPON SYSPUNCH
  • MERGE
  • OPEN
  • READ
  • RERUN
  • REWRITE
  • START
  • STOP リテラル
  • WRITE

別個の CICS 変換プログラムを使用する予定の場合は、 EXEC コマンドを含むすべての REPLACE ステートメントをプログラムの PROCEDURE DIVISION ヘッダーの後に配置する必要があります。そうしないと、コマンドは変換されません。

ファイル入出力のコーディング: ほとんどの入出力処理には、 CICS コマンドを使用する必要があります。 したがって、ファイルを記述したり、OPEN、CLOSE、READ、START、REWRITE、WRITE、または DELETE ステートメントをコーディングすることはありません。 代わりに、CICS コマンドを使用して、データを検索、更新、挿入、および削除します。

16 MB 境界より上で実行する COBOL プログラムのコーディング: Enterprise COBOLでは、16 MB 境界より上で実行するように COBOL プログラムをコーディングする場合、以下の制限が適用されます。

• IMS/ESA ® を DBCTLなしで使用する場合、DL/I CALL ステートメントがサポートされるのは、呼び出しで渡されるすべてのデータが 16 MB 境界より下にある場合のみです。 このため、DATA(24) コンパイラー・オプションを指定する必要があります。 ただし、 DBCTLで IMS/ESA を使用する場合は、代わりに DATA(31) コンパイラー・オプションを使用して、16 MB 境界より上にあるデータを渡すことができます。

  DL/I CALL ステートメントの代わりに EXEC DLI を使用する場合は、 IMS 製品のレベルに関係なく、 DATA(31) を指定できます。

• 受け取りプログラムが AMODE 31 でリンク・エディットされている場合、渡されるアドレスは、31 ビットまたは 24 ビットの長さで、左端バイトが 0 に設定されていなければなりません。
• 受け取りプログラムが AMODE 24 でリンク・エディットされている場合、渡されるアドレスは 24 ビットの長さでなければなりません。

データ項目の内容の表示: システム論理出力装置 (SYSOUT、SYSLIST、SYSLST) への DISPLAY は、 CICSでサポートされています。 DISPLAY 出力は、 Language Environment ® メッセージ・ファイル (一時データ・キュー CESE) に書き込まれます。 ただし、 DISPLAY . . . UPON CONSOLE および DISPLAY . . . UPON SYSPUNCHは許可されません。 DISPSIGN オプションを指定して、符号付き数値項目の DISPLAY の出力形式設定を制御することができます。