TMELD - Table Manager Read Lock Block

    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