home *** CD-ROM | disk | FTP | other *** search
/ PC Treasures, Inc. / pctreasures.mdf / WINDOWS / adabas / f_0001 / env / query.ins < prev    next >
Text File  |  1999-11-01  |  4KB  |  163 lines
  1. SAY --- Installing system tables for QUERY ...
  2. /
  3. /* @(#)QUERY.ins 10.01.00  1998-01-30
  4. / *****************************************************
  5. / Systemtables of the Conversational Component QUERY
  6. / *****************************************************
  7. /
  8. /
  9. INIT SERVERDB
  10. /
  11. IF $RC (SHOW VIEW SYSQUERYLIBRARY) = 0
  12. THEN
  13. /
  14.      DROP VIEW SYSQUERYLIBRARY
  15. /
  16. IF $RC (EXISTS TABLE SYSQUERYLIBRARY) <> 0
  17. THEN
  18.      BEGIN
  19. /
  20.      CREATE TABLE SYSQUERYLIBRARY
  21.        (
  22.         AUTHOR       CHAR(18) ASCII KEY DEFAULT USERGROUP,
  23.         COMMAND_NAME CHAR(18) ASCII KEY DEFAULT ' ',
  24.         BLANK_KEY4   CHAR(18) ASCII KEY DEFAULT ' ',
  25.         BLANK_KEY5   CHAR(18) ASCII KEY DEFAULT ' ',
  26.         OBJTYPE      CHAR(18) ASCII KEY DEFAULT 'QUERYCOMMAND',
  27.         BLANK_KEY6   CHAR(12) ASCII KEY DEFAULT ' ',
  28.         BLANK_KEY7   CHAR(4)  ASCII KEY DEFAULT ' ',
  29.         CREATEDATE   DATE DEFAULT DATE,
  30.         CREATETIME   TIME DEFAULT TIME,
  31.         UPDATEDATE   DATE DEFAULT DATE,
  32.         UPDATETIME   TIME DEFAULT TIME,
  33.         STRLENGTH    FIXED(18),
  34.         CODETYPE     CHAR(6)  ASCII,
  35.         COMMAND      LONG     BYTE
  36.        )
  37. /
  38.      GRANT SELECT, UPDATE, INSERT, DELETE ON SYSQUERYLIBRARY TO DOMAIN
  39. /
  40.      GRANT SELECT ON SYSQUERYLIBRARY TO PUBLIC
  41. /
  42.      IF $RC (SHOW VIEW SYSQUERYLIB) = 0
  43.      THEN
  44. /
  45.           DROP VIEW SYSQUERYLIB
  46. /
  47.      CREATE VIEW SYSQUERYLIB
  48.      AS SELECT *
  49.         FROM SYSQUERYLIBRARY
  50.         WHERE author = USERGROUP
  51.      WITH CHECK OPTION
  52. /
  53.      GRANT SELECT, UPDATE, INSERT, DELETE ON SYSQUERYLIB TO PUBLIC
  54. /
  55.      COMMIT WORK
  56. /
  57.      END
  58. /
  59. IF $RC (SHOW VIEW SYSQU_USR_ACCS_QCM) = 0
  60. THEN
  61. /
  62.      DROP VIEW SYSQU_USR_ACCS_QCM
  63. /
  64. IF $RC (EXISTS TABLE SYSQU_USR_ACCS_QCM) <> 0
  65. THEN
  66.      BEGIN
  67. /
  68.      CREATE TABLE SYSQU_USR_ACCS_QCM
  69.        (
  70.         DEFOBJTYPE   CHAR(18) ASCII KEY DEFAULT 'USER',
  71.         BLANK_KEY2   CHAR(18) ASCII KEY DEFAULT ' ',
  72.         BLANK_KEY3   CHAR(18) ASCII KEY DEFAULT ' ',
  73.         GRANTEE      CHAR(18) ASCII KEY DEFAULT USERGROUP,
  74.         BLANK_KEY5   CHAR(18) ASCII KEY DEFAULT ' ',
  75.         BLANK_KEY6   CHAR(12) ASCII KEY DEFAULT ' ',
  76.         BLANK_KEY7   CHAR(4)  ASCII KEY DEFAULT ' ',
  77.         REFOBJTYPE   CHAR(18) ASCII KEY DEFAULT 'QUERYCOMMAND',
  78.         AUTHOR       CHAR(18) ASCII KEY DEFAULT USERGROUP,
  79.         COMMAND_NAME CHAR(18) ASCII KEY DEFAULT ' ',
  80.         BLANK_KEY11  CHAR(18) ASCII KEY DEFAULT ' ',
  81.         BLANK_KEY12  CHAR(18) ASCII KEY DEFAULT ' ',
  82.         BLANK_KEY13  CHAR(12) ASCII KEY DEFAULT ' ',
  83.         BLANK_KEY14  CHAR(4)  ASCII KEY DEFAULT ' ',
  84.         RELTYPE      CHAR(18) ASCII KEY DEFAULT 'ACCESSES',
  85.         PRIV         CHAR(4)  ASCII
  86.        )
  87. /
  88.      GRANT INSERT, DELETE, UPDATE, SELECT ON SYSQU_USR_ACCS_QCM TO DOMAIN
  89. /
  90.      IF $RC (SHOW VIEW SYSQUERY_OWN) = 0
  91.      THEN
  92. /
  93.           DROP VIEW SYSQUERY_OWN
  94. /
  95.      CREATE VIEW SYSQUERY_OWN
  96.      AS SELECT *
  97.         FROM SYSQU_USR_ACCS_QCM
  98.         WHERE author = USERGROUP AND grantee = USERGROUP
  99.      WITH CHECK OPTION
  100. /
  101.      GRANT INSERT, DELETE, UPDATE, SELECT ON SYSQUERY_OWN TO PUBLIC
  102. /
  103.      IF $RC (SHOW VIEW SYSQUERY_GRANT) = 0
  104.      THEN
  105. /
  106.           DROP VIEW SYSQUERY_GRANT
  107. /
  108.      CREATE VIEW SYSQUERY_GRANT
  109.      AS SELECT *
  110.         FROM SYSQU_USR_ACCS_QCM
  111.         WHERE author = USERGROUP AND grantee <> USERGROUP
  112.      WITH CHECK OPTION
  113. /
  114.      GRANT INSERT, DELETE, UPDATE, SELECT ON SYSQUERY_GRANT TO PUBLIC
  115. /
  116.      IF $RC (SHOW VIEW SYSQUERY_CALL) = 0
  117.      THEN
  118. /
  119.           DROP VIEW SYSQUERY_CALL
  120. /
  121.      CREATE VIEW SYSQUERY_CALL
  122.      AS SELECT *
  123.         FROM SYSQU_USR_ACCS_QCM
  124.         WHERE author <> USERGROUP AND grantee IN(USERGROUP,'PUBLIC')
  125.      WITH CHECK OPTION
  126. /
  127.      GRANT SELECT ON SYSQUERY_CALL TO PUBLIC
  128. /
  129.      COMMIT WORK
  130. /
  131.      END
  132. /
  133. IF $RC (EXISTS TABLE SYSQUHISTORY) <> 0
  134. THEN
  135.      BEGIN
  136. /
  137.      CREATE TABLE SYSQUHISTORY
  138.        (
  139.         OWNER        CHAR(18) ASCII KEY DEFAULT 'USER',
  140.         CODETYPE     CHAR(6)  ASCII,
  141.         PREVREC      LONG     ASCII
  142.        )
  143. /
  144.      IF $RC (SHOW VIEW SYSQUHIST) = 0
  145.      THEN
  146. /
  147.           DROP VIEW SYSQUHIST
  148. /
  149.      CREATE VIEW SYSQUHIST
  150.      AS SELECT *
  151.         FROM SYSQUHISTORY
  152.         WHERE owner = USER
  153.      WITH CHECK OPTION
  154. /
  155.      GRANT INSERT, UPDATE, SELECT ON SYSQUHIST TO PUBLIC
  156. /
  157.      COMMIT WORK
  158. /
  159.      END
  160. /
  161. END INIT SERVERDB
  162. /
  163.