Sharing DTCN debug profile repository among CICS systems
The DTCN debug profile repository is either a CICS® temporary storage queue called EQADTCN2 or a VSAM data set identified through the EQADPFMB DD statement. If you want to share the repository among CICS systems (for example, MRO), do one of the following options:
- If you are using a temporary storage queue, do the following steps:
- Designate a single CICS region as the queue-owning region and note the SYSID of that region. In Figure 1, the SYSID of the queue-owning region is P6.
- For all other regions that need to access the queue-owning region,
create a TSMODEL resource definition and verify that you define the
following attributes:
- For the REMOTESystem attribute, specify the SYSID of the queue-owning region.
- For PRefix and REMOTEPrefix attribute, specify EQADTCN2.
- To optimize the performance of z/OS® Debugger, define the Location attribute as MAIN.
Figure 1. A sample TSMODEL resource definition that gives a region access to the queue-owning region called P6. 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 ==>For instructions on how to create a TSMODEL resource definition, see CICS Resource Definition Guide.
- If you are using a VSAM data set and
want to function-ship file operations to a file-owning region (FOR),
do the following steps:
- Designate a single FOR.
- Define the EQADPFMB file as REMOTE in the CICS FILE definition on regions that need to access it remotely. To learn how to define a FILE resource, see CICS Resource Definition Guide. Figure 2 shows how to define the EQADPFMB file in a region that uses it remotely.
- For the region which owns the VSAM data set, omit the REMOTESYSTEM and REMOTENAME values in the EQADPFMB CICS FILE definition.
- Start the FOR before starting any AOR that needs to read the EQADPFMB file.
Figure 2. An example of how to define the EQADPFMB file as REMOTE in a CICS FILE definition. 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 - If
you are using a VSAM data set and prefer to define the file locally
to all CICS regions that use
it, define the file on all such regions using record-level sharing
(RLS). The following sample resource definition shows how to define
the z/OS Debugger EQADPFMB
file using RLS.
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 | PublicFor details on defining a FILE resource, see CICS Resource Definition Guide.