Example verification of shared data tables

This example shows the steps to perform to verify the shared data tables for the CICS® shared data tables environment.

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

      Figure 2 shows the initial response (LOADING), and Figure 3 shows the subsequent response when the command is repeated after the data table has completed loading.

The following steps were completed to verify the cross-memory services of shared data tables:
  1. A second CICS region, CICSIDA, is started with support for shared data tables. CICSIDA is the requester CICS region in this example.
  2. The following IRC connections and sessions are defined and installed on the associated CICS regions:
    Region CONNECTION SESSION
    CICSIDA CICA ATOC
    CICSIDC CICC CTOA

    See Figure 6 and Figure 7 for the CICA and ATOC resource definitions attributes. The attributes for the CICC and CTOA resource definitions are similar.

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

      Figure 4 shows the SYSIDERR response, because the remote file cannot be accessed by function-shipping. You also see this response for the remote data table, REMSDT, if the IRC connection is closed.

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

      Figure 5 shows the NORMAL response. You receive a NORMAL response only if MYSDT is already open on CICSIDC, as achieved in step 2.b.

Figure 1. 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 2. 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 3. 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 4. 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 5. 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

In the screen below, only the relevant parameters are shown; other parameters are left to default. The value of CICS RELEASE is for 760. If you run a different release, this value reflects the number of your release.

Figure 6. Example CONNECTION resource definition, CICA, installed on CICSIDA.
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0760
 
    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

In the screen below, only the relevant parameters are shown; other parameters are left to default. The value of CICS RELEASE is for 760. If you run a different release, this value reflects the number of your release.

Figure 7. Example SESSION resource definition, ATOC, associated with connection, CICA.
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0760
 
    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

In the screen below, only the relevant parameters are shown; other parameters are left to default. The value of CICS RELEASE is for 760. If you run a different release, this value reflects the number of your release.

Figure 8. Example remote FILE resource definition, REMSDT, installed on CICSIDA.
 
  OBJECT CHARACTERISTICS                                    CICS RELEASE = 0760
 
    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