CICS エージェントのユーザ出口

Agents › DevTest CICS エージェント › CICS エージェントのユーザ出口

CICS エージェントのユーザ出口

ITKOUEX1 - DevTest CICS エージェント初期化出口

この出口は、DevTest CICS エージェントの初期化中に呼び出されます。この出口を使用すると、以下のことが可能です。

この CICS 領域がメンバになっているユーザグループを示す
この CICS 領域がメンバになっている CICSPlex を示す
ストレージを割り当て、トークンパラメータを使用してそのアドレス/長さをほかの出口に渡す
ほかのユーザ出口に必要なその他の初期化を実行する

この出口は CICS LINK を介して起動されるため、CICS がサポートする任意の言語で記述できます。初期化中に、ITKOUEX1 への CICS LINK が試行されます。

この出口が必要でない場合は、以下のアクションのいずれかを実行します。

DFHRPL 連結に ITKOUEX1 という名前のモジュールを含めないようにします。
PPT で出口を無効にします。

パラメータは COMMAREA で渡されます。

以下の表では、それらのパラメータについて説明しています。

パラメータ	長さ（バイト単位）	入力または出力	データタイプ	説明
トークン	8	入力/出力	不明	ユーザ出口で使用される可能性のある 8 バイト。出口の呼び出しの後も保持されます。
グループ	8	出力	文字	出口によって設定されます。この CICS がメンバになっているユーザグループを識別します。
CICSPlex	8	出力	文字	出口によって設定されます。この CICS がメンバになっている CICSPlex を識別します。
Sysid	4	入力	文字	CICS ASSIGN SYSID() からの CICS SYSID。
Applid	8	入力	文字	CICS ASSIGN APPLID() からの CICS APPLID。
Jobname	8	入力	文字	CICS INQUIRE SYSTEM JOBNAME() からの CICS ジョブ名。
LPAR	8	入力	文字	この CICS が存在する CVTSNAME からの LPAR 名。
Sysplex	8	入力	文字	この CICS が存在する ECVTSPLX からの SYSPLEX 名。

ITKO.CICSAGNT.CNTL （ITKOUEX1）にはサンプル COBOL ITKOUEX1 が含まれます。このサンプルは、ユーザグループを CICS ジョブ名の最初の 4 文字に設定します。

ITKO.CICSAGNT.CNTL （ITKOEX1C）には COBOL COMMAREA コピーブックが含まれます。

ITKO.CICSAGNT.CNTL （ITKOEX1A）にはアセンブラ COMMAREA コピーブックが含まれます。

ITKO.CICSAGNT.CNTL （COMPUEX1）には COBOL コンパイル JCL が含まれます。

ITKOUEX2 - DevTest CICS エージェント終了出口

この出口は、DevTest CICS エージェントの終了中に呼び出されます。この出口は、ユーザ出口に必要な任意のクリーンアップ（ストレージを解放したり、ファイルを閉じたりなど）を実行するために使用できます。

この出口は CICS LINK を介して起動されるため、CICS がサポートする任意の言語で記述できます。エージェントの終了中に、ITKOUEX2 への CICS LINK が試行されます。この出口が必要でない場合は、以下のアクションのいずれかを実行します。

DFHRPL 連結に ITKOUEX2 という名前のモジュールを含めないようにします。
PPT で出口を無効にします。

パラメータは COMMAREA で渡されます。

以下の表では、それらのパラメータについて説明しています。

パラメータ	長さ（バイト単位）	入力または出力	データタイプ	説明
トークン	8	入力/出力	不明	ユーザ出口で使用される可能性のある 8 バイト。出口の呼び出しの後も保持されます。

ITKO.CICSAGNT.CNTL （ITKOUEX2）にはサンプル COBOL ITKOUEX2 が含まれます。

ITKO.CICSAGNT.CNTL （ITKOEX2C）には COBOL COMMAREA コピーブックが含まれます。

ITKO.CICSAGNT.CNTL （ITKOEX2A）にはアセンブラ COMMAREA コピーブックが含まれます。

ITKO.CICSAGNT.CNTL （COMPUEX2）には COBOL コンパイル JCL が含まれます。

ITKOUEX3 - LISA CICS COMMAREA 統合出口

この出口は、COMMAREA の外部のストレージを参照するアドレスを含む COMMAREA を管理するために使用されます。この出口は、1 つの連続した COMMAREA を作成するために、ストレージフラグメントを COMMAREA と統合します。

この出口は、以下の時点でコールされます。

