CICS システム間での DTCN デバッグ・プロファイル・リポジトリーの共用
DTCN デバッグ・プロファイル・リポジトリーは、 EQADTCN2 と呼ばれる CICS® 一時記憶域キュー、または EQADPFMB DD ステートメントによって識別される VSAM データ・セットのいずれかです。 CICS システム (MRO など) 間でリポジトリーを共用する場合は、以下のいずれかのオプションを実行します。
- 一時ストレージ・キューを使用する場合は、次のステップを実行してください。
- 単一の CICS 領域を キュー所有領域 として指定し、その領域の SYSID をメモします。 図 1では、キュー所有領域の SYSID は P6です。
- キューが所有する領域にアクセスする必要があるその他すべての領域では、TSMODEL リソース定義を
作成し、次の属性が定義されていることを確認してください。
- REMOTESystem 属性には、キューが所有する領域の SYSID を指定します。
- PRefix と REMOTEPrefix 属性には、EQADTCN2 を 指定します。
- z/OS® Debuggerのパフォーマンスを最適化するには、Location 属性を MAIN として定義します。
図1： P6 というキューが所有する領域に、ある領域がアクセスできるようにするサンプル TSMODEL リソース定義。 CEDA View TSmodel( DTCN1 ) TSmodel ==> DTCN1 Group ==> DTCNREM Description ==> TEST DTCN TSQ REMOTE PRefix ==> EQADTCN2 XPrefix ==> Location ==> Main Auxiliary | Main RECOVERY ATTRIBUTES RECovery ==> No No | Yes SECURITY ATTRIBUTES Security ==> No No | Yes SHARED ATTRIBUTES POolname ==> REMOTE ATTRIBUTES REMOTESystem ==> P6 REMOTEPrefix ==> EQADTCN2 XRemotepfx ==> Group ==>TSMODEL リソース定義の作成方法については、「 CICS Resource Definition Guide」を参照してください。
- VSAM データ・セットを使用していて、ファイルが所有する領域 (FOR) に対してファイル操作を機能シップする場合は、次のステップを実行します。
- 単一 FOR を指定します。
- EQADPFMB ファイルを、リモート側でアクセスする必要がある領域の CICS FILE 定義で REMOTE として定義します。 FILE リソースの定義方法については、「 CICS Resource Definition Guide」を参照してください。 図 2 は、EQADPFMB ファイルをリモート側で使用する領域に定義する方法を示しています。
- VSAM データ・セットを所有する領域の場合、EQADPFMB CICS FILE 定義で REMOTESYSTEM 値と REMOTENAME 値を省略します。
- EQADPFMB ファイルを読み取る必要がある AOR を開始する前に FOR を開始します。
図2： CICS FILE 定義で EQADPFMB ファイルを REMOTE として定義する方法の例。 CEDA View File( EQADPFMB ) File : EQADPFMB Group : DTCNREM DEScription : DTCN PROFILE DATASET REMOTE VSAM PARAMETERS DSNAme : Password : PASSWORD NOT SPECIFIED RLsaccess : No Yes | No LSrpoolid : 1 1-8 | None READInteg : Uncommitted Uncommitted | Consistent | Repeatable DSNSharing : Allreqs Allreqs | Modifyreqs STRings : 001 1-255 Nsrgroup : REMOTE ATTRIBUTES REMOTESystem : P6 REMOTEName : EQADPFMB REMOTE AND CFDATATABLE PARAMETERS RECORDSize : 1-32767 Keylength : 1-255 (1-16 For CF Datatable) INITIAL STATUS STAtus : Enabled Enabled | Disabled | Unenabled Opentime : Firstref Firstref | Startup DIsposition : Share Share | Old BUFFERS DAtabuffers : 00002 2-32767 Indexbuffers : 00001 1-32767 DATATABLE PARAMETERS TABLE : No No | CIcs | User | CF Maxnumrecs : Nolimit Nolimit | 1-99999999 CFDATATABLE PARAMETERS Cfdtpool : TABLEName : UPDATEModel : Locking Contention | Locking LOad : No No | Yes DATA FORMAT RECORDFormat : V V | F OPERATIONS Add ==> No No | Yes BRowse ==> No No | Yes DELete ==> No No | Yes READ ==> Yes Yes | No UPDATE ==> No No | Yes AUTO JOURNALLING JOurnal ==> No No | 1-99 JNLRead ==> None None | Updateonly | Readonly | All JNLSYNCRead ==> No No | Yes JNLUpdate ==> No No | Yes JNLAdd ==> None None | Before | AFter | ALl JNLSYNCWrite ==> Yes Yes | No RECOVERY PARAMETERS RECOVery ==> None None | Backoutonly | All Fwdrecovlog ==> No No | 1-99 BAckuptype ==> Static Static | Dynamic SECURITY RESsecnum : 00 0-24 | Public - VSAM データ・セットを使用していて、そのデータ・セットを使用するすべての CICS 領域に対してローカルにファイルを定義したい場合は、レコード・レベル共用 (RLS) を使用して、そのようなすべての領域でファイルを定義します。 以下のサンプル・リソース定義は、RLS を使用して z/OS Debugger EQADPFMB ファイルを定義する方法を示しています。
CEDA View File( EQADPFMB ) File : EQADPFMB Group : DTCNRLS DEScription : DTCN PROFILE DATASET VSAM PARAMETERS DSNAme : Password : PASSWORD NOT SPECIFIED RLsaccess : Yes Yes | No LSrpoolid : 1 1-8 | None READInteg : Uncommitted Uncommitted | Consistent | Repeatable DSNSharing : Allreqs Allreqs | Modifyreqs STRings : 010 1-255 Nsrgroup : REMOTE ATTRIBUTES REMOTESystem : REMOTEName : REMOTE AND CFDATATABLE PARAMETERS RECORDSize : 1-32767 Keylength : 1-255 (1-16 For CF Datatable) INITIAL STATUS STAtus : Enabled Enabled | Disabled | Unenabled Opentime : Firstref Firstref | Startup DIsposition : Share Share | Old BUFFERS DAtabuffers : 00011 2-32767 Indexbuffers : 00010 1-32767 DATATABLE PARAMETERS TABLE : No No | CIcs | User | CF Maxnumrecs : Nolimit Nolimit | 1-99999999 CFDATATABLE PARAMETERS Cfdtpool : TABLEName : UPDATEModel : Locking Contention | Locking LOad : No No | Yes DATA FORMAT RECORDFormat : V V | F OPERATIONS Add : Yes No | Yes BRowse : Yes No | Yes DELete : Yes No | Yes READ : Yes Yes | No UPDATE : Yes No | Yes AUTO JOURNALLING JOurnal : No No | 1-99 JNLRead : None None | Updateonly | Readonly | All JNLSYNCRead : No No | Yes JNLUpdate : No No | Yes JNLAdd : None None | Before | AFter | ALl JNLSYNCWrite : No Yes | No RECOVERY PARAMETERS RECOVery : None None | Backoutonly | All Fwdrecovlog : No No | 1-99 BAckuptype : Static Static | Dynamic SECURITY RESsecnum : 00 0-24 | PublicFILE リソースの定義について詳しくは、「 CICS Resource Definition Guide」を参照してください。