added sysprog entities

SYSPROG/STPROCINS/SCHEMA.CONSTANTS.txt

@@ -0,0 +1,124 @@
+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