DICUIX1 ;SF/TOAD/TKW-FileMan: Lookup Tools, Indexes (called by DICUIX) ;4JUL2008
Source file <DICUIX1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(DITOP,DIFILE,DIFIELD,DIDEF,DICODE) | ;
; get the definition and fetch code for a field |
|
G1 | ; handle .001 fields, fetch field definition, & handle undefineds
|
|
G2 | ; piece out the fields data type, & handle multiples and WPs
|
|
G3 | ; handle computed fields
|
|
G30 | ; Handle whole file x-refs
|
|
G4 | ; get field's storage location, handle ?, build node fetch code
|
|
G5 | ; build field fetch code (piece or extract) & quit
|
|
FIELD(DIFILE,DIFIELD,DINDEX) | ;
|
|
F1 | ; handle .01 & computeds, build node expression
|
|
F2 | ; build fetch code from node expression
|
|
GETTMP(DITEMP,DISUB) | ; Return name of unique entry in ^TMP global.
|
|
TMPB(DITEMP,DIFILE) | ; Set place for temporary "B" index on file
|
|
BLDB(DIROOT,DITEMP) | ; Build temporary "B" index on file
|
|
TMPIDX(DISUB,DITEMP,DITEMP2,DINDEX) | ; Set data to build temporary index on Lister call with Pointer/VP in index.
|
|
CHKP(DIFILE,DINDEX,DINUMBER,DIFRPRT,DISCREEN,DICQ1) | ; Check whether to build temporary index on Lister call with Pointer/VP in first subscript of index.
|