DICUF ;SEA/TOAD,SF/TKW-FileMan: Lookup Tools, Files ;12APR2008
Source file <DICUF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILE(DIFILE,DIFIEN,DIFLAGS) | ;
; retrieve and calculate info about indexed file |
|
| F1 | ; set and check source file number.
|
|
| F2 | ; get the file's .01 definition; quit & error if bad
|
|
| F3 | ; set and check the Lister's IENS parameter
|
|
| F4 | ; calculate the source file's global root (open & closed)
|
|
| SCREEN(DIFLAGS,DIFILE,DISCREEN) | ;
; Set user defined and whole file screen variables. |
|
| VPDATA(DINDEX,DISCREEN) | ; Add variable pointer info to DINDEX array for executing DIC("V") type screen
|
|
| ERR(DIERN,DIFILE,DIIENS,DIFIELD,DIROOT,DI1,DI2,DI3) | ;
|
|
| E1 |
