home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 April / comcd0402.iso / vollver / adabas / f_0001 / env / control.ins next >
Encoding:
Text File  |  1999-11-01  |  3.5 KB  |  177 lines
  1. SAY --- Installing system tables for CONTROL
  2. /
  3. / @(#)XCONTROL.ins 10.01.00  1998-01-30
  4. / *****************************************************
  5. / Create Systemtables for CONTROL
  6. / *****************************************************
  7. /
  8. INIT SERVERDB
  9. /
  10. IF $RC (EXISTS TABLE SYSCNHIST) = 0
  11. THEN
  12. /
  13.      DROP TABLE SYSDBA.SYSCNHIST
  14. /
  15. CREATE TABLE SYSCNHIST (
  16. SAVID           CHAR(6),
  17. SAVTYP          CHAR(10),
  18. CREATOR         CHAR(18),
  19. CREDAT          DATE,
  20. CRETIM          TIME,
  21. BEGDAT          DATE,
  22. BEGTIM          TIME,
  23. ENDDAT          DATE,
  24. ENDTIM          TIME,
  25. MEDIA           CHAR(8),
  26. SAVSTA          CHAR(6),
  27. PROCID          CHAR(18),
  28. RETCOD          FIXED(13))
  29. /
  30. GRANT SELECT ON SYSCNHIST TO PUBLIC
  31. /
  32.  
  33. IF $RC ( CREATE VIEW SYSBU$HISTORY AS SELECT * FROM SYSCNHIST) = 0
  34. THEN
  35. /
  36.     GRANT SELECT ON SYSBU$HISTORY TO PUBLIC
  37. /
  38. IF $RC (EXISTS TABLE SYSCNMEDIA) = 0
  39. THEN
  40. /
  41.      DROP TABLE SYSDBA.SYSCNMEDIA
  42. /
  43. CREATE TABLE SYSCNMEDIA (
  44. MEDIA_ID        CHAR(8) PRIMARY KEY,
  45. TYPE            CHAR(1),
  46. OVERWRITE       CHAR(1),
  47. MAXSIZE         CHAR(18),
  48. USED            CHAR(8),
  49. NEXT_ID         CHAR(8),
  50. BLKSIZE         CHAR(2),
  51. DEVPATH1        CHAR(128),
  52. DEVPATH2        CHAR(128),
  53. DESC            CHAR(80),
  54. PARALLEL        CHAR(1))
  55. /
  56. GRANT SELECT ON SYSCNMEDIA TO PUBLIC
  57. /
  58.  
  59. IF $RC ( INSERT INTO SYSCNMEDIA SELECT * FROM SYSBU$MEDIA ) = 0
  60. THEN
  61. /
  62.      DROP TABLE SYSBU$MEDIA
  63. /
  64. CREATE VIEW SYSBU$MEDIA
  65. AS SELECT
  66. MEDIA_ID,
  67. TYPE,
  68. OVERWRITE,
  69. MAXSIZE,
  70. USED,
  71. NEXT_ID,
  72. BLKSIZE,
  73. DEVPATH1,
  74. DEVPATH2,
  75. DESC
  76. FROM SYSCNMEDIA
  77. /
  78. GRANT SELECT ON SYSBU$MEDIA TO PUBLIC
  79. /
  80. IF $RC (EXISTS TABLE SYSCNPLAN) = 0
  81. THEN
  82. /
  83.      DROP TABLE SYSDBA.SYSCNPLAN
  84. /
  85. CREATE TABLE SYSCNPLAN LIKE sysdba.SYSCNHIST
  86. /
  87. GRANT SELECT,UPDATE,DELETE,INSERT ON SYSCNPLAN TO PUBLIC
  88. /
  89. IF $RC ( INSERT INTO SYSCNPLAN SELECT * FROM SYSBU$FUTURE) = 0
  90. THEN
  91. /
  92.      DROP TABLE SYSBU$FUTURE
  93. /
  94. CREATE VIEW SYSBU$FUTURE AS SELECT * FROM SYSCNPLAN
  95. /
  96. GRANT SELECT ON SYSBU$FUTURE TO PUBLIC
  97. /
  98. CREATE VIEW SYSBUPLAN AS SELECT * FROM SYSCNPLAN
  99. /
  100. GRANT SELECT,UPDATE,DELETE,INSERT ON SYSBUPLAN TO PUBLIC
  101. /
  102. IF $RC (EXISTS TABLE SYSCNREPRT) = 0
  103. THEN
  104. /
  105.      DROP TABLE SYSDBA.SYSCNREPRT
  106. /
  107. CREATE TABLE SYSCNREPRT (
  108. SAVID           CHAR(6),
  109. SAVTYP          CHAR(10),
  110. POS             FIXED(13),
  111. LINE            CHAR(80))
  112. /
  113. GRANT SELECT ON SYSCNREPRT TO PUBLIC
  114. /
  115. IF $RC ( INSERT INTO SYSCNREPRT SELECT * FROM SYSBU$REPORT) = 0
  116. THEN
  117. /
  118.      DROP TABLE SYSBU$REPORT
  119. /
  120. CREATE VIEW SYSBU$REPORT
  121. AS SELECT *
  122. FROM SYSCNREPRT
  123. /
  124. GRANT SELECT ON SYSBU$REPORT TO PUBLIC
  125. /
  126. IF $RC (EXISTS TABLE SYSCNSTATE) = 0
  127. THEN
  128. /
  129.      DROP TABLE SYSDBA.SYSCNSTATE
  130. /
  131. CREATE TABLE SYSCNSTATE (
  132. LABEL           CHAR(18),
  133. VAL             CHAR(8))
  134. /
  135. GRANT SELECT ON SYSCNSTATE TO PUBLIC
  136. /
  137. IF $RC ( INSERT INTO SYSCNSTATE SELECT * FROM SYSBU$STATE ) = 0
  138. THEN
  139. /
  140.      DROP TABLE SYSBU$STATE
  141. /
  142. CREATE VIEW SYSBU$STATE
  143. AS SELECT *
  144. FROM SYSCNSTATE
  145. /
  146. GRANT SELECT ON SYSBU$STATE TO PUBLIC
  147. /
  148. IF $RC (EXISTS TABLE SYSCNTIMTB) = 0
  149. THEN
  150. /
  151.      DROP TABLE SYSDBA.SYSCNTIMTB
  152. /
  153. CREATE TABLE SYSCNTIMTB (
  154. SCHED_NAME      CHAR (10),
  155. ACTION          CHAR (10),
  156. MEDIA_ID        CHAR (8),
  157. SCHED_DAY       FIXED (1),
  158. SCHED_TIME      TIME )
  159. /
  160. GRANT SELECT ON SYSCNTIMTB TO PUBLIC
  161. /
  162. IF $RC ( INSERT INTO SYSCNTIMTB SELECT * FROM SYSBU$TIMETABLE ) = 0
  163. THEN
  164. /
  165.      DROP TABLE SYSBU$TIMETABLE
  166. /
  167. CREATE VIEW SYSBU$TIMETABLE
  168. AS SELECT *
  169. FROM SYSCNTIMTB
  170. /
  171. GRANT SELECT ON SYSBU$TIMETABLE TO PUBLIC
  172. /
  173. COMMIT WORK
  174. /
  175. END INIT SERVERDB
  176. /
  177.