DICUIX1 ;SF/TOAD/TKW-FileMan: Lookup Tools, Indexes (called by DICUIX) ;4JUL2008
Source file <DICUIX1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | G1+3, G2+4, CHKP+10, CHKP+11 |
| ^DIC - [#1] | CHKP+6 |
| Name | Line Occurrences |
|---|---|
| GETTMP | TMPB+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CHKP+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D | CHKP+1~, CHKP+8*, CHKP+10*, CHKP+11*, CHKP+12*, CHKP+13 |
| DICODE | GET~, G1+2*, G1+3*, G3+4*, G30+1*, G4+5*, G5+2*, G5+6*, F2+2~, F2+3* , F2+7*, F2+8 |
| DICQ1 | CHKP~, CHKP+14, CHKP+15 |
| DIDEF | GET~, G1+2*, G1+3*, G1+4, G2+2, G3+4, G3+5*, G4+2, G4+5* |
| DIEFROM | G5+4~*, G5+6, F2+5~*, F2+7 |
| DIENTRY | BLDB+1~*, BLDB+2*, BLDB+3, BLDB+4 |
| DIETO | G5+5~*, G5+6, F2+6~*, F2+7 |
| DIF | CHKP+3~*, CHKP+4 |
| DIF("STACKEND" | CHKP+5 |
| DIFIELD | GET~, G1+2, G1+3, G1+4, G2+6, G3+3, FIELD~, F1+2 |
| DIFILE | GET~, G1+3, G1+4, G2+6, G3+3, G30+1, G4+6, FIELD~, TMPB~, TMPB+1 , CHKP~, CHKP+2, CHKP+3 |
| DIFILE( | CHKP+2 |
| DIFRPRT | CHKP~, CHKP+13, CHKP+14 |
| DIKJ | GETTMP+6~, GETTMP+7* |
| DIN1 | CHKP+1~, CHKP+2*, CHKP+15, CHKP+16 |
| DIN2 | CHKP+1~*, CHKP+7*, CHKP+13*, CHKP+14*, CHKP+15, CHKP+16 |
| DINDEX | FIELD~, TMPIDX~, CHKP~ |
| DINDEX("ROOTCNG" | TMPIDX+4* |
| DINDEX(1 | F1+3, CHKP+3, CHKP+4, CHKP+9 |
| DINODE | G4+3~*, G4+5, G4+6*, G4+7*, G5+2, G5+6, F1+4~*, F1+6, F1+7*, F1+8* , F2+3, F2+7 |
| DINUMBER | CHKP~, CHKP+13 |
| DIPIECE | G4+4~*, G4+5, G5+2, G5+4, G5+5, F1+5~*, F1+6, F2+3, F2+5, F2+6 |
| DIROOT | BLDB~, BLDB+2, BLDB+3 |
| DISCREEN | CHKP~, CHKP+4 |
| DISTORE | G4+2~*, G4+3, G4+4, F1+3~*, F1+4, F1+5 |
| DISUB | GETTMP~, GETTMP+1, TMPB+1~, TMPB+2, TMPIDX~, TMPIDX+4 |
| DISUB( | GETTMP+3, GETTMP+4 |
| DISUB(1 | GETTMP+1*, TMPB+1* |
| DISUB(2 | TMPB+1* |
| DITEMP | GETTMP~, GETTMP+2*, GETTMP+5*, GETTMP+7, GETTMP+8*, TMPB~, TMPB+2, TMPB+3*, BLDB~, BLDB+1* , BLDB+4, TMPIDX~, TMPIDX+1, TMPIDX+2, TMPIDX+3* |
| DITEMP2 | TMPIDX~, TMPIDX+1* |
| DITOP | GET~, G30+1, G4+6 |
| DITYPE | G2+2~*, G2+3, G2+4*, G2+5*, G2+6, G3+2, G3+3 |
| DIVALUE | BLDB+1~, BLDB+3*, BLDB+4 |
| DIVPTR | CHKP+3~*, CHKP+4, CHKP+10 |
| F1 | CHKP+9~*, CHKP+10, CHKP+11 |
| F2 | CHKP+9~*, CHKP+10, CHKP+11 |
| I | GETTMP+2~, GETTMP+3*, GETTMP+4, CHKP+1~, CHKP+5*, CHKP+10*, CHKP+11* |
| J | GETTMP+6~, GETTMP+7*, GETTMP+8 |
| U | G2+2, G2+4, G3+4, G3+5, G4+2, F1+3, BLDB+3, CHKP+2, CHKP+5, CHKP+7 , CHKP+10 |
| X | GETTMP+4~*, GETTMP+5, CHKP+1~, CHKP+5*, CHKP+6*, CHKP+7 |
