Compile Insert Schema.Constants

* mtr moved 1-24-06
*** DISPATCH CODES FOR SQL.SCHEMA MODULE ***

EQUATE CREATE.TABLE$       TO 1
EQUATE ALTER.TABLE$        TO 2
EQUATE DROP.TABLE$         TO 3
EQUATE CREATE.VIEW$        TO 4
EQUATE DROP.VIEW$          TO 5
EQUATE CREATE.INDEX$       TO 6
EQUATE DROP.INDEX$         TO 7
EQUATE GRANT.PRIVILEGE$    TO 8
EQUATE REVOKE.PRIVILEGE$   TO 9

*** SCRIPT POSITIONS FOR CREATE.TABLE ***
EQUATE SCRIPT.TABLE$ TO 1
EQUATE SCRIPT.VOLUME$ TO 2
EQUATE SCRIPT.ALTER$ TO 2
EQUATE SCRIPT.COLUMNS$ TO 3

EQUATE COLUMN.NAME$ TO 1
EQUATE COLUMN.TYPE$ TO 2
EQUATE COLUMN.DFLT$ TO 3
EQUATE COLUMN.NULL$ TO 4
EQUATE COLUMN.UNIQ$ TO 5
EQUATE COLUMN.KEY$ TO 6
EQUATE COLUMN.REF$ TO 7
EQUATE COLUMN.CHECK$ TO 8
EQUATE COLUMN.REPEAT$ TO 9

EQUATE COLUMN.TYPE.ARG1$ TO 2
EQUATE COLUMN.TYPE.ARG2$ TO 3

EQUATE UNIQUE.MARKER$ TO "%UNIQUE%"

EQUATE TYPES.FILE$ TO "SYSTYPES"

EQUATE DELIMITERS$ TO "$_.,/\"
EQUATE INVALID.CHARS$ TO "~!@#$%^&*()+`-={}[]|\:;<,>.?/"

EQUATE USER.DELIM$ TO '.'

*** DELIMITERS FOR COLUMN REFERENCES IN SQL SCRIPTS ***
* 08/11/04 - PJM - Changed the following high 8-bit delimiters to low 8-bit
*                  values to avoid conflict with UTF8 character encoding.
*EQUATE COLSC$ TO '´'         ;* COLUMN START CHARACTER
*EQUATE COLEC$ TO 'Ã'         ;* COLUMN END CHARACTER
*EQUATE COLCC$ TO 'Å'         ;* COLUMN CONVERSION CHARACTER
*EQUATE COLPC$ TO '¶'         ;* COLUMN POSITION CHARACTER
*EQUATE PARAMC$ TO 'Î'        ;* PARAMETER CHARACTER
*EQUATE BLOCKC$ TO "Û"        ;* Script Block separater character.
*EQUATE LQUOTEC$ TO "Ô"       ;* Left quote character
*EQUATE RQUOTEC$ TO "¾"       ;* Right quote character
*EQUATE SUBQC$ TO '×'         ;* Subquery token character
*EQUATE LCOLOCC$ TO '·'       ;* Left delimiter for output conversion
*EQUATE RCOLOCC$ TO 'Ö'       ;* Right delimiter for output conversion
*
*--> 01/14/91 - RKH - Fix 3838: Add a USER token for embedded inserts
*EQUATE USER_TOKEN$ TO "ÑUSER"  ;* CHAR(209):"USER" for embedded SQL only

EQUATE COLSC$   TO \1F\       ;* COLUMN START CHARACTER
EQUATE COLEC$   TO \1E\       ;* COLUMN END CHARACTER
EQUATE COLCC$   TO \1D\       ;* COLUMN CONVERSION CHARACTER
EQUATE COLPC$   TO \1C\       ;* COLUMN POSITION CHARACTER
EQUATE PARAMC$  TO \1B\       ;* PARAMETER CHARACTER
EQUATE BLOCKC$  TO \1A\       ;* Script Block separater character.
EQUATE LQUOTEC$ TO \19\       ;* Left quote character
EQUATE RQUOTEC$ TO \18\       ;* Right quote character
EQUATE SUBQC$   TO \17\       ;* Subquery token character
EQUATE LCOLOCC$ TO \16\       ;* Left delimiter for output conversion
EQUATE RCOLOCC$ TO \15\       ;* Right delimiter for output conversion
EQUATE USER_TOKEN$ TO \14\:"USER"  ;* CHAR(20):"USER" for embedded SQL only

EQUATE TOP.OR$ TO CHAR(252)    ;* TEXT MARK
EQUATE TOP.AND$ TO CHAR(251)   ;* SUB TEXT MARK

*** SCRIPT POSITIONS FOR QUALIFY ***
EQUATE QUAL.DISTINCT$      TO 1
EQUATE QUAL.SELECTION$     TO 2
EQUATE QUAL.FROM$          TO 3
EQUATE QUAL.WHERE$         TO 4
EQUATE QUAL.GROUP.BY$      TO 5
EQUATE QUAL.HAVING$        TO 6
EQUATE QUAL.SUB.RUNTIME$   TO 8
EQUATE QUAL.SUB.SETFUNC$   TO 9
* update following whenever new field added to structure.
EQUATE QUAL.SUB.MAX$       TO 9 ;* Highest defined field in structure

*** SCRIPT POSITIONS FOR CREATE.VIEW ***
EQUATE VIEW.NAME$          TO 1
EQUATE VIEW.COLUMNS$       TO 2
EQUATE VIEW.INSERTABLE$    TO 3
EQUATE VIEW.UPDATEABLE$    TO 4
EQUATE VIEW.DELETEABLE$    TO 5
EQUATE VIEW.TEXT$          TO 6
EQUATE VIEW.KEY.ASSOC$     TO 7
* 8 - 9 RESERVED
EQUATE VIEW.DISTINCT$      TO 10
EQUATE VIEW.SELECTION$     TO 11
EQUATE VIEW.FROM$          TO 12
EQUATE VIEW.WHERE$         TO 13
EQUATE VIEW.GROUP.BY$      TO 14
EQUATE VIEW.HAVING$        TO 15
EQUATE VIEW.CHECK.OPT$     TO 16
EQUATE VIEW.SETFUNC$       TO 17
* 18 - 19 RESERVED
EQUATE VIEW.SUBQ$          TO 20

EQUATE VIEWTEMP_PREFIX$    TO "@VF/"   ;* PREFIX TO VIEW TEMPORARY FILE

*** "RAW" ORDER SPEC - INPUT TO QUALIFY_ORDER ***
*** VALUE STRUCTURE ***

EQUATE ORDER_COLUMN_SPEC$  TO 1
EQUATE ORDER_DIR_SPEC$     TO 2

*** VALUE EQUATE FOR SQL ORDER PLAN ***
EQUATE ORDER.TABLE$        TO 1
EQUATE ORDER.COLUMN$       TO 2
EQUATE ORDER.POSITION$     TO 3

EQUATE VIEW.CATALOG$       TO "SYSVIEWS"
* Source Date: 07:37:54  05 NOV 1991  Build ID: OE*1.0.60  Level: 1.0