IMS in the Parallel Sysplex Volume III IMSplex Implementation and Operations

332 IMS in the Parallel Sysplex, Volume III: IMSplex Implementation and Operations

DFSDDLT0 BMPs used to test data sharing

Two jobs, BMP DDLOCK1 and BMP DDLOCK2, are described here with examples, and a

locking demonstration is given.

BMP DDLOCK1

The first job, called DDLOCK1, was run on OS/390 image SC53TS, under an IMS Version 8

system IM1A. Database DISTRICT is a VSO DEDB and CUSTDB is HDAM full function

database. The sequence of calls created for this DFSDDLT0 execution are:

 GHU to segment DISTRICT in the database DISTDB with Key=002110.

 REPL the data in that particular segment.

 GHU and REPL to change the data again in the segment DISTRICT in database DISTDB

with the same Key=002110.

 GHU to segment CUSTOMER in the database CUSTDB with Key=0021100001.

 REPL the data in that particular segment.

 GHU and REPL to change the data again in the segment CUSTOMER in the database

CUSTDB with the same Key=0021100001.

 WTOR with the message 'ENTER NN. TO RESUME IM1A’. This ensures that DDLOCK1

waits until the operator takes action.

 After the WTOR is responded to a SYNC call is issued within the DFSDDLT0 control

statement stream.

When the WTOR is issued, IRLM will have obtained locks that will be reflected in the lock

structure of the Coupling Facility. The JCL and control statements follow in Example B-1.

Example: B-1 DFSDDLT0 BMP job DDLOCK1

//DDLOCK1 JOB CLASS=A,MSGCLASS=O,REGION=4096K,TIME=1440

/*JOBPARM SYSAFF=*

//*

//*DDLTO JOB TO VERIFY LOCKING

//*

//BMP PROC MBR=TEMPNAME,PSB=,IN=,OUT=,

// OPT=N,SPIE=0,TEST=0,DIRCA=000,

// PRLD=,STIMER=,CKPTID=,PARDLI=,

// CPUTIME=,NBA=,OBA=,IMSID=IM1A,AGN=,

// SSM=,PREINIT=,RGN=512K,SOUT=*,

// ALTID=IM2A,APARM=

//*

//G EXEC PGM=DFSRRC00,REGION=&RGN,

// PARM=(BMP,&MBR,&PSB,&IN,&OUT,

// &OPT&SPIE&TEST&DIRCA,&PRLD,

// &STIMER,&CKPTID,&PARDLI,&CPUTIME,

// &NBA,&OBA,&IMSID,&AGN,&SSM,

// &PREINIT,&ALTID,

// '&APARM')

//STEPLIB DD DSN=IMSPSA.IMS0.SDFSRESL,DISP=SHR

// DD DSN=IMSPSA.IMS0.PGMLIB,DISP=SHR

// DD DSN=CEE.SCEERUN,DISP=SHR <--- LE/370

//PROCLIB DD DSN=IMSPSA.IM0A.PROCLIB,DISP=SHR

//SYSUDUMP DD SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=VBA,BLKSIZE=3129),

// SPACE=(125,(2500,100),RLSE,,ROUND)

// PEND

//*------------------------------------------------

//STEP01 EXEC BMP,RGN=0M,

Appendix B. Sample DFSDDLT0 programs used to test data sharing 333

// MBR=DFSDDLT0,PSB=FPSBPA,NBA=10

//G.PRINTDD DD SYSOUT=*

//G.SYSIN DD *

S11 1 1 1 1 DISTDB

L GHU DISTRICT(DKEY =002110)

L REPL

L DATA Ç002110XXXXXXXXXXXXXXXXXXXXXXXXX

L GHU DISTRICT(DKEY =002110)

L REPL

L DATA Ç002110AAAAAAAAAAAAAAAAAAAAAAAAA

S11 1 1 1 1 CUSTDB

L GHU CUSTOMER(CKEY =0021100001)

L REPL

L DATA 0021100001XXXXXXXXXXXXXXXXXXXXXXXXX

L GHU CUSTOMER(CKEY =0021100001)

L REPL

L DATA 0021100001AAAAAAAAAAAAAAAAAAAAAAAAA

WTOR ENTER NN. TO RESUME IM1A

L SYNC

/*

//

BMP DDLOCK2

The second job, called DDLOCK2, would be run on IM2A, an IMS Version 7 system running

on an OS/390 image SC47TS. The sequence of calls is:

 GHU to segment DISTRICT in the DISTDB with Key=002110

 REPL the data in that particular segment

 GHU and REPL to segment DISTRICT in the DISTDB with Key=002110 adding different

data than the REPL call.

 GHU to segment CUSTOMER in Data Base CUSTDB with Key= 0021100001

 REPL the data in that particular segment.

 GHU and REPL to segment CUSTOMER in the CUST with Key=0021100001 adding

different data than the REPL call.

 WTOR with the message 'ENTER NN TO RESUME IM2A’. This will ensure that

DDLOCKB waits until the operator takes action. When WTOR is responded to this

application ends with a SYNC call. The JCL and control statements for DDLOCKB follow

in Example B-2.

Example: B-2 DFSDDLT0 BMP job DDLOCK2

//DDLOCK2 JOB CLASS=A,MSGCLASS=O,REGION=4096K,TIME=1440

/*JOBPARM SYSAFF=*

//*

//*DDLTO JOB TO VERIFY LOCKING

//*

//BMP PROC MBR=TEMPNAME,PSB=,IN=,OUT=,

// OPT=N,SPIE=0,TEST=0,DIRCA=000,

// PRLD=,STIMER=,CKPTID=,PARDLI=,

// CPUTIME=,NBA=,OBA=,IMSID=IM2A,AGN=,

// SSM=,PREINIT=,RGN=512K,SOUT=*,

// ALTID=IM2A,APARM=

//*

//G EXEC PGM=DFSRRC00,REGION=&RGN,

// PARM=(BMP,&MBR,&PSB,&IN,&OUT,

// &OPT&SPIE&TEST&DIRCA,&PRLD,