DICU ;SEA/TOAD-VA FileMan: Lookup Utilities ;12APR2008
Source file <DICU.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 |
Package | Total | Caller Graph |
---|---|---|
VA FileMan | 4 | DDMP1 DICA1 DILFD DIQGDDU |
Name | Comments | DBIA/ICR reference |
---|---|---|
REQIDS(DIFILE,DITARGET) | ;
; return REQUIRED IDENTIFIERS file attribute ; DIFILE = file#, DITARGET = target array |
|
RID(DIFILE) | ;
; return a string listing a file's required identifiers ; DIFILE = file# |
|
RECALL(DIFILE,DIEN,DIUSER) | ;
|
|
RECALLX | ; input from DILFD
|
|
30 | ||
32 | ||
FILE(DIFILE,DIDA,DIFLAGS,DIROOT) | ;
; entry point -- given a root, calculate the file # and DA ; DO NOT USE UNTIL $QS & $QL AVAILABLE |
|
LOOP | ||
STRIP | ||
ENTRY | ||
ERR(DIERN,DIFILE,DIIENS,DIFIELD,DI1,DI2,DI3,DIROOT) | ;
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | FILE+6~*, ENTRY+1, ENTRY+2, ENTRY+3* |
DI | ERR+5~, ERR+6* |
DI1 | ERR~ |
DI2 | ERR~ |
DI3 | ERR~ |
DIATTRBT | REQIDS+3~*, REQIDS+4, REQIDS+7 |
DICHAR | LOOP~, STRIP+6*, STRIP+7, STRIP+8 |
DICLERR | RECALLX+7~*, 32+6, 32+7, ERR+8 |
DID | RID+4~*, RID+5 |
DIDA | FILE~, FILE+5* |
DIDA( | ENTRY+3* |
DIEN | RECALL~, 30+2*, 30+3, 32+2, 32+5 |
DIENTRY | FILE+6~*, ENTRY, ENTRY+4* |
DIERN | ERR~, ERR+7 |
DIERR | RECALLX+7!, 32+6, 32+7*, ERR+8* |
DIFIELD | REQIDS+5~, REQIDS+6*, REQIDS+7, ERR~ |
DIFILE | REQIDS~, REQIDS+6, REQIDS+7, RID~, RID+4, RID+5, RECALL~, 30*, 30+1, 32+1 , 32+2, 32+4, FILE~, FILE+5*, ERR~ |
DIFILE( | ENTRY+1* |
DIFLAGS | FILE~, FILE+3 |
DIFM | RECALLX+6~* |
DIGLOBAL | FILE+3~*, FILE+4*, FILE+5, STRIP+4, STRIP+5*, STRIP+6, STRIP+7*, STRIP+8*, STRIP+9*, ENTRY+1 , ENTRY+2 |
DIIENS | ERR~ |
DIL | LOOP~, STRIP+4*, STRIP+5 |
DILEAD | LOOP~, STRIP+4*, STRIP+5, STRIP+6, STRIP+7, STRIP+8 |
DILIST | RID+3~*, RID+5*, RID+6 |
DIOROOT | 32~, 32+2*, 32+3, 32+4, 32+5 |
DIOUT | 32~*, 32+1*, 32+4* |
DIPE | ERR+5~, ERR+7 |
DIPE( | ERR+6* |
DIQL | LOOP~, STRIP+9* |
DIQS | LOOP~, STRIP+3, ENTRY+3 |
DIQSL | LOOP~, STRIP+3~*, STRIP+4 |
DIQUIET | RECALLX+5~* |
DIROOT | FILE~, FILE+3, FILE+4*, ERR~ |
DIROOT( | ENTRY+2* |
DITARGET | REQIDS~, REQIDS+4, REQIDS+7 |
DIUSER | RECALL~, 30+4*, 32+5 |
U | RID+5, 32+7, FILE+5, ENTRY+1, ERR+8 |