CONTROL BLOCK NAME = DFHTMELD
NAME OF MATCHING PLS CONTROL BLOCK = LBSEG,LBLOCK SLOT (in DFHTMPPS)
DESCRIPTIVE NAME = CICS TS - Table Management Read Lock Block.
FUNCTION =
The table management read lock block consists of a set of read
locks and a count of locks assigned, on primary directory entries.
Each time a task uses a locate function, a read lock on the
primary directory entry, corresponding to the table entry found,
is created by the locate function. A directory entry which has a
read lock(s) can not be modified until the lock(s) is(are)
released. Read locks are released at task termination or on
specific request.
LIFETIME =
The initial read lock block is allocated at AP domain transaction
initialization, and release in AP domain transaction termination
and so a lock block is part of the AP transaction environemnt.
TMP will acquire storage for a lock block when a task issues
a function that requires a lock on a primary table entry (eg. a
locate function). Note, when all locks within a lock block are
released, the storage for the lock block is not released but
re-initialised, thus making it reusable. If a task should require
re-starting, then storage for any lock blocks which are not being
used is released. Otherwise, storage for all read lock blocks is
released at task termination.
STORAGE CLASS = CICS storage (CSATCA31/24) above/below the 16M line.
LOCATION =
In the TCA, TCARLB is the address of the first read lock block.
Further read lock blocks are chained by TMELPTR, which is in the
read lock block itself.
INNER CONTROL BLOCKS = None.
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = None.
MODULE TYPE = Control block definition
--------------------------------------------------------------------
EXTERNAL REFERENCES = None.
DATA AREAS = None.
CONTROL BLOCKS = None.
GLOBAL VARIABLES (Macro pass) = None.
Table 1.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
0 |
DFHTMELD |
, |
(0) |
ADDRESS |
4 |
TMELPTR |
POINTER TO NEXT BLOCK |
(4) |
ADDRESS |
4 |
TMENUMRL |
NUMBER OF LOCK SLOTS IN BLOCK |
(4) |
.... 1... |
|
TMELKSTR |
"*" START OF LOCK SLOTS |
(8) |
ADDRESS |
4 |
TMELOCKG (2) |
TABLE MANAGER LOCK |
(10) |
ADDRESS |
4 |
TMELOCKF (2) |
TABLE MANAGER LOCK |
(18) |
ADDRESS |
4 |
TMELOCKE (2) |
TABLE MANAGER LOCK |
(20) |
ADDRESS |
4 |
TMELOCKD (2) |
TABLE MANAGER LOCK |
(28) |
ADDRESS |
4 |
TMELOCKC (2) |
TABLE MANAGER LOCK |
(30) |
ADDRESS |
4 |
TMELOCKB (2) |
TABLE MANAGER LOCK |
(38) |
ADDRESS |
4 |
TMELOCKA (2) |
TABLE MANAGER LOCK |
(40) |
ADDRESS |
4 |
TMELOCK9 (2) |
TABLE MANAGER LOCK |
(48) |
ADDRESS |
4 |
TMELOCK8 (2) |
TABLE MANAGER LOCK |
(50) |
ADDRESS |
4 |
TMELOCK7 (2) |
TABLE MANAGER LOCK |
(58) |
ADDRESS |
4 |
TMELOCK6 (2) |
TABLE MANAGER LOCK |
(60) |
ADDRESS |
4 |
TMELOCK5 (2) |
TABLE MANAGER LOCK |
(68) |
ADDRESS |
4 |
TMELOCK4 (2) |
TABLE MANAGER LOCK |
(70) |
ADDRESS |
4 |
TMELOCK3 (2) |
TABLE MANAGER LOCK |
(78) |
ADDRESS |
4 |
TMELOCK2 (2) |
TABLE MANAGER LOCK |
(80) |
ADDRESS |
4 |
TMELOCK1 (2) |
TABLE MANAGER LOCK |
(80) |
1... 1... |
|
TMELKEND |
"*" END OF LOCK SLOTS |
(80) |
.... 1... |
|
TMELKSIZ |
"TMELOCK1-TMELOCK2" SIZE OF ONE LOCK SLOT |
(80) |
...1 .... |
|
TMENUMSL |
"(TMELKEND-TMELKSTR)/TMELKSIZ" NUMBER OF SLOTS ACCORDING TO DSECT |
(80) |
1... 1... |
|
TMELSIZE |
"*-DFHTMELD" SIZE OF READ LOCK BLOCK |