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 |