home *** CD-ROM | disk | FTP | other *** search
/ PC Treasures, Inc. / pctreasures.mdf / WINDOWS / adabas / f_0001 / env / sysproc.ins < prev    next >
Text File  |  1999-11-01  |  2KB  |  109 lines
  1. SAY ------ Installing system SHOW-DB-PROCEDURES ...
  2. /* @(#)SYSPROC.ins 10.01.00  1998-01-30
  3. /
  4. INIT SERVERDB
  5. /
  6. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSPROC.SHOW_VIEW) = 0
  7. THEN
  8.     BEGIN
  9. /
  10.     DROP DBPROCEDURE DOMAIN.SYSPROC.SHOW_VIEW
  11. /
  12.     END
  13. /
  14. IF $RC (DELETE sysdba.SYSDIALLIB
  15.         WHERE owner ='DOMAIN' AND application='SYSPROC'
  16.         AND (subtype LIKE 'CODE*' OR subtype =' ')) <> 0
  17. THEN
  18. /
  19.     RETURNCODE 0
  20. /
  21. COMMIT WORK
  22. /
  23. DATALOAD TABLE sysdba.SYSDIALLIB
  24. OWNER       'DOMAIN'
  25. APPLICATION 22-39
  26. MODULE      43-60
  27. PROGLANG    64-81
  28. OBJTYPE     85-102
  29. SUBTYPE     106-117
  30. VERSION     121-124
  31. LONGNAME    128-167 DEFAULT NULL
  32. KIND        171-176 DEFAULT NULL
  33. MODINDEX    180-181 DEFAULT NULL
  34. STATUS      185-185 DEFAULT NULL
  35. STRLENGTH   189-207 DEFAULT NULL
  36. CODETYPE    211-216 DEFAULT NULL
  37. VALUE_AREA  220-238 DEFAULT NULL
  38. INFILE '%DBROOT%\env\SYSPROC.ind'
  39. DEC '/ /./'
  40. NULL '?                   '
  41. /
  42. IF $RC <> 0
  43. THEN
  44.     BEGIN
  45. /
  46.     END INIT SERVERDB
  47. /
  48.     STOP 8
  49. /
  50.     END
  51. /
  52. COMMIT WORK
  53. /
  54. LOAD LONG COLUMN SYSDBA.SYSDIALLIB.OBJ
  55. INFILE '%DBROOT%\env\SYSPROC.ino'
  56. /
  57. IF $RC <> 0
  58. THEN
  59.     BEGIN
  60. /
  61.     END INIT SERVERDB
  62. /
  63.     STOP 8
  64. /
  65.     END
  66. /
  67. COMMIT WORK
  68. /
  69. IF $RC (INSERT sysdba.SYSDIALPRIVATE
  70.         SET
  71.         DEFOBJTYPE  ='USER',
  72.         GRANTEE     ='PUBLIC',
  73.         OBJTYPE     ='PROGRAM',
  74.         OWNER       ='DOMAIN' ,
  75.         APPLICATION ='SYSPROC',
  76.         PROGLANG    ='DIALOG',
  77.         VERSION     ='PROD',
  78.         RELTYPE     ='ACCESSES',
  79.         PRIVILEGE   ='C',
  80.         COMMENT     ='STOREDPROCEDURE') = 200
  81. THEN
  82. /
  83.     RETURNCODE 0
  84. /
  85. ANALYZE DOMAIN.SYSPROC.SHOW_VIEW
  86. /
  87. STORE DBPROCEDURE
  88. /
  89. STORE DBPROCEDURE ALL
  90. /
  91. CREATE DBPROCEDURE DOMAIN.SYSPROC.SHOW_VIEW WITH REPLICATION
  92. /
  93. IF $RC <> 0
  94. THEN
  95.     BEGIN
  96. /
  97.     END INIT SERVERDB
  98. /
  99.     STOP 7
  100. /
  101.     END
  102. /
  103. GRANT EXECUTE ON DOMAIN.SYSPROC.SHOW_VIEW TO PUBLIC
  104. /
  105. COMMIT WORK
  106. /
  107. END INIT SERVERDB
  108. /
  109.