home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 April / comcd0402.iso / vollver / adabas / f_0001 / env / sproc.ins < prev    next >
Encoding:
Text File  |  1999-11-01  |  18.8 KB  |  1,185 lines
  1. SAY ------ Installing system DB-PROCEDURES ...
  2. /* @(#)SPROC.ins 10.01.00  1998-01-30
  3. /
  4. INIT SERVERDB
  5. /
  6. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_PROCEDURE) = 0
  7. THEN
  8.     BEGIN
  9. /
  10.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_PROCEDURE
  11. /
  12.     END
  13. /
  14. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_LITERAL) = 0
  15. THEN
  16.     BEGIN
  17. /
  18.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_LITERAL
  19. /
  20.     END
  21. /
  22. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_PRIMARY_KEY) = 0
  23. THEN
  24.     BEGIN
  25. /
  26.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_PRIMARY_KEY
  27. /
  28.     END
  29. /
  30. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_ADD) = 0
  31. THEN
  32.     BEGIN
  33. /
  34.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_ADD
  35. /
  36.     END
  37. /
  38. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_DROP) = 0
  39. THEN
  40.     BEGIN
  41. /
  42.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_DROP
  43. /
  44.     END
  45. /
  46. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_ALTER) = 0
  47. THEN
  48.     BEGIN
  49. /
  50.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_ALTER
  51. /
  52.     END
  53. /
  54. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_USER) = 0
  55. THEN
  56.     BEGIN
  57. /
  58.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_USER
  59. /
  60.     END
  61. /
  62. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.ALTER_PASSWORD) = 0
  63. THEN
  64.     BEGIN
  65. /
  66.     DROP DBPROCEDURE DOMAIN.SYS_PROC.ALTER_PASSWORD
  67. /
  68.     END
  69. /
  70. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.COMMENT_OBJ) = 0
  71. THEN
  72.     BEGIN
  73. /
  74.     DROP DBPROCEDURE DOMAIN.SYS_PROC.COMMENT_OBJ
  75. /
  76.     END
  77. /
  78. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.COMMENT_ON) = 0
  79. THEN
  80.     BEGIN
  81. /
  82.     DROP DBPROCEDURE DOMAIN.SYS_PROC.COMMENT_ON
  83. /
  84.     END
  85. /
  86. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_DOMAIN) = 0
  87. THEN
  88.     BEGIN
  89. /
  90.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_DOMAIN
  91. /
  92.     END
  93. /
  94. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_FOREIGN_KEY) = 0
  95. THEN
  96.     BEGIN
  97. /
  98.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_FOREIGN_KEY
  99. /
  100.     END
  101. /
  102. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_INDEX) = 0
  103. THEN
  104.     BEGIN
  105. /
  106.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_INDEX
  107. /
  108.     END
  109. /
  110. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_LITERAL) = 0
  111. THEN
  112.     BEGIN
  113. /
  114.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_LITERAL
  115. /
  116.     END
  117. /
  118. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_SERVERDB) = 0
  119. THEN
  120.     BEGIN
  121. /
  122.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_SERVERDB
  123. /
  124.     END
  125. /
  126. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_SYNONYM) = 0
  127. THEN
  128.     BEGIN
  129. /
  130.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_SYNONYM
  131. /
  132.     END
  133. /
  134. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_TABLE) = 0
  135. THEN
  136.     BEGIN
  137. /
  138.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_TABLE
  139. /
  140.     END
  141. /
  142. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_TRIGGER) = 0
  143. THEN
  144.     BEGIN
  145. /
  146.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_TRIGGER
  147. /
  148.     END
  149. /
  150. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_USER) = 0
  151. THEN
  152.     BEGIN
  153. /
  154.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_USER
  155. /
  156.     END
  157. /
  158. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.CREATE_VIEW) = 0
  159. THEN
  160.     BEGIN
  161. /
  162.     DROP DBPROCEDURE DOMAIN.SYS_PROC.CREATE_VIEW
  163. /
  164.     END
  165. /
  166. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DELETE_EASY) = 0
  167. THEN
  168.     BEGIN
  169. /
  170.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DELETE_EASY
  171. /
  172.     END
  173. /
  174. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DELETE_OBJ) = 0
  175. THEN
  176.     BEGIN
  177. /
  178.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DELETE_OBJ
  179. /
  180.     END
  181. /
  182. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DELETE_REL) = 0
  183. THEN
  184.     BEGIN
  185. /
  186.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DELETE_REL
  187. /
  188.     END
  189. /
  190. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DEL_USR_OBJ) = 0
  191. THEN
  192.     BEGIN
  193. /
  194.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DEL_USR_OBJ
  195. /
  196.     END
  197. /
  198. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_DOMAIN) = 0
  199. THEN
  200.     BEGIN
  201. /
  202.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_DOMAIN
  203. /
  204.     END
  205. /
  206. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_FOREIGN_KEY) = 0
  207. THEN
  208.     BEGIN
  209. /
  210.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_FOREIGN_KEY
  211. /
  212.     END
  213. /
  214. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_INDEX) = 0
  215. THEN
  216.     BEGIN
  217. /
  218.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_INDEX
  219. /
  220.     END
  221. /
  222. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_LITERAL) = 0
  223. THEN
  224.     BEGIN
  225. /
  226.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_LITERAL
  227. /
  228.     END
  229. /
  230. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_SERVERDB) = 0
  231. THEN
  232.     BEGIN
  233. /
  234.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_SERVERDB
  235. /
  236.     END
  237. /
  238. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_SYNONYM) = 0
  239. THEN
  240.     BEGIN
  241. /
  242.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_SYNONYM
  243. /
  244.     END
  245. /
  246. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_TABLE) = 0
  247. THEN
  248.     BEGIN
  249. /
  250.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_TABLE
  251. /
  252.     END
  253. /
  254. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_TRIGGER) = 0
  255. THEN
  256.     BEGIN
  257. /
  258.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_TRIGGER
  259. /
  260.     END
  261. /
  262. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_USER) = 0
  263. THEN
  264.     BEGIN
  265. /
  266.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_USER
  267. /
  268.     END
  269. /
  270. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_VIEW) = 0
  271. THEN
  272.     BEGIN
  273. /
  274.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_VIEW
  275. /
  276.     END
  277. /
  278. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.FIND_NEXT) = 0
  279. THEN
  280.     BEGIN
  281. /
  282.     DROP DBPROCEDURE DOMAIN.SYS_PROC.FIND_NEXT
  283. /
  284.     END
  285. /
  286. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.GET_COMMENT) = 0
  287. THEN
  288.     BEGIN
  289. /
  290.     DROP DBPROCEDURE DOMAIN.SYS_PROC.GET_COMMENT
  291. /
  292.     END
  293. /
  294. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.GRANT_EXECUTE) = 0
  295. THEN
  296.     BEGIN
  297. /
  298.     DROP DBPROCEDURE DOMAIN.SYS_PROC.GRANT_EXECUTE
  299. /
  300.     END
  301. /
  302. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.GRANT_PRIVILEGE) = 0
  303. THEN
  304.     BEGIN
  305. /
  306.     DROP DBPROCEDURE DOMAIN.SYS_PROC.GRANT_PRIVILEGE
  307. /
  308.     END
  309. /
  310. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.GRANT_REVOKE) = 0
  311. THEN
  312.     BEGIN
  313. /
  314.     DROP DBPROCEDURE DOMAIN.SYS_PROC.GRANT_REVOKE
  315. /
  316.     END
  317. /
  318. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.GRANT_USER) = 0
  319. THEN
  320.     BEGIN
  321. /
  322.     DROP DBPROCEDURE DOMAIN.SYS_PROC.GRANT_USER
  323. /
  324.     END
  325. /
  326. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.INSERT_OBJ) = 0
  327. THEN
  328.     BEGIN
  329. /
  330.     DROP DBPROCEDURE DOMAIN.SYS_PROC.INSERT_OBJ
  331. /
  332.     END
  333. /
  334. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.INSERT_REL) = 0
  335. THEN
  336.     BEGIN
  337. /
  338.     DROP DBPROCEDURE DOMAIN.SYS_PROC.INSERT_REL
  339. /
  340.     END
  341. /
  342. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.OBJECT_USES_OBJECT) = 0
  343. THEN
  344.     BEGIN
  345. /
  346.     DROP DBPROCEDURE DOMAIN.SYS_PROC.OBJECT_USES_OBJECT
  347. /
  348.     END
  349. /
  350. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.RENAME_COLUMN) = 0
  351. THEN
  352.     BEGIN
  353. /
  354.     DROP DBPROCEDURE DOMAIN.SYS_PROC.RENAME_COLUMN
  355. /
  356.     END
  357. /
  358. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.RENAME_SYNONYM) = 0
  359. THEN
  360.     BEGIN
  361. /
  362.     DROP DBPROCEDURE DOMAIN.SYS_PROC.RENAME_SYNONYM
  363. /
  364.     END
  365. /
  366. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.RENAME_TABLE) = 0
  367. THEN
  368.     BEGIN
  369. /
  370.     DROP DBPROCEDURE DOMAIN.SYS_PROC.RENAME_TABLE
  371. /
  372.     END
  373. /
  374. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.RENAME_VIEW) = 0
  375. THEN
  376.     BEGIN
  377. /
  378.     DROP DBPROCEDURE DOMAIN.SYS_PROC.RENAME_VIEW
  379. /
  380.     END
  381. /
  382. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.REVOKE_EXECUTE) = 0
  383. THEN
  384.     BEGIN
  385. /
  386.     DROP DBPROCEDURE DOMAIN.SYS_PROC.REVOKE_EXECUTE
  387. /
  388.     END
  389. /
  390. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.REVOKE_PRIVILEGE) = 0
  391. THEN
  392.     BEGIN
  393. /
  394.     DROP DBPROCEDURE DOMAIN.SYS_PROC.REVOKE_PRIVILEGE
  395. /
  396.     END
  397. /
  398. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SELECT_ALL) = 0
  399. THEN
  400.     BEGIN
  401. /
  402.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SELECT_ALL
  403. /
  404.     END
  405. /
  406. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SELECT_OBJ) = 0
  407. THEN
  408.     BEGIN
  409. /
  410.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SELECT_OBJ
  411. /
  412.     END
  413. /
  414. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SQLERROR) = 0
  415. THEN
  416.     BEGIN
  417. /
  418.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SQLERROR
  419. /
  420.     END
  421. /
  422. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SQLEXCEPTION) = 0
  423. THEN
  424.     BEGIN
  425. /
  426.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SQLEXCEPTION
  427. /
  428.     END
  429. /
  430. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SWITCH_FIRST) = 0
  431. THEN
  432.     BEGIN
  433. /
  434.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SWITCH_FIRST
  435. /
  436.     END
  437. /
  438. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SWITCH_STATUS_PROC) = 0
  439. THEN
  440.     BEGIN
  441. /
  442.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SWITCH_STATUS_PROC
  443. /
  444.     END
  445. /
  446. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.SYSDBA) = 0
  447. THEN
  448.     BEGIN
  449. /
  450.     DROP DBPROCEDURE DOMAIN.SYS_PROC.SYSDBA
  451. /
  452.     END
  453. /
  454. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.UPDATE_REL) = 0
  455. THEN
  456.     BEGIN
  457. /
  458.     DROP DBPROCEDURE DOMAIN.SYS_PROC.UPDATE_REL
  459. /
  460.     END
  461. /
  462. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.UPDATE_STATUS) = 0
  463. THEN
  464.     BEGIN
  465. /
  466.     DROP DBPROCEDURE DOMAIN.SYS_PROC.UPDATE_STATUS
  467. /
  468.     END
  469. /
  470. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.USAGE_OFF) = 0
  471. THEN
  472.     BEGIN
  473. /
  474.     DROP DBPROCEDURE DOMAIN.SYS_PROC.USAGE_OFF
  475. /
  476.     END
  477. /
  478. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.USER_USAGE) = 0
  479. THEN
  480.     BEGIN
  481. /
  482.     DROP DBPROCEDURE DOMAIN.SYS_PROC.USER_USAGE
  483. /
  484.     END
  485. /
  486. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DELETE_OBJECT) = 0
  487. THEN
  488.     BEGIN
  489. /
  490.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DELETE_OBJECT
  491. /
  492.     END
  493. /
  494. IF $RC (SHOW DBPROCEDURE DOMAIN.SYS_PROC.DROP_PROCEDURE) = 0
  495. THEN
  496.     BEGIN
  497. /
  498.     DROP DBPROCEDURE DOMAIN.SYS_PROC.DROP_PROCEDURE
  499. /
  500.     END
  501. /
  502. / DROP DBPROCEDURE SYSFUNC.*
  503. /
  504. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_INSERT) = 0
  505. THEN
  506.     BEGIN
  507. /
  508.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_INSERT
  509. /
  510.     END
  511. /
  512. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_UPDATE) = 0
  513. THEN
  514.     BEGIN
  515. /
  516.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_UPDATE
  517. /
  518.     END
  519. /
  520. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_DELETE) = 0
  521. THEN
  522.     BEGIN
  523. /
  524.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_DELETE
  525. /
  526.     END
  527. /
  528. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_SELECT) = 0
  529. THEN
  530.     BEGIN
  531. /
  532.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSOBJECT_SELECT
  533. /
  534.     END
  535. /
  536. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_INSERT) = 0
  537. THEN
  538.     BEGIN
  539. /
  540.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_INSERT
  541. /
  542.     END
  543. /
  544. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_UPDATE) = 0
  545. THEN
  546.     BEGIN
  547. /
  548.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_UPDATE
  549. /
  550.     END
  551. /
  552. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_DELETE) = 0
  553. THEN
  554.     BEGIN
  555. /
  556.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_DELETE
  557. /
  558.     END
  559. /
  560. IF $RC (SHOW DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_SELECT) = 0
  561. THEN
  562.     BEGIN
  563. /
  564.     DROP DBPROCEDURE DOMAIN.SYSFUNC.SYSRELSHIP_SELECT
  565. /
  566.     END
  567. /
  568. IF $RC (DELETE sysdba.SYSDIALLIB
  569.         WHERE owner ='DOMAIN' AND application='SYS_PROC'
  570.         AND (subtype LIKE 'CODE*' OR subtype =' ')) <> 0
  571. THEN
  572. /
  573.     RETURNCODE 0
  574. /
  575. COMMIT WORK
  576. /
  577. DATALOAD TABLE sysdba.SYSDIALLIB
  578. OWNER       'DOMAIN'
  579. APPLICATION 22-39
  580. MODULE      43-60
  581. PROGLANG    64-81
  582. OBJTYPE     85-102
  583. SUBTYPE     106-117
  584. VERSION     121-124
  585. LONGNAME    128-167 DEFAULT NULL
  586. KIND        171-176 DEFAULT NULL
  587. MODINDEX    180-181 DEFAULT NULL
  588. STATUS      185-185 DEFAULT NULL
  589. STRLENGTH   189-207 DEFAULT NULL
  590. CODETYPE    211-216 DEFAULT NULL
  591. VALUE_AREA  220-238 DEFAULT NULL
  592. INFILE '%DBROOT%\env\SPROC.ind'
  593. DEC '/ /./'
  594. NULL '?                   '
  595. /
  596. IF $RC <> 0
  597. THEN
  598.     BEGIN
  599. /
  600.     END INIT SERVERDB
  601. /
  602.     STOP 8
  603. /
  604.     END
  605. /
  606. COMMIT WORK
  607. /
  608. LOAD LONG COLUMN SYSDBA.SYSDIALLIB.OBJ
  609. INFILE '%DBROOT%\env\SPROC.ino'
  610. /
  611. IF $RC <> 0
  612. THEN
  613.     BEGIN
  614. /
  615.     END INIT SERVERDB
  616. /
  617.     STOP 8
  618. /
  619.     END
  620. /
  621. COMMIT WORK
  622. /
  623. IF $RC (INSERT sysdba.SYSDIALPRIVATE
  624.         SET
  625.         DEFOBJTYPE  ='USER',
  626.         GRANTEE     ='PUBLIC',
  627.         OBJTYPE     ='PROGRAM',
  628.         OWNER       ='DOMAIN' ,
  629.         APPLICATION ='SYS_PROC',
  630.         PROGLANG    ='DIALOG',
  631.         VERSION     ='PROD',
  632.         RELTYPE     ='ACCESSES',
  633.         PRIVILEGE   ='C',
  634.         COMMENT     ='STOREDPROCEDURE') = 200
  635. THEN
  636. /
  637.     RETURNCODE 0
  638. /
  639. ANALYZE DOMAIN.SYS_PROC.ALTER_LITERAL
  640. /
  641. STORE DBPROCEDURE
  642. /
  643. STORE DBPROCEDURE ALL
  644. /
  645. CREATE DBPROCEDURE DOMAIN.SYS_PROC.ALTER_LITERAL WITH REPLICATION
  646. /
  647. IF $RC <> 0
  648. THEN
  649.     BEGIN
  650. /
  651.     END INIT SERVERDB
  652. /
  653.     STOP 7
  654. /
  655.     END
  656. /
  657. ANALYZE DOMAIN.SYS_PROC.ALTER_PRIMARY_KEY
  658. /
  659. STORE DBPROCEDURE
  660. /
  661. STORE DBPROCEDURE ALL
  662. /
  663. CREATE DBPROCEDURE DOMAIN.SYS_PROC.ALTER_PRIMARY_KEY WITH REPLICATION
  664. /
  665. IF $RC <> 0
  666. THEN
  667.     BEGIN
  668. /
  669.     END INIT SERVERDB
  670. /
  671.     STOP 7
  672. /
  673.     END
  674. /
  675. COMMIT WORK
  676. /
  677. ANALYZE DOMAIN.SYS_PROC.ALTER_TABLE_DROP
  678. /
  679. STORE DBPROCEDURE
  680. /
  681. STORE DBPROCEDURE ALL
  682. /
  683. CREATE DBPROCEDURE DOMAIN.SYS_PROC.ALTER_TABLE_DROP WITH REPLICATION
  684. /
  685. IF $RC <> 0
  686. THEN
  687.     BEGIN
  688. /
  689.     END INIT SERVERDB
  690. /
  691.     STOP 7
  692. /
  693.     END
  694. /
  695. COMMIT WORK
  696. /
  697. ANALYZE DOMAIN.SYS_PROC.COMMENT_ON
  698. /
  699. STORE DBPROCEDURE
  700. /
  701. STORE DBPROCEDURE ALL
  702. /
  703. CREATE DBPROCEDURE DOMAIN.SYS_PROC.COMMENT_ON WITH REPLICATION
  704. /
  705. IF $RC <> 0
  706. THEN
  707.     BEGIN
  708. /
  709.     END INIT SERVERDB
  710. /
  711.     STOP 7
  712. /
  713.     END
  714. /
  715. ANALYZE DOMAIN.SYS_PROC.CREATE_LITERAL
  716. /
  717. STORE DBPROCEDURE
  718. /
  719. STORE DBPROCEDURE ALL
  720. /
  721. CREATE DBPROCEDURE DOMAIN.SYS_PROC.CREATE_LITERAL WITH REPLICATION
  722. /
  723. IF $RC <> 0
  724. THEN
  725.     BEGIN
  726. /
  727.     END INIT SERVERDB
  728. /
  729.     STOP 7
  730. /
  731.     END
  732. /
  733. ANALYZE DOMAIN.SYS_PROC.DELETE_OBJECT
  734. /
  735. STORE DBPROCEDURE
  736. /
  737. STORE DBPROCEDURE ALL
  738. /
  739. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DELETE_OBJECT WITH REPLICATION
  740. /
  741. IF $RC <> 0
  742. THEN
  743.     BEGIN
  744. /
  745.     END INIT SERVERDB
  746. /
  747.     STOP 7
  748. /
  749.     END
  750. /
  751. ANALYZE DOMAIN.SYS_PROC.DROP_DOMAIN
  752. /
  753. STORE DBPROCEDURE
  754. /
  755. STORE DBPROCEDURE ALL
  756. /
  757. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_DOMAIN WITH REPLICATION
  758. /
  759. IF $RC <> 0
  760. THEN
  761.     BEGIN
  762. /
  763.     END INIT SERVERDB
  764. /
  765.     STOP 7
  766. /
  767.     END
  768. /
  769. COMMIT WORK
  770. /
  771. ANALYZE DOMAIN.SYS_PROC.DROP_FOREIGN_KEY
  772. /
  773. STORE DBPROCEDURE
  774. /
  775. STORE DBPROCEDURE ALL
  776. /
  777. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_FOREIGN_KEY WITH REPLICATION
  778. /
  779. IF $RC <> 0
  780. THEN
  781.     BEGIN
  782. /
  783.     END INIT SERVERDB
  784. /
  785.     STOP 7
  786. /
  787.     END
  788. /
  789. COMMIT WORK
  790. /
  791. ANALYZE DOMAIN.SYS_PROC.DROP_INDEX
  792. /
  793. STORE DBPROCEDURE
  794. /
  795. STORE DBPROCEDURE ALL
  796. /
  797. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_INDEX WITH REPLICATION
  798. /
  799. IF $RC <> 0
  800. THEN
  801.     BEGIN
  802. /
  803.     END INIT SERVERDB
  804. /
  805.     STOP 7
  806. /
  807.     END
  808. /
  809. COMMIT WORK
  810. /
  811. ANALYZE DOMAIN.SYS_PROC.DROP_LITERAL
  812. /
  813. STORE DBPROCEDURE
  814. /
  815. STORE DBPROCEDURE ALL
  816. /
  817. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_LITERAL WITH REPLICATION
  818. /
  819. IF $RC <> 0
  820. THEN
  821.     BEGIN
  822. /
  823.     END INIT SERVERDB
  824. /
  825.     STOP 7
  826. /
  827.     END
  828. /
  829. COMMIT WORK
  830. /
  831. ANALYZE DOMAIN.SYS_PROC.DROP_PROCEDURE
  832. /
  833. STORE DBPROCEDURE
  834. /
  835. STORE DBPROCEDURE ALL
  836. /
  837. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_PROCEDURE WITH REPLICATION
  838. /
  839. IF $RC <> 0
  840. THEN
  841.     BEGIN
  842. /
  843.     END INIT SERVERDB
  844. /
  845.     STOP 7
  846. /
  847.     END
  848. /
  849. COMMIT WORK
  850. /
  851. ANALYZE DOMAIN.SYS_PROC.DROP_SYNONYM
  852. /
  853. STORE DBPROCEDURE
  854. /
  855. STORE DBPROCEDURE ALL
  856. /
  857. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_SYNONYM WITH REPLICATION
  858. /
  859. IF $RC <> 0
  860. THEN
  861.     BEGIN
  862. /
  863.     END INIT SERVERDB
  864. /
  865.     STOP 7
  866. /
  867.     END
  868. /
  869. COMMIT WORK
  870. /
  871. ANALYZE DOMAIN.SYS_PROC.DROP_TABLE
  872. /
  873. STORE DBPROCEDURE
  874. /
  875. STORE DBPROCEDURE ALL
  876. /
  877. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_TABLE WITH REPLICATION
  878. /
  879. IF $RC <> 0
  880. THEN
  881.     BEGIN
  882. /
  883.     END INIT SERVERDB
  884. /
  885.     STOP 7
  886. /
  887.     END
  888. /
  889. ANALYZE DOMAIN.SYS_PROC.DROP_TRIGGER
  890. /
  891. STORE DBPROCEDURE
  892. /
  893. STORE DBPROCEDURE ALL
  894. /
  895. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_TRIGGER WITH REPLICATION
  896. /
  897. IF $RC <> 0
  898. THEN
  899.     BEGIN
  900. /
  901.     END INIT SERVERDB
  902. /
  903.     STOP 7
  904. /
  905.     END
  906. /
  907. COMMIT WORK
  908. /
  909. ANALYZE DOMAIN.SYS_PROC.DROP_USER
  910. /
  911. STORE DBPROCEDURE
  912. /
  913. STORE DBPROCEDURE ALL
  914. /
  915. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_USER WITH REPLICATION
  916. /
  917. IF $RC <> 0
  918. THEN
  919.     BEGIN
  920. /
  921.     END INIT SERVERDB
  922. /
  923.     STOP 7
  924. /
  925.     END
  926. /
  927. ANALYZE DOMAIN.SYS_PROC.DROP_VIEW
  928. /
  929. STORE DBPROCEDURE
  930. /
  931. STORE DBPROCEDURE ALL
  932. /
  933. CREATE DBPROCEDURE DOMAIN.SYS_PROC.DROP_VIEW WITH REPLICATION
  934. /
  935. IF $RC <> 0
  936. THEN
  937.     BEGIN
  938. /
  939.     END INIT SERVERDB
  940. /
  941.     STOP 7
  942. /
  943.     END
  944. /
  945. COMMIT WORK
  946. /
  947. ANALYZE DOMAIN.SYS_PROC.GET_COMMENT
  948. /
  949. STORE DBPROCEDURE
  950. /
  951. STORE DBPROCEDURE ALL
  952. /
  953. CREATE DBPROCEDURE DOMAIN.SYS_PROC.GET_COMMENT WITH REPLICATION
  954. /
  955. IF $RC <> 0
  956. THEN
  957.     BEGIN
  958. /
  959.     END INIT SERVERDB
  960. /
  961.     STOP 7
  962. /
  963.     END
  964. /
  965. COMMIT WORK
  966. /
  967. ANALYZE DOMAIN.SYS_PROC.OBJECT_USES_OBJECT
  968. /
  969. STORE DBPROCEDURE
  970. /
  971. STORE DBPROCEDURE ALL
  972. /
  973. CREATE DBPROCEDURE DOMAIN.SYS_PROC.OBJECT_USES_OBJECT WITH REPLICATION
  974. /
  975. IF $RC <> 0
  976. THEN
  977.     BEGIN
  978. /
  979.     END INIT SERVERDB
  980. /
  981.     STOP 7
  982. /
  983.     END
  984. /
  985. COMMIT WORK
  986. /
  987. ANALYZE DOMAIN.SYS_PROC.RENAME_COLUMN
  988. /
  989. STORE DBPROCEDURE
  990. /
  991. STORE DBPROCEDURE ALL
  992. /
  993. CREATE DBPROCEDURE DOMAIN.SYS_PROC.RENAME_COLUMN WITH REPLICATION
  994. /
  995. IF $RC <> 0
  996. THEN
  997.     BEGIN
  998. /
  999.     END INIT SERVERDB
  1000. /
  1001.     STOP 7
  1002. /
  1003.     END
  1004. /
  1005. COMMIT WORK
  1006. /
  1007. ANALYZE DOMAIN.SYS_PROC.RENAME_SYNONYM
  1008. /
  1009. STORE DBPROCEDURE
  1010. /
  1011. STORE DBPROCEDURE ALL
  1012. /
  1013. CREATE DBPROCEDURE DOMAIN.SYS_PROC.RENAME_SYNONYM WITH REPLICATION
  1014. /
  1015. IF $RC <> 0
  1016. THEN
  1017.     BEGIN
  1018. /
  1019.     END INIT SERVERDB
  1020. /
  1021.     STOP 7
  1022. /
  1023.     END
  1024. /
  1025. COMMIT WORK
  1026. /
  1027. ANALYZE DOMAIN.SYS_PROC.RENAME_TABLE
  1028. /
  1029. STORE DBPROCEDURE
  1030. /
  1031. STORE DBPROCEDURE ALL
  1032. /
  1033. CREATE DBPROCEDURE DOMAIN.SYS_PROC.RENAME_TABLE WITH REPLICATION
  1034. /
  1035. IF $RC <> 0
  1036. THEN
  1037.     BEGIN
  1038. /
  1039.     END INIT SERVERDB
  1040. /
  1041.     STOP 7
  1042. /
  1043.     END
  1044. /
  1045. COMMIT WORK
  1046. /
  1047. ANALYZE DOMAIN.SYS_PROC.RENAME_VIEW
  1048. /
  1049. STORE DBPROCEDURE
  1050. /
  1051. STORE DBPROCEDURE ALL
  1052. /
  1053. CREATE DBPROCEDURE DOMAIN.SYS_PROC.RENAME_VIEW WITH REPLICATION
  1054. /
  1055. IF $RC <> 0
  1056. THEN
  1057.     BEGIN
  1058. /
  1059.     END INIT SERVERDB
  1060. /
  1061.     STOP 7
  1062. /
  1063.     END
  1064. /
  1065. COMMIT WORK
  1066. /
  1067. ANALYZE DOMAIN.SYS_PROC.REVOKE_PRIVILEGE
  1068. /
  1069. STORE DBPROCEDURE
  1070. /
  1071. STORE DBPROCEDURE ALL
  1072. /
  1073. CREATE DBPROCEDURE DOMAIN.SYS_PROC.REVOKE_PRIVILEGE WITH REPLICATION
  1074. /
  1075. IF $RC <> 0
  1076. THEN
  1077.     BEGIN
  1078. /
  1079.     END INIT SERVERDB
  1080. /
  1081.     STOP 7
  1082. /
  1083.     END
  1084. /
  1085. COMMIT WORK
  1086. /
  1087. ANALYZE DOMAIN.SYS_PROC.SQLERROR
  1088. /
  1089. STORE DBPROCEDURE
  1090. /
  1091. STORE DBPROCEDURE ALL
  1092. /
  1093. CREATE DBPROCEDURE DOMAIN.SYS_PROC.SQLERROR WITH REPLICATION
  1094. /
  1095. IF $RC <> 0
  1096. THEN
  1097.     BEGIN
  1098. /
  1099.     END INIT SERVERDB
  1100. /
  1101.     STOP 7
  1102. /
  1103.     END
  1104. /
  1105. COMMIT WORK
  1106. /
  1107. ANALYZE DOMAIN.SYS_PROC.SQLEXCEPTION
  1108. /
  1109. STORE DBPROCEDURE
  1110. /
  1111. STORE DBPROCEDURE ALL
  1112. /
  1113. CREATE DBPROCEDURE DOMAIN.SYS_PROC.SQLEXCEPTION WITH REPLICATION
  1114. /
  1115. IF $RC <> 0
  1116. THEN
  1117.     BEGIN
  1118. /
  1119.     END INIT SERVERDB
  1120. /
  1121.     STOP 7
  1122. /
  1123.     END
  1124. /
  1125. COMMIT WORK
  1126. /
  1127. ANALYZE DOMAIN.SYS_PROC.USAGE_OFF
  1128. /
  1129. STORE DBPROCEDURE
  1130. /
  1131. STORE DBPROCEDURE ALL
  1132. /
  1133. CREATE DBPROCEDURE DOMAIN.SYS_PROC.USAGE_OFF WITH REPLICATION
  1134. /
  1135. IF $RC <> 0
  1136. THEN
  1137.     BEGIN
  1138. /
  1139.     END INIT SERVERDB
  1140. /
  1141.     STOP 7
  1142. /
  1143.     END
  1144. /
  1145. COMMIT WORK
  1146. /
  1147. ANALYZE DOMAIN.SYS_PROC.USER_USAGE
  1148. /
  1149. STORE DBPROCEDURE
  1150. /
  1151. STORE DBPROCEDURE ALL
  1152. /
  1153. CREATE DBPROCEDURE DOMAIN.SYS_PROC.USER_USAGE WITH REPLICATION
  1154. /
  1155. IF $RC <> 0
  1156. THEN
  1157.     BEGIN
  1158. /
  1159.     END INIT SERVERDB
  1160. /
  1161.     STOP 7
  1162. /
  1163.     END
  1164. /
  1165. COMMIT WORK
  1166. /
  1167. GRANT EXECUTE ON DOMAIN.SYS_PROC.CREATE_LITERAL TO PUBLIC
  1168. /
  1169. GRANT EXECUTE ON DOMAIN.SYS_PROC.ALTER_LITERAL TO PUBLIC
  1170. /
  1171. GRANT EXECUTE ON DOMAIN.SYS_PROC.DROP_LITERAL TO PUBLIC
  1172. /
  1173. GRANT EXECUTE ON DOMAIN.SYS_PROC.GET_COMMENT TO PUBLIC
  1174. /
  1175. GRANT EXECUTE ON DOMAIN.SYS_PROC.DELETE_OBJECT TO PUBLIC
  1176. /
  1177. GRANT EXECUTE ON DOMAIN.SYS_PROC.USER_USAGE TO PUBLIC
  1178. /
  1179. GRANT EXECUTE ON DOMAIN.SYS_PROC.OBJECT_USES_OBJECT TO PUBLIC
  1180. /
  1181. COMMIT WORK
  1182. /
  1183. END INIT SERVERDB
  1184. /
  1185.