home *** CD-ROM | disk | FTP | other *** search
/ PC Treasures, Inc. / pctreasures.mdf / WINDOWS / adabas / f_0001 / env / showcmd.ins < prev    next >
Text File  |  1999-11-01  |  34KB  |  2,453 lines
  1. /* @(#)SHOWCMD.ins 10.01.00  1998-01-30
  2. /
  3. INIT SERVERDB
  4. /
  5. IF $RC (EXISTS TABLE DOMAIN.SHOW_COLUMN) = 0
  6. THEN
  7.     BEGIN
  8. /
  9.     DROP VIEW DOMAIN.SHOW_COLUMN
  10. /
  11.     COMMIT WORK
  12. /
  13.     END
  14. /
  15. CREATE VIEW DOMAIN.SHOW_COLUMN
  16. AS SELECT *
  17.    FROM DOMAIN.COLUMNS
  18. /
  19. IF $RC <> 0
  20. THEN
  21.      BEGIN
  22. /
  23.      END INIT SERVERDB
  24. /
  25.      STOP 7
  26. /
  27.      END
  28. /
  29. COMMIT WORK
  30. /
  31. GRANT SELECT ON DOMAIN.SHOW_COLUMN TO PUBLIC
  32. /
  33. IF $RC <> 0
  34. THEN
  35.      BEGIN
  36. /
  37.      END INIT SERVERDB
  38. /
  39.      STOP 7
  40. /
  41.      END
  42. /
  43. COMMIT WORK
  44. /
  45. IF $RC (EXISTS TABLE DOMAIN.SHOW_CONNECT_PARAM) = 0
  46. THEN
  47.     BEGIN
  48. /
  49.     DROP VIEW DOMAIN.SHOW_CONNECT_PARAM
  50. /
  51.     COMMIT WORK
  52. /
  53.     END
  54. /
  55. CREATE VIEW DOMAIN.SHOW_CONNECT_PARAM
  56. AS SELECT *
  57.    FROM DOMAIN.CONNECTPARAMETERS
  58. /
  59. IF $RC <> 0
  60. THEN
  61.      BEGIN
  62. /
  63.      END INIT SERVERDB
  64. /
  65.      STOP 7
  66. /
  67.      END
  68. /
  69. COMMIT WORK
  70. /
  71. GRANT SELECT ON DOMAIN.SHOW_CONNECT_PARAM TO PUBLIC
  72. /
  73. IF $RC <> 0
  74. THEN
  75.      BEGIN
  76. /
  77.      END INIT SERVERDB
  78. /
  79.      STOP 7
  80. /
  81.      END
  82. /
  83. COMMIT WORK
  84. /
  85. IF $RC (EXISTS TABLE DOMAIN.SHOW_CONSTRAINT) = 0
  86. THEN
  87.     BEGIN
  88. /
  89.     DROP VIEW DOMAIN.SHOW_CONSTRAINT
  90. /
  91.     COMMIT WORK
  92. /
  93.     END
  94. /
  95. CREATE VIEW DOMAIN.SHOW_CONSTRAINT
  96. AS SELECT *
  97.    FROM DOMAIN.CONSTRAINTS
  98. /
  99. IF $RC <> 0
  100. THEN
  101.      BEGIN
  102. /
  103.      END INIT SERVERDB
  104. /
  105.      STOP 7
  106. /
  107.      END
  108. /
  109. COMMIT WORK
  110. /
  111. GRANT SELECT ON DOMAIN.SHOW_CONSTRAINT TO PUBLIC
  112. /
  113. IF $RC <> 0
  114. THEN
  115.      BEGIN
  116. /
  117.      END INIT SERVERDB
  118. /
  119.      STOP 7
  120. /
  121.      END
  122. /
  123. COMMIT WORK
  124. /
  125. IF $RC (EXISTS TABLE DOMAIN.SHOW_CHECK) = 0
  126. THEN
  127.     BEGIN
  128. /
  129.     DROP VIEW DOMAIN.SHOW_CHECK
  130. /
  131.     COMMIT WORK
  132. /
  133.     END
  134. /
  135. CREATE VIEW DOMAIN.SHOW_CHECK
  136. AS SELECT definition
  137.    FROM DOMAIN.CONSTRAINTS
  138. /
  139. IF $RC <> 0
  140. THEN
  141.      BEGIN
  142. /
  143.      END INIT SERVERDB
  144. /
  145.      STOP 7
  146. /
  147.      END
  148. /
  149. COMMIT WORK
  150. /
  151. GRANT SELECT ON DOMAIN.SHOW_CHECK TO PUBLIC
  152. /
  153. IF $RC <> 0
  154. THEN
  155.      BEGIN
  156. /
  157.      END INIT SERVERDB
  158. /
  159.      STOP 7
  160. /
  161.      END
  162. /
  163. COMMIT WORK
  164. /
  165. IF $RC (EXISTS TABLE DOMAIN.SHOW_DBPROCEDURE) = 0
  166. THEN
  167.     BEGIN
  168. /
  169.     DROP VIEW DOMAIN.SHOW_DBPROCEDURE
  170. /
  171.     COMMIT WORK
  172. /
  173.     END
  174. /
  175. CREATE VIEW DOMAIN.SHOW_DBPROCEDURE
  176. AS SELECT *
  177.    FROM DOMAIN.DBPROCEDURES
  178. /
  179. IF $RC <> 0
  180. THEN
  181.      BEGIN
  182. /
  183.      END INIT SERVERDB
  184. /
  185.      STOP 7
  186. /
  187.      END
  188. /
  189. COMMIT WORK
  190. /
  191. GRANT SELECT ON DOMAIN.SHOW_DBPROCEDURE TO PUBLIC
  192. /
  193. IF $RC <> 0
  194. THEN
  195.      BEGIN
  196. /
  197.      END INIT SERVERDB
  198. /
  199.      STOP 7
  200. /
  201.      END
  202. /
  203. COMMIT WORK
  204. /
  205. IF $RC (EXISTS TABLE DOMAIN.SHOW_PARAM_DBPROC) = 0
  206. THEN
  207.     BEGIN
  208. /
  209.     DROP VIEW DOMAIN.SHOW_PARAM_DBPROC
  210. /
  211.     COMMIT WORK
  212. /
  213.     END
  214. /
  215. CREATE VIEW DOMAIN.SHOW_PARAM_DBPROC
  216. AS SELECT *
  217.    FROM DOMAIN.DBPROCPARAMS
  218. /
  219. IF $RC <> 0
  220. THEN
  221.      BEGIN
  222. /
  223.      END INIT SERVERDB
  224. /
  225.      STOP 7
  226. /
  227.      END
  228. /
  229. COMMIT WORK
  230. /
  231. GRANT SELECT ON DOMAIN.SHOW_PARAM_DBPROC TO PUBLIC
  232. /
  233. IF $RC <> 0
  234. THEN
  235.      BEGIN
  236. /
  237.      END INIT SERVERDB
  238. /
  239.      STOP 7
  240. /
  241.      END
  242. /
  243. COMMIT WORK
  244. /
  245. IF $RC (EXISTS TABLE DOMAIN.SHOW_DOMAIN) = 0
  246. THEN
  247.     BEGIN
  248. /
  249.     DROP VIEW DOMAIN.SHOW_DOMAIN
  250. /
  251.     COMMIT WORK
  252. /
  253.     END
  254. /
  255. CREATE VIEW DOMAIN.SHOW_DOMAIN
  256. AS SELECT *
  257.    FROM DOMAIN.DOMAINS
  258. /
  259. IF $RC <> 0
  260. THEN
  261.      BEGIN
  262. /
  263.      END INIT SERVERDB
  264. /
  265.      STOP 7
  266. /
  267.      END
  268. /
  269. COMMIT WORK
  270. /
  271. GRANT SELECT ON DOMAIN.SHOW_DOMAIN TO PUBLIC
  272. /
  273. IF $RC <> 0
  274. THEN
  275.      BEGIN
  276. /
  277.      END INIT SERVERDB
  278. /
  279.      STOP 7
  280. /
  281.      END
  282. /
  283. COMMIT WORK
  284. /
  285. IF $RC (EXISTS TABLE DOMAIN.SHOW_DOMAINDEF) = 0
  286. THEN
  287.     BEGIN
  288. /
  289.     DROP VIEW DOMAIN.SHOW_DOMAINDEF
  290. /
  291.     COMMIT WORK
  292. /
  293.     END
  294. /
  295. CREATE VIEW DOMAIN.SHOW_DOMAINDEF
  296. AS SELECT definition
  297.    FROM DOMAIN.DOMAINS
  298. /
  299. IF $RC <> 0
  300. THEN
  301.      BEGIN
  302. /
  303.      END INIT SERVERDB
  304. /
  305.      STOP 7
  306. /
  307.      END
  308. /
  309. COMMIT WORK
  310. /
  311. GRANT SELECT ON DOMAIN.SHOW_DOMAINDEF TO PUBLIC
  312. /
  313. IF $RC <> 0
  314. THEN
  315.      BEGIN
  316. /
  317.      END INIT SERVERDB
  318. /
  319.      STOP 7
  320. /
  321.      END
  322. /
  323. COMMIT WORK
  324. /
  325. IF $RC (EXISTS TABLE DOMAIN.SHOW_FOREIGN_KEY) = 0
  326. THEN
  327.     BEGIN
  328. /
  329.     DROP VIEW DOMAIN.SHOW_FOREIGN_KEY
  330. /
  331.     COMMIT WORK
  332. /
  333.     END
  334. /
  335. CREATE VIEW DOMAIN.SHOW_FOREIGN_KEY
  336. AS SELECT defowner owner,
  337.           deftablename tablename,
  338.           defcolumnname columnname,
  339.           deffkeyname refname,
  340.           refowner,
  341.           reftablename,
  342.           refcolumnname,
  343.           rule,
  344.           createdate "DATE",
  345.           createtime "TIME",
  346.           fkeycomment
  347.    FROM DOMAIN.FKC_REFS_COL
  348. /
  349. IF $RC <> 0
  350. THEN
  351.      BEGIN
  352. /
  353.      END INIT SERVERDB
  354. /
  355.      STOP 7
  356. /
  357.      END
  358. /
  359. COMMIT WORK
  360. /
  361. GRANT SELECT ON DOMAIN.SHOW_FOREIGN_KEY TO PUBLIC
  362. /
  363. IF $RC <> 0
  364. THEN
  365.      BEGIN
  366. /
  367.      END INIT SERVERDB
  368. /
  369.      STOP 7
  370. /
  371.      END
  372. /
  373. COMMIT WORK
  374. /
  375. IF $RC (EXISTS TABLE DOMAIN.SHOW_INDEX) = 0
  376. THEN
  377.     BEGIN
  378. /
  379.     DROP VIEW DOMAIN.SHOW_INDEX
  380. /
  381.     COMMIT WORK
  382. /
  383.     END
  384. /
  385. CREATE VIEW DOMAIN.SHOW_INDEX
  386. AS SELECT defowner owner,
  387.           deftablename tablename,
  388.           defindexname indexname,
  389.           type,
  390.           refcolumnname columnname,
  391.           sort,
  392.           createdate "DATE",
  393.           createtime "TIME"
  394.    FROM DOMAIN.IND_USES_COL
  395. /
  396. IF $RC <> 0
  397. THEN
  398.      BEGIN
  399. /
  400.      END INIT SERVERDB
  401. /
  402.      STOP 7
  403. /
  404.      END
  405. /
  406. COMMIT WORK
  407. /
  408. GRANT SELECT ON DOMAIN.SHOW_INDEX TO PUBLIC
  409. /
  410. IF $RC <> 0
  411. THEN
  412.      BEGIN
  413. /
  414.      END INIT SERVERDB
  415. /
  416.      STOP 7
  417. /
  418.      END
  419. /
  420. COMMIT WORK
  421. /
  422. IF $RC (EXISTS TABLE DOMAIN.SHOW_MAPCHARSET) = 0
  423. THEN
  424.     BEGIN
  425. /
  426.     DROP VIEW DOMAIN.SHOW_MAPCHARSET
  427. /
  428.     COMMIT WORK
  429. /
  430.     END
  431. /
  432. CREATE VIEW DOMAIN.SHOW_MAPCHARSET
  433. AS SELECT *
  434.    FROM DOMAIN.MAPCHARSETS
  435. /
  436. IF $RC <> 0
  437. THEN
  438.      BEGIN
  439. /
  440.      END INIT SERVERDB
  441. /
  442.      STOP 7
  443. /
  444.      END
  445. /
  446. COMMIT WORK
  447. /
  448. GRANT SELECT ON DOMAIN.SHOW_MAPCHARSET TO PUBLIC
  449. /
  450. IF $RC <> 0
  451. THEN
  452.      BEGIN
  453. /
  454.      END INIT SERVERDB
  455. /
  456.      STOP 7
  457. /
  458.      END
  459. /
  460. COMMIT WORK
  461. /
  462. IF $RC (EXISTS TABLE DOMAIN.SHOW_PRIMARY_KEY) = 0
  463. THEN
  464.     BEGIN
  465. /
  466.     DROP VIEW DOMAIN.SHOW_PRIMARY_KEY
  467. /
  468.     COMMIT WORK
  469. /
  470.     END
  471. /
  472. CREATE VIEW DOMAIN.SHOW_PRIMARY_KEY
  473. AS SELECT *
  474.    FROM DOMAIN.COLUMNS
  475.    WHERE keypos IS NOT NULL
  476. /
  477. IF $RC <> 0
  478. THEN
  479.      BEGIN
  480. /
  481.      END INIT SERVERDB
  482. /
  483.      STOP 7
  484. /
  485.      END
  486. /
  487. COMMIT WORK
  488. /
  489. GRANT SELECT ON DOMAIN.SHOW_PRIMARY_KEY TO PUBLIC
  490. /
  491. IF $RC <> 0
  492. THEN
  493.      BEGIN
  494. /
  495.      END INIT SERVERDB
  496. /
  497.      STOP 7
  498. /
  499.      END
  500. /
  501. COMMIT WORK
  502. /
  503. IF $RC (EXISTS TABLE DOMAIN.SHOW_PRIV_GRANTED) = 0
  504. THEN
  505.     BEGIN
  506. /
  507.     DROP VIEW DOMAIN.SHOW_PRIV_GRANTED
  508. /
  509.     COMMIT WORK
  510. /
  511.     END
  512. /
  513. CREATE VIEW DOMAIN.SHOW_PRIV_GRANTED
  514. AS SELECT refowner owner,
  515.           reftablename tablename,
  516.           refcolumnname columnname,
  517.           privileges,
  518.           defusername grantee
  519.    FROM DOMAIN.USR_USES_COL
  520. /
  521. IF $RC <> 0
  522. THEN
  523.      BEGIN
  524. /
  525.      END INIT SERVERDB
  526. /
  527.      STOP 7
  528. /
  529.      END
  530. /
  531. COMMIT WORK
  532. /
  533. GRANT SELECT ON DOMAIN.SHOW_PRIV_GRANTED TO PUBLIC
  534. /
  535. IF $RC <> 0
  536. THEN
  537.      BEGIN
  538. /
  539.      END INIT SERVERDB
  540. /
  541.      STOP 7
  542. /
  543.      END
  544. /
  545. COMMIT WORK
  546. /
  547. IF $RC (EXISTS TABLE DOMAIN.SHOW_PRIV_ON) = 0
  548. THEN
  549.     BEGIN
  550. /
  551.     DROP VIEW DOMAIN.SHOW_PRIV_ON
  552. /
  553.     COMMIT WORK
  554. /
  555.     END
  556. /
  557. CREATE VIEW DOMAIN.SHOW_PRIV_ON
  558. AS SELECT refowner owner,
  559.           reftablename tablename,
  560.           refcolumnname columnname,
  561.           privileges,
  562.           defusername grantee
  563.    FROM DOMAIN.USR_USES_COL
  564. /
  565. IF $RC <> 0
  566. THEN
  567.      BEGIN
  568. /
  569.      END INIT SERVERDB
  570. /
  571.      STOP 7
  572. /
  573.      END
  574. /
  575. COMMIT WORK
  576. /
  577. GRANT SELECT ON DOMAIN.SHOW_PRIV_ON TO PUBLIC
  578. /
  579. IF $RC <> 0
  580. THEN
  581.      BEGIN
  582. /
  583.      END INIT SERVERDB
  584. /
  585.      STOP 7
  586. /
  587.      END
  588. /
  589. COMMIT WORK
  590. /
  591. IF $RC (EXISTS TABLE DOMAIN.SHOW_SERVERDB) = 0
  592. THEN
  593.     BEGIN
  594. /
  595.     DROP VIEW DOMAIN.SHOW_SERVERDB
  596. /
  597.     COMMIT WORK
  598. /
  599.     END
  600. /
  601. CREATE VIEW DOMAIN.SHOW_SERVERDB
  602. AS SELECT *
  603.    FROM DOMAIN.SERVERDBS
  604. /
  605. IF $RC <> 0
  606. THEN
  607.      BEGIN
  608. /
  609.      END INIT SERVERDB
  610. /
  611.      STOP 7
  612. /
  613.      END
  614. /
  615. COMMIT WORK
  616. /
  617. GRANT SELECT ON DOMAIN.SHOW_SERVERDB TO PUBLIC
  618. /
  619. IF $RC <> 0
  620. THEN
  621.      BEGIN
  622. /
  623.      END INIT SERVERDB
  624. /
  625.      STOP 7
  626. /
  627.      END
  628. /
  629. COMMIT WORK
  630. /
  631. IF $RC (EXISTS TABLE DOMAIN.SHOW_SYNONYM) = 0
  632. THEN
  633.     BEGIN
  634. /
  635.     DROP VIEW DOMAIN.SHOW_SYNONYM
  636. /
  637.     COMMIT WORK
  638. /
  639.     END
  640. /
  641. CREATE VIEW DOMAIN.SHOW_SYNONYM
  642. AS SELECT defsynonymname synonymname,
  643.           refowner owner,
  644.           reftablename tablename
  645.    FROM DOMAIN.SYN_REFS_TAB
  646. /
  647. IF $RC <> 0
  648. THEN
  649.      BEGIN
  650. /
  651.      END INIT SERVERDB
  652. /
  653.      STOP 7
  654. /
  655.      END
  656. /
  657. COMMIT WORK
  658. /
  659. GRANT SELECT ON DOMAIN.SHOW_SYNONYM TO PUBLIC
  660. /
  661. IF $RC <> 0
  662. THEN
  663.      BEGIN
  664. /
  665.      END INIT SERVERDB
  666. /
  667.      STOP 7
  668. /
  669.      END
  670. /
  671. COMMIT WORK
  672. /
  673. IF $RC (EXISTS TABLE DOMAIN.SHOW_SYSDBA) = 0
  674. THEN
  675.     BEGIN
  676. /
  677.     DROP VIEW DOMAIN.SHOW_SYSDBA
  678. /
  679.     COMMIT WORK
  680. /
  681.     END
  682. /
  683. CREATE VIEW DOMAIN.SHOW_SYSDBA
  684. AS SELECT SYSDBA "USERNAME"
  685.    FROM LOCALSYSDBA.DUAL
  686. /
  687. IF $RC <> 0
  688. THEN
  689.      BEGIN
  690. /
  691.      END INIT SERVERDB
  692. /
  693.      STOP 7
  694. /
  695.      END
  696. /
  697. COMMIT WORK
  698. /
  699. GRANT SELECT ON DOMAIN.SHOW_SYSDBA TO PUBLIC
  700. /
  701. IF $RC <> 0
  702. THEN
  703.      BEGIN
  704. /
  705.      END INIT SERVERDB
  706. /
  707.      STOP 7
  708. /
  709.      END
  710. /
  711. COMMIT WORK
  712. /
  713. IF $RC (EXISTS TABLE DOMAIN.SHOW_TABLE) = 0
  714. THEN
  715.     BEGIN
  716. /
  717.     DROP VIEW DOMAIN.SHOW_TABLE
  718. /
  719.     COMMIT WORK
  720. /
  721.     END
  722. /
  723. CREATE VIEW SHOW_TABLE
  724. AS SELECT OWNER,
  725.           TABLENAME,
  726.           PRIVILEGES,
  727.           DECODE(ALTERDATE,NULL,
  728.                  DECODE(UPDSTATDATE,NULL,'SYNONYM','VIEW'),'TABLE') TYPE,
  729.           CREATEDATE,
  730.           CREATETIME,
  731.           UPDSTATDATE,
  732.           UPDSTATTIME,
  733.           ALTERDATE,
  734.           ALTERTIME,
  735.           REPLICATION,
  736.           SERVERDB,
  737.           SERVERNODE,
  738.           SNAPSHOT_LOG,
  739.           UNLOADED,
  740.           COMMENT
  741.    FROM DOMAIN.TABLES
  742. /
  743. IF $RC <> 0
  744. THEN
  745.      BEGIN
  746. /
  747.      END INIT SERVERDB
  748. /
  749.      STOP 7
  750. /
  751.      END
  752. /
  753. COMMIT WORK
  754. /
  755. GRANT SELECT ON DOMAIN.SHOW_TABLE TO PUBLIC
  756. /
  757. IF $RC <> 0
  758. THEN
  759.      BEGIN
  760. /
  761.      END INIT SERVERDB
  762. /
  763.      STOP 7
  764. /
  765.      END
  766. /
  767. COMMIT WORK
  768. /
  769. IF $RC (EXISTS TABLE DOMAIN.SHOW_TABLEDEF) = 0
  770. THEN
  771.     BEGIN
  772. /
  773.     DROP VIEW DOMAIN.SHOW_TABLEDEF
  774. /
  775.     COMMIT WORK
  776. /
  777.     END
  778. /
  779. CREATE VIEW DOMAIN.SHOW_TABLEDEF
  780. AS SELECT *
  781.    FROM DOMAIN.COLUMNS
  782. /
  783. IF $RC <> 0
  784. THEN
  785.      BEGIN
  786. /
  787.      END INIT SERVERDB
  788. /
  789.      STOP 7
  790. /
  791.      END
  792. /
  793. COMMIT WORK
  794. /
  795. GRANT SELECT ON DOMAIN.SHOW_TABLEDEF TO PUBLIC
  796. /
  797. IF $RC <> 0
  798. THEN
  799.      BEGIN
  800. /
  801.      END INIT SERVERDB
  802. /
  803.      STOP 7
  804. /
  805.      END
  806. /
  807. COMMIT WORK
  808. /
  809. IF $RC (EXISTS TABLE DOMAIN.SHOW_TERMCHARSET) = 0
  810. THEN
  811.     BEGIN
  812. /
  813.     DROP VIEW DOMAIN.SHOW_TERMCHARSET
  814. /
  815.     COMMIT WORK
  816. /
  817.     END
  818. /
  819. CREATE VIEW DOMAIN.SHOW_TERMCHARSET
  820. AS SELECT *
  821.    FROM DOMAIN.TERMCHARSETS
  822. /
  823. IF $RC <> 0
  824. THEN
  825.      BEGIN
  826. /
  827.      END INIT SERVERDB
  828. /
  829.      STOP 7
  830. /
  831.      END
  832. /
  833. COMMIT WORK
  834. /
  835. GRANT SELECT ON DOMAIN.SHOW_TERMCHARSET TO PUBLIC
  836. /
  837. IF $RC <> 0
  838. THEN
  839.      BEGIN
  840. /
  841.      END INIT SERVERDB
  842. /
  843.      STOP 7
  844. /
  845.      END
  846. /
  847. COMMIT WORK
  848. /
  849. IF $RC (EXISTS TABLE DOMAIN.SHOW_TRIGGER) = 0
  850. THEN
  851.     BEGIN
  852. /
  853.     DROP VIEW DOMAIN.SHOW_TRIGGER
  854. /
  855.     COMMIT WORK
  856. /
  857.     END
  858. /
  859. CREATE VIEW DOMAIN.SHOW_TRIGGER
  860. AS SELECT *
  861.    FROM DOMAIN.TRIGGERS
  862. /
  863. IF $RC <> 0
  864. THEN
  865.      BEGIN
  866. /
  867.      END INIT SERVERDB
  868. /
  869.      STOP 7
  870. /
  871.      END
  872. /
  873. COMMIT WORK
  874. /
  875. GRANT SELECT ON DOMAIN.SHOW_TRIGGER TO PUBLIC
  876. /
  877. IF $RC <> 0
  878. THEN
  879.      BEGIN
  880. /
  881.      END INIT SERVERDB
  882. /
  883.      STOP 7
  884. /
  885.      END
  886. /
  887. COMMIT WORK
  888. /
  889. IF $RC (EXISTS TABLE DOMAIN.SHOW_TRIGGERDEF) = 0
  890. THEN
  891.     BEGIN
  892. /
  893.     DROP VIEW DOMAIN.SHOW_TRIGGERDEF
  894. /
  895.     COMMIT WORK
  896. /
  897.     END
  898. /
  899. CREATE VIEW DOMAIN.SHOW_TRIGGERDEF
  900. AS SELECT definition
  901.    FROM DOMAIN.TRIGGERS
  902. /
  903. IF $RC <> 0
  904. THEN
  905.      BEGIN
  906. /
  907.      END INIT SERVERDB
  908. /
  909.      STOP 7
  910. /
  911.      END
  912. /
  913. COMMIT WORK
  914. /
  915. GRANT SELECT ON DOMAIN.SHOW_TRIGGERDEF TO PUBLIC
  916. /
  917. IF $RC <> 0
  918. THEN
  919.      BEGIN
  920. /
  921.      END INIT SERVERDB
  922. /
  923.      STOP 7
  924. /
  925.      END
  926. /
  927. COMMIT WORK
  928. /
  929. IF $RC (EXISTS TABLE DOMAIN.SHOW_PARAM_TRIGGER) = 0
  930. THEN
  931.     BEGIN
  932. /
  933.     DROP VIEW DOMAIN.SHOW_PARAM_TRIGGER
  934. /
  935.     COMMIT WORK
  936. /
  937.     END
  938. /
  939. CREATE VIEW DOMAIN.SHOW_PARAM_TRIGGER
  940. AS SELECT *
  941.    FROM DOMAIN.TRIGGERPARAMS
  942. /
  943. IF $RC <> 0
  944. THEN
  945.      BEGIN
  946. /
  947.      END INIT SERVERDB
  948. /
  949.      STOP 7
  950. /
  951.      END
  952. /
  953. COMMIT WORK
  954. /
  955. GRANT SELECT ON DOMAIN.SHOW_PARAM_TRIGGER TO PUBLIC
  956. /
  957. IF $RC <> 0
  958. THEN
  959.      BEGIN
  960. /
  961.      END INIT SERVERDB
  962. /
  963.      STOP 7
  964. /
  965.      END
  966. /
  967. COMMIT WORK
  968. /
  969. IF $RC (EXISTS TABLE DOMAIN.SHOW_USER) = 0
  970. THEN
  971.     BEGIN
  972. /
  973.     DROP VIEW DOMAIN.SHOW_USER
  974. /
  975.     COMMIT WORK
  976. /
  977.     END
  978. /
  979. CREATE VIEW DOMAIN.SHOW_USER
  980. AS SELECT *
  981.    FROM DOMAIN.USERS
  982. /
  983. IF $RC <> 0
  984. THEN
  985.      BEGIN
  986. /
  987.      END INIT SERVERDB
  988. /
  989.      STOP 7
  990. /
  991.      END
  992. /
  993. COMMIT WORK
  994. /
  995. GRANT SELECT ON DOMAIN.SHOW_USER TO PUBLIC
  996. /
  997. IF $RC <> 0
  998. THEN
  999.      BEGIN
  1000. /
  1001.      END INIT SERVERDB
  1002. /
  1003.      STOP 7
  1004. /
  1005.      END
  1006. /
  1007. COMMIT WORK
  1008. /
  1009. IF $RC (EXISTS TABLE DOMAIN.SHOW_USER_CURRENT) = 0
  1010. THEN
  1011.     BEGIN
  1012. /
  1013.     DROP VIEW DOMAIN.SHOW_USER_CURRENT
  1014. /
  1015.     COMMIT WORK
  1016. /
  1017.     END
  1018. /
  1019. CREATE VIEW DOMAIN.SHOW_USER_CURRENT
  1020. AS SELECT *
  1021.    FROM DOMAIN.USERS
  1022.    WHERE ((username = ' ' AND groupname = USERGROUP) OR username = USERGROUP)
  1023. /
  1024. IF $RC <> 0
  1025. THEN
  1026.      BEGIN
  1027. /
  1028.      END INIT SERVERDB
  1029. /
  1030.      STOP 7
  1031. /
  1032.      END
  1033. /
  1034. COMMIT WORK
  1035. /
  1036. GRANT SELECT ON DOMAIN.SHOW_USER_CURRENT TO PUBLIC
  1037. /
  1038. IF $RC <> 0
  1039. THEN
  1040.      BEGIN
  1041. /
  1042.      END INIT SERVERDB
  1043. /
  1044.      STOP 7
  1045. /
  1046.      END
  1047. /
  1048. COMMIT WORK
  1049. /
  1050. IF $RC (EXISTS TABLE DOMAIN.SHOW_USER_CONNECTED) = 0
  1051. THEN
  1052.     BEGIN
  1053. /
  1054.     DROP VIEW DOMAIN.SHOW_USER_CONNECTED
  1055. /
  1056.     COMMIT WORK
  1057. /
  1058.     END
  1059. /
  1060. CREATE VIEW DOMAIN.SHOW_USER_CONNECTED
  1061. AS SELECT *
  1062.    FROM DOMAIN.CONNECTEDUSERS
  1063. /
  1064. IF $RC <> 0
  1065. THEN
  1066.      BEGIN
  1067. /
  1068.      END INIT SERVERDB
  1069. /
  1070.      STOP 7
  1071. /
  1072.      END
  1073. /
  1074. COMMIT WORK
  1075. /
  1076. GRANT SELECT ON DOMAIN.SHOW_USER_CONNECTED TO PUBLIC
  1077. /
  1078. IF $RC <> 0
  1079. THEN
  1080.      BEGIN
  1081. /
  1082.      END INIT SERVERDB
  1083. /
  1084.      STOP 7
  1085. /
  1086.      END
  1087. /
  1088. COMMIT WORK
  1089. /
  1090. IF $RC (EXISTS TABLE DOMAIN.SHOW_VERSION) = 0
  1091. THEN
  1092.     BEGIN
  1093. /
  1094.     DROP VIEW DOMAIN.SHOW_VERSION
  1095. /
  1096.     COMMIT WORK
  1097. /
  1098.     END
  1099. /
  1100. CREATE VIEW DOMAIN.SHOW_VERSION
  1101. AS SELECT *
  1102.    FROM DOMAIN.VERSIONS
  1103. /
  1104. IF $RC <> 0
  1105. THEN
  1106.      BEGIN
  1107. /
  1108.      END INIT SERVERDB
  1109. /
  1110.      STOP 7
  1111. /
  1112.      END
  1113. /
  1114. COMMIT WORK
  1115. /
  1116. GRANT SELECT ON DOMAIN.SHOW_VERSION TO PUBLIC
  1117. /
  1118. IF $RC <> 0
  1119. THEN
  1120.      BEGIN
  1121. /
  1122.      END INIT SERVERDB
  1123. /
  1124.      STOP 7
  1125. /
  1126.      END
  1127. /
  1128. COMMIT WORK
  1129. /
  1130. IF $RC (EXISTS TABLE DOMAIN.SHOW_VIEW) = 0
  1131. THEN
  1132.     BEGIN
  1133. /
  1134.     DROP VIEW DOMAIN.SHOW_VIEW
  1135. /
  1136.     COMMIT WORK
  1137. /
  1138.     END
  1139. /
  1140. CREATE VIEW DOMAIN.SHOW_VIEW
  1141. AS SELECT owner,viewname,definition
  1142.    FROM DOMAIN.VIEWDEFS
  1143. /
  1144. IF $RC <> 0
  1145. THEN
  1146.      BEGIN
  1147. /
  1148.      END INIT SERVERDB
  1149. /
  1150.      STOP 7
  1151. /
  1152.      END
  1153. /
  1154. COMMIT WORK
  1155. /
  1156. GRANT SELECT ON DOMAIN.SHOW_VIEW TO PUBLIC
  1157. /
  1158. IF $RC <> 0
  1159. THEN
  1160.      BEGIN
  1161. /
  1162.      END INIT SERVERDB
  1163. /
  1164.      STOP 7
  1165. /
  1166.      END
  1167. /
  1168. COMMIT WORK
  1169. /
  1170. IF $RC (EXISTS TABLE DOMAIN.SHOW_OPTIMIZE_STAT) = 0
  1171. THEN
  1172.     BEGIN
  1173. /
  1174.     DROP VIEW DOMAIN.SHOW_OPTIMIZE_STAT
  1175. /
  1176.     COMMIT WORK
  1177. /
  1178.     END
  1179. /
  1180. CREATE VIEW DOMAIN.SHOW_OPTIMIZE_STAT
  1181. AS SELECT
  1182.      columnname,indexname,distinctvalues,pagecount,avglistlength
  1183.    FROM SYSDBA.OPTIMIZERSTATISTICS
  1184. /
  1185. IF $RC <> 0
  1186. THEN
  1187.      BEGIN
  1188. /
  1189.      END INIT SERVERDB
  1190. /
  1191.      STOP 7
  1192. /
  1193.      END
  1194. /
  1195. COMMIT WORK
  1196. /
  1197. GRANT SELECT ON DOMAIN.SHOW_OPTIMIZE_STAT TO PUBLIC
  1198. /
  1199. IF $RC <> 0
  1200. THEN
  1201.      BEGIN
  1202. /
  1203.      END INIT SERVERDB
  1204. /
  1205.      STOP 7
  1206. /
  1207.      END
  1208. /
  1209. COMMIT WORK
  1210. /
  1211. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_CONFIG) = 0
  1212. THEN
  1213.     BEGIN
  1214. /
  1215.     DROP VIEW DOMAIN.SHOW_STAT_CONFIG
  1216. /
  1217.     COMMIT WORK
  1218. /
  1219.     END
  1220. /
  1221. CREATE VIEW DOMAIN.SHOW_STAT_CONFIG
  1222. AS SELECT
  1223.      SUBSTR(DESCRIPTION,1,40) "DESCRIPTION",
  1224.      DECODE(CHAR_VALUE,NULL,LFILL(CHR(NUMERIC_VALUE),' ',12),
  1225.      SUBSTR(CHAR_VALUE,1,40)) "VALUE"
  1226.    FROM SYSDBA.CONFIGURATION
  1227. /
  1228. IF $RC <> 0
  1229. THEN
  1230.      BEGIN
  1231. /
  1232.      END INIT SERVERDB
  1233. /
  1234.      STOP 7
  1235. /
  1236.      END
  1237. /
  1238. COMMIT WORK
  1239. /
  1240. GRANT SELECT ON DOMAIN.SHOW_STAT_CONFIG TO PUBLIC
  1241. /
  1242. IF $RC <> 0
  1243. THEN
  1244.      BEGIN
  1245. /
  1246.      END INIT SERVERDB
  1247. /
  1248.      STOP 7
  1249. /
  1250.      END
  1251. /
  1252. COMMIT WORK
  1253. /
  1254. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_DEVSPACE) = 0
  1255. THEN
  1256.     BEGIN
  1257. /
  1258.     DROP VIEW DOMAIN.SHOW_STAT_DEVSPACE
  1259. /
  1260.     COMMIT WORK
  1261. /
  1262.     END
  1263. /
  1264. CREATE VIEW DOMAIN.SHOW_STAT_DEVSPACE
  1265. AS SELECT
  1266.      SUBSTR('PAGES',1,40), FIXED(DEVSPACESIZE,12)
  1267.    FROM SYSDBA.DATADEVSPACES
  1268.    UNION ALL
  1269.      SELECT 'LAST DATA PAGE NO', MAXDATAPAGENO
  1270.      FROM SYSDBA.DATADEVSPACES
  1271.    UNION ALL
  1272.      SELECT 'USED PERM PAGES', USEDPERMPAGES
  1273.      FROM SYSDBA.DATADEVSPACES
  1274.    UNION ALL
  1275.      SELECT 'USED PERM PAGES (%)', PCTUSEDPERM
  1276.      FROM SYSDBA.DATADEVSPACES
  1277.    UNION ALL
  1278.      SELECT 'USED TEMP PAGES', USEDTMPPAGES
  1279.      FROM SYSDBA.DATADEVSPACES
  1280.    UNION ALL
  1281.      SELECT 'USED TEMP PAGES (%)', PCTUSEDTMP
  1282.      FROM SYSDBA.DATADEVSPACES
  1283.    UNION ALL
  1284.      SELECT 'UNUSED    PAGES', UNUSEDPAGES
  1285.      FROM SYSDBA.DATADEVSPACES
  1286.    UNION ALL
  1287.      SELECT 'UNUSED    PAGES (%)', PCTUNUSED
  1288.      FROM SYSDBA.DATADEVSPACES
  1289. /
  1290. IF $RC <> 0
  1291. THEN
  1292.      BEGIN
  1293. /
  1294.      END INIT SERVERDB
  1295. /
  1296.      STOP 7
  1297. /
  1298.      END
  1299. /
  1300. COMMIT WORK
  1301. /
  1302. GRANT SELECT ON DOMAIN.SHOW_STAT_DEVSPACE TO PUBLIC
  1303. /
  1304. IF $RC <> 0
  1305. THEN
  1306.      BEGIN
  1307. /
  1308.      END INIT SERVERDB
  1309. /
  1310.      STOP 7
  1311. /
  1312.      END
  1313. /
  1314. COMMIT WORK
  1315. /
  1316. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_INDEX) = 0
  1317. THEN
  1318.     BEGIN
  1319. /
  1320.     DROP VIEW DOMAIN.SHOW_STAT_INDEX
  1321. /
  1322.     COMMIT WORK
  1323. /
  1324.     END
  1325. /
  1326. CREATE VIEW DOMAIN.SHOW_STAT_INDEX
  1327. AS SELECT
  1328.      TABLENAME,OWNER,
  1329.      SUBSTR(DESCRIPTION,1,40),
  1330.      DECODE(CHAR_VALUE,NULL,LFILL(CHR(NUMERIC_VALUE),' ',12),
  1331.      SUBSTR(CHAR_VALUE,1,40))
  1332.    FROM SYSDBA.INDEXSTATISTICS
  1333. /
  1334. IF $RC <> 0
  1335. THEN
  1336.      BEGIN
  1337. /
  1338.      END INIT SERVERDB
  1339. /
  1340.      STOP 7
  1341. /
  1342.      END
  1343. /
  1344. COMMIT WORK
  1345. /
  1346. GRANT SELECT ON DOMAIN.SHOW_STAT_INDEX  TO PUBLIC
  1347. /
  1348. IF $RC <> 0
  1349. THEN
  1350.      BEGIN
  1351. /
  1352.      END INIT SERVERDB
  1353. /
  1354.      STOP 7
  1355. /
  1356.      END
  1357. /
  1358. COMMIT WORK
  1359. /
  1360. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_LOCK) = 0
  1361. THEN
  1362.     BEGIN
  1363. /
  1364.     DROP VIEW DOMAIN.SHOW_STAT_LOCK
  1365. /
  1366.     COMMIT WORK
  1367. /
  1368.     END
  1369. /
  1370. CREATE VIEW DOMAIN.SHOW_STAT_LOCK
  1371. AS SELECT
  1372.      OWNER,TABLENAME,ROWIDLENGTH,ROWIDHEX,
  1373.      DECODE(LOCKMODE,NULL,LOCKREQUESTMODE,LOCKMODE) LOCKMODE,
  1374.      PENDINGLOCK,SERVERDBNO,SESSION,TRANSACTION,
  1375.      DECODE(REMOTEUSER,'YES','<remote>',USERNAME) USERNAME,
  1376.      TERMID,PROCESS
  1377.    FROM SYSDBA.LOCKSTATISTICS
  1378. /
  1379. IF $RC <> 0
  1380. THEN
  1381.      BEGIN
  1382. /
  1383.      END INIT SERVERDB
  1384. /
  1385.      STOP 7
  1386. /
  1387.      END
  1388. /
  1389. COMMIT WORK
  1390. /
  1391. GRANT SELECT ON DOMAIN.SHOW_STAT_LOCK TO PUBLIC
  1392. /
  1393. IF $RC <> 0
  1394. THEN
  1395.      BEGIN
  1396. /
  1397.      END INIT SERVERDB
  1398. /
  1399.      STOP 7
  1400. /
  1401.      END
  1402. /
  1403. COMMIT WORK
  1404. /
  1405. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_LOCK_CONFIG) = 0
  1406. THEN
  1407.     BEGIN
  1408. /
  1409.     DROP VIEW DOMAIN.SHOW_STAT_LOCK_CONFIG
  1410. /
  1411.     COMMIT WORK
  1412. /
  1413.     END
  1414. /
  1415. CREATE VIEW DOMAIN.SHOW_STAT_LOCK_CONFIG
  1416. AS SELECT *
  1417.    FROM SYSDBA.LOCKLISTSTATISTICS
  1418. /
  1419. IF $RC <> 0
  1420. THEN
  1421.      BEGIN
  1422. /
  1423.      END INIT SERVERDB
  1424. /
  1425.      STOP 7
  1426. /
  1427.      END
  1428. /
  1429. COMMIT WORK
  1430. /
  1431. GRANT SELECT ON DOMAIN.SHOW_STAT_LOCK_CONFIG  TO PUBLIC
  1432. /
  1433. IF $RC <> 0
  1434. THEN
  1435.      BEGIN
  1436. /
  1437.      END INIT SERVERDB
  1438. /
  1439.      STOP 7
  1440. /
  1441.      END
  1442. /
  1443. COMMIT WORK
  1444. /
  1445. IF $RC (EXISTS TABLE DOMAIN.SHOW_TABLELOCKS) = 0
  1446. THEN
  1447.     BEGIN
  1448. /
  1449.     DROP VIEW DOMAIN.SHOW_TABLELOCKS
  1450. /
  1451.     COMMIT WORK
  1452. /
  1453.     END
  1454. /
  1455. CREATE VIEW DOMAIN.SHOW_TABLELOCKS
  1456. AS SELECT *
  1457.    FROM SYSDD.TABLELOCKS
  1458. /
  1459. IF $RC <> 0
  1460. THEN
  1461.      BEGIN
  1462. /
  1463.      END INIT SERVERDB
  1464. /
  1465.      STOP 7
  1466. /
  1467.      END
  1468. /
  1469. COMMIT WORK
  1470. /
  1471. GRANT SELECT ON DOMAIN.SHOW_TABLELOCKS TO PUBLIC
  1472. /
  1473. IF $RC <> 0
  1474. THEN
  1475.      BEGIN
  1476. /
  1477.      END INIT SERVERDB
  1478. /
  1479.      STOP 7
  1480. /
  1481.      END
  1482. /
  1483. COMMIT WORK
  1484. /
  1485. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_LOCK_TABLE) = 0
  1486. THEN
  1487.     BEGIN
  1488. /
  1489.     DROP VIEW DOMAIN.SHOW_STAT_LOCK_TABLE
  1490. /
  1491.     COMMIT WORK
  1492. /
  1493.     END
  1494. /
  1495. CREATE VIEW DOMAIN.SHOW_STAT_LOCK_TABLE
  1496. AS SELECT DISTINCT
  1497.      OWNER,TABLENAME,
  1498.      DECODE(LOCKMODE,NULL,LOCKREQUESTMODE,LOCKMODE) LOCKMODE,
  1499.      PENDINGLOCK,SERVERDBNO,SESSION,TRANSACTION,
  1500.      DECODE(REMOTEUSER,'YES','<remote>',USERNAME) USERNAME,
  1501.      TERMID,PROCESS
  1502.    FROM SYSDBA.LOCKSTATISTICS
  1503. /
  1504. IF $RC <> 0
  1505. THEN
  1506.      BEGIN
  1507. /
  1508.      END INIT SERVERDB
  1509. /
  1510.      STOP 7
  1511. /
  1512.      END
  1513. /
  1514. COMMIT WORK
  1515. /
  1516. GRANT SELECT ON DOMAIN.SHOW_STAT_LOCK_TABLE TO PUBLIC
  1517. /
  1518. IF $RC <> 0
  1519. THEN
  1520.      BEGIN
  1521. /
  1522.      END INIT SERVERDB
  1523. /
  1524.      STOP 7
  1525. /
  1526.      END
  1527. /
  1528. COMMIT WORK
  1529. /
  1530. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_LOCK_USER) = 0
  1531. THEN
  1532.     BEGIN
  1533. /
  1534.     DROP VIEW DOMAIN.SHOW_STAT_LOCK_USER
  1535. /
  1536.     COMMIT WORK
  1537. /
  1538.     END
  1539. /
  1540. CREATE VIEW DOMAIN.SHOW_STAT_LOCK_USER
  1541. AS SELECT
  1542.      SERVERDBNO,SESSION,TRANSACTION,
  1543.      DECODE(REMOTEUSER,'YES','<remote>',USERNAME) USERNAME,
  1544.      TERMID,PROCESS,
  1545.      DECODE(LOCKMODE,NULL,LOCKREQUESTMODE,LOCKMODE) LOCKMODE,
  1546.      PENDINGLOCK
  1547.    FROM SYSDBA.TRANSACTIONS
  1548. /
  1549. IF $RC <> 0
  1550. THEN
  1551.      BEGIN
  1552. /
  1553.      END INIT SERVERDB
  1554. /
  1555.      STOP 7
  1556. /
  1557.      END
  1558. /
  1559. COMMIT WORK
  1560. /
  1561. GRANT SELECT ON DOMAIN.SHOW_STAT_LOCK_USER TO PUBLIC
  1562. /
  1563. IF $RC <> 0
  1564. THEN
  1565.      BEGIN
  1566. /
  1567.      END INIT SERVERDB
  1568. /
  1569.      STOP 7
  1570. /
  1571.      END
  1572. /
  1573. COMMIT WORK
  1574. /
  1575. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_LOG ) = 0
  1576. THEN
  1577.     BEGIN
  1578. /
  1579.     DROP VIEW DOMAIN.SHOW_STAT_LOG
  1580. /
  1581.     COMMIT WORK
  1582. /
  1583.     END
  1584. /
  1585. CREATE VIEW DOMAIN.SHOW_STAT_LOG
  1586. AS SELECT
  1587.      SUBSTR(DESCRIPTION,1,40) "DESCRIPTION",
  1588.      SUBSTR(CHAR_VALUE,1,12) "VALUE"
  1589.    FROM SYSDBA.CONFIGURATION
  1590.    WHERE DESCRIPTION = 'LOG MODE'
  1591.    UNION ALL
  1592.      SELECT 'LOG PAGES',
  1593.        LFILL(CHR(LOGSIZE),' ',12)
  1594.      FROM SYSDBA.SERVERDBSTATISTICS
  1595.    UNION ALL
  1596.      SELECT 'USED     LOG PAGES', LFILL(CHR(USEDLOGPAGES),' ',12)
  1597.      FROM SYSDBA.SERVERDBSTATISTICS
  1598.    UNION ALL
  1599.      SELECT 'USED     LOG PAGES (%)', LFILL(CHR(PCTUSEDLOGPAGES),' ',12)
  1600.      FROM SYSDBA.SERVERDBSTATISTICS
  1601.    UNION ALL
  1602.      SELECT 'UNUSED   LOG PAGES', LFILL(CHR(UNUSEDLOGPAGES),' ',12)
  1603.      FROM SYSDBA.SERVERDBSTATISTICS
  1604.    UNION ALL
  1605.      SELECT 'UNUSED   LOG PAGES (%)', LFILL(CHR(PCTUNUSEDLOGPAGES),' ',12)
  1606.      FROM SYSDBA.SERVERDBSTATISTICS
  1607.    UNION ALL
  1608.      SELECT 'RESERVED LOG PAGES', LFILL(CHR(RESERVEDLOGPAGES),' ',12)
  1609.      FROM SYSDBA.SERVERDBSTATISTICS
  1610.    UNION ALL
  1611.      SELECT 'LOG SEGMENT SIZE', LFILL(CHR(LOGSEGMENTSIZE),' ',12)
  1612.      FROM SYSDBA.SERVERDBSTATISTICS
  1613.    UNION ALL
  1614.      SELECT 'LOG SEGMENTS COMPLETED', LFILL(CHR(COMPLETESEGMENTS),' ',12)
  1615.      FROM SYSDBA.SERVERDBSTATISTICS
  1616.    UNION ALL
  1617.      SELECT 'SAVEPOINTS', LFILL(CHR(SAVEPOINTS),' ',12)
  1618.      FROM SYSDBA.SERVERDBSTATISTICS
  1619.    UNION ALL
  1620.      SELECT 'CHECKPOINTS', LFILL(CHR(CHECKPOINTS),' ',12)
  1621.      FROM SYSDBA.SERVERDBSTATISTICS
  1622.    UNION ALL
  1623.      SELECT 'LOG PAGES PER SAVEPOINT', LFILL(CHR(PAGESPERSAVEPOINT),' ',12)
  1624.      FROM SYSDBA.SERVERDBSTATISTICS
  1625.    UNION ALL
  1626.      SELECT 'LOG PAGES PER CHECKPOINT', LFILL(CHR(PAGESPERCHECKPOINT),' ',12)
  1627.      FROM SYSDBA.SERVERDBSTATISTICS
  1628. /
  1629. IF $RC <> 0
  1630. THEN
  1631.      BEGIN
  1632. /
  1633.      END INIT SERVERDB
  1634. /
  1635.      STOP 7
  1636. /
  1637.      END
  1638. /
  1639. COMMIT WORK
  1640. /
  1641. GRANT SELECT ON DOMAIN.SHOW_STAT_LOG  TO PUBLIC
  1642. /
  1643. IF $RC <> 0
  1644. THEN
  1645.      BEGIN
  1646. /
  1647.      END INIT SERVERDB
  1648. /
  1649.      STOP 7
  1650. /
  1651.      END
  1652. /
  1653. COMMIT WORK
  1654. /
  1655. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_MAPCHAR_SET) = 0
  1656. THEN
  1657.     BEGIN
  1658. /
  1659.     DROP VIEW DOMAIN.SHOW_STAT_MAPCHAR_SET
  1660. /
  1661.     COMMIT WORK
  1662. /
  1663.     END
  1664. /
  1665. CREATE VIEW DOMAIN.SHOW_STAT_MAPCHAR_SET
  1666. AS SELECT INTERN,map_code "MAP CODE", map_character "MAP CHARACTER"
  1667.    FROM DOMAIN.MAPCHARSETS
  1668. /
  1669. IF $RC <> 0
  1670. THEN
  1671.      BEGIN
  1672. /
  1673.      END INIT SERVERDB
  1674. /
  1675.      STOP 7
  1676. /
  1677.      END
  1678. /
  1679. COMMIT WORK
  1680. /
  1681. GRANT SELECT ON DOMAIN.SHOW_STAT_MAPCHAR_SET TO PUBLIC
  1682. /
  1683. IF $RC <> 0
  1684. THEN
  1685.      BEGIN
  1686. /
  1687.      END INIT SERVERDB
  1688. /
  1689.      STOP 7
  1690. /
  1691.      END
  1692. /
  1693. COMMIT WORK
  1694. /
  1695. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_TABLE) = 0
  1696. THEN
  1697.     BEGIN
  1698. /
  1699.     DROP VIEW DOMAIN.SHOW_STAT_TABLE
  1700. /
  1701.     COMMIT WORK
  1702. /
  1703.     END
  1704. /
  1705. CREATE VIEW DOMAIN.SHOW_STAT_TABLE
  1706. AS SELECT
  1707.      TABLENAME,OWNER,
  1708.      SUBSTR(DESCRIPTION,1,40),
  1709.      DECODE(CHAR_VALUE,NULL,LFILL(CHR(NUMERIC_VALUE),' ',12),
  1710.      SUBSTR(CHAR_VALUE,1,40))
  1711.    FROM SYSDBA.TABLESTATISTICS
  1712. /
  1713. IF $RC <> 0
  1714. THEN
  1715.      BEGIN
  1716. /
  1717.      END INIT SERVERDB
  1718. /
  1719.      STOP 7
  1720. /
  1721.      END
  1722. /
  1723. COMMIT WORK
  1724. /
  1725. GRANT SELECT ON DOMAIN.SHOW_STAT_TABLE TO PUBLIC
  1726. /
  1727. IF $RC <> 0
  1728. THEN
  1729.      BEGIN
  1730. /
  1731.      END INIT SERVERDB
  1732. /
  1733.      STOP 7
  1734. /
  1735.      END
  1736. /
  1737. COMMIT WORK
  1738. /
  1739. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_TERMCHAR_SET) = 0
  1740. THEN
  1741.     BEGIN
  1742. /
  1743.     DROP VIEW DOMAIN.SHOW_STAT_TERMCHAR_SET
  1744. /
  1745.     COMMIT WORK
  1746. /
  1747.     END
  1748. /
  1749. CREATE VIEW DOMAIN.SHOW_STAT_TERMCHAR_SET
  1750. AS SELECT *
  1751.    FROM DOMAIN.TERMCHARSETS
  1752. /
  1753. IF $RC <> 0
  1754. THEN
  1755.      BEGIN
  1756. /
  1757.      END INIT SERVERDB
  1758. /
  1759.      STOP 7
  1760. /
  1761.      END
  1762. /
  1763. COMMIT WORK
  1764. /
  1765. GRANT SELECT ON DOMAIN.SHOW_STAT_TERMCHAR_SET TO PUBLIC
  1766. /
  1767. IF $RC <> 0
  1768. THEN
  1769.      BEGIN
  1770. /
  1771.      END INIT SERVERDB
  1772. /
  1773.      STOP 7
  1774. /
  1775.      END
  1776. /
  1777. COMMIT WORK
  1778. /
  1779. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_USER) = 0
  1780. THEN
  1781.     BEGIN
  1782. /
  1783.     DROP VIEW DOMAIN.SHOW_STAT_USER
  1784. /
  1785.     COMMIT WORK
  1786. /
  1787.     END
  1788. /
  1789. CREATE VIEW DOMAIN.SHOW_STAT_USER
  1790. AS SELECT *
  1791.    FROM SYSDBA.USERSTATISTICS
  1792. /
  1793. IF $RC <> 0
  1794. THEN
  1795.      BEGIN
  1796. /
  1797.      END INIT SERVERDB
  1798. /
  1799.      STOP 7
  1800. /
  1801.      END
  1802. /
  1803. COMMIT WORK
  1804. /
  1805. GRANT SELECT ON DOMAIN.SHOW_STAT_USER TO PUBLIC
  1806. /
  1807. IF $RC <> 0
  1808. THEN
  1809.      BEGIN
  1810. /
  1811.      END INIT SERVERDB
  1812. /
  1813.      STOP 7
  1814. /
  1815.      END
  1816. /
  1817. COMMIT WORK
  1818. /
  1819. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_ALL) = 0
  1820. THEN
  1821.     BEGIN
  1822. /
  1823.     DROP VIEW DOMAIN.SHOW_MONITOR_ALL
  1824. /
  1825.     COMMIT WORK
  1826. /
  1827.     END
  1828. /
  1829. CREATE VIEW DOMAIN.SHOW_MONITOR_ALL
  1830. AS SELECT description, value
  1831.    FROM SYSDBA.MONITOR
  1832. /
  1833. IF $RC <> 0
  1834. THEN
  1835.      BEGIN
  1836. /
  1837.      END INIT SERVERDB
  1838. /
  1839.      STOP 7
  1840. /
  1841.      END
  1842. /
  1843. COMMIT WORK
  1844. /
  1845. GRANT SELECT ON DOMAIN.SHOW_MONITOR_ALL TO PUBLIC
  1846. /
  1847. IF $RC <> 0
  1848. THEN
  1849.      BEGIN
  1850. /
  1851.      END INIT SERVERDB
  1852. /
  1853.      STOP 7
  1854. /
  1855.      END
  1856. /
  1857. COMMIT WORK
  1858. /
  1859. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_CACHES) = 0
  1860. THEN
  1861.     BEGIN
  1862. /
  1863.     DROP VIEW DOMAIN.SHOW_MONITOR_CACHES
  1864. /
  1865.     COMMIT WORK
  1866. /
  1867.     END
  1868. /
  1869. CREATE VIEW DOMAIN.SHOW_MONITOR_CACHES
  1870. AS SELECT description, value
  1871.    FROM SYSDBA.MONITOR_CACHES
  1872. /
  1873. IF $RC <> 0
  1874. THEN
  1875.      BEGIN
  1876. /
  1877.      END INIT SERVERDB
  1878. /
  1879.      STOP 7
  1880. /
  1881.      END
  1882. /
  1883. COMMIT WORK
  1884. /
  1885. GRANT SELECT ON DOMAIN.SHOW_MONITOR_CACHES TO PUBLIC
  1886. /
  1887. IF $RC <> 0
  1888. THEN
  1889.      BEGIN
  1890. /
  1891.      END INIT SERVERDB
  1892. /
  1893.      STOP 7
  1894. /
  1895.      END
  1896. /
  1897. COMMIT WORK
  1898. /
  1899. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_DBPROC) = 0
  1900. THEN
  1901.     BEGIN
  1902. /
  1903.     DROP VIEW DOMAIN.SHOW_MONITOR_DBPROC
  1904. /
  1905.     COMMIT WORK
  1906. /
  1907.     END
  1908. /
  1909. CREATE VIEW DOMAIN.SHOW_MONITOR_DBPROC
  1910. AS SELECT description, value
  1911.    FROM SYSDBA.MONITOR_DBPROC
  1912. /
  1913. IF $RC <> 0
  1914. THEN
  1915.      BEGIN
  1916. /
  1917.      END INIT SERVERDB
  1918. /
  1919.      STOP 7
  1920. /
  1921.      END
  1922. /
  1923. COMMIT WORK
  1924. /
  1925. GRANT SELECT ON DOMAIN.SHOW_MONITOR_DBPROC TO PUBLIC
  1926. /
  1927. IF $RC <> 0
  1928. THEN
  1929.      BEGIN
  1930. /
  1931.      END INIT SERVERDB
  1932. /
  1933.      STOP 7
  1934. /
  1935.      END
  1936. /
  1937. COMMIT WORK
  1938. /
  1939. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_LOAD) = 0
  1940. THEN
  1941.     BEGIN
  1942. /
  1943.     DROP VIEW DOMAIN.SHOW_MONITOR_LOAD
  1944. /
  1945.     COMMIT WORK
  1946. /
  1947.     END
  1948. /
  1949. CREATE VIEW DOMAIN.SHOW_MONITOR_LOAD
  1950. AS SELECT description, value
  1951.    FROM SYSDBA.MONITOR_LOAD
  1952. /
  1953. IF $RC <> 0
  1954. THEN
  1955.      BEGIN
  1956. /
  1957.      END INIT SERVERDB
  1958. /
  1959.      STOP 7
  1960. /
  1961.      END
  1962. /
  1963. COMMIT WORK
  1964. /
  1965. GRANT SELECT ON DOMAIN.SHOW_MONITOR_LOAD TO PUBLIC
  1966. /
  1967. IF $RC <> 0
  1968. THEN
  1969.      BEGIN
  1970. /
  1971.      END INIT SERVERDB
  1972. /
  1973.      STOP 7
  1974. /
  1975.      END
  1976. /
  1977. COMMIT WORK
  1978. /
  1979. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_LOCK) = 0
  1980. THEN
  1981.     BEGIN
  1982. /
  1983.     DROP VIEW DOMAIN.SHOW_MONITOR_LOCK
  1984. /
  1985.     COMMIT WORK
  1986. /
  1987.     END
  1988. /
  1989. CREATE VIEW DOMAIN.SHOW_MONITOR_LOCK
  1990. AS SELECT description, value
  1991.    FROM SYSDBA.MONITOR_LOCK
  1992. /
  1993. IF $RC <> 0
  1994. THEN
  1995.      BEGIN
  1996. /
  1997.      END INIT SERVERDB
  1998. /
  1999.      STOP 7
  2000. /
  2001.      END
  2002. /
  2003. COMMIT WORK
  2004. /
  2005. GRANT SELECT ON DOMAIN.SHOW_MONITOR_LOCK TO PUBLIC
  2006. /
  2007. IF $RC <> 0
  2008. THEN
  2009.      BEGIN
  2010. /
  2011.      END INIT SERVERDB
  2012. /
  2013.      STOP 7
  2014. /
  2015.      END
  2016. /
  2017. COMMIT WORK
  2018. /
  2019. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_LOG) = 0
  2020. THEN
  2021.     BEGIN
  2022. /
  2023.     DROP VIEW DOMAIN.SHOW_MONITOR_LOG
  2024. /
  2025.     COMMIT WORK
  2026. /
  2027.     END
  2028. /
  2029. CREATE VIEW DOMAIN.SHOW_MONITOR_LOG
  2030. AS SELECT description, value
  2031.    FROM SYSDBA.MONITOR_LOG
  2032. /
  2033. IF $RC <> 0
  2034. THEN
  2035.      BEGIN
  2036. /
  2037.      END INIT SERVERDB
  2038. /
  2039.      STOP 7
  2040. /
  2041.      END
  2042. /
  2043. COMMIT WORK
  2044. /
  2045. GRANT SELECT ON DOMAIN.SHOW_MONITOR_LOG TO PUBLIC
  2046. /
  2047. IF $RC <> 0
  2048. THEN
  2049.      BEGIN
  2050. /
  2051.      END INIT SERVERDB
  2052. /
  2053.      STOP 7
  2054. /
  2055.      END
  2056. /
  2057. COMMIT WORK
  2058. /
  2059. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_LONG) = 0
  2060. THEN
  2061.     BEGIN
  2062. /
  2063.     DROP VIEW DOMAIN.SHOW_MONITOR_LONG
  2064. /
  2065.     COMMIT WORK
  2066. /
  2067.     END
  2068. /
  2069. CREATE VIEW DOMAIN.SHOW_MONITOR_LONG
  2070. AS SELECT description, value
  2071.    FROM SYSDBA.MONITOR_LONG
  2072. /
  2073. IF $RC <> 0
  2074. THEN
  2075.      BEGIN
  2076. /
  2077.      END INIT SERVERDB
  2078. /
  2079.      STOP 7
  2080. /
  2081.      END
  2082. /
  2083. COMMIT WORK
  2084. /
  2085. GRANT SELECT ON DOMAIN.SHOW_MONITOR_LONG TO PUBLIC
  2086. /
  2087. IF $RC <> 0
  2088. THEN
  2089.      BEGIN
  2090. /
  2091.      END INIT SERVERDB
  2092. /
  2093.      STOP 7
  2094. /
  2095.      END
  2096. /
  2097. COMMIT WORK
  2098. /
  2099. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_PAGES) = 0
  2100. THEN
  2101.     BEGIN
  2102. /
  2103.     DROP VIEW DOMAIN.SHOW_MONITOR_PAGES
  2104. /
  2105.     COMMIT WORK
  2106. /
  2107.     END
  2108. /
  2109. CREATE VIEW DOMAIN.SHOW_MONITOR_PAGES
  2110. AS SELECT description, value
  2111.    FROM SYSDBA.MONITOR_PAGES
  2112. /
  2113. IF $RC <> 0
  2114. THEN
  2115.      BEGIN
  2116. /
  2117.      END INIT SERVERDB
  2118. /
  2119.      STOP 7
  2120. /
  2121.      END
  2122. /
  2123. COMMIT WORK
  2124. /
  2125. GRANT SELECT ON DOMAIN.SHOW_MONITOR_PAGES TO PUBLIC
  2126. /
  2127. IF $RC <> 0
  2128. THEN
  2129.      BEGIN
  2130. /
  2131.      END INIT SERVERDB
  2132. /
  2133.      STOP 7
  2134. /
  2135.      END
  2136. /
  2137. COMMIT WORK
  2138. /
  2139. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_ROW) = 0
  2140. THEN
  2141.     BEGIN
  2142. /
  2143.     DROP VIEW DOMAIN.SHOW_MONITOR_ROW
  2144. /
  2145.     COMMIT WORK
  2146. /
  2147.     END
  2148. /
  2149. CREATE VIEW DOMAIN.SHOW_MONITOR_ROW
  2150. AS SELECT description, value
  2151.    FROM SYSDBA.MONITOR_ROW
  2152. /
  2153. IF $RC <> 0
  2154. THEN
  2155.      BEGIN
  2156. /
  2157.      END INIT SERVERDB
  2158. /
  2159.      STOP 7
  2160. /
  2161.      END
  2162. /
  2163. COMMIT WORK
  2164. /
  2165. GRANT SELECT ON DOMAIN.SHOW_MONITOR_ROW TO PUBLIC
  2166. /
  2167. IF $RC <> 0
  2168. THEN
  2169.      BEGIN
  2170. /
  2171.      END INIT SERVERDB
  2172. /
  2173.      STOP 7
  2174. /
  2175.      END
  2176. /
  2177. COMMIT WORK
  2178. /
  2179. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_SERVERDB) = 0
  2180. THEN
  2181.     BEGIN
  2182. /
  2183.     DROP VIEW DOMAIN.SHOW_MONITOR_SERVERDB
  2184. /
  2185.     COMMIT WORK
  2186. /
  2187.     END
  2188. /
  2189. CREATE VIEW DOMAIN.SHOW_MONITOR_SERVERDB
  2190. AS SELECT description, value
  2191.    FROM SYSDBA.MONITOR_SERVERDB
  2192. /
  2193. IF $RC <> 0
  2194. THEN
  2195.      BEGIN
  2196. /
  2197.      END INIT SERVERDB
  2198. /
  2199.      STOP 7
  2200. /
  2201.      END
  2202. /
  2203. COMMIT WORK
  2204. /
  2205. GRANT SELECT ON DOMAIN.SHOW_MONITOR_SERVERDB TO PUBLIC
  2206. /
  2207. IF $RC <> 0
  2208. THEN
  2209.      BEGIN
  2210. /
  2211.      END INIT SERVERDB
  2212. /
  2213.      STOP 7
  2214. /
  2215.      END
  2216. /
  2217. COMMIT WORK
  2218. /
  2219. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_TRANSACTION) = 0
  2220. THEN
  2221.     BEGIN
  2222. /
  2223.     DROP VIEW DOMAIN.SHOW_MONITOR_TRANSACTION
  2224. /
  2225.     COMMIT WORK
  2226. /
  2227.     END
  2228. /
  2229. CREATE VIEW DOMAIN.SHOW_MONITOR_TRANSACTION
  2230. AS SELECT description, value
  2231.    FROM SYSDBA.MONITOR_TRANS
  2232. /
  2233. IF $RC <> 0
  2234. THEN
  2235.      BEGIN
  2236. /
  2237.      END INIT SERVERDB
  2238. /
  2239.      STOP 7
  2240. /
  2241.      END
  2242. /
  2243. COMMIT WORK
  2244. /
  2245. GRANT SELECT ON DOMAIN.SHOW_MONITOR_TRANSACTION TO PUBLIC
  2246. /
  2247. IF $RC <> 0
  2248. THEN
  2249.      BEGIN
  2250. /
  2251.      END INIT SERVERDB
  2252. /
  2253.      STOP 7
  2254. /
  2255.      END
  2256. /
  2257. COMMIT WORK
  2258. /
  2259. IF $RC (EXISTS TABLE DOMAIN.SHOW_MONITOR_VTRACE) = 0
  2260. THEN
  2261.     BEGIN
  2262. /
  2263.     DROP VIEW DOMAIN.SHOW_MONITOR_VTRACE
  2264. /
  2265.     COMMIT WORK
  2266. /
  2267.     END
  2268. /
  2269. CREATE VIEW DOMAIN.SHOW_MONITOR_VTRACE
  2270. AS SELECT description, value
  2271.    FROM SYSDBA.MONITOR_VTRACE
  2272. /
  2273. IF $RC <> 0
  2274. THEN
  2275.      BEGIN
  2276. /
  2277.      END INIT SERVERDB
  2278. /
  2279.      STOP 7
  2280. /
  2281.      END
  2282. /
  2283. COMMIT WORK
  2284. /
  2285. GRANT SELECT ON DOMAIN.SHOW_MONITOR_VTRACE TO PUBLIC
  2286. /
  2287. IF $RC <> 0
  2288. THEN
  2289.      BEGIN
  2290. /
  2291.      END INIT SERVERDB
  2292. /
  2293.      STOP 7
  2294. /
  2295.      END
  2296. /
  2297. COMMIT WORK
  2298. /
  2299. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_STATE) = 0
  2300. THEN
  2301.     BEGIN
  2302. /
  2303.     DROP VIEW DOMAIN.SHOW_STAT_STATE
  2304. /
  2305.     COMMIT WORK
  2306. /
  2307.     END
  2308. /
  2309. CREATE VIEW DOMAIN.SHOW_STAT_STATE
  2310. AS SELECT description ,value
  2311.    FROM SYSDD.SERVERDBSTATE
  2312.    WHERE value IS NOT NULL
  2313.    UNION ALL
  2314.      SELECT description, CHR(numeric_value)
  2315.      FROM SYSDD.SERVERDBSTATE
  2316.      WHERE numeric_value IS NOT NULL
  2317. /
  2318. IF $RC <> 0
  2319. THEN
  2320.      BEGIN
  2321. /
  2322.      END INIT SERVERDB
  2323. /
  2324.      STOP 7
  2325. /
  2326.      END
  2327. /
  2328. COMMIT WORK
  2329. /
  2330. GRANT SELECT ON DOMAIN.SHOW_STAT_STATE TO PUBLIC
  2331. /
  2332. IF $RC <> 0
  2333. THEN
  2334.      BEGIN
  2335. /
  2336.      END INIT SERVERDB
  2337. /
  2338.      STOP 7
  2339. /
  2340.      END
  2341. /
  2342. COMMIT WORK
  2343. /
  2344. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_SERVERDB) = 0
  2345. THEN
  2346.     BEGIN
  2347. /
  2348.     DROP VIEW DOMAIN.SHOW_STAT_SERVERDB
  2349. /
  2350.     COMMIT WORK
  2351. /
  2352.     END
  2353. /
  2354. CREATE VIEW DOMAIN.SHOW_STAT_SERVERDB
  2355. AS SELECT
  2356.      SUBSTR('PAGES',1,40) "DESCRIPTION", FIXED(SERVERDBSIZE,12) "VALUE"
  2357.    FROM SYSDBA.SERVERDBSTATISTICS
  2358.    UNION ALL
  2359.      SELECT 'MAX DATA  PAGE NO', MAXDATAPAGENO
  2360.      FROM SYSDBA.SERVERDBSTATISTICS
  2361.    UNION ALL
  2362.      SELECT 'USED PERM PAGES', USEDPERMPAGES
  2363.      FROM SYSDBA.SERVERDBSTATISTICS
  2364.    UNION ALL
  2365.      SELECT 'USED PERM PAGES (%)', PCTUSEDPERM
  2366.      FROM SYSDBA.SERVERDBSTATISTICS
  2367.    UNION ALL
  2368.      SELECT 'USED TEMP PAGES', USEDTMPPAGES
  2369.      FROM SYSDBA.SERVERDBSTATISTICS
  2370.    UNION ALL
  2371.      SELECT 'USED TEMP PAGES (%)', PCTUSEDTMP
  2372.      FROM SYSDBA.SERVERDBSTATISTICS
  2373.    UNION ALL
  2374.      SELECT 'UNUSED    PAGES', UNUSEDPAGES
  2375.      FROM SYSDBA.SERVERDBSTATISTICS
  2376.    UNION ALL
  2377.      SELECT 'UNUSED    PAGES (%)', PCTUNUSED
  2378.      FROM SYSDBA.SERVERDBSTATISTICS
  2379.    UNION ALL
  2380.      SELECT 'UPDATED PERM PAGES', UPDATEDPERMPAGES
  2381.      FROM SYSDBA.SERVERDBSTATISTICS
  2382. /
  2383. IF $RC <> 0
  2384. THEN
  2385.      BEGIN
  2386. /
  2387.      END INIT SERVERDB
  2388. /
  2389.      STOP 7
  2390. /
  2391.      END
  2392. /
  2393. COMMIT WORK
  2394. /
  2395. GRANT SELECT ON DOMAIN.SHOW_STAT_SERVERDB TO PUBLIC
  2396. /
  2397. IF $RC <> 0
  2398. THEN
  2399.      BEGIN
  2400. /
  2401.      END INIT SERVERDB
  2402. /
  2403.      STOP 7
  2404. /
  2405.      END
  2406. /
  2407. COMMIT WORK
  2408. /
  2409. IF $RC (EXISTS TABLE DOMAIN.SHOW_STAT_PAGES) = 0
  2410. THEN
  2411.     BEGIN
  2412. /
  2413.     DROP VIEW DOMAIN.SHOW_STAT_PAGES
  2414. /
  2415.     COMMIT WORK
  2416. /
  2417.     END
  2418. /
  2419. CREATE VIEW DOMAIN.SHOW_STAT_PAGES
  2420. AS SELECT
  2421.      OWNER,TABLENAME,DESCRIPTION,CHAR_VALUE,NUMERIC_VALUE
  2422.    FROM SYSDBA.PAGES
  2423. INTERNAL
  2424. /
  2425. IF $RC <> 0
  2426. THEN
  2427.      BEGIN
  2428. /
  2429.      END INIT SERVERDB
  2430. /
  2431.      STOP 7
  2432. /
  2433.      END
  2434. /
  2435. COMMIT WORK
  2436. /
  2437. GRANT SELECT ON DOMAIN.SHOW_STAT_PAGES TO PUBLIC
  2438. /
  2439. IF $RC <> 0
  2440. THEN
  2441.      BEGIN
  2442. /
  2443.      END INIT SERVERDB
  2444. /
  2445.      STOP 7
  2446. /
  2447.      END
  2448. /
  2449. COMMIT WORK
  2450. /
  2451. END INIT SERVERDB
  2452. /
  2453.