open-insight/SYSPROG/STPROCINS/IX_SELECT_CONSTANTS.txt
2024-03-25 15:17:34 -07:00

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