DICUIX2 ;VEN/TOAD,SF/TKW - Lookup: Build Index Data ;12 DEC 2015
Source file <DICUIX2.m>
| 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
|
