125 lines
4.4 KiB
Plaintext
125 lines
4.4 KiB
Plaintext
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
|