DICU ;SEA/TOAD-VA FileMan: Lookup Utilities ;12APR2008
Source file <DICU.m>
| 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) | ;
|