COMMAREA の外部のデータを参照するアドレスを含まない置き換え用の COMMAREA を作成するために、CICS LINK のレコーディング中（前のイメージと後のイメージの両方について）。この出口は、新しいストレージ領域に対して GETMAIN を実行する役割を果たします。 DevTest CICS エージェントは、この領域に対して FREEMAIN を実行します。また、COMMAREA 内の場所を指す COMMAREA 内のアドレスにも問題があります。この場合、この出口はレコーディング中にアドレスを相対的なオフセットに変換し、再生中に実際のアドレスに戻す必要があります。
DevTest 応答から元の COMMAREA にリストアするために、CICS LINK の再生（仮想化）中。
この出口が任意の追加の初期化タスクを実行できるようにするために、CICS エージェントの初期化中（ユーザ出口 1 の後）。
この出口が任意の追加の終了タスクを実行できるようにするために、CICS エージェントの終了中（ユーザ出口 2 の前）。

この出口は CICS LINK を介して起動されるため、CICS がサポートする任意の言語で記述できます。ただし、アドレス操作や可変長データの移動にはアセンブラ言語が最適です。初期化中に、ITKOUEX3 への CICS LINK が試行されます。

この出口が不要な場合は、以下のいずれかのアクションを実行します。

DFHRPL 連結に ITKOUEX3 という名前のモジュールを含めないようにします。
PPT で出口を無効にします。

パラメータは COMMAREA で渡されます。

以下の表では、それらのパラメータについて説明しています。

パラメータ	長さ（バイト単位）	入力または出力	データタイプ	説明
トークン	8	入力/出力	不明	ユーザ出口で使用される可能性のある 8 バイト。出口の呼び出しの後も保持されます。
Call Type	1	入力	バイナリ	12 は再生を示します。 16 は終了を示します。
Image Type	1	入力	バイナリ	4 は前のイメージを示します。 8 は後のイメージを示します。
COMMAREA Address	4	入力	アドレス	アプリケーションの CICS LINK で渡される COMMAREA のアドレス。
COMMAREA Length	2	入力	バイナリ	アプリケーションの CICS LINK で渡される COMMAREA の長さ。
Calling Program	8	入力	文字	CICS LINK コマンドを発行するプログラムの名前。
Target Program	8	入力	文字	LINK でのリンク先のプログラムの名前。
New COMMAREA Address	4	入力/出力	アドレス	レコーディングの場合：新しい統合された COMMAREA のアドレスが、この出口によってここに配置されます。この出口は通常、この領域を GETMAIN で取得します。再生の場合： VSE 応答からの新しい統合された COMMAREA のアドレスがここに配置されます。この出口は、その内容をアプリケーションの COMMAREA にコピーします。
New COMMAREA Length	2	入力/出力	バイナリ	レコーディングの場合：新しい統合された COMMAREA の長さが、この出口によってここに配置されます。再生の場合： VSE 応答からの新しい統合された COMMAREA の長さが、この出口が使用するためにここに配置されます。
Return Code	1	出力	バイナリ	0 は COMMAREA が正常に統合されたことを示します。 DevTest CICS エージェントは、New COMMAREA Address と New COMMAREA Length を使用して記録されたイメージを作成します。 4 は、この出口が成功したことを示します。ただし、新しい COMMAREA は作成されていません。 DevTest CICS エージェントは、CICS LINK からの COMMAREA を使用して記録されたイメージを作成します。 8 は、この出口が失敗し、新しい COMMAREA が存在しないことを示します。 DevTest CICS エージェントは、以下のパラメータで示すように、EIBRCODE、EIBRESP、および EIBRESP2 で CICS LINK からアプリケーションに戻ります。 12 は、リターンコード 8 のすべての処理、およびこの出口を将来の DevTest CICS LINK レコーディングおよび再生から削除する必要があることを示します。
EIBRCODE	6	出力	バイナリ	Return Code が 8 または 12 である場合に使用される EIBRCODE 値。
EIBRESP	4	出力	バイナリ	Return Code が 8 または 12 である場合に使用される EIBRRESP 値。
EIBRESP2	4	出力	バイナリ	Return Code が 8 または 12 である場合に使用される EIBRRESP2 値。

アセンブラ言語サンプル ITKOUEX3 は、ITKO.CICSAGNT.CNTL(ITKOUEX3) にあります。

このサンプルは、Natural パラメータ CALLRPL=(ALL,3) または CALLRPL=(ALL,4) で COBOL をコールしたときに Software AG Natural 言語によって生成される形式で COMMAREA を管理します。 COMMAREA のこの形式では、COMMAREA の長さは 12 （CALLRPL=(ALL,3) が使用されている場合）および 16 （CALLRPL=(ALL,4) が使用されている場合）です。 COMMAREA 内の最初のフルワードはパラメータリストのアドレスです。アドレス内で 1 に設定されている高位ビットは、最後のパラメータを示します。 3 番目のフルワードはパラメータ長のリストのアドレスです。

ITKO.CICSAGNT.CNTL （ITKOEX3A）にはアセンブラ COMMAREA コピーブックが含まれます。

ITKO.CICSAGNT.CNTL （ASMBUEX3）にはアセンブリ JCL が含まれます。