EDPBLK ;SLC/KCM - Handle locking for configuration ;2/28/12 08:33am
Source file <EDPBLK.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
READL(AREA,PART,TOKEN) | ; lock for reading
|
|
READU(AREA,PART,TOKEN) | ; unlock for reading
|
|
INITLOCK() | ; returns lock table id, initializing new table if necessary
|
|
SAVEL(AREA,PART,TOKEN,ERR) | ; lock for saving configuration
; ERR is return, empty if successful, message if lock fails ; TOKEN is returned with save token, contains read token initially |
|
SAVEU(AREA,PART,TOKEN) | ; Unlock for saving
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP( | SAVEL+18, SAVEL+19, SAVEL+21 |
^XTMP("EDP-LOCK-" | READL+3, READL+4, READL+5*, READU+2, INITLOCK+2, INITLOCK+3*, INITLOCK+5, INITLOCK+7!, SAVEL+13, SAVEL+24 , SAVEL+30, SAVEL+31*, SAVEL+32*, SAVEU+1 |
Name | Line Occurrences |
---|---|
$$INITLOCK | READL+2, SAVEL+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AREA | READL~, READL+3, READL+4, READL+5, READU~, READU+2, SAVEL~, SAVEL+13, SAVEL+19, SAVEL+21 , SAVEL+24, SAVEL+30, SAVEL+31, SAVEL+32, SAVEU~, SAVEU+1 |
COLLIDE | SAVEL+16~, SAVEL+17*, SAVEL+21*, SAVEL+23, SAVEL+25 |
DAY | READL+1~, READL+2*, READL+3, READL+4, READL+5, READL+6, INITLOCK+1*, INITLOCK+2, INITLOCK+3, INITLOCK+4 , INITLOCK+8, SAVEL+11~, SAVEL+12*, SAVEL+13, SAVEL+24, SAVEL+30, SAVEL+31, SAVEL+32, SAVEL+33 |
DT | INITLOCK+3 |
ERR | SAVEL~, SAVEL+3*, SAVEL+4*, SAVEL+13*, SAVEL+25*, SAVEL+26*, SAVEL+27*, SAVEL+28* |
GDAY | SAVEL+7~, SAVEL+8*, SAVEL+18, SAVEL+20 |
GSEQ | SAVEL+7~, SAVEL+8*, SAVEL+20 |
PART | READL~, READL+3, READL+4, READL+5, READU~, READU+2, SAVEL~, SAVEL+13, SAVEL+19, SAVEL+21 , SAVEL+24, SAVEL+30, SAVEL+31, SAVEL+32, SAVEU~, SAVEU+1 |
SEQ | READL+1~, READL+4*, READL+5, READL+6, SAVEL+16~, SAVEL+30*, SAVEL+31, SAVEL+32, SAVEL+33 |
TOKEN | READL~, READL+6*, READU~, READU+1, READU+2, SAVEL~, SAVEL+4, SAVEL+8, SAVEL+25, SAVEL+32 , SAVEL+33*, SAVEU~, SAVEU+1 |
U | INITLOCK+3 |
X | INITLOCK+4~*, INITLOCK+5*, INITLOCK+6*, INITLOCK+7, SAVEL+16~, SAVEL+17*, SAVEL+18*, SAVEL+19, SAVEL+20, SAVEL+21 |
Y | SAVEL+16~, SAVEL+19*, SAVEL+20, SAVEL+21 |