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
|