152 lines
5.1 KiB
Plaintext
152 lines
5.1 KiB
Plaintext
compile insert select.constants
|
|
|
|
* MISC EQUATES *
|
|
* rjc 10 Nov 2003 - increase MAX sizes for MAX.WORK.LIST, MAX.LIST.LEN
|
|
EQUATE MAX.WORK.LIST.LEN$ TO 32768
|
|
*EQUATE MAX.WORK.LIST.LEN$ TO 1048576 ; * 2^20, 1MB -- a compromise between unlimited list and well-framed lists file
|
|
EQUATE MAX.SORT.KEY.LEN$ TO 32600
|
|
*** rjc * EQUATE MAX.LIST.LEN$ TO 65527
|
|
EQUATE MAX.LIST.LEN$ TO 1048576 ; * 2^20, 1MB -- a compromise between unlimited lsit and well-framed lists file
|
|
EQUATE MAX.LIMIT$ TO 9E99 ;* WHAT TO SET LIMIT TO TO AVOID LIMIT
|
|
|
|
* SELECT MODE NUMERIC CODES *
|
|
|
|
EQUATE COMPAT.SELECT$ TO 0
|
|
EQUATE SETTING.SELECT$ TO 1
|
|
EQUATE USING.SELECT$ TO 2
|
|
EQUATE ASSIGN.SELECT$ TO 3
|
|
|
|
* REDUCE MODE NUMERIC CODES *
|
|
|
|
EQUATE NEW.REDUCE$ TO 0
|
|
EQUATE SETTING.REDUCE$ TO 1
|
|
EQUATE AND.REDUCE$ TO 2
|
|
EQUATE OR.REDUCE$ TO 3
|
|
|
|
* SEEK MODE NUMERIC CODES *
|
|
|
|
EQUATE TOP.SEEK$ TO 0
|
|
EQUATE BOTTOM.SEEK$ TO 1
|
|
EQUATE CURRENT.SEEK$ TO 2
|
|
EQUATE MARK.SEEK$ TO 3
|
|
EQUATE RESTORE.SEEK$ TO 4
|
|
|
|
* FIELD POSITIONS FOR NEXT.GROUP *
|
|
* GROUP.LAST$:
|
|
* USED BY ALL SELECT MODES. IN INDEX MODE IS THE LAST NODE ID FOR CURRENT LIST
|
|
* GROUP.FIELD$:
|
|
* IN EXTRA LIST INDEX MODE IS THE FIELD NUMBER OF THE CURRENT LIST IN MEMORY
|
|
* GROUP.FIRST$:
|
|
* IN INDEX MODE IS THE FIRST NODE ID FOR THE CURRENT LIST IN MEMORY
|
|
*
|
|
EQUATE GROUP.LAST$ TO 1
|
|
EQUATE GROUP.FIELD$ TO 2
|
|
EQUATE GROUP.FIRST$ TO 3
|
|
|
|
* FIELD POSITIONS FOR LONG.LIST *
|
|
* USED IN EXTERNAL SELECT MODE AND BREAK SORT INDEX MODE *
|
|
* THE INDEX OF THE CURRENT OVERFLOW LIST IN THE LISTS FILE *
|
|
*
|
|
EQUATE LONG.LIST.NUMBER$ TO 1
|
|
*
|
|
* THE LARGEST INDEX OF THE OVERFLOWS IN THE LISTS FILE *
|
|
EQUATE LONG.LIST.MAX$ TO 2
|
|
|
|
* CODES FOR LIST.ACTIVE *
|
|
EQUATE INACTIVE.SELECT$ TO 0
|
|
EQUATE LATENT.FILE.SELECT$ TO 1
|
|
EQUATE LATENT.INDEX.SELECT$ TO 2
|
|
EQUATE EXTRN.SELECT$ TO 3
|
|
|
|
* CODES FOR READNEXT DIRECTION *
|
|
EQUATE ASND.TERM$ TO 0
|
|
EQUATE ASND.NONTERM$ TO 1
|
|
EQUATE DSND.TERM$ TO 2
|
|
EQUATE DSND.NONTERM$ TO 3
|
|
|
|
* SECONDS ALLOWED BETWEEN BREAKS WHILE IN READNEXT *
|
|
EQUATE BREAK.TIME$ TO 10
|
|
|
|
EQUATE V119.INITIALIZE$ TO 'I'
|
|
EQUATE V119.SORT$ TO 'S'
|
|
EQUATE V119.WRITE$ TO 'W'
|
|
EQUATE V119.EXTRACT$ TO 'E'
|
|
EQUATE V119.MERGE$ TO 'M'
|
|
EQUATE V119.LONG.EXTRACT$ TO 'L'
|
|
EQUATE V119.DELETE$ TO 'D'
|
|
|
|
*** CURSORS ARRAY EQUATES ***
|
|
|
|
EQUATE MAX.CURSORS$ TO 8
|
|
EQUATE MAX.CURSOR.ELEMENTS$ TO 12
|
|
|
|
EQUATE CURS.LIST$ TO 1 ;* referenced by number in OP118
|
|
EQUATE CURS.LIST.OFF$ TO 2 ;* referenced by number in OP118
|
|
EQUATE CURS.EXT.LIST$ TO 3
|
|
EQUATE CURS.NEXT.GROUP$ TO 4
|
|
EQUATE CURS.LIST.ACTIVE$ TO 5
|
|
EQUATE CURS.LONG.LIST$ TO 6
|
|
EQUATE CURS.QUERY.DICT$ TO 7
|
|
EQUATE CURS.PRI.FILE$ TO 8
|
|
EQUATE CURS.REDUCTION.SPEC$ TO 9
|
|
EQUATE CURS.SORT.SPEC$ TO 10
|
|
EQUATE CURS.REDUCTION.DONE$ TO 11 ;* refereced by number in OP118
|
|
EQUATE CURS.IO.PROC$ TO 12 ;* Cursor I/O process
|
|
|
|
EQUATE BY.DSND.FLAG$ TO '#' ;* FLAG FOR SELECT BY FIELD NAMES
|
|
|
|
* CODES FOR SORT.SPEC FIELD 1 *
|
|
EQUATE SORT.DIR$ TO 1
|
|
EQUATE SORT.JUST$ TO 2
|
|
EQUATE BOTTOM.VAL$ TO 3
|
|
EQUATE TOP.VAL$ TO 4
|
|
EQUATE SORT.NAME$ TO 5
|
|
|
|
* CODES FOR BY.LIST FIELD 1 *
|
|
EQUATE BY.F1.NAME$ TO 1
|
|
EQUATE BY.F1.BOTTOM$ TO 2
|
|
EQUATE BY.F1.TOP$ TO 3
|
|
|
|
* SORT.SPEC DEFINES *
|
|
|
|
EQUATE SORT.BYS$ TO 2 ;* FLAG TRUE IF DESCEND
|
|
EQUATE SORT.FMTS$ TO 3 ;* 'AL' 'AR'
|
|
EQUATE SORT.MULT$ TO 4 ;* FLAG TRUE IF MULTI-VALUE
|
|
EQUATE SORT.CALC$ TO 5 ;* VALUE TRUE IF FIELD IS SYMBOLIC
|
|
EQUATE SORT.FIELDS$ TO 6 ;* FIELD NAMES OR NUMBERS
|
|
EQUATE SORT.EXPLODE$ TO 7 ;* ANY MULTI-VALUES
|
|
EQUATE SORT.ID.ONLY$ TO 8 ;* SORTING ONLY BY @ID
|
|
|
|
* REDUCTION.SPEC DEFINES *
|
|
EQUATE REDUCT.SCRIPT$ TO 1 ;* R/LIST WITH SCRIPT
|
|
EQUATE REDUCT.SPEC.RANGE$ TO 2 ;* RANGE INFO FOR FEED FORWARD TO SELECT
|
|
EQUATE RANGE.FIELD$ TO 1
|
|
EQUATE RANGE.BOTTOM.VAL$ TO 2
|
|
EQUATE RANGE.TOP.VAL$ TO 3
|
|
EQUATE REDUCT.DONE$ TO 4
|
|
EQUATE REDUCT.CASE.FORCE$ TO 3 ;* FIELD 3 FORCE CASE FLAG (INSENSITIVITY)
|
|
*
|
|
* IF REDUCT.DONE IS TRUE THEN, IF THE RANGE IS USED BY THE SELECT THEN
|
|
* THAT WILL SATISFY ALL REDUCTION AND REDUCTION.DONE MAY BE SET TO TRUE
|
|
|
|
*** SELECT.SEEK STATUS ERROR CODES ***
|
|
EQUATE SEEK.ERR.BAD.CURS$ TO 1 ;* INVALID CURSOR
|
|
EQUATE SEEK.ERR.BAD.MODE$ TO 2 ;* INVALID MODE
|
|
EQUATE SEEK.ERR.BAD.POS$ TO 3 ;* INVALID POSITION
|
|
EQUATE SEEK.ERR.NO.SEL$ TO 4 ;* NO ACTIVE SELECT
|
|
EQUATE SEEK.ERR.BAD.SEL$ TO 5 ;* INVALID SELECT MODE
|
|
EQUATE SEEK.ERR.BAD.RN$ TO 6 ;* ERROR IN READNEXT
|
|
EQUATE SEEK.ERR.BAD.BRN$ TO 7 ;* ERROR IN BLOCK READNEXT
|
|
EQUATE SEEK.ERR.BAD.IRN$ TO 8 ;* ERROR IN INDEX READNEXT
|
|
EQUATE SEEK.ERR.BAD.ERN$ TO 9 ;* ERROR IN EXTERNAL READNEXT
|
|
|
|
* saved select header info (@tm-delim'd)
|
|
equ SAVSEL_TIMEDATE$ to 2
|
|
equ SAVSEL_USER$ to 3
|
|
equ SAVSEL_RECCOUNT$ to 4
|
|
equ SAVSEL_COMMENTS$ to 5
|
|
|
|
* placeholder for inverting for null vlues
|
|
Equ NULL_TOKEN$ To "%%NULL%%"
|
|
|