定義ジョブの例

Fault Analyzer CICS プログラムとトランザクションの定義ジョブの例は、上記のすべてのプログラムおよびトランザクションを CICS® に定義する場合に使用できる、サンプル・バッチ・ジョブを示しています。xxx 接頭部を含むデータ・セット名を、ご使用のシステムに適した名前に置き換え、list-name を適切な CICS® 始動 SIT GRPLIST 名に置き換えてください。この例ではグループ名 FA が選択されていますが、必要に応じて変更できます。

図 1. Fault Analyzer CICS プログラムとトランザクションの定義ジョブの例

//IDICICS JOB  ...
//IDICICS EXEC PGM=DFHCSDUP,REGION=1024K,
//             PARM='CSD(READWRITE),PAGESIZE(60),NOCOMPAT'
//STEPLIB  DD DISP=SHR,DSN=xxx.SDFHLOAD
//DFHCSD   DD DISP=SHR,DSN=xxx.DFHCSD
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEF PROGRAM(IDIPLT) GROUP(FA) EXECKEY(CICS)
      CEDF(NO) DATALOCATION(ANY)
      CONCURRENCY(QUASIRENT)
  DEF PROGRAM(IDIPLTD) GROUP(FA) EXECKEY(CICS)
      CEDF(NO) DATALOCATION(ANY)
      CONCURRENCY(QUASIRENT)
  DEF PROGRAM(IDIPLTS) GROUP(FA) EXECKEY(CICS)
      CEDF(NO) DATALOCATION(ANY)
      CONCURRENCY(QUASIRENT)
  DEF PROGRAM(IDIXCX53) GROUP(FA)
      CEDF(NO) DATALOCATION(ANY)
      CONCURRENCY(QUASIRENT)
  DEF PROGRAM(IDIXCCEE) GROUP(FA)
      CEDF(NO) DATALOCATION(ANY)
      CONCURRENCY(QUASIRENT)
  DEF PROGRAM(IDIXFA) GROUP(FA) EXECKEY(CICS)
      CEDF(NO) DATALOCATION(ANY)
      CONCURRENCY(QUASIRENT)
  DEF PROGRAM(IDIVPCLE) GROUP(FA)
      CONCURRENCY(QUASIRENT)
  DEF TRANSACTION(CFA) GROUP(FA)
      PROGRAM(IDIXFA) TASKDATALOC(ANY)
      SHUTDOWN(ENABLED)
  DEF MAPSET(IDIXMAP) GROUP(FA)
  ADD G(FA) L(list-name)
/*

上図に示すサンプル・ジョブは、メンバー IDISCICS としてデータ・セット IDI.SIDISAM1 に提供されます。

Fault Analyzer を CICS® で起動するには、IDI.SIDIAUTH を DFHRPL 連結に追加する必要があります。

Fault Analyzer で CICS® トレース情報を表示するには、CICS® トレースがアクティブである必要があります。

LINKLIST 内の LE なしに CICS® が使用される場合、IDILEDS USERMOD をインストールする必要があります (LE ランタイム・ライブラリーの識別 (LEDSN)を参照してください)。

Fault Analyzer を起動するには、EXEC CICS® ABEND ステートメントに ABCODE キーワードを使用する必要があります。例:

EXEC CICS ABEND ABCODE('abcd') END-EXEC

EXEC CICS® ABEND ステートメントに NODUMP キーワードが指定されると、Fault Analyzer は IDIXCCEE 出口から起動された場合のみ分析を実行します。