DICUIX2 ;VEN/TOAD,SF/TKW - Lookup: Build Index Data ;12 DEC 2015
Source file <DICUIX2.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 |
|---|---|---|
| COMMON1 | ; Load Data-subscript Data into DINDEX
|
|
| C1 | ; 1. Decide which direction to traverse this subscript
|
|
| C2 | ; 2. Adjust From & To to fit max subscript length
|
|
| C3 | ; 3. Build code to extract indexed field from data
|
|
| C4 | ; 4. Find & record subscript data-type info
|
|
| C5 | ; 5. Set Any More?
|
|
| C6 | ; 6. Handle partial matches, incl. setting From
|
|
| C7 | ; 7. Handle subscripts with data-type transforms
|
|
| BACKFROM(DIPART) | ; Return From Value for Backward Collation
|
|
| COMMON2 | ; Load IEN-subscript Data into DINDEX
|
|
| DAT(DIFR,DIPRT,DIAPP,DIWAY,DIOUT) | ; Process FROM and PART for dates
|
|
| ORDERQ(FILENUM) | ; Is File Like Order File: Dinumed but No B Index?
|
|
| EOR | ; end of routine DICUIX2
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | ORDERQ+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ORDERQ+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | C4+3~*, C4+5*, C4+6*, C4+7*, C4+8*, C4+9* |
| DIAPP | DAT~, DAT+4, DAT+6 |
| >> DIC(0 | C5+8 |
| >> DICODE | C3+2*, C3+3, C3+5*, C3+7 |
| >> DIDENT( | C7+2 |
| DIEN | COMMON2+2~*, COMMON2+3, COMMON2+4, COMMON2+5, COMMON2+6, COMMON2+7, COMMON2+8, COMMON2+9 |
| >> DIERR | C3+4 |
| >> DIFILE | COMMON1+4, C3+3, C4+13, C4+16, C7+6 |
| >> DIFILE( | C4+13 |
| >> DIFLAGS | COMMON1+5, C1+3, C2+2, C2+3, C4+4, C4+11, C4+15, C4+16, C4+21, C4+22 , C5+5, C5+8, C5+9, C5+10, C6+3, C6+4, C7+5 |
| DIFR | COMMON1+2~, COMMON1+3*, C1+4*, C2+4*, C4+16, C5+14, C6+6, C6+7, C6+9, C6+10* , C6+11, C6+13*, C6+15, C6+16, C6+18*, C6+20, DAT~, DAT+2, DAT+3*, DAT+4* , DAT+5, DAT+7, DAT+8, DAT+9* |
| DIFROM | BACKFROM+10~*, BACKFROM+12 |
| DIFROM( | COMMON1+3, COMMON1+8 |
| DIFROM("IEN" | COMMON1+7, COMMON2+5*, COMMON2+6, COMMON2+8 |
| >> DIGET | C7+3, C7+6*, C7+7*, C7+8 |
| >> DILENGTH | C2+2, C2+4, C2+5, C2+6 |
| >> DINDEX | C3+6, C4+16, C4+17, C4+22, COMMON2+3 |
| >> DINDEX( | COMMON1+4, COMMON1+6*, COMMON1+7*, COMMON1+8*, C1+2*, C1+3*, C2+2*, C3+2, C3+3, C3+7* , C4+3*, C4+14, C4+21*, C4+22, C4+25*, C4+28*, C5+2*, C5+13*, C5+14*, C6+3 , C6+5, C6+6, C6+8, C6+12*, C6+17*, C6+20*, C6+21*, C6+22*, C7+3*, C7+5 , C7+6, C7+8*, COMMON2+3*, COMMON2+4*, COMMON2+5*, COMMON2+6*, COMMON2+7*, COMMON2+8*, COMMON2+9*, DAT+10* |
| >> DINDEX("#" | COMMON2+2 |
| >> DINDEX("AT" | C4+18* |
| >> DINDEX("FLIST" | COMMON1+4* |
| >> DINDEX("ROOTCNG" | C4+22, C7+5 |
| >> DINDEX("WAY" | C1+2, C1+4, COMMON2+5, COMMON2+7, COMMON2+9 |
| >> DINDEX(1 | C4+15* |
| >> DINODE | C3+2*, C3+3, C3+5*, C4+2, C4+15 |
| >> DINUMBER | C4+16 |
| DIOUT | C6+6, C6+9*, C6+15*, DAT~, DAT+7*, DAT+8* |
| DIPART | BACKFROM~, BACKFROM+10, DAT+2~*, DAT+3, DAT+5, DAT+6*, DAT+7, DAT+8 |
| DIPART( | COMMON1+3 |
| DIPRT | COMMON1+2~, COMMON1+3*, C2+5*, C4+16, C5+3, C6+2, C6+6, C6+7, C6+9, C6+10 , C6+11, C6+13, C6+15, C6+16, C6+18, C6+21, DAT~, DAT+2, DAT+9 |
| >> DISCREEN | C4+16 |
| >> DISUB | COMMON1+3, COMMON1+4, COMMON1+6, COMMON1+7, COMMON1+8, C1+2, C1+3, C1+4, C2+2, C2+6 , C3+2, C3+3, C3+7, C4+3, C4+12, C4+14, C4+20, C4+21, C4+22, C4+23 , C4+25, C4+27, C4+28, C5+2, C5+13, C5+14, C6+3, C6+5, C6+6, C6+8 , C6+12, C6+17, C6+20, C6+21, C6+22, C7+3, C7+5, C7+6, C7+8, DAT+10 |
| >> DITEMP | C4+13*, C4+17, C4+22, C4+23*, C4+25*, COMMON2+3 |
| >> DITEMP2 | C4+17, C4+22, C4+26, C4+27*, C4+28*, COMMON2+4 |
| >> DITO( | C1+4*, C2+6*, C6+22 |
| >> DITYPE | C4+2*, C4+5*, C4+6, C4+7, C4+8, C4+9, C5+3, C5+7, C6+4, C7+4 |
| DIWAY | C1+2, DAT~, DAT+7, DAT+8 |
| FILENUM | ORDERQ~, ORDERQ+2 |
| I | C6+5~*, C6+6 |
| L | DAT+2~*, DAT+3 |
| P | DAT+2~*, DAT+3, DAT+5, DAT+6, DAT+9 |
| PNM | C5+6~*, C5+7, C5+11* |
| T | C7+4~* |
| U | C4+2, ORDERQ+2 |
