48 lines
1.5 KiB
Plaintext
48 lines
1.5 KiB
Plaintext
Compile Insert ix_select_constants
|
|
|
|
* Index predicate constants
|
|
* for index reduction logic.
|
|
|
|
EQU OP.ALL$ TO 1
|
|
EQU OP.DESC$ TO 2
|
|
EQU OP.EQ$ TO 3
|
|
EQU OP.NE$ TO 4
|
|
EQU OP.LT$ TO 5
|
|
EQU OP.LE$ TO 6
|
|
EQU OP.GT$ TO 7
|
|
EQU OP.GE$ TO 8
|
|
EQU OP.START$ TO 9
|
|
EQU OP.NOT.START$ TO 10
|
|
EQU OP.END$ TO 11
|
|
EQU OP.NOT.END$ TO 12
|
|
EQU OP.CONTAIN$ TO 13
|
|
EQU OP.NOT.CONTAIN$ TO 14
|
|
EQU OP.FROM.TO$ TO 15
|
|
EQU OP.NOT.FROM.TO$ TO 16
|
|
EQU OP.MATCH$ TO 17
|
|
EQU OP.NOT.MATCH$ TO 18
|
|
EQU OP.LIKE$ TO 19
|
|
EQU OP.NOT.LIKE$ TO 20
|
|
EQU OP.NULL$ TO 21
|
|
EQU OP.NOT.NULL$ TO 22
|
|
|
|
EQUATE IX_REDUCE$ TO 1 ;* SELECT TEST RETURN - REDUCTION FLAG
|
|
EQUATE IX_SORT$ TO 2 ;* SELECT TEST RETURN - SORT FLAG
|
|
EQUATE IX_FULLMAP$ TO 6 ;* SELECT TEST RETURN - FULL MAP POSSIBLE BY BFS
|
|
|
|
|
|
* PAT: adding all the constants used in the SI_REDUCTION
|
|
* field constant used for the FMC in SI_REDUCTION
|
|
EQU IND.VAL1$ TO 1
|
|
EQU IND.VAL2$ TO 2
|
|
EQU IND.OCONV$ TO 3
|
|
EQU IND.CASE$ TO 4
|
|
EQU KEY.POS$ TO 5
|
|
EQU LIST.POS$ TO 6
|
|
EQU IND.FIX$ TO 7
|
|
EQU IND.MODE$ TO 8
|
|
EQU FLD.JUST$ TO 9 ;* field is 'AR' or 'AL' justified Pat 10/5/90
|
|
EQU BLK.SEARCH$ TO 10 ;* this is only used for type 1# mentioned in SI.MFS Pat 12/10/90
|
|
EQU FIRST.TIME$ TO 11
|
|
Equ BITMAP.FLAG$ TO 22 ; * rjc 02-16-10 set by SELECT.INDEX if Bitmap index
|