Verifying shared data tables support

To verify that the shared data tables function can be used, you can:

  1. Start up a CICS region on which you have installed support for shared data tables.
    Note:
    To use shared data tables, you must install the following modules: DFHDTSVC, DFHDTCV, and DFHMVRMS in either an authorized system library in the MVS linklist (LNKLST concatenation of the MVS system) or in the LPA. When you install CICS, these modules are installed into the hlq.SDFHLINK library (which you should normally include in the MVS linklist).
  2. Define and install a user-maintained data table.
  3. Try a generic read command on your data table, using the CECI transaction. (Generic reads of user-maintained data tables are allowed only with shared data tables.) If shared data tables is operational, you should see a normal response. If shared data tables is not operational, you would see an INVREQ response.
    Note:
    This verification process uses user-maintained data tables throughout, because the behavior of CICS-maintained data tables is transparent to their users. For example, a normal response is returned for a generic read of a CICS-maintained data table, regardless of whether or not shared data tables is operational.
  4. To verify that the cross-memory services of shared data tables are working:

  5. Start up a second CICS region (the requester) that has an interregion communication (IRC) connection to the first CICS region (the server, which contains the user-maintained data table and source data set).
  6. On the requester CICS region, do the following:
    1. Define and install a remote file referring to (associated with) the user-maintained data table on the server CICS region.
    2. Close the interregion communication connection between the two CICS regions so that function shipping is impossible; that is, only the cross-memory services of shared data tables can be used to access the shared data table from the requester CICS region. To close the connection, you can enter the command:
      CEMT SET IRC CLOSED

      To verify that function shipping cannot work, try a remote READ of a file (not a data table) on the server CICS region; you will get a SYSIDERR response.

    3. Try a generic read command on your data table, using the CECI transaction. If the cross-memory services of shared data tables can be used, you should see a normal response.
  7. To restore interregion communication between the two CICS regions, open the connection again. To do this, you can enter the command:
    CEMT SET IRC OPEN

Example verification of shared data tables

As an example verification test of shared data tables, the following steps were completed for the CICS shared data tables environment shown in Figure 36:

  1. A CICS region, CICSIDC, was started. (CICSIDC is the server CICS region in this example.)
  2. On CICSIDC, the following steps were completed:
    1. The user-maintained data table, MYSDT, was defined and installed. The MYSDT data table was based on the sample data set, hlq.CICSIDC.FILEA, installed on that region.
    2. The following generic READ command was entered at a terminal:
      CECI READ FILE(MYSDT) RIDFLD(00092) KEYLENGTH(5) GE GTEQ

      Figure 37 shows the initial response (LOADING), and Figure 38 shows the subsequent response when the command was repeated after the data table had completed loading.

  3. The following steps were completed to verify the cross-memory services of shared data tables:

  4. A second CICS region, CICSIDA, was started with support for shared data tables. (CICSIDA is the requester CICS region in this example.)
  5. The following IRC connections and sessions were defined and installed on the associated CICS regions:
    Region CONNECTION SESSION
    CICSIDA CICA ATOC
    CICSIDC CICC CTOA

    See Figure 41 and Figure 42 for the parameters used for the CICA and ATOC resource definitions. The parameters for the CICC and CTOA resource definitions were similar.

  6. On CICSIDA, the following steps were completed:
    1. The file, REMSDT, was defined and installed as remote, referring to the MYSDT data table on CICSIDC. See Figure 43 for the parameters used for the REMSDT resource definition.
    2. The file, REMFIL, was defined and installed as remote, referring to the FILEA sample file on CICSIDC.
    3. The CEMT SET IRC CLOSED command was used to close the IRC connection to CICSIDC.
    4. The following generic READ command was entered at a terminal:
      CECI READ FILE(REMFIL) RIDFLD(00092) KEYLENGTH(5)
      LENGTH(80) GE GTEQ

      Figure 39 shows the response (SYSIDERR), because the remote file cannot be accessed by function-shipping. (This response would also be observed for the remote data table, REMSDT, if the IRC connection was closed.)

    5. The following generic READ command was entered at a terminal:
      CECI READ FILE(REMSDT) RIDFLD(00092) KEYLENGTH(5)
      LENGTH(80) GE GTEQ

      Figure 40 shows the response (NORMAL). This only works if MYSDT is already open on CICSIDC, as achieved by step 2b.

