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 |