home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 April / comcd0402.iso / vollver / adabas / f_0001 / env / qp.ins < prev    next >
Encoding:
Text File  |  1999-11-01  |  8.3 KB  |  268 lines
  1. //-----------------------------------------------------------------------------
  2. /* @(#)QP.ins 10.01.00  1998-01-30
  3. //-----------------------------------------------------------------------------
  4. //
  5. //
  6. SAY --- Installing system tables for QueryPlus
  7. //
  8. SQLMODE ADABAS
  9. //
  10. INIT SERVERDB
  11. //
  12. AUTOCOMMIT OFF
  13. //
  14. //
  15. //-----------------------------------------------------------------------------
  16. // Systemtables of the Conversational Component QueryPlus
  17. //-----------------------------------------------------------------------------
  18. //
  19. //-----------------------------------------------------------------------------
  20. // Create table for the object management
  21. //-----------------------------------------------------------------------------
  22. IF $RC (EXISTS TABLE SYSQP_ALL_OBJECTS) <> 0
  23. THEN
  24.     BEGIN
  25. //
  26.         CREATE TABLE SYSQP_ALL_OBJECTS  (
  27.             OWNER       CHAR(18)    KEY                 ,
  28.             OBJTYPE     CHAR(18)    KEY                 ,
  29.             NAME        CHAR(150)   KEY                 ,
  30.             ID          CHAR(8)     BYTE DEFAULT STAMP  ,
  31.             OBJDESC     LONG        BYTE )
  32. //
  33.     END
  34. //
  35. //
  36. //
  37. //
  38. //-----------------------------------------------------------------------------
  39. // Create table for the user INI entries
  40. //-----------------------------------------------------------------------------
  41. IF $RC (EXISTS TABLE SYSQP_INI) <> 0
  42. THEN
  43.     BEGIN
  44. //
  45.     CREATE TABLE SYSQP_INI (
  46.         UserName        CHAR(18) KEY,
  47.         LongInfo        INT,
  48.         WithHeader        INT,
  49.         SelectAll        INT,
  50.         FetchFirstPage        INT,
  51.         FetchNextPage        INT,
  52.         ShowFetchedRows        INT,
  53.         ShowTables        INT,
  54.         ShowViews        INT,
  55.         ShowSynonyms        INT,
  56.         ShowResults        INT,
  57.         ShowSnapShots        INT,
  58.         ShowSYSTables        INT,
  59.         ShowOwnObjects        INT,
  60.         ConfDelSQL        INT,
  61.         ConfDelQueries        INT,
  62.         ConfDelQTables        INT,
  63.         ConfDelQColumns        INT,
  64.         ConfDelQJoins        INT,
  65.         ConfDelWordLinks    INT,
  66.         ConfDelExcelLinks    INT,
  67.         ConfDelLinkedData    INT,
  68.         ConfDelSharings        INT,
  69.         ConfSaving        INT,
  70.         AutoOpen        INT,
  71.         OpenDirect        INT,
  72.         OpenSQL            INT,
  73.         OpenQuery        INT,
  74.         OpenWordLink        INT,
  75.         OpenExcelLink        INT,
  76.         AODirect        INT,
  77.         AOSQL            INT,
  78.         AOQuery            INT,
  79.         AOWordLink        INT,
  80.         AOExcelLink        INT    )
  81. //
  82.     END
  83. //
  84.     IF $RC (ALTER TABLE SYSQP_INI ADD RepresentingNull CHAR(254)) = 0
  85.     THEN
  86. //
  87.         ALTER TABLE SYSQP_INI COLUMN RepresentingNull ADD DEFAULT '?'
  88. //
  89. //-----------------------------------------------------------------------------
  90. // Views of the Conversational Component QueryPlus
  91. //-----------------------------------------------------------------------------
  92. //
  93. //
  94. //-----------------------------------------------------------------------------
  95. // Create the view of the object management for each user
  96. //-----------------------------------------------------------------------------
  97. IF $RC (SHOW VIEW SYSQP_MY_OBJECTS) = 0
  98. THEN
  99.     BEGIN
  100. //
  101.         DROP VIEW SYSQP_MY_OBJECTS
  102. //
  103.     END
  104. //
  105. CREATE VIEW SYSQP_MY_OBJECTS AS
  106.         SELECT  OWNER       ,
  107.                 OBJTYPE     ,
  108.                 NAME        ,
  109.                 ID          ,
  110.                 OBJDESC
  111.         FROM    SYSQP_ALL_OBJECTS
  112.         WHERE   OWNER = USERGROUP
  113. WITH CHECK OPTION
  114. //
  115. //
  116. //-----------------------------------------------------------------------------
  117. // Create the view for the shared QPC objects management
  118. //-----------------------------------------------------------------------------
  119. IF $RC (SHOW VIEW SYSQP_SC_OBJECTS) = 0
  120. THEN
  121.     BEGIN
  122. //
  123.         DROP VIEW SYSQP_SC_OBJECTS
  124. //
  125.     END
  126. //
  127. CREATE VIEW SYSQP_SC_OBJECTS (OWNER, GRANTEE, OBJTYPE, NAME, PERMISSION, GRANTEE_GROUP) AS
  128.         SELECT REFOWNER        ,
  129.                DEFUSERNAME     ,
  130.                REFOBJTYPE      ,
  131.                REFCOMMANDNAME  ,
  132.                PRIVILEGES      ,
  133.                DEFGROUPNAME
  134.         FROM   DOMAIN.USR_USES_QPC
  135. //
  136. //
  137. //-----------------------------------------------------------------------------
  138. // Create the view for the shared QPQ objects management
  139. //-----------------------------------------------------------------------------
  140. IF $RC (SHOW VIEW SYSQP_SQ_OBJECTS) = 0
  141. THEN
  142.     BEGIN
  143. //
  144.         DROP VIEW SYSQP_SQ_OBJECTS
  145. //
  146.     END
  147. //
  148. CREATE VIEW SYSQP_SQ_OBJECTS (OWNER, GRANTEE, OBJTYPE, NAME, PERMISSION, GRANTEE_GROUP) AS
  149.         SELECT REFOWNER        ,
  150.                DEFUSERNAME     ,
  151.                REFOBJTYPE      ,
  152.                REFQUERYNAME    ,
  153.                PRIVILEGES      ,
  154.                DEFGROUPNAME
  155.         FROM   DOMAIN.USR_USES_QPQ
  156. //
  157. //
  158. //-----------------------------------------------------------------------------
  159. // Create the view for the shared QPW objects management
  160. //-----------------------------------------------------------------------------
  161. IF $RC (SHOW VIEW SYSQP_SW_OBJECTS) = 0
  162. THEN
  163.     BEGIN
  164. //
  165.         DROP VIEW SYSQP_SW_OBJECTS
  166. //
  167.     END
  168. //
  169. CREATE VIEW SYSQP_SW_OBJECTS (OWNER, GRANTEE, OBJTYPE, NAME, PERMISSION, GRANTEE_GROUP) AS
  170.         SELECT REFOWNER        ,
  171.                DEFUSERNAME     ,
  172.                REFOBJTYPE      ,
  173.                REFWORDLINKNAME ,
  174.                PRIVILEGES      ,
  175.                DEFGROUPNAME
  176.         FROM   DOMAIN.USR_USES_QPW
  177. //
  178. //
  179. //-----------------------------------------------------------------------------
  180. // Create the view for the shared QPE objects management
  181. //-----------------------------------------------------------------------------
  182. IF $RC (SHOW VIEW SYSQP_SE_OBJECTS) = 0
  183. THEN
  184.     BEGIN
  185. //
  186.         DROP VIEW SYSQP_SE_OBJECTS
  187. //
  188.     END
  189. //
  190. CREATE VIEW SYSQP_SE_OBJECTS (OWNER, GRANTEE, OBJTYPE, NAME, PERMISSION, GRANTEE_GROUP) AS
  191.         SELECT REFOWNER        ,
  192.                DEFUSERNAME     ,
  193.                REFOBJTYPE      ,
  194.                REFEXCELLINKNAME,
  195.                PRIVILEGES      ,
  196.                DEFGROUPNAME
  197.         FROM   DOMAIN.USR_USES_QPE
  198. //
  199. //
  200. //-----------------------------------------------------------------------------
  201. // Grants of the Conversational Component QueryPlus
  202. //-----------------------------------------------------------------------------
  203. //
  204. //
  205. //-----------------------------------------------------------------------------
  206. // Grant for the system table SYSQP_ALL_OBJECTS
  207. //-----------------------------------------------------------------------------
  208. GRANT   SELECT, UPDATE, DELETE, INSERT
  209. ON      SYSQP_ALL_OBJECTS
  210. TO      DOMAIN
  211. //
  212. GRANT   SELECT
  213. ON      SYSQP_ALL_OBJECTS
  214. TO      PUBLIC
  215. //-----------------------------------------------------------------------------
  216. // Grant for the system table SYSQP_INI
  217. //-----------------------------------------------------------------------------
  218. GRANT   SELECT, UPDATE, DELETE, INSERT
  219. ON      SYSQP_INI
  220. TO      PUBLIC
  221. //-----------------------------------------------------------------------------
  222. // Grant for the view SYSQP_MY_OBJECTS
  223. //-----------------------------------------------------------------------------
  224. GRANT   SELECT, UPDATE, DELETE, INSERT
  225. ON      SYSQP_MY_OBJECTS
  226. TO      PUBLIC
  227. //-----------------------------------------------------------------------------
  228. // Grant for the view SYSQP_SC_OBJECTS
  229. //-----------------------------------------------------------------------------
  230. GRANT   SELECT
  231. ON      SYSQP_SC_OBJECTS
  232. TO      PUBLIC
  233. //-----------------------------------------------------------------------------
  234. // Grant for the view SYSQP_SQ_OBJECTS
  235. //-----------------------------------------------------------------------------
  236. GRANT   SELECT
  237. ON      SYSQP_SQ_OBJECTS
  238. TO      PUBLIC
  239. //-----------------------------------------------------------------------------
  240. // Grant for the view SYSQP_SW_OBJECTS
  241. //-----------------------------------------------------------------------------
  242. GRANT   SELECT
  243. ON      SYSQP_SW_OBJECTS
  244. TO      PUBLIC
  245. //-----------------------------------------------------------------------------
  246. // Grant for the view SYSQP_SE_OBJECTS
  247. //-----------------------------------------------------------------------------
  248. GRANT   SELECT
  249. ON      SYSQP_SE_OBJECTS
  250. TO      PUBLIC
  251. //
  252. //
  253. //-----------------------------------------------------------------------------
  254. // Commit the data definitions
  255. //-----------------------------------------------------------------------------
  256. //
  257. //
  258. COMMIT WORK
  259. //
  260. //
  261. END INIT SERVERDB
  262. //
  263. SQLMODE ADABAS
  264. //
  265. //-----------------------------------------------------------------------------
  266. // END
  267. //-----------------------------------------------------------------------------
  268.