Figure 36. CICS environment for example verification of shared data tables
 The figure shows four boxes, representing: an AOR called CICSIDA, a File Owning Region called CICSIDC, a data space containing a data table, and a VSAM KSDS named CICSTS31.CICS.CICSIDC.FILEA . CICSIDA is shown to contain: RDO group(CICAGRP), CONNECTION(CICA), SESSION(ATOC), FILE(REMFIL) remote, and FILE(REMSDT) remote. CICSIDC is shown to contain: RDO group(CICCGRP), CONNECTION(CICC), SESSION(CTOA), FILE(FILEA) , FILE(MYSDT) and Shared data table services. Cross memory services links FILE(REMFIL) remote in CICSIDA to FILE(FILEA) in CICSIDC, and FILE(REMSDT) remote in CICSIDA to FILE(MYSDT) in CICSIDC. VSAM SERVICES links the Files in CICSIDC to the VSAM KSDS . Shared data table services links FILE(MYSDT) in CICSIDC to the data table in the data space.

Figure 37. On CICSIDC, response to initial CECI generic READ FILE command with SDT support. (The data table is loaded on first reference, and generic READ commands are not allowed for a user-maintained data table while it is loading.)
  read file(MYSDT) ridfld(00092) keylength(5) ge gteq
  STATUS:  COMMAND EXECUTION COMPLETE                         NAME=
   EXEC CICS  READ
    File( 'MYSDT ' )
    < SYsid() >
    ( SEt() | Into( '' ) )
    < Length( +00000 ) >
    RIdfld( '00092' )
    < Keylength( +00005 ) < GEneric > >
    < RBa | RRn | DEBRec | DEBKey >
    < GTeq | Equal >
    < UNcommitted | Consistent | REpeatable | UPdate <token()> >
    < Nosuspend >
 
 

 
 
 
 
 
 
 
   RESPONSE: LOADING               EIBRESP=+0000000094 EIBRESP2=+0000000104
 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF
Figure 38. On CICSIDC, response to CECI generic READ FILE command with SDT support. Normal response
  read file(MYSDT) ridfld(00092) keylength(5) ge gteq
  STATUS:  COMMAND EXECUTION COMPLETE                         NAME=
   EXEC CICS  READ
    File( 'MYSDT ' )
    < SYsid() >
    ( SEt()
      | Into( ' 000983J. S. TILLING       WASHINGTON, DC      34512' ... ) )
    < Length( +00080 ) >
    RIdfld( '00092' )
    < Keylength( +00005 ) < GEneric > >
    < RBa | RRn | DEBRec | DEBKey >
    < GTeq | Equal >
    < UNcommitted | Consistent | REpeatable | UPdate <token()> >
    < Nosuspend >
 
 
 
 
 
 
 
 
 
   RESPONSE: NORMAL                EIBRESP=+0000000000 EIBRESP2=+0000000000
 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF
Figure 39. On CICSIDA, response to remote CECI generic READ FILE command, with IRC closed. SYSIDERR response for file, REMFIL, attempting to use function shipping for associated file, FILEA, on CICSIDC
  read file(FILEA) ridfld(00092) keylength(5) length(80) ge gteq
  STATUS:  COMMAND EXECUTION COMPLETE                         NAME=
   EXEC CICS  READ
    File( 'FILEA   ' )
    < SYsid() >
    ( SEt()
      | Into( '                                                    ' ... ) )
    < Length( +00080 ) >
    RIdfld( '00092' )
    < Keylength( +00005 ) < GEneric > >
    < RBa | RRn | DEBRec | DEBKey >
    < GTeq | Equal >
    < UNcommitted | Consistent | REpeatable | UPdate <token()> >

    < Nosuspend >
 
 
 
 
 
 
 
 
 
   RESPONSE: SYSIDERR              EIBRESP=+0000000053 EIBRESP2=+0000000130
 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11
