定義ジョブの例

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 連結に追加する必要があります。

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

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

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

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