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.
|