Figure 40. On CICSIDA, response to remote CECI generic READ FILE command, with IRC closed. Normal response for file, REMSDT, using cross-memory services for associated shared data table, MYSDT, on CICSIDC
  read file(MYSDT) ridfld(00092) keylength(5) length(80) ge gteq
  STATUS:  COMMAND EXECUTION COMPLETE                         NAME=
   EXEC CICS  READ
    File( 'MYSDT   ' )
    < SYsid() >
    ( SEt()
      | Into( ' 000983J. S. TILLING       WASHINGTON, DC      34512' ... ) )
    < Length( +00080 ) >
    RIdfld( '00092' )
    < Keylength( +00005 ) < GEneric > >
    < RBa | RRn | DEBRec | DEBKey >
    < GTeq | Equal >
    < UNcommitted | Consistent | REpeatable | UPdate <token()> >
    < Nosuspend >
 
 
 
 
 
 
 
 
 
   RESPONSE: NORMAL                EIBRESP=+0000000000 EIBRESP2=+0000000000
 PF 1 HELP 2 HEX 3 END 4 EIB 5 VAR 6 USER 7 SBH 8 SFH 9 MSG 10 SB 11 SF
Figure 41. Example CONNECTION resource definition, CICA, installed on CICSIDA. Only relevant parameters are shown; other parameters were allowed to default
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0640
 
    Connection     : CICA
    Group          : CICAGRP
    DEscription    : MRO CONNECTION CICSIDA TO CICSIDC
   CONNECTION IDENTIFIERS
    Netname        : CICSIDC
    INDsys         :
   REMOTE ATTRIBUTES
    REMOTESystem   :
    REMOTEName     :
   CONNECTION PROPERTIES
    ACcessmethod   : IRc                Vtam | IRc | INdirect | Xm
    Protocol       :                    Appc | Lu61
    SInglesess     : No                 No | Yes
    DAtastream     : User               User | 3270 | SCs | STrfield | Lms
    RECordformat   : U                  U | Vb
   OPERATIONAL PROPERTIES
    AUtoconnect    : No                 No | Yes | All
    INService      : Yes                Yes | No
Figure 42. Example SESSION resource definition, ATOC, associated with connection, CICA. Only relevant parameters are shown; other parameters were allowed to default
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0640
 
    Sessions       : ATOC
    Group          : CICAGRP
    DEscription    : SESSION FOR MRO CICA TO CICC
   SESSION IDENTIFIERS
    Connection     : CICA
    SESSName       :
    NETnameq       :
    MOdename       :
   SESSION PROPERTIES
    Protocol       : Lu61               Appc | Lu61
    MAximum        : 000 , 000          0-999
    RECEIVEPfx     : RB
    RECEIVECount   : 005                1-999
    SENDPfx        : SB
    SENDCount      : 003                1-999
    SENDSize       : 04096              1-30720
    RECEIVESize    : 04096              1-30720
    SESSPriority   : 100                0-255
Figure 43. Example remote FILE resource definition, REMSDT, installed on CICSIDA. Only relevant parameters are shown; other parameters were allowed to default
 
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0640
 
    File           : REMSDT
    Group          : CICCGRP
    DEScription    :
   VSAM PARAMETERS
    DSNAme         :
    Password       :                    PASSWORD NOT SPECIFIED
    RLsaccess      : No                 No  | Yes
    Lsrpoolid      : 1                  1-8 | None
    READInteg      : Uncommitted        Uncommitted | Consistent | Repeat
    DSNSharing     : Allreqs            Allreqs | Modifyreqs
    STRings        : 001                1-255
    Nsrgroup       :
   REMOTE ATTRIBUTES
    REMOTESystem   : CICC
    REMOTEName     : MYSDT
    RECORDSize     :                    1-32767
    Keylength      :                    1-255
   INITIAL STATUS
    STAtus         : Enabled            Enabled | Disabled | Unenabled
[[ Contents Previous Page | Next Page Index ]]