DIK ;SFISC/GFT,YJK,XAK-GATHER A FILE'S XREFS TO EXECUTE ;8NOV2014
Source file <DIK.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 |
|---|---|---|
| DD1 | ||
| DISKIPIN(DISKIPIN) | ;ALSO CALLED FROM DIU1
|
|
| DD | ;CALLED FROM DIKZ0
|
|
| DDGO | ||
| E | ||
| DH | ||
| DV | ||
| DW | ||
| D | ||
| I | ||
| INX | ||
| CHK(F,DU,DIKCHK) | ;Set DIKCHK(f) for file F and its parents
|
|
| A | ||
| A1 | ||
| 0 | ;REMEMBER HOW TO GRAB THE FIELD'S VALUE
|
|
| IX | ;One entry, all fields, KILL then SET
|
|
| IX1 | ;One entry, all fields, SET (X=1)
|
|
| IX2 | ;One entry, all fields, KILL (X=2)
|
|
| IXALL | ;All entries, SET (X=1)
|
|
| IXALL2 | ;All entries, KILL (X=2)
|
|
| EN | ;One entry, KILL then SET
|
|
| EN1 | ;One entry, SET (X=1)
|
|
| EN2 | ;One entry, KILL (X=2)
|
|
| ENALL | ;All entries, SET (X=1)
|
|
| ENALL2 | ;All entries, KILL (X=2)
|
|
| N(REINDOK) | ||
| PR | ||
| CK | ||
| FREE(X) | ||
| DIKJ | ||
| INT | ||
| CHKS | ;
|
|
| DIK0 | ||
| Q |