To verify that the shared data tables function can be used, you can:
To verify that the cross-memory services of shared data tables are working:
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.
CEMT SET IRC OPEN
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:
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.
The following steps were completed to verify the cross-memory services of shared data tables:
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.
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.)
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.
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
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
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
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
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
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
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