home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 April / comcd0402.iso / vollver / adabas / f_0001 / env / xdd.ins < prev    next >
Encoding:
Text File  |  1999-11-01  |  187.3 KB  |  7,826 lines
  1. SAY --- Installing SQL catalog views ...
  2. /* @(#)XDD.ins 10.01.00  1998-01-30
  3. /
  4. INIT SERVERDB
  5. /
  6. IF $RC (EXISTS TABLE DOMAIN.DESIGN) <> 0
  7. THEN
  8.     BEGIN
  9. /
  10.     CREATE TABLE DOMAIN.DESIGN
  11.     (OWNER    CHAR(18) ASCII KEY,
  12.      NAME     CHAR(18) ASCII KEY,
  13.      DESC     LONG     BYTE
  14.     )
  15. /
  16.     IF $RC <> 0
  17.     THEN
  18.          BEGIN
  19. /
  20.          END INIT SERVERDB
  21. /
  22.          STOP 7
  23. /
  24.          END
  25. /
  26.     GRANT ALL ON DOMAIN.DESIGN TO PUBLIC
  27. /
  28.     COMMIT WORK
  29. /
  30.     END
  31. /
  32. IF $RC (EXISTS TABLE DOMAIN.SYSATTR_TYPE) = 0
  33. THEN
  34.     BEGIN
  35. /
  36.     DROP TABLE DOMAIN.SYSATTR_TYPE
  37. /
  38.     COMMIT WORK
  39. /
  40.     END
  41. /
  42. IF $RC (EXISTS TABLE DOMAIN.SYSOBJECT_TYPE) = 0
  43. THEN
  44.     BEGIN
  45. /
  46.     DROP TABLE DOMAIN.SYSOBJECT_TYPE
  47. /
  48.     COMMIT WORK
  49. /
  50.     END
  51. /
  52. CREATE TABLE DOMAIN.SYSOBJECT_TYPE
  53. (OBJTYPE    CHAR(18)   ASCII KEY,
  54.  OBJNUM     FIXED(3,0),
  55.  OBJNEW     CHAR(1)    ASCII,
  56.  TABLENAME  CHAR(18)   ASCII,
  57.  CREATEDATE DATE DEFAULT DATE,
  58.  CREATETIME TIME DEFAULT TIME,
  59.  UPDDATE    DATE DEFAULT DATE,
  60.  UPDTIME    TIME DEFAULT TIME,
  61.  DESCR_NAME CHAR(60)   ASCII,
  62.  KIND       CHAR(1)    ASCII,
  63.  COMMENT    CHAR(2000) ASCII
  64. )
  65. WITH REPLICATION
  66. /
  67. IF $RC <> 0
  68. THEN
  69.      BEGIN
  70. /
  71.      END INIT SERVERDB
  72. /
  73.      STOP 7
  74. /
  75.      END
  76. /
  77. GRANT SELECT ON DOMAIN.SYSOBJECT_TYPE TO PUBLIC
  78. /
  79. DATALOAD TABLE DOMAIN.SYSOBJECT_TYPE
  80. OBJTYPE    1-18
  81. OBJNUM     22-25  DEFAULT NULL
  82. OBJNEW     29-29  DEFAULT NULL
  83. TABLENAME  33-50  DEFAULT NULL
  84. KIND       54-54  DEFAULT NULL
  85. DESCR_NAME 58-117 DEFAULT NULL
  86. INFILE *
  87. NULL '?                   '
  88. /
  89. COLUMN             |    1 | N | COLUMNS            | D | Column
  90. CONNECTEDUSER      | ?    | N | CONNECTEDUSERS     | K | Connected User
  91. CONNECTPARAMETER   | ?    | N | CONNECTPARAMETERS  | K | Connect Parameter
  92. CONSTRAINT         |    2 | N | CONSTRAINTS        | D | Constraint
  93. DBFUNCPARAM        | ?    | N | DBFUNCPARAMS       | I | DB Function Parameter
  94. DBFUNCTION         |   11 | N | DBFUNCTIONS        | D | DB Function
  95. DBPROCEDURE        |   10 | N | DBPROCEDURES       | D | DB Procedure
  96. DBPROCPARAM        | ?    | N | DBPROCPARAMS       | I | DB Procedure Parameter
  97. DOMAIN             |    8 | Y | DOMAINS            | D | Domain
  98. DOMAINCONSTRAINT   | ?    | N | DOMAINCONSTRAINTS  | K | Domain Constraint
  99. EASYCOMMAND        |   14 | N | EASYCOMMANDS       | K | Easy Command
  100. EASYFORM           |   15 | N | EASYFORMS          | K | Easy Form
  101. FOREIGNKEY         |    3 | N | FOREIGNKEYS        | D | Foreign Key
  102. INDEX              |    4 | N | INDEXES            | D | Index
  103. LITERAL            | ?    | N | LITERALS           | C | Literal
  104. MAPCHARSET         | ?    | N | MAPCHARSETS        | K | Mapchar Set
  105. MODULE             |   17 | N | MODULES            | C | Module
  106. PROGRAM            |   16 | N | PROGRAMS           | C | Program
  107. QPCOMMAND          |   18 | N | QPCOMMANDS         | C | QueryPlus SQL Statement
  108. QPEXCELLINK        |   21 | N | QPEXCELLINKS       | C | QueryPlus ExcelLink
  109. QPQUERY            |   19 | N | QPQUERYS           | C | QueryPlus Visual Query
  110. QPWORDLINK         |   20 | N | QPWORDLINKS        | C | QueryPlus WordLink
  111. QUERYCOMMAND       |   13 | N | QUERYCOMMANDS      | C | Query Command
  112. SEQUENCE           | ?    | N | SEQUENCES          | K | Sequence
  113. SERVERDB           | ?    | N | SERVERDBS          | K | Serverdb
  114. SNAPSHOT           |   12 | Y | SNAPSHOTS          | D | Snapshot
  115. SNAPSHOTDEF        | ?    | N | SNAPSHOTDEFS       | K | Snapshot Definition
  116. SYNONYM            |    7 | Y | SYNONYMS           | D | Synonym
  117. TABLE              |    0 | Y | TABLES             | D | Table
  118. TERMCHARSET        | ?    | N | TERMCHARSETS       | K | Termchar Set
  119. TRIGGER            |    5 | N | TRIGGERS           | D | Trigger
  120. TRIGGERPARAM       | ?    | N | TRIGGERPARAMS      | I | Trigger Parameter
  121. USER               |    9 | Y | USERS              | D | User
  122. VERSION            | ?    | N | VERSIONS           | K | Version
  123. VIEW               |    6 | Y | VIEWS              | D | View
  124. VIEWDEF            | ?    | N | VIEWDEFS           | K | View Definition
  125. /
  126. IF $RC <> 0
  127. THEN
  128.      BEGIN
  129. /
  130.      END INIT SERVERDB
  131. /
  132.      STOP 8
  133. /
  134.      END
  135. /
  136. COMMIT WORK
  137. /
  138. IF $RC (EXISTS TABLE DOMAIN.SYSOBJECT_DESC) = 0
  139. THEN
  140.     BEGIN
  141. /
  142.     DROP TABLE DOMAIN.SYSOBJECT_DESC
  143. /
  144.     COMMIT WORK
  145. /
  146.     END
  147. /
  148. CREATE TABLE DOMAIN.SYSOBJECT_DESC
  149. (OBJTYPE    CHAR(18) ASCII KEY,
  150.  COLUMNNAME CHAR(18) ASCII KEY,
  151.  COLNUM     FIXED(3,0),
  152.  COLSEL     FIXED(3,0),
  153.  DESCR_NAME CHAR(60) ASCII,
  154.  TOID       CHAR(1)  ASCII
  155. )
  156. WITH REPLICATION
  157. /
  158. IF $RC <> 0
  159. THEN
  160.      BEGIN
  161. /
  162.      END INIT SERVERDB
  163. /
  164.      STOP 7
  165. /
  166.      END
  167. /
  168. GRANT SELECT ON DOMAIN.SYSOBJECT_DESC TO PUBLIC
  169. /
  170. DATALOAD TABLE DOMAIN.SYSOBJECT_DESC
  171. OBJTYPE    1-18
  172. COLUMNNAME 22-39  CHAR
  173. COLNUM     43-46  CHAR
  174. COLSEL     50-53  CHAR
  175. TOID       57-57  DEFAULT NULL
  176. DESCR_NAME 61-120 CHAR
  177. INFILE *
  178. NULL '?                   '
  179. /
  180. COLUMN             | OWNER              |    0 |    1 | Y | Owner
  181. COLUMN             | TABLENAME          |    1 |    2 | Y | Table Name
  182. COLUMN             | COLUMNNAME         |    2 |    3 | Y | Column Name
  183. COLUMN             | MODE               |    3 |    0 | N | Mode
  184. COLUMN             | DATATYPE           |    4 |    0 | N | Data Type
  185. COLUMN             | CODETYPE           |    5 |    0 | N | Code Type
  186. COLUMN             | LEN                |    6 |    0 | N | Length
  187. COLUMN             | DEC                |    7 |    0 | N | Decimals
  188. COLUMN             | COLUMNPRIVILEGES   |    8 |    0 | N | Privileges
  189. COLUMN             | DEFAULT            |    9 |    0 | N | Default
  190. COLUMN             | DOMAINNAME         |   10 |    0 | Y | Domain Name
  191. COLUMN             | POS                |   11 |    0 | N | Position
  192. COLUMN             | KEYPOS             |   12 |    0 | N | Key Position
  193. COLUMN             | CREATEDATE         |   13 |    0 | N | Create Date
  194. COLUMN             | CREATETIME         |   14 |    0 | N | Create Time
  195. COLUMN             | ALTERDATE          |   15 |    0 | N | Alter Date
  196. COLUMN             | ALTERTIME          |   16 |    0 | N | Alter Time
  197. COLUMN             | TABLETYPE          |   17 |    0 | N | Table Type
  198. COLUMN             | COMMENT            |   18 |    0 | N | Comment
  199. CONNECTEDUSER      | USERNAME           |    0 |    1 | Y | User Name
  200. CONNECTEDUSER      | TERMID             |    1 |    0 | N | Termid
  201. CONNECTEDUSER      | SESSION            |    2 |    0 | N | Session
  202. CONNECTEDUSER      | CATALOG_CACHE_SIZE |    3 |    0 | N | Catalog Cache Size
  203. CONNECTEDUSER      | DBPROC_CACHE_SIZE  |    4 |    0 | N | DB Procedure Cache Size
  204. CONNECTEDUSER      | TEMP_CACHE_SIZE    |    5 |    0 | N | Temp Cache Size
  205. CONNECTEDUSER      | SERVERDB           |    6 |    0 | Y | Serverdb
  206. CONNECTPARAMETER   | SQLMODE            |    0 |    0 | N | SQL Mode
  207. CONNECTPARAMETER   | ISOLEVEL           |    1 |    0 | N | Isolation Level
  208. CONNECTPARAMETER   | TIMEOUT            |    2 |    0 | N | Timeout
  209. CONNECTPARAMETER   | CACHELIMIT         |    3 |    0 | N | Cachelimit
  210. CONNECTPARAMETER   | TERMCHARSETNAME    |    4 |    0 | Y | Termchar Set Name
  211. CONSTRAINT         | OWNER              |    0 |    1 | Y | Owner
  212. CONSTRAINT         | TABLENAME          |    1 |    2 | Y | Table Name
  213. CONSTRAINT         | CONSTRAINTNAME     |    2 |    3 | Y | Constraint Name
  214. CONSTRAINT         | DEFINITION         |    3 |    0 | N | Definition
  215. DBFUNCPARAM        | OWNER              |    0 |    1 | Y | Owner
  216. DBFUNCPARAM        | DBFUNCNAME         |    1 |    2 | Y | DB Function Name
  217. DBFUNCPARAM        | PARAMETERNAME      |    2 |    3 | Y | Parameter Name
  218. DBFUNCPARAM        | POS                |    3 |    0 | N | Position
  219. DBFUNCPARAM        | IN/OUT-TYPE        |    4 |    0 | N | In/Out-Type
  220. DBFUNCPARAM        | DATATYPE           |    5 |    0 | N | Data Type
  221. DBFUNCPARAM        | LEN                |    6 |    0 | N | Length
  222. DBFUNCPARAM        | DEC                |    7 |    0 | N | Decimals
  223. DBFUNCPARAM        | CREATEDATE         |    8 |    0 | N | Create Date
  224. DBFUNCPARAM        | CREATETIME         |    9 |    0 | N | Create Time
  225. DBFUNCTION         | OWNER              |    0 |    1 | Y | Owner
  226. DBFUNCTION         | DBFUNCNAME         |    1 |    2 | N | DB Function Name
  227. DBFUNCTION         | CREATEDATE         |    2 |    0 | N | Create Date
  228. DBFUNCTION         | CREATETIME         |    3 |    0 | N | Create Time
  229. DBFUNCTION         | COMMENT            |    4 |    0 | N | Comment
  230. DBPROCEDURE        | OWNER              |    0 |    1 | Y | Owner
  231. DBPROCEDURE        | PROGRAMNAME        |    1 |    2 | N | Program Name
  232. DBPROCEDURE        | DBPROCNAME         |    2 |    3 | N | DB Procedure Name
  233. DBPROCEDURE        | ALIASNAME          |    3 |    0 | N | Alias Name
  234. DBPROCEDURE        | PARAMETER          |    4 |    0 | N | Parameter
  235. DBPROCEDURE        | EXECUTABLE         |    5 |    0 | N | Executable
  236. DBPROCEDURE        | GRANT              |    6 |    0 | N | Grant
  237. DBPROCEDURE        | CREATEDATE         |    7 |    0 | N | Create Date
  238. DBPROCEDURE        | CREATETIME         |    8 |    0 | N | Create Time
  239. DBPROCEDURE        | COMMENT            |    9 |    0 | N | Comment
  240. DBPROCPARAM        | OWNER              |    0 |    1 | Y | Owner
  241. DBPROCPARAM        | PROGRAMNAME        |    1 |    2 | Y | Program Name
  242. DBPROCPARAM        | DBPROCNAME         |    2 |    3 | Y | DB Procedure Name
  243. DBPROCPARAM        | PARAMETERNAME      |    3 |    4 | Y | Parameter Name
  244. DBPROCPARAM        | POS                |    4 |    0 | N | Position
  245. DBPROCPARAM        | IN/OUT-TYPE        |    5 |    0 | N | In/Out-Type
  246. DBPROCPARAM        | DATATYPE           |    6 |    0 | N | Data Type
  247. DBPROCPARAM        | LEN                |    7 |    0 | N | Length
  248. DBPROCPARAM        | DEC                |    8 |    0 | N | Decimals
  249. DBPROCPARAM        | CREATEDATE         |    9 |    0 | N | Create Date
  250. DBPROCPARAM        | CREATETIME         |   10 |    0 | N | Create Time
  251. DOMAINCONSTRAINT   | OWNER              |    0 |    1 | Y | Owner
  252. DOMAINCONSTRAINT   | DOMAINNAME         |    1 |    2 | Y | Domain Name
  253. DOMAINCONSTRAINT   | CONSTRAINTNAME     |    2 |    3 | Y | Constraint Name
  254. DOMAINCONSTRAINT   | DEFINITION         |    3 |    0 | N | Definition
  255. DOMAIN             | OWNER              |    0 |    1 | Y | Owner
  256. DOMAIN             | DOMAINNAME         |    1 |    2 | Y | Domain Name
  257. DOMAIN             | DATATYPE           |    2 |    0 | N | Data Type
  258. DOMAIN             | CODETYPE           |    3 |    0 | N | Code Type
  259. DOMAIN             | LEN                |    4 |    0 | N | Length
  260. DOMAIN             | DEC                |    5 |    0 | N | Decimals
  261. DOMAIN             | DEFAULT            |    6 |    0 | N | Default
  262. DOMAIN             | DEFINITION         |    7 |    0 | N | Definition
  263. DOMAIN             | CREATEDATE         |    8 |    0 | N | Create Date
  264. DOMAIN             | CREATETIME         |    9 |    0 | N | Create Time
  265. DOMAIN             | COMMENT            |   10 |    0 | N | Comment
  266. EASYCOMMAND        | OWNER              |    0 |    1 | Y | Owner
  267. EASYCOMMAND        | COMMANDNAME        |    1 |    2 | Y | Commmand Name
  268. EASYCOMMAND        | TABLEOWNER         |    2 |    0 | Y | Table Owner
  269. EASYCOMMAND        | TABLENAME          |    3 |    0 | Y | Table Name
  270. EASYCOMMAND        | CREATEDATE         |    4 |    0 | N | Create Date
  271. EASYCOMMAND        | CREATETIME         |    5 |    0 | N | Create Time
  272. EASYCOMMAND        | ALTERDATE          |    6 |    0 | N | Alter Date
  273. EASYCOMMAND        | ALTERTIME          |    7 |    0 | N | Alter Time
  274. EASYCOMMAND        | COMMENT            |    8 |    0 | N | Comment
  275. EASYFORM           | OWNER              |    0 |    1 | Y | Owner
  276. EASYFORM           | TABLENAME          |    1 |    2 | Y | Table Name
  277. EASYFORM           | FORMNAME           |    2 |    3 | Y | Form Name
  278. EASYFORM           | CREATEDATE         |    3 |    0 | N | Create Date
  279. EASYFORM           | CREATETIME         |    4 |    0 | N | Create Time
  280. EASYFORM           | ALTERDATE          |    5 |    0 | N | Alter Date
  281. EASYFORM           | ALTERTIME          |    6 |    0 | N | Alter Time
  282. EASYFORM           | COMMENT            |    7 |    0 | N | Comment
  283. FOREIGNKEY         | OWNER              |    0 |    1 | Y | Owner
  284. FOREIGNKEY         | TABLENAME          |    1 |    2 | Y | Table Name
  285. FOREIGNKEY         | FKEYNAME           |    2 |    3 | Y | Foreign Key Name
  286. FOREIGNKEY         | RULE               |    3 |    0 | N | Rule
  287. FOREIGNKEY         | CREATEDATE         |    4 |    0 | N | Create Date
  288. FOREIGNKEY         | CREATETIME         |    5 |    0 | N | Create Time
  289. FOREIGNKEY         | COMMENT            |    6 |    0 | N | Comment
  290. INDEX              | OWNER              |    0 |    1 | Y | Owner
  291. INDEX              | TABLENAME          |    1 |    2 | Y | Table Name
  292. INDEX              | INDEXNAME          |    2 |    3 | Y | Index Name
  293. INDEX              | TYPE               |    3 |    0 | N | Type
  294. INDEX              | CREATEDATE         |    4 |    0 | N | Create Date
  295. INDEX              | CREATETIME         |    5 |    0 | N | Create Time
  296. INDEX              | COMMENT            |    6 |    0 | N | Comment
  297. LITERAL            | OWNER              |    0 |    1 | Y | Owner
  298. LITERAL            | LITERALNAME        |    1 |    2 | N | Literal Name
  299. LITERAL            | LANGUAGE           |    2 |    3 | N | Language
  300. LITERAL            | S_LABEL            |    3 |    0 | N | Small Lable
  301. LITERAL            | M_LABEL            |    4 |    0 | N | Medium Label
  302. LITERAL            | L_LABEL            |    5 |    0 | N | Large Label
  303. LITERAL            | XL_LABEL           |    6 |    0 | N | Extra Large Label
  304. LITERAL            | CREATEDATE         |    7 |    0 | N | Create Date
  305. LITERAL            | CREATETIME         |    8 |    0 | N | Create Time
  306. LITERAL            | ALTERDATE          |    9 |    0 | N | Alter Date
  307. LITERAL            | ALTERTIME          |   10 |    0 | N | Alter Time
  308. LITERAL            | COMMENT            |   11 |    0 | N | Comment
  309. MAPCHARSET         | MAPCHARSETNAME     |    0 |    1 | Y | Mapchar Set Name
  310. MAPCHARSET         | CODE               |    1 |    0 | N | Code
  311. MAPCHARSET         | INTERN             |    2 |    0 | N | Intern
  312. MAPCHARSET         | MAP_CODE           |    3 |    0 | N | Map Code
  313. MAPCHARSET         | MAP_CHARACTER      |    4 |    0 | N | Map Character
  314. MODULE             | OWNER              |    0 |    1 | Y | Owner
  315. MODULE             | PROGRAMNAME        |    1 |    2 | N | Program Name
  316. MODULE             | MODULENAME         |    2 |    3 | N | Module Name
  317. MODULE             | PROGLANG           |    3 |    0 | N | Program Language
  318. MODULE             | CREATEDATE         |    4 |    0 | N | Create Date
  319. MODULE             | CREATETIME         |    5 |    0 | N | Create Time
  320. MODULE             | ALTERDATE          |    6 |    0 | N | Alter Date
  321. MODULE             | ALTERTIME          |    7 |    0 | N | Alter Time
  322. MODULE             | COMMENT            |    8 |    0 | N | Comment
  323. PROGRAM            | OWNER              |    0 |    1 | Y | Owner
  324. PROGRAM            | PROGRAMNAME        |    1 |    2 | N | Program Name
  325. PROGRAM            | PROGLANG           |    2 |    3 | N | Program Language
  326. PROGRAM            | CREATEDATE         |    3 |    0 | N | Create Date
  327. PROGRAM            | CREATETIME         |    4 |    0 | N | Create Time
  328. PROGRAM            | ALTERDATE          |    5 |    0 | N | Alter Date
  329. PROGRAM            | ALTERTIME          |    6 |    0 | N | Alter Time
  330. PROGRAM            | COMMENT            |    7 |    0 | N | Comment
  331. QPCOMMAND          | OWNER              |    0 |    1 | Y | Owner
  332. QPCOMMAND          | COMMANDNAME        |    1 |    2 | N | Command Name
  333. QPCOMMAND          | CREATEDATE         |    2 |    0 | N | Create Date
  334. QPCOMMAND          | CREATETIME         |    3 |    0 | N | Create Time
  335. QPCOMMAND          | ALTERDATE          |    4 |    0 | N | Alter Date
  336. QPCOMMAND          | ALTERTIME          |    5 |    0 | N | Alter Time
  337. QPCOMMAND          | COMMENT            |    6 |    0 | N | Comment
  338. QPEXCELLINK        | OWNER              |    0 |    1 | Y | Owner
  339. QPEXCELLINK        | EXCELLINKNAME      |    1 |    2 | N | ExcelLink Name
  340. QPEXCELLINK        | CREATEDATE         |    2 |    0 | N | Create Date
  341. QPEXCELLINK        | CREATETIME         |    3 |    0 | N | Create Time
  342. QPEXCELLINK        | ALTERDATE          |    4 |    0 | N | Alter Date
  343. QPEXCELLINK        | ALTERTIME          |    5 |    0 | N | Alter Time
  344. QPEXCELLINK        | COMMENT            |    6 |    0 | N | Comment
  345. QPQUERY            | OWNER              |    0 |    1 | Y | Owner
  346. QPQUERY            | QUERYNAME          |    1 |    2 | N | Query Name
  347. QPQUERY            | CREATEDATE         |    2 |    0 | N | Create Date
  348. QPQUERY            | CREATETIME         |    3 |    0 | N | Create Time
  349. QPQUERY            | ALTERDATE          |    4 |    0 | N | Alter Date
  350. QPQUERY            | ALTERTIME          |    5 |    0 | N | Alter Time
  351. QPQUERY            | COMMENT            |    6 |    0 | N | Comment
  352. QPWORDLINK         | OWNER              |    0 |    1 | Y | Owner
  353. QPWORDLINK         | WORDLINKNAME       |    1 |    2 | N | WordLink Name
  354. QPWORDLINK         | CREATEDATE         |    2 |    0 | N | Create Date
  355. QPWORDLINK         | CREATETIME         |    3 |    0 | N | Create Time
  356. QPWORDLINK         | ALTERDATE          |    4 |    0 | N | Alter Date
  357. QPWORDLINK         | ALTERTIME          |    5 |    0 | N | Alter Time
  358. QPWORDLINK         | COMMENT            |    6 |    0 | N | Comment
  359. QUERYCOMMAND       | OWNER              |    0 |    1 | Y | Owner
  360. QUERYCOMMAND       | COMMANDNAME        |    1 |    2 | Y | Command Name
  361. QUERYCOMMAND       | CREATEDATE         |    2 |    0 | N | Create Date
  362. QUERYCOMMAND       | CREATETIME         |    3 |    0 | N | Create Time
  363. QUERYCOMMAND       | ALTERDATE          |    4 |    0 | N | Alter Date
  364. QUERYCOMMAND       | ALTERTIME          |    5 |    0 | N | Alter Time
  365. QUERYCOMMAND       | COMMENT            |    6 |    0 | N | Comment
  366. SEQUENCE           | OWNER              |    0 |    1 | Y | Owner
  367. SEQUENCE           | SEQUENCE_NAME      |    1 |    2 | Y | Sequence Name
  368. SEQUENCE           | MIN_VALUE          |    2 |    0 | N | Min Value
  369. SEQUENCE           | MAX_VALUE          |    3 |    0 | N | Max Value
  370. SEQUENCE           | INCREMENT_BY       |    4 |    0 | N | Increment By
  371. SEQUENCE           | CYCLE_FLAG         |    5 |    0 | N | Cycle Flag
  372. SEQUENCE           | ORDER_FLAG         |    6 |    0 | N | Order Flag
  373. SEQUENCE           | CACHE_SIZE         |    7 |    0 | N | Cache Size
  374. SEQUENCE           | LAST_NUMBER        |    8 |    0 | N | Last Number
  375. SEQUENCE           | CREATEDATE         |    9 |    0 | N | Create Date
  376. SEQUENCE           | CREATETIME         |   10 |    0 | N | Create Time
  377. SEQUENCE           | COMMENT            |   11 |    0 | N | Comment
  378. SERVERDB           | NO                 |    0 |    0 | N | No
  379. SERVERDB           | STATE              |    1 |    0 | N | State
  380. SERVERDB           | MAJORITY           |    2 |    0 | N | Majority
  381. SERVERDB           | SERVERDB           |    3 |    0 | Y | Serverdb
  382. SERVERDB           | SERVERNODE         |    4 |    0 | Y | Servernode
  383. SNAPSHOTDEF        | OWNER              |    0 |    1 | Y | Owner
  384. SNAPSHOTDEF        | SNAPSHOTNAME       |    1 |    2 | Y | Snapshot Name
  385. SNAPSHOTDEF        | FAST_REFRESHABLE   |    2 |    0 | N | Fast Refreshable
  386. SNAPSHOTDEF        | MASTER_OWNER       |    3 |    0 | Y | Master Owner
  387. SNAPSHOTDEF        | MASTER_TABLENAME   |    4 |    0 | Y | Master Table Name
  388. SNAPSHOTDEF        | LEN                |    2 |    0 | N | Length
  389. SNAPSHOTDEF        | DEFINITION         |    3 |    0 | N | Definition
  390. SNAPSHOT           | OWNER              |    0 |    1 | Y | Owner
  391. SNAPSHOT           | SNAPSHOTNAME       |    1 |    2 | Y | Snapshot Name
  392. SNAPSHOT           | PRIVILEGES         |    2 |    0 | N | Privileges
  393. SNAPSHOT           | TYPE               |    3 |    0 | N | Type
  394. SNAPSHOT           | CREATEDATE         |    4 |    0 | N | Create Date
  395. SNAPSHOT           | CREATETIME         |    5 |    0 | N | Create Time
  396. SNAPSHOT           | UPDSTATDATE        |    6 |    0 | N | Update Statistics Date
  397. SNAPSHOT           | UPDSTATTIME        |    7 |    0 | N | Update Statistics Time
  398. SNAPSHOT           | ALTERDATE          |    8 |    0 | N | Alter Date
  399. SNAPSHOT           | ALTERTIME          |    9 |    0 | N | Alter Time
  400. SNAPSHOT           | REPLICATION        |   10 |    0 | N | Replication
  401. SNAPSHOT           | SERVERDB           |   11 |    0 | Y | Serverdb
  402. SNAPSHOT           | SERVERNODE         |   12 |    0 | Y | Servernode
  403. SNAPSHOT           | UNLOADED           |   13 |    0 | N | Unloaded
  404. SNAPSHOT           | COMMENT            |   14 |    0 | N | Comment
  405. SYNONYM            | OWNER              |    0 |    1 | Y | Owner
  406. SYNONYM            | SYNONYMNAME        |    1 |    2 | Y | Synonym Name
  407. SYNONYM            | TABLEOWNER         |    2 |    0 | Y | Table Owner
  408. SYNONYM            | TABLENAME          |    3 |    0 | Y | Table Name
  409. SYNONYM            | CREATEDATE         |    4 |    0 | N | Create Date
  410. SYNONYM            | CREATETIME         |    5 |    0 | N | Create Time
  411. SYNONYM            | COMMENT            |    6 |    0 | N | Comment
  412. TABLE              | OWNER              |    0 |    1 | Y | Owner
  413. TABLE              | TABLENAME          |    1 |    2 | Y | Table Name
  414. TABLE              | PRIVILEGES         |    2 |    0 | N | Privileges
  415. TABLE              | TYPE               |    3 |    0 | N | Type
  416. TABLE              | CREATEDATE         |    4 |    0 | N | Create Date
  417. TABLE              | CREATETIME         |    5 |    0 | N | Create Time
  418. TABLE              | UPDSTATDATE        |    6 |    0 | N | Update Statistics Date
  419. TABLE              | UPDSTATTIME        |    7 |    0 | N | Update Statistics Time
  420. TABLE              | ALTERDATE          |    8 |    0 | N | Alter Date
  421. TABLE              | ALTERTIME          |    9 |    0 | N | Alter Time
  422. TABLE              | REPLICATION        |   10 |    0 | N | Replication
  423. TABLE              | SERVERDB           |   11 |    0 | Y | Serverdb
  424. TABLE              | SERVERNODE         |   12 |    0 | Y | Servernode
  425. TABLE              | SNAPSHOT_LOG       |   13 |    0 | N | Snapshot Log
  426. TABLE              | UNLOADED           |   15 |    0 | N | Unloaded
  427. TABLE              | COMMENT            |   14 |    0 | N | Comment
  428. TERMCHARSET        | TERMCHARSETNAME    |    0 |    1 | Y | Termchar Set Name
  429. TERMCHARSET        | CODE               |    1 |    0 | N | Code
  430. TERMCHARSET        | STATE              |    2 |    0 | N | State
  431. TERMCHARSET        | INTERN             |    3 |    0 | N | Intern
  432. TERMCHARSET        | EXTERN             |    4 |    0 | N | Extern
  433. TERMCHARSET        | COMMENT            |    5 |    0 | N | Comment
  434. TRIGGERPARAM       | OWNER              |    0 |    1 | Y | Owner
  435. TRIGGERPARAM       | TABLENAME          |    1 |    2 | Y | Table Name
  436. TRIGGERPARAM       | TRIGGERNAME        |    2 |    3 | Y | Trigger Name
  437. TRIGGERPARAM       | PARAMETERNAME      |    3 |    4 | Y | Parameter Name
  438. TRIGGERPARAM       | POS                |    4 |    0 | N | Position
  439. TRIGGERPARAM       | NEW/OLD-TYPE       |    5 |    0 | N | New/Olt-Type
  440. TRIGGERPARAM       | DATATYPE           |    6 |    0 | N | Data Type
  441. TRIGGERPARAM       | LEN                |    7 |    0 | N | Length
  442. TRIGGERPARAM       | DEC                |    8 |    0 | N | Decimals
  443. TRIGGERPARAM       | CREATEDATE         |    9 |    0 | N | Create Date
  444. TRIGGERPARAM       | CREATETIME         |   10 |    0 | N | Create Time
  445. TRIGGER            | OWNER              |    0 |    1 | Y | Owner
  446. TRIGGER            | TABLENAME          |    1 |    2 | Y | Table Name
  447. TRIGGER            | TRIGGERNAME        |    2 |    3 | Y | Trigger Name
  448. TRIGGER            | INSERT             |    3 |    0 | N | Insert
  449. TRIGGER            | UPDATE             |    4 |    0 | N | Update
  450. TRIGGER            | DELETE             |    5 |    0 | N | Delete
  451. TRIGGER            | CREATEDATE         |    6 |    0 | N | Create Date
  452. TRIGGER            | CREATETIME         |    7 |    0 | N | Create Time
  453. TRIGGER            | DEFINITION         |    8 |    0 | N | Definition
  454. TRIGGER            | COMMENT            |    9 |    0 | N | Comment
  455. USER               | OWNER              |    0 |    1 | Y | Owner
  456. USER               | GROUPNAME          |    1 |    2 | Y | Group Name
  457. USER               | USERNAME           |    2 |    3 | Y | User Name
  458. USER               | USERMODE           |    3 |    0 | N | User Mode
  459. USER               | CONNECTMODE        |    4 |    0 | N | Connect Mode
  460. USER               | PERMLIMIT          |    5 |    0 | N | Permlimit
  461. USER               | TEMPLIMIT          |    6 |    0 | N | Templimit
  462. USER               | MAXTIMEOUT         |    7 |    0 | N | Max Timeout
  463. USER               | COSTWARNING        |    8 |    0 | N | Costwarning
  464. USER               | COSTLIMIT          |    9 |    0 | N | Costlimit
  465. USER               | CACHELIMIT         |   10 |    0 | N | Cachelimit
  466. USER               | CREATEDATE         |   11 |    0 | N | Create Date
  467. USER               | CREATETIME         |   12 |    0 | N | Create Time
  468. USER               | ALTERDATE          |   13 |    0 | N | Alter Date
  469. USER               | ALTERTIME          |   14 |    0 | N | Alter Time
  470. USER               | PWCREADATE         |   15 |    0 | N | Password Create Date
  471. USER               | PWCREATIME         |   16 |    0 | N | Password Create Time
  472. USER               | SERVERDB           |   17 |    0 | Y | Serverdb
  473. USER               | SERVERNODE         |   18 |    0 | Y | Servernode
  474. USER               | COMMENT            |   19 |    0 | N | Comment
  475. VERSION            | KERNEL             |    0 |    0 | N | Kernel
  476. VERSION            | RUNTIMEENVIRONMENT |    1 |    0 | N | Runtime Environment
  477. VIEWDEF            | OWNER              |    0 |    1 | Y | Owner
  478. VIEWDEF            | VIEWNAME           |    1 |    2 | Y | View Name
  479. VIEWDEF            | LEN                |    2 |    0 | N | Length
  480. VIEWDEF            | DEFINITION         |    3 |    0 | N | Definition
  481. VIEW               | OWNER              |    0 |    1 | Y | Owner
  482. VIEW               | VIEWNAME           |    1 |    2 | Y | View Name
  483. VIEW               | PRIVILEGES         |    2 |    0 | N | Privileges
  484. VIEW               | TYPE               |    3 |    0 | N | Type
  485. VIEW               | CREATEDATE         |    4 |    0 | N | Create Date
  486. VIEW               | CREATETIME         |    5 |    0 | N | Create Time
  487. VIEW               | UPDSTATDATE        |    6 |    0 | N | Update Statistics Date
  488. VIEW               | UPDSTATTIME        |    7 |    0 | N | Update Statistics Time
  489. VIEW               | ALTERDATE          |    8 |    0 | N | Alter Date
  490. VIEW               | ALTERTIME          |    9 |    0 | N | Alter Time
  491. VIEW               | REPLICATION        |   10 |    0 | N | Replication
  492. VIEW               | SERVERDB           |   11 |    0 | Y | Serverdb
  493. VIEW               | SERVERNODE         |   12 |    0 | Y | Servernode
  494. VIEW               | UNLOADED           |   13 |    0 | N | Unloaded
  495. VIEW               | COMMENT            |   14 |    0 | N | Comment
  496. /
  497. IF $RC <> 0
  498. THEN
  499.      BEGIN
  500. /
  501.      END INIT SERVERDB
  502. /
  503.      STOP 8
  504. /
  505.      END
  506. /
  507. COMMIT WORK
  508. /
  509. IF $RC (EXISTS TABLE DOMAIN.SYSRELSHIP_TYPE) = 0
  510. THEN
  511.     BEGIN
  512. /
  513.     DROP TABLE DOMAIN.SYSRELSHIP_TYPE
  514. /
  515.     COMMIT WORK
  516. /
  517.     END
  518. /
  519. CREATE TABLE DOMAIN.SYSRELSHIP_TYPE
  520. (RELSHIP_NAME CHAR(18)   ASCII KEY,
  521.  DEFOBJ_NAME  CHAR(18)   ASCII,
  522.  REFOBJ_NAME  CHAR(18)   ASCII,
  523.  REL_TYPE     CHAR(18)   ASCII,
  524.  DESCR_NAME   CHAR(60)   ASCII,
  525.  CREATEDATE   DATE DEFAULT DATE,
  526.  CREATETIME   TIME DEFAULT TIME,
  527.  UPDDATE      DATE DEFAULT DATE,
  528.  UPDTIME      TIME DEFAULT TIME,
  529.  KIND         CHAR(1)    ASCII,
  530.  COMMENT      CHAR(2000) ASCII
  531. )
  532. WITH REPLICATION
  533. /
  534. IF $RC <> 0
  535. THEN
  536.      BEGIN
  537. /
  538.      END INIT SERVERDB
  539. /
  540.      STOP 7
  541. /
  542.      END
  543. /
  544. GRANT SELECT ON DOMAIN.SYSRELSHIP_TYPE TO PUBLIC
  545. /
  546. DATALOAD TABLE DOMAIN.SYSRELSHIP_TYPE
  547. RELSHIP_NAME 1-18
  548. DEFOBJ_NAME  22-39  DEFAULT NULL
  549. REFOBJ_NAME  43-60  DEFAULT NULL
  550. REL_TYPE     64-81  DEFAULT NULL
  551. KIND         85-85  DEFAULT NULL
  552. DESCR_NAME   89-148 DEFAULT NULL
  553. INFILE *
  554. NULL '?                   '
  555. /
  556.                    | COLUMN             | COLUMN             | USED BY            | K | Column - Uses - Column
  557. COL_REFS_DOM       | COLUMN             | DOMAIN             | REFERS             | K | Column - Refers to - Domain
  558. COL_USES_COL       | COLUMN             | COLUMN             | USES               | K | Column - Uses - Column
  559. DBF_CONT_PRM       | DBFUNCTION         | DBFUNCPARAM        | CONTAINS           | I | DB Function - Contains - Parameter
  560. DBF_REFS_MOD       | DBFUNCTION         | MODULE             | REFERS             | K | DB Function - Refers to - Module
  561. DBP_CONT_PRM       | DBPROCEDURE        | DBPROCPARAM        | CONTAINS           | I | DB Procedure - Contains - Parameter
  562. DBP_REFS_MOD       | DBPROCEDURE        | MODULE             | REFERS             | K | DB Procedure - Refers to - Module
  563. ECM_USES_COL       | EASYCOMMAND        | COLUMN             | USES               | I | Easy Command - Uses - Column
  564. ECM_USES_SNP       | EASYCOMMAND        | SNAPSHOT           | USES               | I | Easy Command - Uses - Snapshot
  565. ECM_USES_SYN       | EASYCOMMAND        | SYNONYM            | USES               | I | Easy Command - Uses - Synonym
  566. ECM_USES_TAB       | EASYCOMMAND        | TABLE              | USES               | I | Easy Command - Uses - Table
  567. ECM_USES_VIE       | EASYCOMMAND        | VIEW               | USES               | I | Easy Command - Uses - View
  568. EFM_USES_COL       | EASYFORM           | COLUMN             | USES               | I | Easy Form - Uses - Column
  569. EFM_USES_SNP       | EASYFORM           | SNAPSHOT           | USES               | I | Easy Form - Uses - Snapshot
  570. EFM_USES_SYN       | EASYFORM           | SYNONYM            | USES               | I | Easy Form - Uses - Synonym
  571. EFM_USES_TAB       | EASYFORM           | TABLE              | USES               | I | Easy Form - Uses - Table
  572. EFM_USES_VIE       | EASYFORM           | VIEW               | USES               | I | Easy Form - Uses - View
  573. FKC_REFS_COL       | FOREIGNKEYCOLUMN   | COLUMN             | REFERS             | I | Foreign Key Column - Refers to - Column
  574. FOK_REFS_TAB       | FOREIGNKEY         | TABLE              | REFERS             | K | Foreign Key - Refers to - Table
  575. FOK_USES_COL       | FOREIGNKEY         | COLUMN             | USES               | K | Foreign Key - Uses - Column
  576. IND_USES_COL       | INDEX              | COLUMN             | USES               | K | Index - Uses - Column
  577. MOD_CALL_DBP       | MODULE             | DBPROCEDURE        | CALLS              | C | Module - Calls - DB Procedure
  578. MOD_CALL_MOD       | MODULE             | MODULE             | CALLS              | C | Module - Calls - Module
  579. MOD_USES_COL       | MODULE             | COLUMN             | USES               | C | Module - Uses - Column
  580. MOD_USES_DOM       | MODULE             | DOMAIN             | USES               | C | Module - Uses - Domain
  581. MOD_USES_QCM       | MODULE             | QUERYCOMMAND       | USES               | C | Module - Uses - Query Command
  582. MOD_USES_SNP       | MODULE             | SNAPSHOT           | USES               | K | Module - Uses - Snapshot
  583. MOD_USES_SYN       | MODULE             | SYNONYM            | USES               | K | Module - Uses - Synonym
  584. MOD_USES_TAB       | MODULE             | TABLE              | USES               | C | Module - Uses - Table
  585. MOD_USES_VIE       | MODULE             | VIEW               | USES               | K | Module - Uses - View
  586. PRO_CONT_MOD       | PROGRAM            | MODULE             | CONTAINS           | K | Program - Contains - Module
  587. QCM_USES_COL       | QUERYCOMMAND       | COLUMN             | USES               | C | Query Command - Uses - Column
  588. QCM_USES_SNP       | QUERYCOMMAND       | SNAPSHOT           | USES               | K | Query Command - Uses - Snapshot
  589. QCM_USES_SYN       | QUERYCOMMAND       | SYNONYM            | USES               | K | Query Command - Uses - Synonym
  590. QCM_USES_TAB       | QUERYCOMMAND       | TABLE              | USES               | C | Query Command - Uses - Table
  591. QCM_USES_VIE       | QUERYCOMMAND       | VIEW               | USES               | K | Query Command - Uses - View
  592. QPC_USES_COL       | QPCOMMAND          | COLUMN             | USES               | C | QueryPlus SQL Statement - Uses - Column
  593. QPC_USES_SNP       | QPCOMMAND          | SNAPSHOT           | USES               | K | QueryPlus SQL Statement - Uses - Snapshot
  594. QPC_USES_SYN       | QPCOMMAND          | SYNONYM            | USES               | K | QueryPlus SQL Statement - Uses - Synonym
  595. QPC_USES_TAB       | QPCOMMAND          | TABLE              | USES               | C | QueryPlus SQL Statement - Uses - Table
  596. QPC_USES_VIE       | QPCOMMAND          | VIEW               | USES               | K | QueryPlus SQL Statement - Uses - View
  597. QPE_USES_QPC       | QPEXCELLINK        | QPCOMMAND          | USES               | C | QueryPlus ExcelLink - Uses - QueryPlus SQL Statement
  598. QPE_USES_QPQ       | QPEXCELLINK        | QPQUERY            | USES               | C | QueryPlus ExcelLink - Uses - QueryPlus Visual Query
  599. QPQ_USES_COL       | QPQUERY            | COLUMN             | USES               | C | QueryPlus Visual Query - Uses - Column
  600. QPQ_USES_SNP       | QPQUERY            | SNAPSHOT           | USES               | K | QueryPlus Visual Query - Uses - Snapshot
  601. QPQ_USES_SYN       | QPQUERY            | SYNONYM            | USES               | K | QueryPlus Visual Query - Uses - Synonym
  602. QPQ_USES_TAB       | QPQUERY            | TABLE              | USES               | C | QueryPlus Visual Query - Uses - Table
  603. QPQ_USES_VIE       | QPQUERY            | VIEW               | USES               | K | QueryPlus Visual Query - Uses - View
  604. QPW_USES_QPC       | QPWORDLINK         | QPCOMMAND          | USES               | C | QueryPlus WordLink - Uses - QueryPlus SQL Statement
  605. QPW_USES_QPQ       | QPWORDLINK         | QPQUERY            | USES               | C | QueryPlus WordLink - Uses - QueryPlus Visual Query
  606. SNP_CONT_COL       | SNAPSHOT           | COLUMN             | CONTAINS           | K | Snapshot - Contains - Column
  607. SNP_USES_SYN       | SNAPSHOT           | SYNONYM            | USES               | K | Snapshot - Uses - Synonym
  608. SNP_USES_TAB       | SNAPSHOT           | TABLE              | USES               | K | Snapshot - Uses - Table
  609. SNP_USES_VIE       | SNAPSHOT           | VIEW               | USES               | K | Snapshot - Uses - View
  610. SYN_REFS_SNP       | SYNONYM            | SNAPSHOT           | REFERS             | K | Synonym - Refers to - Snapshot
  611. SYN_REFS_TAB       | SYNONYM            | TABLE              | REFERS             | K | Synonym - Refers to - Table
  612. SYN_REFS_VIE       | SYNONYM            | VIEW               | REFERS             | K | Synonym - Refers to - View
  613. TAB_CONT_COL       | TABLE              | COLUMN             | CONTAINS           | K | Table - Contains - Column
  614. TAB_CONT_FOK       | TABLE              | FOREIGNKEY         | CONTAINS           | K | Table - Contains - Foreign Key
  615. TAB_CONT_IND       | TABLE              | INDEX              | CONTAINS           | K | Table - Contains - Index
  616. TAB_CONT_TRG       | TABLE              | TRIGGER            | CONTAINS           | K | Table - Contains - Trigger
  617. TAB_USES_CON       | TABLE              | CONSTRAINT         | USES               | K | Table - Uses - Constraint
  618. TRG_CONT_PRM       | TRIGGER            | TRIGGERPARAM       | CONTAINS           | I | Trigger - Contains - Parameter
  619. TRG_REFS_MOD       | TRIGGER            | MODULE             | REFERS             | K | Trigger - Refers to - Module
  620. USR_OWNS_DBF       | USER               | DBFUNCTION         | OWNS               | K | User - Owns - DB Function
  621. USR_OWNS_DOM       | USER               | DOMAIN             | OWNS               | K | User - Owns - Domain
  622. USR_OWNS_USR       | USER               | USER               | OWNS               | K | User - Owns - User
  623. USR_USES_COL       | USER               | COLUMN             | USES               | K | User - Uses - Column
  624. USR_USES_DBP       | USER               | DBPROCEDURE        | USES               | K | User - Uses - DB Procedure
  625. USR_USES_PRO       | USER               | PROGRAM            | USES               | C | User - Uses - Program
  626. USR_USES_QCM       | USER               | QUERYCOMMAND       | USES               | C | User - Uses - Query Command
  627. USR_USES_QPC       | USER               | QPCOMMAND          | USES               | C | User - Uses - QueryPlus SQL Statement
  628. USR_USES_QPE       | USER               | QPEXCELLINK        | USES               | C | User - Uses - QueryPlus ExcelLink
  629. USR_USES_QPQ       | USER               | QPQUERY            | USES               | C | User - Uses - QueryPlus Visual Query
  630. USR_USES_QPW       | USER               | QPWORDLINK         | USES               | C | User - Uses - QueryPlus WordLink
  631. USR_USES_SNP       | USER               | SNAPSHOT           | USES               | K | User - Uses - Snapshot
  632. USR_USES_TAB       | USER               | TABLE              | USES               | K | User - Uses - Table
  633. USR_USES_VIE       | USER               | VIEW               | USES               | K | User - Uses - View
  634. VIE_CONT_COL       | VIEW               | COLUMN             | CONTAINS           | K | View - Contains - Column
  635. VIE_USES_SNP       | VIEW               | SNAPSHOT           | USES               | K | View - Uses - Snapshot
  636. VIE_USES_SYN       | VIEW               | SYNONYM            | USES               | K | View - Uses - Synonym
  637. VIE_USES_TAB       | VIEW               | TABLE              | USES               | K | View - Uses - Table
  638. VIE_USES_VIE       | VIEW               | VIEW               | USES               | K | View - Uses - View
  639. /
  640. IF $RC <> 0
  641. THEN
  642.      BEGIN
  643. /
  644.      END INIT SERVERDB
  645. /
  646.      STOP 8
  647. /
  648.      END
  649. /
  650. COMMIT WORK
  651. /
  652. IF $RC (EXISTS TABLE DOMAIN.SYSRELATION_TYPE) = 0
  653. THEN
  654.     BEGIN
  655. /
  656.     DROP TABLE DOMAIN.SYSRELATION_TYPE
  657. /
  658.     COMMIT WORK
  659. /
  660.     END
  661. /
  662. CREATE TABLE DOMAIN.SYSRELATION_TYPE
  663. (RELATION_TYPE CHAR(18) ASCII KEY,
  664.  DESCR_NAME    CHAR(40) ASCII
  665. )
  666. WITH REPLICATION
  667. /
  668. IF $RC <> 0
  669. THEN
  670.      BEGIN
  671. /
  672.      END INIT SERVERDB
  673. /
  674.      STOP 7
  675. /
  676.      END
  677. /
  678. COMMIT WORK
  679. /
  680. DATALOAD TABLE DOMAIN.SYSRELATION_TYPE
  681. RELATION_TYPE 1-18
  682. INFILE *
  683. DEC '/,/./'
  684. DATE 'YY-MM-DD'
  685. TIME 'HH:MM:SS'
  686. NULL '?                   '
  687. /
  688. CALLS              |
  689. CONTAINS           |
  690. OWNS               |
  691. REFERS             |
  692. USES               |
  693. /
  694. IF $RC <> 0
  695. THEN
  696.      BEGIN
  697. /
  698.      END INIT SERVERDB
  699. /
  700.      STOP 8
  701. /
  702.      END
  703. /
  704. COMMIT WORK
  705. /
  706. IF $RC (EXISTS TABLE DOMAIN.COLUMNS) = 0
  707. THEN
  708.     BEGIN
  709. /
  710.     DROP VIEW DOMAIN.COLUMNS
  711. /
  712.     COMMIT WORK
  713. /
  714.     END
  715. /
  716. CREATE VIEW DOMAIN.COLUMNS
  717.   (OWNER,TABLENAME,COLUMNNAME,MODE,DATATYPE,CODETYPE,LEN,"DEC",
  718.    COLUMNPRIVILEGES,"DEFAULT",DOMAINNAME,POS,KEYPOS,
  719.    CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,TABLETYPE,COMMENT)
  720. AS SELECT
  721.      OWNER,TABLENAME,COLUMNNAME,MOD,DATATYPE,CODE,LEN,DEC,
  722.      COLUMNPRIVILEGES,"DEFAULT",DOMAINNAME,COLUMNNO,KEYCOLUMNNO,
  723.      "DATE","TIME",ALTERDATE,ALTERTIME,TYPE,COMMENT
  724.    FROM SYSDD.COLUMNS
  725.    WHERE type IN('TABLE','RESULT','SYNONYM','SNAPSHOT','VIEW','SYSTEM')
  726. /
  727. IF $RC <> 0
  728. THEN
  729.      BEGIN
  730. /
  731.      END INIT SERVERDB
  732. /
  733.      STOP 7
  734. /
  735.      END
  736. /
  737. COMMIT WORK
  738. /
  739. GRANT SELECT ON DOMAIN.COLUMNS TO PUBLIC WITH GRANT OPTION
  740. /
  741. CREATE VIEW DOMAIN.COLUMN_
  742.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  743. AS SELECT
  744.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,' ',' ',' ',COMMENT
  745.    FROM DOMAIN.COLUMNS
  746. /
  747. IF $RC <> 0
  748. THEN
  749.      BEGIN
  750. /
  751.      END INIT SERVERDB
  752. /
  753.      STOP 7
  754. /
  755.      END
  756. /
  757. COMMIT WORK
  758. /
  759. IF $RC (EXISTS TABLE DOMAIN.CONNECTPARAMETERS) = 0
  760. THEN
  761.     BEGIN
  762. /
  763.     DROP VIEW DOMAIN.CONNECTPARAMETERS
  764. /
  765.     COMMIT WORK
  766. /
  767.     END
  768. /
  769. CREATE VIEW DOMAIN.CONNECTPARAMETERS
  770. AS SELECT *
  771.    FROM SYSDD.CONNECTPARAMETERS
  772. /
  773. IF $RC <> 0
  774. THEN
  775.      BEGIN
  776. /
  777.      END INIT SERVERDB
  778. /
  779.      STOP 7
  780. /
  781.      END
  782. /
  783. COMMIT WORK
  784. /
  785. GRANT SELECT ON DOMAIN.CONNECTPARAMETERS TO PUBLIC WITH GRANT OPTION
  786. /
  787. IF $RC (EXISTS TABLE DOMAIN.CONSTRAINTS) = 0
  788. THEN
  789.     BEGIN
  790. /
  791.     DROP VIEW DOMAIN.CONSTRAINTS
  792. /
  793.     COMMIT WORK
  794. /
  795.     END
  796. /
  797. CREATE VIEW DOMAIN.CONSTRAINTS
  798.   (OWNER,TABLENAME,CONSTRAINTNAME,DEFINITION)
  799. AS SELECT
  800.      OWNER,TABLENAME,CONSTRAINTNAME,DEFINITION
  801.    FROM SYSDD.CONSTRAINTS
  802. /
  803. IF $RC <> 0
  804. THEN
  805.      BEGIN
  806. /
  807.      END INIT SERVERDB
  808. /
  809.      STOP 7
  810. /
  811.      END
  812. /
  813. COMMIT WORK
  814. /
  815. GRANT SELECT ON DOMAIN.CONSTRAINTS TO PUBLIC WITH GRANT OPTION
  816. /
  817. IF $RC (EXISTS TABLE DOMAIN.DBPROCEDURES) = 0
  818. THEN
  819.     BEGIN
  820. /
  821.     DROP VIEW DOMAIN.DBPROCEDURES
  822. /
  823.     COMMIT WORK
  824. /
  825.     END
  826. /
  827. CREATE VIEW DOMAIN.DBPROCEDURES
  828.   (OWNER,PROGRAMNAME,DBPROCNAME,ALIASNAME,PARAMETER,
  829.    EXECUTABLE,GRANT,CREATEDATE,CREATETIME,COMMENT)
  830. AS SELECT
  831.      OWNER,PROGRAM,MODULE,DBPROCEDURE,PARAMETER,
  832.      EXECUTABLE,GRANT,"DATE","TIME",COMMENT
  833.    FROM SYSDD.DBPROCEDURES
  834. /
  835. IF $RC <> 0
  836. THEN
  837.      BEGIN
  838. /
  839.      END INIT SERVERDB
  840. /
  841.      STOP 7
  842. /
  843.      END
  844. /
  845. COMMIT WORK
  846. /
  847. GRANT SELECT ON DOMAIN.DBPROCEDURES TO PUBLIC WITH GRANT OPTION
  848. /
  849. CREATE VIEW DOMAIN.DBPROCEDURE_
  850.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  851. AS SELECT
  852.      'DBPROCEDURE',OWNER,PROGRAMNAME,DBPROCNAME,' ',' ',' ',COMMENT
  853.    FROM DOMAIN.DBPROCEDURES
  854. /
  855. IF $RC <> 0
  856. THEN
  857.      BEGIN
  858. /
  859.      END INIT SERVERDB
  860. /
  861.      STOP 7
  862. /
  863.      END
  864. /
  865. COMMIT WORK
  866. /
  867. IF $RC (EXISTS TABLE DOMAIN.DBPROCPARAMS) = 0
  868. THEN
  869.     BEGIN
  870. /
  871.     DROP VIEW DOMAIN.DBPROCPARAMS
  872. /
  873.     COMMIT WORK
  874. /
  875.     END
  876. /
  877. CREATE VIEW DOMAIN.DBPROCPARAMS
  878.   (OWNER,PROGRAMNAME,DBPROCNAME,PARAMETERNAME,POS,"IN/OUT-TYPE",
  879.    DATATYPE,LEN,"DEC",CREATEDATE,CREATETIME)
  880. AS SELECT
  881.      OWNER,PROGRAM,MODULE,PARAMETERNAME,PARAM_NO,"IN/OUT-TYPE",
  882.      DECODE(DATATYPE,'BYTE','CHAR BYTE',DATATYPE),LEN,DEC,"DATE","TIME"
  883.    FROM SYSDD.DBPROCPARAMETERS
  884. /
  885. IF $RC <> 0
  886. THEN
  887.      BEGIN
  888. /
  889.      END INIT SERVERDB
  890. /
  891.      STOP 7
  892. /
  893.      END
  894. /
  895. COMMIT WORK
  896. /
  897. GRANT SELECT ON DOMAIN.DBPROCPARAMS TO PUBLIC WITH GRANT OPTION
  898. /
  899. IF $RC (EXISTS TABLE DOMAIN.DBFUNCTIONS) = 0
  900. THEN
  901.     BEGIN
  902. /
  903.     DROP VIEW DOMAIN.DBFUNCTIONS
  904. /
  905.     COMMIT WORK
  906. /
  907.     END
  908. /
  909. CREATE VIEW DOMAIN.DBFUNCTIONS
  910.   (OWNER,DBFUNCNAME,CREATEDATE,CREATETIME,COMMENT)
  911. AS SELECT
  912.      OWNER,DBFUNCTION,"DATE","TIME",COMMENT
  913.    FROM SYSDD.DBFUNCTIONS
  914. /
  915. IF $RC <> 0
  916. THEN
  917.      BEGIN
  918. /
  919.      END INIT SERVERDB
  920. /
  921.      STOP 7
  922. /
  923.      END
  924. /
  925. COMMIT WORK
  926. /
  927. GRANT SELECT ON DOMAIN.DBFUNCTIONS TO PUBLIC WITH GRANT OPTION
  928. /
  929. CREATE VIEW DOMAIN.DBFUNCTION_
  930.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  931. AS SELECT
  932.      'DBFUNCTION',OWNER,DBFUNCNAME,' ',' ',' ',' ',COMMENT
  933.    FROM DOMAIN.DBFUNCTIONS
  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. IF $RC (EXISTS TABLE DOMAIN.DBFUNCPARAMS) = 0
  948. THEN
  949.     BEGIN
  950. /
  951.     DROP VIEW DOMAIN.DBFUNCPARAMS
  952. /
  953.     COMMIT WORK
  954. /
  955.     END
  956. /
  957. CREATE VIEW DOMAIN.DBFUNCPARAMS
  958.   (OWNER,DBFUNCNAME,PARAMETERNAME,POS,"IN/OUT-TYPE",
  959.    DATATYPE,LEN,"DEC",CREATEDATE,CREATETIME)
  960. AS SELECT
  961.      OWNER,DBFUNCTION,PARAMETERNAME,PARAM_NO,"IN/OUT-TYPE",
  962.      DECODE(DATATYPE,'BYTE','CHAR BYTE',DATATYPE),LEN,DEC,"DATE","TIME"
  963.    FROM SYSDD.DBFUNCTIONPARAMS
  964. /
  965. IF $RC <> 0
  966. THEN
  967.      BEGIN
  968. /
  969.      END INIT SERVERDB
  970. /
  971.      STOP 7
  972. /
  973.      END
  974. /
  975. COMMIT WORK
  976. /
  977. GRANT SELECT ON DOMAIN.DBFUNCPARAMS TO PUBLIC WITH GRANT OPTION
  978. /
  979. IF $RC (EXISTS TABLE DOMAIN.DOMAINS) = 0
  980. THEN
  981.     BEGIN
  982. /
  983.     DROP VIEW DOMAIN.DOMAINS
  984. /
  985.     COMMIT WORK
  986. /
  987.     END
  988. /
  989. CREATE VIEW DOMAIN.DOMAINS
  990.   (OWNER,DOMAINNAME,DATATYPE,CODETYPE,LEN,"DEC",
  991.    "DEFAULT",DEFINITION,CREATEDATE,CREATETIME,COMMENT)
  992. AS SELECT
  993.      OWNER,DOMAINNAME,DATATYPE,CODE,LEN,DEC,
  994.      "DEFAULT",DEFINITION,"DATE","TIME",COMMENT
  995.    FROM SYSDD.DOMAINS
  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. GRANT SELECT ON DOMAIN.DOMAINS TO PUBLIC WITH GRANT OPTION
  1010. /
  1011. CREATE VIEW DOMAIN.DOMAIN_
  1012.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  1013. AS SELECT
  1014.      'DOMAIN',OWNER,DOMAINNAME,' ',' ',' ',' ',COMMENT
  1015.    FROM DOMAIN.DOMAINS
  1016. /
  1017. IF $RC <> 0
  1018. THEN
  1019.      BEGIN
  1020. /
  1021.      END INIT SERVERDB
  1022. /
  1023.      STOP 7
  1024. /
  1025.      END
  1026. /
  1027. COMMIT WORK
  1028. /
  1029. IF $RC (EXISTS TABLE DOMAIN.DOMAINCONSTRAINTS) = 0
  1030. THEN
  1031.     BEGIN
  1032. /
  1033.     DROP VIEW DOMAIN.DOMAINCONSTRAINTS
  1034. /
  1035.     COMMIT WORK
  1036. /
  1037.     END
  1038. /
  1039. CREATE VIEW DOMAIN.DOMAINCONSTRAINTS
  1040.   (OWNER,DOMAINNAME,CONSTRAINTNAME,DEFINITION)
  1041. AS SELECT
  1042.      OWNER,DOMAINNAME,CONSTRAINTNAME,DEFINITION
  1043.    FROM SYSDD.DOMAIN_CONSTRAINTS
  1044. /
  1045. IF $RC <> 0
  1046. THEN
  1047.      BEGIN
  1048. /
  1049.      END INIT SERVERDB
  1050. /
  1051.      STOP 7
  1052. /
  1053.      END
  1054. /
  1055. COMMIT WORK
  1056. /
  1057. GRANT SELECT ON DOMAIN.DOMAINCONSTRAINTS TO PUBLIC WITH GRANT OPTION
  1058. /
  1059. IF $RC (EXISTS TABLE DOMAIN.EASYCOMMAND) <> 0
  1060. THEN
  1061.     BEGIN
  1062. /
  1063.     CREATE TABLE DOMAIN.EASYCOMMAND
  1064.       (
  1065.        AUTHNAME     CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1066.        COMMAND_NAME CHAR(18)   ASCII KEY DEFAULT ' ',
  1067.        TOWNER       CHAR(18)   ASCII KEY DEFAULT ' ',
  1068.        TNAME        CHAR(18)   ASCII KEY DEFAULT ' ',
  1069.        OBJTYPE      CHAR(18)   ASCII KEY DEFAULT 'EASYCOMMAND',
  1070.        SUBTYPE      CHAR(12)   ASCII KEY DEFAULT ' ',
  1071.        VERSION      CHAR(4)    ASCII KEY DEFAULT ' ',
  1072.        LONGNAME     CHAR(40)   ASCII DEFAULT ' ',
  1073.        CREATEDATE   DATE DEFAULT DATE,
  1074.        CREATETIME   TIME DEFAULT TIME,
  1075.        UPDDATE      DATE DEFAULT DATE,
  1076.        UPDTIME      TIME DEFAULT TIME,
  1077.        COMMENT      CHAR(2000) ASCII
  1078.       )
  1079.     WITH REPLICATION
  1080. /
  1081.     IF $RC <> 0
  1082.     THEN
  1083.          BEGIN
  1084. /
  1085.          END INIT SERVERDB
  1086. /
  1087.          STOP 7
  1088. /
  1089.          END
  1090. /
  1091.     COMMIT WORK
  1092. /
  1093.     END
  1094. /
  1095. IF $RC (EXISTS TABLE DOMAIN.EASYCOMMAND_) = 0
  1096. THEN
  1097.     BEGIN
  1098. /
  1099.     DROP VIEW DOMAIN.EASYCOMMAND_
  1100. /
  1101.     COMMIT WORK
  1102. /
  1103.     END
  1104. /
  1105. CREATE VIEW DOMAIN.EASYCOMMAND_
  1106.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  1107.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  1108. AS SELECT
  1109.      OBJTYPE,AUTHNAME,COMMAND_NAME,TOWNER,TNAME,
  1110.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  1111.    FROM DOMAIN.EASYCOMMAND
  1112. WITH CHECK OPTION
  1113. /
  1114. IF $RC <> 0
  1115. THEN
  1116.      BEGIN
  1117. /
  1118.      END INIT SERVERDB
  1119. /
  1120.      STOP 7
  1121. /
  1122.      END
  1123. /
  1124. COMMIT WORK
  1125. /
  1126. IF $RC (EXISTS TABLE DOMAIN.EASYCOMMANDS) = 0
  1127. THEN
  1128.     BEGIN
  1129. /
  1130.     DROP VIEW DOMAIN.EASYCOMMANDS
  1131. /
  1132.     COMMIT WORK
  1133. /
  1134.     END
  1135. /
  1136. CREATE VIEW DOMAIN.EASYCOMMANDS
  1137.   (OWNER,COMMANDNAME,TABLEOWNER,TABLENAME,
  1138.    CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  1139. AS SELECT
  1140.      AUTHNAME,COMMAND_NAME,TOWNER,TNAME,
  1141.      CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  1142.    FROM DOMAIN.EASYCOMMAND
  1143.    WHERE authname = USERGROUP
  1144. WITH CHECK OPTION
  1145. /
  1146. IF $RC <> 0
  1147. THEN
  1148.      BEGIN
  1149. /
  1150.      END INIT SERVERDB
  1151. /
  1152.      STOP 7
  1153. /
  1154.      END
  1155. /
  1156. COMMIT WORK
  1157. /
  1158. GRANT SELECT ON DOMAIN.EASYCOMMANDS TO PUBLIC WITH GRANT OPTION
  1159. /
  1160. IF $RC (EXISTS TABLE DOMAIN.EASYFORM) <> 0
  1161. THEN
  1162.     BEGIN
  1163. /
  1164.     CREATE TABLE DOMAIN.EASYFORM
  1165.       (
  1166.        TABLEOWNER CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1167.        TABLENAME  CHAR(18)   ASCII KEY DEFAULT ' ',
  1168.        FORMOWNER  CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1169.        FORMNAME   CHAR(18)   ASCII KEY DEFAULT ' ',
  1170.        OBJTYPE    CHAR(18)   ASCII KEY DEFAULT 'EASYFORM',
  1171.        SUBTYPE    CHAR(12)   ASCII KEY DEFAULT ' ',
  1172.        VERSION    CHAR(4)    ASCII KEY DEFAULT ' ',
  1173.        LONGNAME   CHAR(40)   ASCII DEFAULT ' ',
  1174.        CREATEDATE DATE DEFAULT DATE,
  1175.        CREATETIME TIME DEFAULT TIME,
  1176.        UPDDATE    DATE DEFAULT DATE,
  1177.        UPDTIME    TIME DEFAULT TIME,
  1178.        COMMENT    CHAR(2000) ASCII
  1179.       )
  1180.     WITH REPLICATION
  1181. /
  1182.     IF $RC <> 0
  1183.     THEN
  1184.          BEGIN
  1185. /
  1186.          END INIT SERVERDB
  1187. /
  1188.          STOP 7
  1189. /
  1190.          END
  1191. /
  1192.     COMMIT WORK
  1193. /
  1194.     END
  1195. /
  1196. IF $RC (EXISTS TABLE DOMAIN.EASYFORM_) = 0
  1197. THEN
  1198.     BEGIN
  1199. /
  1200.     DROP VIEW DOMAIN.EASYFORM_
  1201. /
  1202.     COMMIT WORK
  1203. /
  1204.     END
  1205. /
  1206. CREATE VIEW DOMAIN.EASYFORM_
  1207.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  1208.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  1209. AS SELECT
  1210.      OBJTYPE,TABLEOWNER,TABLENAME,FORMOWNER,FORMNAME,
  1211.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  1212.    FROM DOMAIN.EASYFORM
  1213. WITH CHECK OPTION
  1214. /
  1215. IF $RC <> 0
  1216. THEN
  1217.      BEGIN
  1218. /
  1219.      END INIT SERVERDB
  1220. /
  1221.      STOP 7
  1222. /
  1223.      END
  1224. /
  1225. COMMIT WORK
  1226. /
  1227. IF $RC (EXISTS TABLE DOMAIN.EASYFORMS) = 0
  1228. THEN
  1229.     BEGIN
  1230. /
  1231.     DROP VIEW DOMAIN.EASYFORMS
  1232. /
  1233.     COMMIT WORK
  1234. /
  1235.     END
  1236. /
  1237. CREATE VIEW DOMAIN.EASYFORMS
  1238.   (OWNER,TABLENAME,FORMNAME,CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  1239. AS SELECT
  1240.      TABLEOWNER,TABLENAME,FORMNAME,CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  1241.    FROM DOMAIN.EASYFORM
  1242.    WHERE formowner = USERGROUP
  1243. WITH CHECK OPTION
  1244. /
  1245. IF $RC <> 0
  1246. THEN
  1247.      BEGIN
  1248. /
  1249.      END INIT SERVERDB
  1250. /
  1251.      STOP 7
  1252. /
  1253.      END
  1254. /
  1255. COMMIT WORK
  1256. /
  1257. GRANT SELECT ON DOMAIN.EASYFORMS TO PUBLIC WITH GRANT OPTION
  1258. /
  1259. IF $RC (EXISTS TABLE DOMAIN.FOREIGNKEY) = 0
  1260. THEN
  1261.     BEGIN
  1262. /
  1263.     DROP VIEW DOMAIN.FOREIGNKEY
  1264. /
  1265.     COMMIT WORK
  1266. /
  1267.     END
  1268. /
  1269. CREATE VIEW DOMAIN.FOREIGNKEY
  1270.   (OWNER,TABLENAME,FKEYNAME,RULE,CREATEDATE,CREATETIME,COMMENT)
  1271. AS SELECT
  1272.      OWNER,TABLENAME,REFNAME,RULE,"DATE","TIME",COMMENT
  1273.    FROM SYSDD.FOREIGN_KEYS
  1274. /
  1275. IF $RC <> 0
  1276. THEN
  1277.      BEGIN
  1278. /
  1279.      END INIT SERVERDB
  1280. /
  1281.      STOP 7
  1282. /
  1283.      END
  1284. /
  1285. CREATE VIEW DOMAIN.FOREIGNKEYS
  1286. AS SELECT DISTINCT *
  1287.    FROM DOMAIN.FOREIGNKEY
  1288. /
  1289. IF $RC <> 0
  1290. THEN
  1291.      BEGIN
  1292. /
  1293.      END INIT SERVERDB
  1294. /
  1295.      STOP 7
  1296. /
  1297.      END
  1298. /
  1299. GRANT SELECT ON DOMAIN.FOREIGNKEYS TO PUBLIC WITH GRANT OPTION
  1300. /
  1301. COMMIT WORK
  1302. /
  1303. CREATE VIEW DOMAIN.FOREIGNKEY_
  1304.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  1305. AS SELECT
  1306.      'FOREIGNKEY',OWNER,TABLENAME,FKEYNAME,' ',' ',' ',COMMENT
  1307.    FROM DOMAIN.FOREIGNKEYS
  1308. /
  1309. IF $RC <> 0
  1310. THEN
  1311.      BEGIN
  1312. /
  1313.      END INIT SERVERDB
  1314. /
  1315.      STOP 7
  1316. /
  1317.      END
  1318. /
  1319. COMMIT WORK
  1320. /
  1321. IF $RC (EXISTS TABLE DOMAIN.INDEXES) = 0
  1322. THEN
  1323.     BEGIN
  1324. /
  1325.     DROP VIEW DOMAIN.INDEXES
  1326. /
  1327.     COMMIT WORK
  1328. /
  1329.     END
  1330. /
  1331. CREATE VIEW DOMAIN.INDEXES
  1332.   (OWNER,TABLENAME,INDEXNAME,
  1333.    TYPE,CREATEDATE,CREATETIME,COMMENT)
  1334. AS SELECT
  1335.      OWNER,TABLENAME,DECODE(INDEXNAME,' ',COLUMNNAME,INDEXNAME),
  1336.      TYPE,"DATE","TIME",COMMENT
  1337.    FROM SYSDD.INDEXES
  1338.    WHERE columnno = 1
  1339. /
  1340. IF $RC <> 0
  1341. THEN
  1342.      BEGIN
  1343. /
  1344.      END INIT SERVERDB
  1345. /
  1346.      STOP 7
  1347. /
  1348.      END
  1349. /
  1350. COMMIT WORK
  1351. /
  1352. GRANT SELECT ON DOMAIN.INDEXES TO PUBLIC WITH GRANT OPTION
  1353. /
  1354. CREATE VIEW DOMAIN.INDEX_
  1355.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  1356. AS SELECT
  1357.      'INDEX',OWNER,TABLENAME,INDEXNAME,' ',' ',' ',COMMENT
  1358.    FROM DOMAIN.INDEXES
  1359. /
  1360. IF $RC <> 0
  1361. THEN
  1362.      BEGIN
  1363. /
  1364.      END INIT SERVERDB
  1365. /
  1366.      STOP 7
  1367. /
  1368.      END
  1369. /
  1370. COMMIT WORK
  1371. /
  1372. IF $RC (EXISTS TABLE DOMAIN.LITERAL) <> 0
  1373. THEN
  1374.     BEGIN
  1375. /
  1376.     CREATE TABLE DOMAIN.LITERAL
  1377.       (
  1378.        OWNER       CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1379.        LITERALNAME CHAR(18)   ASCII KEY DEFAULT ' ',
  1380.        LANGUAGE    CHAR(18)   ASCII KEY DEFAULT ' ',
  1381.        NAME3       CHAR(18)   ASCII KEY DEFAULT ' ',
  1382.        OBJTYPE     CHAR(18)   ASCII KEY DEFAULT 'LITERAL',
  1383.        SUBTYPE     CHAR(12)   ASCII KEY DEFAULT ' ',
  1384.        VERSION     CHAR(4)    ASCII KEY DEFAULT ' ',
  1385.        LONGNAME    CHAR(40)   ASCII DEFAULT ' ',
  1386.        S_LABEL     CHAR(8)    ASCII DEFAULT ' ',
  1387.        M_LABEL     CHAR(12)   ASCII DEFAULT ' ',
  1388.        L_LABEL     CHAR(18)   ASCII DEFAULT ' ',
  1389.        XL_LABEL    CHAR(80)   ASCII DEFAULT ' ',
  1390.        CREATEDATE  DATE DEFAULT DATE,
  1391.        CREATETIME  TIME DEFAULT TIME,
  1392.        UPDDATE     DATE DEFAULT DATE,
  1393.        UPDTIME     TIME DEFAULT TIME,
  1394.        COMMENT     CHAR(2000) ASCII
  1395.       )
  1396.     WITH REPLICATION
  1397. /
  1398.     IF $RC <> 0
  1399.     THEN
  1400.          BEGIN
  1401. /
  1402.          END INIT SERVERDB
  1403. /
  1404.          STOP 7
  1405. /
  1406.          END
  1407. /
  1408.     COMMIT WORK
  1409. /
  1410.     END
  1411. /
  1412. IF $RC (EXISTS TABLE DOMAIN.LITERAL_) = 0
  1413. THEN
  1414.     BEGIN
  1415. /
  1416.     DROP VIEW DOMAIN.LITERAL_
  1417. /
  1418.     COMMIT WORK
  1419. /
  1420.     END
  1421. /
  1422. CREATE VIEW DOMAIN.LITERAL_
  1423.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  1424.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  1425. AS SELECT
  1426.      OBJTYPE,OWNER,LITERALNAME,LANGUAGE,NAME3,
  1427.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  1428.    FROM DOMAIN.LITERAL
  1429. WITH CHECK OPTION
  1430. /
  1431. IF $RC <> 0
  1432. THEN
  1433.      BEGIN
  1434. /
  1435.      END INIT SERVERDB
  1436. /
  1437.      STOP 7
  1438. /
  1439.      END
  1440. /
  1441. COMMIT WORK
  1442. /
  1443. IF $RC (EXISTS TABLE DOMAIN.LITERALS) = 0
  1444. THEN
  1445.     BEGIN
  1446. /
  1447.     DROP VIEW DOMAIN.LITERALS
  1448. /
  1449.     COMMIT WORK
  1450. /
  1451.     END
  1452. /
  1453. CREATE VIEW DOMAIN.LITERALS
  1454.   (OWNER,LITERALNAME,LANGUAGE,S_LABEL,M_LABEL,L_LABEL,XL_LABEL,
  1455.    CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  1456. AS SELECT
  1457.      OWNER,LITERALNAME,LANGUAGE,S_LABEL,M_LABEL,L_LABEL,XL_LABEL,
  1458.      CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  1459.    FROM DOMAIN.LITERAL
  1460.    WHERE owner IN(USERGROUP,'PUBLIC')
  1461. WITH CHECK OPTION
  1462. /
  1463. IF $RC <> 0
  1464. THEN
  1465.      BEGIN
  1466. /
  1467.      END INIT SERVERDB
  1468. /
  1469.      STOP 7
  1470. /
  1471.      END
  1472. /
  1473. COMMIT WORK
  1474. /
  1475. GRANT SELECT ON DOMAIN.LITERALS TO PUBLIC WITH GRANT OPTION
  1476. /
  1477. IF $RC (EXISTS TABLE DOMAIN.MAPCHARSETS) = 0
  1478. THEN
  1479.     BEGIN
  1480. /
  1481.     DROP VIEW DOMAIN.MAPCHARSETS
  1482. /
  1483.     COMMIT WORK
  1484. /
  1485.     END
  1486. /
  1487. CREATE VIEW DOMAIN.MAPCHARSETS
  1488.   (MAPCHARSETNAME,CODE,INTERN,MAP_CODE,MAP_CHARACTER)
  1489. AS SELECT
  1490.      MAPCHARSETNAME,CODE,INTERN,"MAP CODE","MAP CHARACTER"
  1491.    FROM SYSDD.MAPCHARSETS
  1492. /
  1493. IF $RC <> 0
  1494. THEN
  1495.      BEGIN
  1496. /
  1497.      END INIT SERVERDB
  1498. /
  1499.      STOP 7
  1500. /
  1501.      END
  1502. /
  1503. COMMIT WORK
  1504. /
  1505. GRANT SELECT ON DOMAIN.MAPCHARSETS TO PUBLIC WITH GRANT OPTION
  1506. /
  1507. IF $RC (EXISTS TABLE DOMAIN.MODULE) <> 0
  1508. THEN
  1509.     BEGIN
  1510. /
  1511.     CREATE TABLE DOMAIN.MODULE
  1512.       (
  1513.        OWNER       CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1514.        MODULENAME1 CHAR(18)   ASCII KEY DEFAULT ' ',
  1515.        MODULENAME2 CHAR(18)   ASCII KEY DEFAULT ' ',
  1516.        PROGLANG    CHAR(18)   ASCII KEY DEFAULT ' ',
  1517.        OBJTYPE     CHAR(18)   ASCII KEY DEFAULT 'MODULE',
  1518.        SUBTYPE     CHAR(12)   ASCII KEY DEFAULT ' ',
  1519.        VERSION     CHAR(4)    ASCII KEY DEFAULT ' ',
  1520.        LONGNAME    CHAR(40)   ASCII DEFAULT ' ',
  1521.        TYPE        CHAR(18)   ASCII DEFAULT ' ',
  1522.        CREATEDATE  DATE DEFAULT DATE,
  1523.        CREATETIME  TIME DEFAULT TIME,
  1524.        UPDDATE     DATE DEFAULT DATE,
  1525.        UPDTIME     TIME DEFAULT TIME,
  1526.        COMMENT     CHAR(2000) ASCII
  1527.       )
  1528.     WITH REPLICATION
  1529. /
  1530.     IF $RC <> 0
  1531.     THEN
  1532.          BEGIN
  1533. /
  1534.          END INIT SERVERDB
  1535. /
  1536.          STOP 7
  1537. /
  1538.          END
  1539. /
  1540.     COMMIT WORK
  1541. /
  1542.     END
  1543. /
  1544. IF $RC (EXISTS TABLE DOMAIN.MODULE_) = 0
  1545. THEN
  1546.     BEGIN
  1547. /
  1548.     DROP VIEW DOMAIN.MODULE_
  1549. /
  1550.     COMMIT WORK
  1551. /
  1552.     END
  1553. /
  1554. CREATE VIEW DOMAIN.MODULE_
  1555.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  1556.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  1557. AS SELECT
  1558.      OBJTYPE,OWNER,MODULENAME1,MODULENAME2,PROGLANG,
  1559.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  1560.    FROM DOMAIN.MODULE
  1561. WITH CHECK OPTION
  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.#USR_USES_PRO) <> 0
  1576. THEN
  1577.     BEGIN
  1578. /
  1579.     CREATE TABLE DOMAIN.#USR_USES_PRO
  1580.       (
  1581.        USER_ID     FIXED(10)       KEY,
  1582.        ROW_ID      CHAR(8)   BYTE  KEY,
  1583.        DEFOWNER    CHAR(18)  ASCII,
  1584.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  1585.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  1586.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  1587.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'USER',
  1588.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  1589.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  1590.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  1591.        REFOWNER    CHAR(18)  ASCII,
  1592.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  1593.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  1594.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  1595.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'PROGRAM',
  1596.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  1597.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  1598.        PRIVILEGES  CHAR(30)  ASCII DEFAULT 'EXECUTE COPY',
  1599.        CREATEDATE  DATE DEFAULT DATE,
  1600.        CREATETIME  TIME DEFAULT TIME
  1601.       )
  1602.     WITH REPLICATION
  1603. /
  1604.     IF $RC <> 0
  1605.     THEN
  1606.          BEGIN
  1607. /
  1608.          END INIT SERVERDB
  1609. /
  1610.          STOP 7
  1611. /
  1612.          END
  1613. /
  1614.     CREATE INDEX INDEX1 ON DOMAIN.#USR_USES_PRO
  1615.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  1616. /
  1617.     IF $RC <> 0
  1618.     THEN
  1619.          BEGIN
  1620. /
  1621.          END INIT SERVERDB
  1622. /
  1623.          STOP 7
  1624. /
  1625.          END
  1626. /
  1627.     CREATE INDEX INDEX2 ON DOMAIN.#USR_USES_PRO
  1628.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  1629. /
  1630.     IF $RC <> 0
  1631.     THEN
  1632.          BEGIN
  1633. /
  1634.          END INIT SERVERDB
  1635. /
  1636.          STOP 7
  1637. /
  1638.          END
  1639. /
  1640.     COMMIT WORK
  1641. /
  1642.     END
  1643. /
  1644. IF $RC (EXISTS TABLE DOMAIN.USR_USES_PRO) = 0
  1645. THEN
  1646.     BEGIN
  1647. /
  1648.     DROP VIEW DOMAIN.USR_USES_PRO
  1649. /
  1650.     COMMIT WORK
  1651. /
  1652.     END
  1653. /
  1654. CREATE VIEW DOMAIN.USR_USES_PRO
  1655.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  1656.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFPROGLANG,
  1657.    PRIVILEGES,CREATEDATE,CREATETIME)
  1658. AS SELECT
  1659.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME2,DEFOBJNAME1,RELTYPE,
  1660.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME3,
  1661.      PRIVILEGES,CREATEDATE,CREATETIME
  1662.    FROM DOMAIN.#USR_USES_PRO
  1663.    WHERE defobjname1 IN(USERGROUP,'PUBLIC')
  1664.    OR USERGROUP IN(defobjname2,refowner)
  1665. WITH CHECK OPTION
  1666. /
  1667. IF $RC <> 0
  1668. THEN
  1669.      BEGIN
  1670. /
  1671.      END INIT SERVERDB
  1672. /
  1673.      STOP 7
  1674. /
  1675.      END
  1676. /
  1677. COMMIT WORK
  1678. /
  1679. GRANT SELECT ON DOMAIN.USR_USES_PRO TO PUBLIC WITH GRANT OPTION
  1680. /
  1681. IF $RC (EXISTS TABLE DOMAIN.MODULES) = 0
  1682. THEN
  1683.     BEGIN
  1684. /
  1685.     DROP VIEW DOMAIN.MODULES
  1686. /
  1687.     COMMIT WORK
  1688. /
  1689.     END
  1690. /
  1691. CREATE VIEW DOMAIN.MODULES
  1692.   (OWNER,PROGRAMNAME,MODULENAME,PROGLANG,
  1693.    CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  1694. AS SELECT
  1695.      OWNER,MODULENAME1,MODULENAME2,PROGLANG,
  1696.      CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  1697.    FROM DOMAIN.MODULE
  1698.    WHERE owner = USERGROUP
  1699.    UNION ALL
  1700.      SELECT T1.OWNER,T1.MODULENAME1,T1.MODULENAME2,T1.PROGLANG,
  1701.             T1.CREATEDATE,T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  1702.      FROM DOMAIN.MODULE T1,DOMAIN.USR_USES_PRO T2
  1703.      WHERE T1.owner = T2.refowner
  1704.      AND T1.modulename1 = T2.refprogramname
  1705.      AND T1.proglang = T2.refproglang
  1706.      AND T2.refowner <> USERGROUP
  1707.      AND T2.defgroupname = USERGROUP
  1708.    UNION ALL
  1709.      SELECT T1.OWNER,T1.MODULENAME1,T1.MODULENAME2,T1.PROGLANG,
  1710.             T1.CREATEDATE,T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  1711.      FROM DOMAIN.MODULE T1,DOMAIN.USR_USES_PRO T2
  1712.      WHERE T1.owner = T2.refowner
  1713.      AND T1.modulename1 = T2.refprogramname
  1714.      AND T1.proglang = T2.refproglang
  1715.      AND T2.refowner <> USERGROUP
  1716.      AND T2.defusername = 'PUBLIC'
  1717.    UNION ALL
  1718.      SELECT T1.OWNER,T1.MODULENAME1,T1.MODULENAME2,T1.PROGLANG,
  1719.             T1.CREATEDATE,T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  1720.      FROM DOMAIN.MODULE T1,DOMAIN.USR_USES_PRO T2
  1721.      WHERE T1.owner = T2.refowner
  1722.      AND T1.modulename1 = T2.refprogramname
  1723.      AND T1.proglang = T2.refproglang
  1724.      AND T2.refowner <> USERGROUP
  1725.      AND T2.defusername = USERGROUP
  1726.      AND NOT EXISTS (SELECT T1.OWNER
  1727.                      FROM DOMAIN.MODULE T1,DOMAIN.USR_USES_PRO T2
  1728.                      WHERE T1.owner = T2.refowner
  1729.                      AND T1.modulename1 = T2.refprogramname
  1730.                      AND T1.proglang = T2.refproglang
  1731.                      AND T2.refowner <> USERGROUP
  1732.                      AND T2.defgroupname = 'PUBLIC')
  1733. /
  1734. IF $RC <> 0
  1735. THEN
  1736.      BEGIN
  1737. /
  1738.      END INIT SERVERDB
  1739. /
  1740.      STOP 7
  1741. /
  1742.      END
  1743. /
  1744. COMMIT WORK
  1745. /
  1746. GRANT SELECT ON DOMAIN.MODULES TO PUBLIC WITH GRANT OPTION
  1747. /
  1748. IF $RC (SELECT tablename FROM sysdd.views
  1749.         WHERE owner = 'DOMAIN' AND tablename = 'PROGRAM') = 0
  1750. THEN
  1751.     BEGIN
  1752. /
  1753.     DROP VIEW DOMAIN.PROGRAM
  1754. /
  1755.     COMMIT WORK
  1756. /
  1757.     END
  1758. /
  1759. IF $RC (EXISTS TABLE DOMAIN.PROGRAM) <> 0
  1760. THEN
  1761.     BEGIN
  1762. /
  1763.     CREATE TABLE DOMAIN.PROGRAM
  1764.       (
  1765.        OWNER       CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1766.        PROGRAMNAME CHAR(18)   ASCII KEY DEFAULT ' ',
  1767.        PROGLANG    CHAR(18)   ASCII KEY DEFAULT ' ',
  1768.        NAME3       CHAR(18)   ASCII KEY DEFAULT ' ',
  1769.        OBJTYPE     CHAR(18)   ASCII KEY DEFAULT 'PROGRAM',
  1770.        SUBTYPE     CHAR(12)   ASCII KEY DEFAULT ' ',
  1771.        VERSION     CHAR(4)    ASCII KEY DEFAULT ' ',
  1772.        LONGNAME    CHAR(40)   ASCII DEFAULT ' ',
  1773.        CREATEDATE  DATE DEFAULT DATE,
  1774.        CREATETIME  TIME DEFAULT TIME,
  1775.        UPDDATE     DATE DEFAULT DATE,
  1776.        UPDTIME     TIME DEFAULT TIME,
  1777.        COMMENT     CHAR(2000) ASCII
  1778.       )
  1779.     WITH REPLICATION
  1780. /
  1781.     IF $RC <> 0
  1782.     THEN
  1783.          BEGIN
  1784. /
  1785.          END INIT SERVERDB
  1786. /
  1787.          STOP 7
  1788. /
  1789.          END
  1790. /
  1791.     COMMIT WORK
  1792. /
  1793.     END
  1794. /
  1795. IF $RC (EXISTS TABLE DOMAIN.PROGRAM_) = 0
  1796. THEN
  1797.     BEGIN
  1798. /
  1799.     DROP VIEW DOMAIN.PROGRAM_
  1800. /
  1801.     COMMIT WORK
  1802. /
  1803.     END
  1804. /
  1805. CREATE VIEW DOMAIN.PROGRAM_
  1806.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  1807.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  1808. AS SELECT
  1809.      OBJTYPE,OWNER,PROGRAMNAME,PROGLANG,NAME3,
  1810.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  1811.    FROM DOMAIN.PROGRAM
  1812. WITH CHECK OPTION
  1813. /
  1814. IF $RC <> 0
  1815. THEN
  1816.      BEGIN
  1817. /
  1818.      END INIT SERVERDB
  1819. /
  1820.      STOP 7
  1821. /
  1822.      END
  1823. /
  1824. COMMIT WORK
  1825. /
  1826. IF $RC (EXISTS TABLE DOMAIN.PROGRAMS) = 0
  1827. THEN
  1828.     BEGIN
  1829. /
  1830.     DROP VIEW DOMAIN.PROGRAMS
  1831. /
  1832.     COMMIT WORK
  1833. /
  1834.     END
  1835. /
  1836. CREATE VIEW DOMAIN.PROGRAMS
  1837.   (OWNER,PROGRAMNAME,PROGLANG,
  1838.    CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  1839. AS SELECT
  1840.      OWNER,PROGRAMNAME,PROGLANG,
  1841.      CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  1842.    FROM DOMAIN.PROGRAM
  1843.    WHERE owner = USERGROUP
  1844.    UNION ALL
  1845.      SELECT T1.OWNER,T1.PROGRAMNAME,T1.PROGLANG,
  1846.             T1.CREATEDATE,T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  1847.      FROM DOMAIN.PROGRAM T1,DOMAIN.USR_USES_PRO T2
  1848.      WHERE T1.owner = T2.refowner
  1849.      AND T1.programname = T2.refprogramname
  1850.      AND T1.proglang = T2.refproglang
  1851.      AND T2.refowner <> USERGROUP
  1852.      AND T2.defgroupname = USERGROUP
  1853.    UNION ALL
  1854.      SELECT T1.OWNER,T1.PROGRAMNAME,T1.PROGLANG,
  1855.             T1.CREATEDATE,T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  1856.      FROM DOMAIN.PROGRAM T1,DOMAIN.USR_USES_PRO T2
  1857.      WHERE T1.owner = T2.refowner
  1858.      AND T1.programname = T2.refprogramname
  1859.      AND T1.proglang = T2.refproglang
  1860.      AND T2.refowner <> USERGROUP
  1861.      AND T2.defusername = 'PUBLIC'
  1862.    UNION ALL
  1863.      SELECT T1.OWNER,T1.PROGRAMNAME,T1.PROGLANG,
  1864.             T1.CREATEDATE,T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  1865.      FROM DOMAIN.PROGRAM T1,DOMAIN.USR_USES_PRO T2
  1866.      WHERE T1.owner = T2.refowner
  1867.      AND T1.programname = T2.refprogramname
  1868.      AND T1.proglang = T2.refproglang
  1869.      AND T2.refowner <> USERGROUP
  1870.      AND T2.defusername = USERGROUP
  1871.      AND NOT EXISTS (SELECT T1.OWNER
  1872.                      FROM DOMAIN.PROGRAM T1,DOMAIN.USR_USES_PRO T2
  1873.                      WHERE T1.owner = T2.refowner
  1874.                      AND T1.programname = T2.refprogramname
  1875.                      AND T1.proglang = T2.refproglang
  1876.                      AND T2.refowner <> USERGROUP
  1877.                      AND T2.defusername = 'PUBLIC')
  1878. /
  1879. IF $RC <> 0
  1880. THEN
  1881.      BEGIN
  1882. /
  1883.      END INIT SERVERDB
  1884. /
  1885.      STOP 7
  1886. /
  1887.      END
  1888. /
  1889. COMMIT WORK
  1890. /
  1891. GRANT SELECT ON DOMAIN.PROGRAMS TO PUBLIC WITH GRANT OPTION
  1892. /
  1893. IF $RC (EXISTS TABLE DOMAIN.QPCOMMAND) <> 0
  1894. THEN
  1895.     BEGIN
  1896. /
  1897.     CREATE TABLE DOMAIN.QPCOMMAND
  1898.       (
  1899.        OWNER        CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  1900.        COMMANDNAME  CHAR(150)  ASCII KEY DEFAULT ' ',
  1901.        NAME2        CHAR(18)   ASCII KEY DEFAULT ' ',
  1902.        NAME3        CHAR(18)   ASCII KEY DEFAULT ' ',
  1903.        OBJTYPE      CHAR(18)   ASCII KEY DEFAULT 'QPCOMMAND',
  1904.        SUBTYPE      CHAR(12)   ASCII KEY DEFAULT ' ',
  1905.        VERSION      CHAR(4)    ASCII KEY DEFAULT ' ',
  1906.        CREATEDATE   DATE DEFAULT DATE,
  1907.        CREATETIME   TIME DEFAULT TIME,
  1908.        UPDDATE      DATE DEFAULT DATE,
  1909.        UPDTIME      TIME DEFAULT TIME,
  1910.        COMMENT      CHAR(2000) ASCII
  1911.       )
  1912.     WITH REPLICATION
  1913. /
  1914.     IF $RC <> 0
  1915.     THEN
  1916.          BEGIN
  1917. /
  1918.          END INIT SERVERDB
  1919. /
  1920.          STOP 7
  1921. /
  1922.          END
  1923. /
  1924.     COMMIT WORK
  1925. /
  1926.     END
  1927. /
  1928. IF $RC (EXISTS TABLE DOMAIN.QPCOMMAND_) = 0
  1929. THEN
  1930.     BEGIN
  1931. /
  1932.     DROP VIEW DOMAIN.QPCOMMAND_
  1933. /
  1934.     COMMIT WORK
  1935. /
  1936.     END
  1937. /
  1938. CREATE VIEW DOMAIN.QPCOMMAND_
  1939.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  1940.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  1941. AS SELECT
  1942.      OBJTYPE,OWNER,COMMANDNAME,NAME2,NAME3,
  1943.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  1944.    FROM DOMAIN.QPCOMMAND
  1945. WITH CHECK OPTION
  1946. /
  1947. IF $RC <> 0
  1948. THEN
  1949.      BEGIN
  1950. /
  1951.      END INIT SERVERDB
  1952. /
  1953.      STOP 7
  1954. /
  1955.      END
  1956. /
  1957. COMMIT WORK
  1958. /
  1959. IF $RC (EXISTS TABLE DOMAIN.#USR_USES_QPC) <> 0
  1960. THEN
  1961.     BEGIN
  1962. /
  1963.     CREATE TABLE DOMAIN.#USR_USES_QPC
  1964.       (
  1965.        USER_ID     FIXED(10)       KEY,
  1966.        ROW_ID      CHAR(8)   BYTE  KEY,
  1967.        DEFOWNER    CHAR(18)  ASCII,
  1968.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  1969.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  1970.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  1971.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'USER',
  1972.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  1973.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  1974.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  1975.        REFOWNER    CHAR(18)  ASCII,
  1976.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  1977.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  1978.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  1979.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPCOMMAND',
  1980.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  1981.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  1982.        PRIVILEGES  CHAR(30)  ASCII DEFAULT 'EXECUTE',
  1983.        CREATEDATE  DATE DEFAULT DATE,
  1984.        CREATETIME  TIME DEFAULT TIME
  1985.       )
  1986.     WITH REPLICATION
  1987. /
  1988.     IF $RC <> 0
  1989.     THEN
  1990.          BEGIN
  1991. /
  1992.          END INIT SERVERDB
  1993. /
  1994.          STOP 7
  1995. /
  1996.          END
  1997. /
  1998.     CREATE INDEX INDEX1 ON DOMAIN.#USR_USES_QPC
  1999.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  2000. /
  2001.     IF $RC <> 0
  2002.     THEN
  2003.          BEGIN
  2004. /
  2005.          END INIT SERVERDB
  2006. /
  2007.          STOP 7
  2008. /
  2009.          END
  2010. /
  2011.     CREATE INDEX INDEX2 ON DOMAIN.#USR_USES_QPC
  2012.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  2013. /
  2014.     IF $RC <> 0
  2015.     THEN
  2016.          BEGIN
  2017. /
  2018.          END INIT SERVERDB
  2019. /
  2020.          STOP 7
  2021. /
  2022.          END
  2023. /
  2024.     END
  2025. ELSE
  2026.     BEGIN
  2027. /
  2028.     ALTER TABLE DOMAIN.#USR_USES_QPC COLUMN DEFOBJNAME1 CHAR(150) ASCII
  2029. /
  2030.     IF $RC <> 0
  2031.     THEN
  2032.          BEGIN
  2033. /
  2034.          END INIT SERVERDB
  2035. /
  2036.          STOP 7
  2037. /
  2038.          END
  2039. /
  2040.     END
  2041. /
  2042. COMMIT WORK
  2043. /
  2044. IF $RC (EXISTS TABLE DOMAIN.USR_USES_QPC) = 0
  2045. THEN
  2046.     BEGIN
  2047. /
  2048.     DROP VIEW DOMAIN.USR_USES_QPC
  2049. /
  2050.     COMMIT WORK
  2051. /
  2052.     END
  2053. /
  2054. CREATE VIEW DOMAIN.USR_USES_QPC
  2055.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  2056.    REFOBJTYPE,REFOWNER,REFCOMMANDNAME,
  2057.    PRIVILEGES,CREATEDATE,CREATETIME)
  2058. AS SELECT
  2059.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME2,SUBSTR(DEFOBJNAME1,1,18),RELTYPE,
  2060.      REFOBJTYPE,REFOWNER,REFOBJNAME1,
  2061.      PRIVILEGES,CREATEDATE,CREATETIME
  2062.    FROM DOMAIN.#USR_USES_QPC
  2063.    WHERE defobjname1 IN(USERGROUP,'PUBLIC')
  2064.    OR USERGROUP IN(defobjname2,refowner)
  2065. WITH CHECK OPTION
  2066. /
  2067. IF $RC <> 0
  2068. THEN
  2069.      BEGIN
  2070. /
  2071.      END INIT SERVERDB
  2072. /
  2073.      STOP 7
  2074. /
  2075.      END
  2076. /
  2077. COMMIT WORK
  2078. /
  2079. GRANT SELECT ON DOMAIN.USR_USES_QPC TO PUBLIC WITH GRANT OPTION
  2080. /
  2081. IF $RC (EXISTS TABLE DOMAIN.QPCOMMANDS) = 0
  2082. THEN
  2083.     BEGIN
  2084. /
  2085.     DROP VIEW DOMAIN.QPCOMMANDS
  2086. /
  2087.     COMMIT WORK
  2088. /
  2089.     END
  2090. /
  2091. CREATE VIEW DOMAIN.QPCOMMANDS
  2092.   (OWNER,COMMANDNAME,CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  2093. AS SELECT
  2094.      OWNER,COMMANDNAME,CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  2095.    FROM DOMAIN.QPCOMMAND
  2096.    WHERE owner = USERGROUP
  2097.    UNION ALL
  2098.      SELECT T1.OWNER,T1.COMMANDNAME,T1.CREATEDATE,
  2099.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2100.      FROM DOMAIN.QPCOMMAND T1,DOMAIN.USR_USES_QPC T2
  2101.      WHERE T1.owner = T2.refowner
  2102.      AND T1.commandname = T2.refcommandname
  2103.      AND T2.refowner <> USERGROUP
  2104.      AND T2.defgroupname = USERGROUP
  2105.    UNION ALL
  2106.      SELECT T1.OWNER,T1.COMMANDNAME,T1.CREATEDATE,
  2107.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2108.      FROM DOMAIN.QPCOMMAND T1,DOMAIN.USR_USES_QPC T2
  2109.      WHERE T1.owner = T2.refowner
  2110.      AND T1.commandname = T2.refcommandname
  2111.      AND T2.refowner <> USERGROUP
  2112.      AND T2.defusername = 'PUBLIC'
  2113.    UNION ALL
  2114.      SELECT T1.OWNER,T1.COMMANDNAME,T1.CREATEDATE,
  2115.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2116.      FROM DOMAIN.QPCOMMAND T1,DOMAIN.USR_USES_QPC T2
  2117.      WHERE T1.owner = T2.refowner
  2118.      AND T1.commandname = T2.refcommandname
  2119.      AND T2.refowner <> USERGROUP
  2120.      AND T2.defusername = USERGROUP
  2121.      AND NOT EXISTS (SELECT T1.OWNER
  2122.                      FROM DOMAIN.QPCOMMAND T1,DOMAIN.USR_USES_QPC T2
  2123.                      WHERE T1.owner = T2.refowner
  2124.                      AND T1.commandname = T2.refcommandname
  2125.                      AND T2.refowner <> USERGROUP
  2126.                      AND T2.defusername = 'PUBLIC')
  2127. /
  2128. IF $RC <> 0
  2129. THEN
  2130.      BEGIN
  2131. /
  2132.      END INIT SERVERDB
  2133. /
  2134.      STOP 7
  2135. /
  2136.      END
  2137. /
  2138. COMMIT WORK
  2139. /
  2140. GRANT SELECT ON DOMAIN.QPCOMMANDS TO PUBLIC WITH GRANT OPTION
  2141. /
  2142. IF $RC (EXISTS TABLE DOMAIN.QPEXCELLINK) <> 0
  2143. THEN
  2144.     BEGIN
  2145. /
  2146.     CREATE TABLE DOMAIN.QPEXCELLINK
  2147.       (
  2148.        OWNER         CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  2149.        EXCELLINKNAME CHAR(150)  ASCII KEY DEFAULT ' ',
  2150.        NAME2         CHAR(18)   ASCII KEY DEFAULT ' ',
  2151.        NAME3         CHAR(18)   ASCII KEY DEFAULT ' ',
  2152.        OBJTYPE       CHAR(18)   ASCII KEY DEFAULT 'QPEXCELLINK',
  2153.        SUBTYPE       CHAR(12)   ASCII KEY DEFAULT ' ',
  2154.        VERSION       CHAR(4)    ASCII KEY DEFAULT ' ',
  2155.        CREATEDATE    DATE DEFAULT DATE,
  2156.        CREATETIME    TIME DEFAULT TIME,
  2157.        UPDDATE       DATE DEFAULT DATE,
  2158.        UPDTIME       TIME DEFAULT TIME,
  2159.        COMMENT       CHAR(2000) ASCII
  2160.       )
  2161.     WITH REPLICATION
  2162. /
  2163.     IF $RC <> 0
  2164.     THEN
  2165.          BEGIN
  2166. /
  2167.          END INIT SERVERDB
  2168. /
  2169.          STOP 7
  2170. /
  2171.          END
  2172. /
  2173.     COMMIT WORK
  2174. /
  2175.     END
  2176. /
  2177. IF $RC (EXISTS TABLE DOMAIN.QPEXCELLINK_) = 0
  2178. THEN
  2179.     BEGIN
  2180. /
  2181.     DROP VIEW DOMAIN.QPEXCELLINK_
  2182. /
  2183.     COMMIT WORK
  2184. /
  2185.     END
  2186. /
  2187. CREATE VIEW DOMAIN.QPEXCELLINK_
  2188.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  2189.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  2190. AS SELECT
  2191.      OBJTYPE,OWNER,EXCELLINKNAME,NAME2,NAME3,
  2192.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  2193.    FROM DOMAIN.QPEXCELLINK
  2194. WITH CHECK OPTION
  2195. /
  2196. IF $RC <> 0
  2197. THEN
  2198.      BEGIN
  2199. /
  2200.      END INIT SERVERDB
  2201. /
  2202.      STOP 7
  2203. /
  2204.      END
  2205. /
  2206. COMMIT WORK
  2207. /
  2208. IF $RC (EXISTS TABLE DOMAIN.#USR_USES_QPE) <> 0
  2209. THEN
  2210.     BEGIN
  2211. /
  2212.     CREATE TABLE DOMAIN.#USR_USES_QPE
  2213.       (
  2214.        USER_ID     FIXED(10)       KEY,
  2215.        ROW_ID      CHAR(8)   BYTE  KEY,
  2216.        DEFOWNER    CHAR(18)  ASCII,
  2217.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  2218.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2219.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2220.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'USER',
  2221.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2222.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2223.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  2224.        REFOWNER    CHAR(18)  ASCII,
  2225.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  2226.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2227.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2228.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPEXCELLINK',
  2229.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2230.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2231.        PRIVILEGES  CHAR(30)  ASCII DEFAULT 'EXECUTE',
  2232.        CREATEDATE  DATE DEFAULT DATE,
  2233.        CREATETIME  TIME DEFAULT TIME
  2234.       )
  2235.     WITH REPLICATION
  2236. /
  2237.     IF $RC <> 0
  2238.     THEN
  2239.          BEGIN
  2240. /
  2241.          END INIT SERVERDB
  2242. /
  2243.          STOP 7
  2244. /
  2245.          END
  2246. /
  2247.     CREATE INDEX INDEX1 ON DOMAIN.#USR_USES_QPE
  2248.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  2249. /
  2250.     IF $RC <> 0
  2251.     THEN
  2252.          BEGIN
  2253. /
  2254.          END INIT SERVERDB
  2255. /
  2256.          STOP 7
  2257. /
  2258.          END
  2259. /
  2260.     CREATE INDEX INDEX2 ON DOMAIN.#USR_USES_QPE
  2261.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  2262. /
  2263.     IF $RC <> 0
  2264.     THEN
  2265.          BEGIN
  2266. /
  2267.          END INIT SERVERDB
  2268. /
  2269.          STOP 7
  2270. /
  2271.          END
  2272. /
  2273.     END
  2274. ELSE
  2275.     BEGIN
  2276. /
  2277.     ALTER TABLE DOMAIN.#USR_USES_QPE COLUMN DEFOBJNAME1 CHAR(150) ASCII
  2278. /
  2279.     IF $RC <> 0
  2280.     THEN
  2281.          BEGIN
  2282. /
  2283.          END INIT SERVERDB
  2284. /
  2285.          STOP 7
  2286. /
  2287.          END
  2288. /
  2289.     END
  2290. /
  2291. COMMIT WORK
  2292. /
  2293. IF $RC (EXISTS TABLE DOMAIN.USR_USES_QPE) = 0
  2294. THEN
  2295.     BEGIN
  2296. /
  2297.     DROP VIEW DOMAIN.USR_USES_QPE
  2298. /
  2299.     COMMIT WORK
  2300. /
  2301.     END
  2302. /
  2303. CREATE VIEW DOMAIN.USR_USES_QPE
  2304.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  2305.    REFOBJTYPE,REFOWNER,REFEXCELLINKNAME,
  2306.    PRIVILEGES,CREATEDATE,CREATETIME)
  2307. AS SELECT
  2308.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME2,SUBSTR(DEFOBJNAME1,1,18),RELTYPE,
  2309.      REFOBJTYPE,REFOWNER,REFOBJNAME1,
  2310.      PRIVILEGES,CREATEDATE,CREATETIME
  2311.    FROM DOMAIN.#USR_USES_QPE
  2312.    WHERE defobjname1 IN(USERGROUP,'PUBLIC')
  2313.    OR USERGROUP IN(defobjname2,refowner)
  2314. WITH CHECK OPTION
  2315. /
  2316. IF $RC <> 0
  2317. THEN
  2318.      BEGIN
  2319. /
  2320.      END INIT SERVERDB
  2321. /
  2322.      STOP 7
  2323. /
  2324.      END
  2325. /
  2326. COMMIT WORK
  2327. /
  2328. GRANT SELECT ON DOMAIN.USR_USES_QPE TO PUBLIC WITH GRANT OPTION
  2329. /
  2330. IF $RC (EXISTS TABLE DOMAIN.QPEXCELLINKS) = 0
  2331. THEN
  2332.     BEGIN
  2333. /
  2334.     DROP VIEW DOMAIN.QPEXCELLINKS
  2335. /
  2336.     COMMIT WORK
  2337. /
  2338.     END
  2339. /
  2340. CREATE VIEW DOMAIN.QPEXCELLINKS
  2341.   (OWNER,EXCELLINKNAME,CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  2342. AS SELECT
  2343.      OWNER,EXCELLINKNAME,CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  2344.    FROM DOMAIN.QPEXCELLINK
  2345.    WHERE owner = USERGROUP
  2346.    UNION ALL
  2347.      SELECT T1.OWNER,T1.EXCELLINKNAME,T1.CREATEDATE,
  2348.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2349.      FROM DOMAIN.QPEXCELLINK T1,DOMAIN.USR_USES_QPE T2
  2350.      WHERE T1.owner = T2.refowner
  2351.      AND T1.excellinkname = T2.refexcellinkname
  2352.      AND T2.refowner <> USERGROUP
  2353.      AND T2.defgroupname = USERGROUP
  2354.    UNION ALL
  2355.      SELECT T1.OWNER,T1.EXCELLINKNAME,T1.CREATEDATE,
  2356.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2357.      FROM DOMAIN.QPEXCELLINK T1,DOMAIN.USR_USES_QPE T2
  2358.      WHERE T1.owner = T2.refowner
  2359.      AND T1.excellinkname = T2.refexcellinkname
  2360.      AND T2.refowner <> USERGROUP
  2361.      AND T2.defusername = 'PUBLIC'
  2362.    UNION ALL
  2363.      SELECT T1.OWNER,T1.EXCELLINKNAME,T1.CREATEDATE,
  2364.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2365.      FROM DOMAIN.QPEXCELLINK T1,DOMAIN.USR_USES_QPE T2
  2366.      WHERE T1.owner = T2.refowner
  2367.      AND T1.excellinkname = T2.refexcellinkname
  2368.      AND T2.refowner <> USERGROUP
  2369.      AND T2.defusername = USERGROUP
  2370.      AND NOT EXISTS (SELECT T1.OWNER
  2371.                      FROM DOMAIN.QPEXCELLINK T1,DOMAIN.USR_USES_QPE T2
  2372.                      WHERE T1.owner = T2.refowner
  2373.                      AND T1.excellinkname = T2.refexcellinkname
  2374.                      AND T2.refowner <> USERGROUP
  2375.                      AND T2.defusername = 'PUBLIC')
  2376. /
  2377. IF $RC <> 0
  2378. THEN
  2379.      BEGIN
  2380. /
  2381.      END INIT SERVERDB
  2382. /
  2383.      STOP 7
  2384. /
  2385.      END
  2386. /
  2387. COMMIT WORK
  2388. /
  2389. GRANT SELECT ON DOMAIN.QPEXCELLINKS TO PUBLIC WITH GRANT OPTION
  2390. /
  2391. IF $RC (EXISTS TABLE DOMAIN.QPQUERY) <> 0
  2392. THEN
  2393.     BEGIN
  2394. /
  2395.     CREATE TABLE DOMAIN.QPQUERY
  2396.       (
  2397.        OWNER        CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  2398.        QUERYNAME    CHAR(150)  ASCII KEY DEFAULT ' ',
  2399.        NAME2        CHAR(18)   ASCII KEY DEFAULT ' ',
  2400.        NAME3        CHAR(18)   ASCII KEY DEFAULT ' ',
  2401.        OBJTYPE      CHAR(18)   ASCII KEY DEFAULT 'QPQUERY',
  2402.        SUBTYPE      CHAR(12)   ASCII KEY DEFAULT ' ',
  2403.        VERSION      CHAR(4)    ASCII KEY DEFAULT ' ',
  2404.        CREATEDATE   DATE DEFAULT DATE,
  2405.        CREATETIME   TIME DEFAULT TIME,
  2406.        UPDDATE      DATE DEFAULT DATE,
  2407.        UPDTIME      TIME DEFAULT TIME,
  2408.        COMMENT      CHAR(2000) ASCII
  2409.       )
  2410.     WITH REPLICATION
  2411. /
  2412.     IF $RC <> 0
  2413.     THEN
  2414.          BEGIN
  2415. /
  2416.          END INIT SERVERDB
  2417. /
  2418.          STOP 7
  2419. /
  2420.          END
  2421. /
  2422.     COMMIT WORK
  2423. /
  2424.     END
  2425. /
  2426. IF $RC (EXISTS TABLE DOMAIN.QPQUERY_) = 0
  2427. THEN
  2428.     BEGIN
  2429. /
  2430.     DROP VIEW DOMAIN.QPQUERY_
  2431. /
  2432.     COMMIT WORK
  2433. /
  2434.     END
  2435. /
  2436. CREATE VIEW DOMAIN.QPQUERY_
  2437.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  2438.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  2439. AS SELECT
  2440.      OBJTYPE,OWNER,QUERYNAME,NAME2,NAME3,
  2441.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  2442.    FROM DOMAIN.QPQUERY
  2443. WITH CHECK OPTION
  2444. /
  2445. IF $RC <> 0
  2446. THEN
  2447.      BEGIN
  2448. /
  2449.      END INIT SERVERDB
  2450. /
  2451.      STOP 7
  2452. /
  2453.      END
  2454. /
  2455. COMMIT WORK
  2456. /
  2457. IF $RC (EXISTS TABLE DOMAIN.#USR_USES_QPQ) <> 0
  2458. THEN
  2459.     BEGIN
  2460. /
  2461.     CREATE TABLE DOMAIN.#USR_USES_QPQ
  2462.       (
  2463.        USER_ID     FIXED(10)       KEY,
  2464.        ROW_ID      CHAR(8)   BYTE  KEY,
  2465.        DEFOWNER    CHAR(18)  ASCII,
  2466.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  2467.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2468.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2469.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'USER',
  2470.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2471.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2472.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  2473.        REFOWNER    CHAR(18)  ASCII,
  2474.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  2475.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2476.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2477.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPQUERY',
  2478.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2479.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2480.        PRIVILEGES  CHAR(30)  ASCII DEFAULT 'EXECUTE',
  2481.        CREATEDATE  DATE DEFAULT DATE,
  2482.        CREATETIME  TIME DEFAULT TIME
  2483.       )
  2484.     WITH REPLICATION
  2485. /
  2486.     IF $RC <> 0
  2487.     THEN
  2488.          BEGIN
  2489. /
  2490.          END INIT SERVERDB
  2491. /
  2492.          STOP 7
  2493. /
  2494.          END
  2495. /
  2496.     CREATE INDEX INDEX1 ON DOMAIN.#USR_USES_QPQ
  2497.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  2498. /
  2499.     IF $RC <> 0
  2500.     THEN
  2501.          BEGIN
  2502. /
  2503.          END INIT SERVERDB
  2504. /
  2505.          STOP 7
  2506. /
  2507.          END
  2508. /
  2509.     CREATE INDEX INDEX2 ON DOMAIN.#USR_USES_QPQ
  2510.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  2511. /
  2512.     IF $RC <> 0
  2513.     THEN
  2514.          BEGIN
  2515. /
  2516.          END INIT SERVERDB
  2517. /
  2518.          STOP 7
  2519. /
  2520.          END
  2521. /
  2522.     END
  2523. ELSE
  2524.     BEGIN
  2525. /
  2526.     ALTER TABLE DOMAIN.#USR_USES_QPQ COLUMN DEFOBJNAME1 CHAR(150) ASCII
  2527. /
  2528.     IF $RC <> 0
  2529.     THEN
  2530.          BEGIN
  2531. /
  2532.          END INIT SERVERDB
  2533. /
  2534.          STOP 7
  2535. /
  2536.          END
  2537. /
  2538.     END
  2539. /
  2540. COMMIT WORK
  2541. /
  2542. IF $RC (EXISTS TABLE DOMAIN.USR_USES_QPQ) = 0
  2543. THEN
  2544.     BEGIN
  2545. /
  2546.     DROP VIEW DOMAIN.USR_USES_QPQ
  2547. /
  2548.     COMMIT WORK
  2549. /
  2550.     END
  2551. /
  2552. CREATE VIEW DOMAIN.USR_USES_QPQ
  2553.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  2554.    REFOBJTYPE,REFOWNER,REFQUERYNAME,
  2555.    PRIVILEGES,CREATEDATE,CREATETIME)
  2556. AS SELECT
  2557.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME2,SUBSTR(DEFOBJNAME1,1,18),RELTYPE,
  2558.      REFOBJTYPE,REFOWNER,REFOBJNAME1,
  2559.      PRIVILEGES,CREATEDATE,CREATETIME
  2560.    FROM DOMAIN.#USR_USES_QPQ
  2561.    WHERE defobjname1 IN(USERGROUP,'PUBLIC')
  2562.    OR USERGROUP IN(defobjname2,refowner)
  2563. WITH CHECK OPTION
  2564. /
  2565. IF $RC <> 0
  2566. THEN
  2567.      BEGIN
  2568. /
  2569.      END INIT SERVERDB
  2570. /
  2571.      STOP 7
  2572. /
  2573.      END
  2574. /
  2575. COMMIT WORK
  2576. /
  2577. GRANT SELECT ON DOMAIN.USR_USES_QPQ TO PUBLIC WITH GRANT OPTION
  2578. /
  2579. IF $RC (EXISTS TABLE DOMAIN.QPQUERYS) = 0
  2580. THEN
  2581.     BEGIN
  2582. /
  2583.     DROP VIEW DOMAIN.QPQUERYS
  2584. /
  2585.     COMMIT WORK
  2586. /
  2587.     END
  2588. /
  2589. CREATE VIEW DOMAIN.QPQUERYS
  2590.   (OWNER,QUERYNAME,CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  2591. AS SELECT
  2592.      OWNER,QUERYNAME,CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  2593.    FROM DOMAIN.QPQUERY
  2594.    WHERE owner = USERGROUP
  2595.    UNION ALL
  2596.      SELECT T1.OWNER,T1.QUERYNAME,T1.CREATEDATE,
  2597.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2598.      FROM DOMAIN.QPQUERY T1,DOMAIN.USR_USES_QPQ T2
  2599.      WHERE T1.owner = T2.refowner
  2600.      AND T1.queryname = T2.refqueryname
  2601.      AND T2.refowner <> USERGROUP
  2602.      AND T2.defgroupname = USERGROUP
  2603.    UNION ALL
  2604.      SELECT T1.OWNER,T1.QUERYNAME,T1.CREATEDATE,
  2605.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2606.      FROM DOMAIN.QPQUERY T1,DOMAIN.USR_USES_QPQ T2
  2607.      WHERE T1.owner = T2.refowner
  2608.      AND T1.queryname = T2.refqueryname
  2609.      AND T2.refowner <> USERGROUP
  2610.      AND T2.defusername = 'PUBLIC'
  2611.    UNION ALL
  2612.      SELECT T1.OWNER,T1.QUERYNAME,T1.CREATEDATE,
  2613.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2614.      FROM DOMAIN.QPQUERY T1,DOMAIN.USR_USES_QPQ T2
  2615.      WHERE T1.owner = T2.refowner
  2616.      AND T1.queryname = T2.refqueryname
  2617.      AND T2.refowner <> USERGROUP
  2618.      AND T2.defusername = USERGROUP
  2619.      AND NOT EXISTS (SELECT T1.OWNER
  2620.                      FROM DOMAIN.QPQUERY T1,DOMAIN.USR_USES_QPQ T2
  2621.                      WHERE T1.owner = T2.refowner
  2622.                      AND T1.queryname = T2.refqueryname
  2623.                      AND T2.refowner <> USERGROUP
  2624.                      AND T2.defusername = 'PUBLIC')
  2625. /
  2626. IF $RC <> 0
  2627. THEN
  2628.      BEGIN
  2629. /
  2630.      END INIT SERVERDB
  2631. /
  2632.      STOP 7
  2633. /
  2634.      END
  2635. /
  2636. COMMIT WORK
  2637. /
  2638. GRANT SELECT ON DOMAIN.QPQUERYS TO PUBLIC WITH GRANT OPTION
  2639. /
  2640. IF $RC (EXISTS TABLE DOMAIN.QPWORDLINK) <> 0
  2641. THEN
  2642.     BEGIN
  2643. /
  2644.     CREATE TABLE DOMAIN.QPWORDLINK
  2645.       (
  2646.        OWNER         CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  2647.        WORDLINKNAME  CHAR(150)  ASCII KEY DEFAULT ' ',
  2648.        NAME2         CHAR(18)   ASCII KEY DEFAULT ' ',
  2649.        NAME3         CHAR(18)   ASCII KEY DEFAULT ' ',
  2650.        OBJTYPE       CHAR(18)   ASCII KEY DEFAULT 'QPWORDLINK',
  2651.        SUBTYPE       CHAR(12)   ASCII KEY DEFAULT ' ',
  2652.        VERSION       CHAR(4)    ASCII KEY DEFAULT ' ',
  2653.        CREATEDATE    DATE DEFAULT DATE,
  2654.        CREATETIME    TIME DEFAULT TIME,
  2655.        UPDDATE       DATE DEFAULT DATE,
  2656.        UPDTIME       TIME DEFAULT TIME,
  2657.        COMMENT       CHAR(2000) ASCII
  2658.       )
  2659.     WITH REPLICATION
  2660. /
  2661.     IF $RC <> 0
  2662.     THEN
  2663.          BEGIN
  2664. /
  2665.          END INIT SERVERDB
  2666. /
  2667.          STOP 7
  2668. /
  2669.          END
  2670. /
  2671.     COMMIT WORK
  2672. /
  2673.     END
  2674. /
  2675. IF $RC (EXISTS TABLE DOMAIN.QPWORDLINK_) = 0
  2676. THEN
  2677.     BEGIN
  2678. /
  2679.     DROP VIEW DOMAIN.QPWORDLINK_
  2680. /
  2681.     COMMIT WORK
  2682. /
  2683.     END
  2684. /
  2685. CREATE VIEW DOMAIN.QPWORDLINK_
  2686.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  2687.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  2688. AS SELECT
  2689.      OBJTYPE,OWNER,WORDLINKNAME,NAME2,NAME3,
  2690.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  2691.    FROM DOMAIN.QPWORDLINK
  2692. WITH CHECK OPTION
  2693. /
  2694. IF $RC <> 0
  2695. THEN
  2696.      BEGIN
  2697. /
  2698.      END INIT SERVERDB
  2699. /
  2700.      STOP 7
  2701. /
  2702.      END
  2703. /
  2704. COMMIT WORK
  2705. /
  2706. IF $RC (EXISTS TABLE DOMAIN.#USR_USES_QPW) <> 0
  2707. THEN
  2708.     BEGIN
  2709. /
  2710.     CREATE TABLE DOMAIN.#USR_USES_QPW
  2711.       (
  2712.        USER_ID     FIXED(10)       KEY,
  2713.        ROW_ID      CHAR(8)   BYTE  KEY,
  2714.        DEFOWNER    CHAR(18)  ASCII,
  2715.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  2716.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2717.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2718.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'USER',
  2719.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2720.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2721.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  2722.        REFOWNER    CHAR(18)  ASCII,
  2723.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  2724.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2725.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2726.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPWORDLINK',
  2727.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2728.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2729.        PRIVILEGES  CHAR(30)  ASCII DEFAULT 'EXECUTE',
  2730.        CREATEDATE  DATE DEFAULT DATE,
  2731.        CREATETIME  TIME DEFAULT TIME
  2732.       )
  2733.     WITH REPLICATION
  2734. /
  2735.     IF $RC <> 0
  2736.     THEN
  2737.          BEGIN
  2738. /
  2739.          END INIT SERVERDB
  2740. /
  2741.          STOP 7
  2742. /
  2743.          END
  2744. /
  2745.     CREATE INDEX INDEX1 ON DOMAIN.#USR_USES_QPW
  2746.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  2747. /
  2748.     IF $RC <> 0
  2749.     THEN
  2750.          BEGIN
  2751. /
  2752.          END INIT SERVERDB
  2753. /
  2754.          STOP 7
  2755. /
  2756.          END
  2757. /
  2758.     CREATE INDEX INDEX2 ON DOMAIN.#USR_USES_QPW
  2759.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  2760. /
  2761.     IF $RC <> 0
  2762.     THEN
  2763.          BEGIN
  2764. /
  2765.          END INIT SERVERDB
  2766. /
  2767.          STOP 7
  2768. /
  2769.          END
  2770. /
  2771.     END
  2772. ELSE
  2773.     BEGIN
  2774. /
  2775.     ALTER TABLE DOMAIN.#USR_USES_QPW COLUMN DEFOBJNAME1 CHAR(150) ASCII
  2776. /
  2777.     IF $RC <> 0
  2778.     THEN
  2779.          BEGIN
  2780. /
  2781.          END INIT SERVERDB
  2782. /
  2783.          STOP 7
  2784. /
  2785.          END
  2786. /
  2787.     END
  2788. /
  2789. COMMIT WORK
  2790. /
  2791. IF $RC (EXISTS TABLE DOMAIN.USR_USES_QPW) = 0
  2792. THEN
  2793.     BEGIN
  2794. /
  2795.     DROP VIEW DOMAIN.USR_USES_QPW
  2796. /
  2797.     COMMIT WORK
  2798. /
  2799.     END
  2800. /
  2801. CREATE VIEW DOMAIN.USR_USES_QPW
  2802.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  2803.    REFOBJTYPE,REFOWNER,REFWORDLINKNAME,
  2804.    PRIVILEGES,CREATEDATE,CREATETIME)
  2805. AS SELECT
  2806.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME2,SUBSTR(DEFOBJNAME1,1,18),RELTYPE,
  2807.      REFOBJTYPE,REFOWNER,REFOBJNAME1,
  2808.      PRIVILEGES,CREATEDATE,CREATETIME
  2809.    FROM DOMAIN.#USR_USES_QPW
  2810.    WHERE defobjname1 IN(USERGROUP,'PUBLIC')
  2811.    OR USERGROUP IN(defobjname2,refowner)
  2812. WITH CHECK OPTION
  2813. /
  2814. IF $RC <> 0
  2815. THEN
  2816.      BEGIN
  2817. /
  2818.      END INIT SERVERDB
  2819. /
  2820.      STOP 7
  2821. /
  2822.      END
  2823. /
  2824. COMMIT WORK
  2825. /
  2826. GRANT SELECT ON DOMAIN.USR_USES_QPW TO PUBLIC WITH GRANT OPTION
  2827. /
  2828. IF $RC (EXISTS TABLE DOMAIN.QPWORDLINKS) = 0
  2829. THEN
  2830.     BEGIN
  2831. /
  2832.     DROP VIEW DOMAIN.QPWORDLINKS
  2833. /
  2834.     COMMIT WORK
  2835. /
  2836.     END
  2837. /
  2838. CREATE VIEW DOMAIN.QPWORDLINKS
  2839.   (OWNER,WORDLINKNAME,CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  2840. AS SELECT
  2841.      OWNER,WORDLINKNAME,CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  2842.    FROM DOMAIN.QPWORDLINK
  2843.    WHERE owner = USERGROUP
  2844.    UNION ALL
  2845.      SELECT T1.OWNER,T1.WORDLINKNAME,T1.CREATEDATE,
  2846.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2847.      FROM DOMAIN.QPWORDLINK T1,DOMAIN.USR_USES_QPW T2
  2848.      WHERE T1.owner = T2.refowner
  2849.      AND T1.wordlinkname = T2.refwordlinkname
  2850.      AND T2.refowner <> USERGROUP
  2851.      AND T2.defgroupname = USERGROUP
  2852.    UNION ALL
  2853.      SELECT T1.OWNER,T1.WORDLINKNAME,T1.CREATEDATE,
  2854.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2855.      FROM DOMAIN.QPWORDLINK T1,DOMAIN.USR_USES_QPW T2
  2856.      WHERE T1.owner = T2.refowner
  2857.      AND T1.wordlinkname = T2.refwordlinkname
  2858.      AND T2.refowner <> USERGROUP
  2859.      AND T2.defusername = 'PUBLIC'
  2860.    UNION ALL
  2861.      SELECT T1.OWNER,T1.WORDLINKNAME,T1.CREATEDATE,
  2862.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  2863.      FROM DOMAIN.QPWORDLINK T1,DOMAIN.USR_USES_QPW T2
  2864.      WHERE T1.owner = T2.refowner
  2865.      AND T1.wordlinkname = T2.refwordlinkname
  2866.      AND T2.refowner <> USERGROUP
  2867.      AND T2.defusername = USERGROUP
  2868.      AND NOT EXISTS (SELECT T1.OWNER
  2869.                      FROM DOMAIN.QPWORDLINK T1,DOMAIN.USR_USES_QPW T2
  2870.                      WHERE T1.owner = T2.refowner
  2871.                      AND T1.wordlinkname = T2.refwordlinkname
  2872.                      AND T2.refowner <> USERGROUP
  2873.                      AND T2.defusername = 'PUBLIC')
  2874. /
  2875. IF $RC <> 0
  2876. THEN
  2877.      BEGIN
  2878. /
  2879.      END INIT SERVERDB
  2880. /
  2881.      STOP 7
  2882. /
  2883.      END
  2884. /
  2885. COMMIT WORK
  2886. /
  2887. GRANT SELECT ON DOMAIN.QPWORDLINKS TO PUBLIC WITH GRANT OPTION
  2888. /
  2889. IF $RC (EXISTS TABLE DOMAIN.QUERYCOMMAND) <> 0
  2890. THEN
  2891.     BEGIN
  2892. /
  2893.     CREATE TABLE DOMAIN.QUERYCOMMAND
  2894.       (
  2895.        AUTHNAME     CHAR(18)   ASCII KEY DEFAULT USERGROUP,
  2896.        COMMAND_NAME CHAR(18)   ASCII KEY DEFAULT ' ',
  2897.        NAME2        CHAR(18)   ASCII KEY DEFAULT ' ',
  2898.        NAME3        CHAR(18)   ASCII KEY DEFAULT ' ',
  2899.        OBJTYPE      CHAR(18)   ASCII KEY DEFAULT 'QUERYCOMMAND',
  2900.        SUBTYPE      CHAR(12)   ASCII KEY DEFAULT ' ',
  2901.        VERSION      CHAR(4)    ASCII KEY DEFAULT ' ',
  2902.        LONGNAME     CHAR(40)   ASCII DEFAULT ' ',
  2903.        CREATEDATE   DATE DEFAULT DATE,
  2904.        CREATETIME   TIME DEFAULT TIME,
  2905.        UPDDATE      DATE DEFAULT DATE,
  2906.        UPDTIME      TIME DEFAULT TIME,
  2907.        COMMENT      CHAR(2000) ASCII
  2908.       )
  2909.     WITH REPLICATION
  2910. /
  2911.     IF $RC <> 0
  2912.     THEN
  2913.          BEGIN
  2914. /
  2915.          END INIT SERVERDB
  2916. /
  2917.          STOP 7
  2918. /
  2919.          END
  2920. /
  2921.     COMMIT WORK
  2922. /
  2923.     END
  2924. /
  2925. IF $RC (EXISTS TABLE DOMAIN.QUERYCOMMAND_) = 0
  2926. THEN
  2927.     BEGIN
  2928. /
  2929.     DROP VIEW DOMAIN.QUERYCOMMAND_
  2930. /
  2931.     COMMIT WORK
  2932. /
  2933.     END
  2934. /
  2935. CREATE VIEW DOMAIN.QUERYCOMMAND_
  2936.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,
  2937.    SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME)
  2938. AS SELECT
  2939.      OBJTYPE,AUTHNAME,COMMAND_NAME,NAME2,NAME3,
  2940.      SUBTYPE,VERSION,COMMENT,UPDDATE,UPDTIME
  2941.    FROM DOMAIN.QUERYCOMMAND
  2942. WITH CHECK OPTION
  2943. /
  2944. IF $RC <> 0
  2945. THEN
  2946.      BEGIN
  2947. /
  2948.      END INIT SERVERDB
  2949. /
  2950.      STOP 7
  2951. /
  2952.      END
  2953. /
  2954. COMMIT WORK
  2955. /
  2956. IF $RC (EXISTS TABLE DOMAIN.#USR_USES_QCM) <> 0
  2957. THEN
  2958.     BEGIN
  2959. /
  2960.     CREATE TABLE DOMAIN.#USR_USES_QCM
  2961.       (
  2962.        USER_ID     FIXED(10)       KEY,
  2963.        ROW_ID      CHAR(8)   BYTE  KEY,
  2964.        DEFOWNER    CHAR(18)  ASCII,
  2965.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  2966.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2967.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2968.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'USER',
  2969.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2970.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2971.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  2972.        REFOWNER    CHAR(18)  ASCII,
  2973.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  2974.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  2975.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  2976.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QUERYCOMMAND',
  2977.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  2978.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  2979.        PRIVILEGES  CHAR(30)  ASCII DEFAULT 'EXECUTE COPY',
  2980.        CREATEDATE  DATE DEFAULT DATE,
  2981.        CREATETIME  TIME DEFAULT TIME
  2982.       )
  2983.     WITH REPLICATION
  2984. /
  2985.     IF $RC <> 0
  2986.     THEN
  2987.          BEGIN
  2988. /
  2989.          END INIT SERVERDB
  2990. /
  2991.          STOP 7
  2992. /
  2993.          END
  2994. /
  2995.     CREATE INDEX INDEX1 ON DOMAIN.#USR_USES_QCM
  2996.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  2997. /
  2998.     IF $RC <> 0
  2999.     THEN
  3000.          BEGIN
  3001. /
  3002.          END INIT SERVERDB
  3003. /
  3004.          STOP 7
  3005. /
  3006.          END
  3007. /
  3008.     CREATE INDEX INDEX2 ON DOMAIN.#USR_USES_QCM
  3009.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  3010. /
  3011.     IF $RC <> 0
  3012.     THEN
  3013.          BEGIN
  3014. /
  3015.          END INIT SERVERDB
  3016. /
  3017.          STOP 7
  3018. /
  3019.          END
  3020. /
  3021.     COMMIT WORK
  3022. /
  3023.     END
  3024. /
  3025. IF $RC (EXISTS TABLE DOMAIN.USR_USES_QCM) = 0
  3026. THEN
  3027.     BEGIN
  3028. /
  3029.     DROP VIEW DOMAIN.USR_USES_QCM
  3030. /
  3031.     COMMIT WORK
  3032. /
  3033.     END
  3034. /
  3035. CREATE VIEW DOMAIN.USR_USES_QCM
  3036.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  3037.    REFOBJTYPE,REFOWNER,REFCOMMANDNAME,
  3038.    PRIVILEGES,CREATEDATE,CREATETIME)
  3039. AS SELECT
  3040.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME2,DEFOBJNAME1,RELTYPE,
  3041.      REFOBJTYPE,REFOWNER,REFOBJNAME1,
  3042.      PRIVILEGES,CREATEDATE,CREATETIME
  3043.    FROM DOMAIN.#USR_USES_QCM
  3044.    WHERE defobjname1 IN(USERGROUP,'PUBLIC')
  3045.    OR USERGROUP IN(defobjname2,refowner)
  3046. WITH CHECK OPTION
  3047. /
  3048. IF $RC <> 0
  3049. THEN
  3050.      BEGIN
  3051. /
  3052.      END INIT SERVERDB
  3053. /
  3054.      STOP 7
  3055. /
  3056.      END
  3057. /
  3058. COMMIT WORK
  3059. /
  3060. GRANT SELECT ON DOMAIN.USR_USES_QCM TO PUBLIC WITH GRANT OPTION
  3061. /
  3062. IF $RC (EXISTS TABLE DOMAIN.QUERYCOMMANDS) = 0
  3063. THEN
  3064.     BEGIN
  3065. /
  3066.     DROP VIEW DOMAIN.QUERYCOMMANDS
  3067. /
  3068.     COMMIT WORK
  3069. /
  3070.     END
  3071. /
  3072. CREATE VIEW DOMAIN.QUERYCOMMANDS
  3073.   (OWNER,COMMANDNAME,CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,COMMENT)
  3074. AS
  3075.    SELECT
  3076.      AUTHNAME,COMMAND_NAME,CREATEDATE,CREATETIME,UPDDATE,UPDTIME,COMMENT
  3077.    FROM DOMAIN.QUERYCOMMAND
  3078.    WHERE authname = USERGROUP
  3079.    UNION ALL
  3080.      SELECT T1.AUTHNAME,T1.COMMAND_NAME,T1.CREATEDATE,
  3081.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  3082.      FROM DOMAIN.QUERYCOMMAND T1,DOMAIN.USR_USES_QCM T2
  3083.      WHERE T1.authname = T2.refowner
  3084.      AND T1.command_name = T2.refcommandname
  3085.      AND T2.refowner <> USERGROUP
  3086.      AND T2.defgroupname = USERGROUP
  3087.    UNION ALL
  3088.      SELECT T1.AUTHNAME,T1.COMMAND_NAME,T1.CREATEDATE,
  3089.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  3090.      FROM DOMAIN.QUERYCOMMAND T1,DOMAIN.USR_USES_QCM T2
  3091.      WHERE T1.authname = T2.refowner
  3092.      AND T1.command_name = T2.refcommandname
  3093.      AND T2.refowner <> USERGROUP
  3094.      AND T2.defusername = 'PUBLIC'
  3095.    UNION ALL
  3096.      SELECT T1.AUTHNAME,T1.COMMAND_NAME,T1.CREATEDATE,
  3097.             T1.CREATETIME,T1.UPDDATE,T1.UPDTIME,T1.COMMENT
  3098.      FROM DOMAIN.QUERYCOMMAND T1,DOMAIN.USR_USES_QCM T2
  3099.      WHERE T1.authname = T2.refowner
  3100.      AND T1.command_name = T2.refcommandname
  3101.      AND T2.refowner <> USERGROUP
  3102.      AND T2.defusername = USERGROUP
  3103.      AND NOT EXISTS (SELECT T1.AUTHNAME
  3104.                      FROM DOMAIN.QUERYCOMMAND T1,DOMAIN.USR_USES_QCM T2
  3105.                      WHERE T1.authname = T2.refowner
  3106.                      AND T1.command_name = T2.refcommandname
  3107.                      AND T2.refowner <> USERGROUP
  3108.                      AND T2.defusername = 'PUBLIC')
  3109. /
  3110. IF $RC <> 0
  3111. THEN
  3112.      BEGIN
  3113. /
  3114.      END INIT SERVERDB
  3115. /
  3116.      STOP 7
  3117. /
  3118.      END
  3119. /
  3120. COMMIT WORK
  3121. /
  3122. GRANT SELECT ON DOMAIN.QUERYCOMMANDS TO PUBLIC WITH GRANT OPTION
  3123. /
  3124. IF $RC (EXISTS TABLE DOMAIN.SEQUENCES) = 0
  3125. THEN
  3126.     BEGIN
  3127. /
  3128.     DROP VIEW DOMAIN.SEQUENCES
  3129. /
  3130.     COMMIT WORK
  3131. /
  3132.     END
  3133. /
  3134. CREATE VIEW DOMAIN.SEQUENCES
  3135.   (OWNER,SEQUENCE_NAME,MIN_VALUE,MAX_VALUE,INCREMENT_BY,CYCLE_FLAG,
  3136.    ORDER_FLAG,CACHE_SIZE,LAST_NUMBER,CREATEDATE,CREATETIME,COMMENT)
  3137. AS SELECT
  3138.      OWNER,SEQUENCE_NAME,MIN_VALUE,MAX_VALUE,INCREMENT_BY,CYCLE_FLAG,
  3139.      ORDER_FLAG,CACHE_SIZE,LAST_NUMBER,"DATE","TIME",COMMENT
  3140.    FROM SYSDD.SEQUENCES
  3141. /
  3142. IF $RC <> 0
  3143. THEN
  3144.      BEGIN
  3145. /
  3146.      END INIT SERVERDB
  3147. /
  3148.      STOP 7
  3149. /
  3150.      END
  3151. /
  3152. COMMIT WORK
  3153. /
  3154. GRANT SELECT ON DOMAIN.SEQUENCES TO PUBLIC WITH GRANT OPTION
  3155. /
  3156. CREATE VIEW DOMAIN.SEQUENCE_
  3157.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  3158. AS SELECT
  3159.     'SEQUENCE',OWNER,SEQUENCE_NAME,' ',' ',' ',' ',COMMENT
  3160.    FROM DOMAIN.SEQUENCES
  3161. /
  3162. IF $RC <> 0
  3163. THEN
  3164.      BEGIN
  3165. /
  3166.      END INIT SERVERDB
  3167. /
  3168.      STOP 7
  3169. /
  3170.      END
  3171. /
  3172. COMMIT WORK
  3173. /
  3174. IF $RC (EXISTS TABLE DOMAIN.SERVERDBS) = 0
  3175. THEN
  3176.     BEGIN
  3177. /
  3178.     DROP VIEW DOMAIN.SERVERDBS
  3179. /
  3180.     COMMIT WORK
  3181. /
  3182.     END
  3183. /
  3184. CREATE VIEW DOMAIN.SERVERDBS
  3185. AS SELECT *
  3186.    FROM SYSDD.SERVERDBS
  3187. /
  3188. IF $RC <> 0
  3189. THEN
  3190.      BEGIN
  3191. /
  3192.      END INIT SERVERDB
  3193. /
  3194.      STOP 7
  3195. /
  3196.      END
  3197. /
  3198. COMMIT WORK
  3199. /
  3200. GRANT SELECT ON DOMAIN.SERVERDBS TO PUBLIC WITH GRANT OPTION
  3201. /
  3202. IF $RC (EXISTS TABLE DOMAIN.SNAPSHOTS) = 0
  3203. THEN
  3204.     BEGIN
  3205. /
  3206.     DROP VIEW DOMAIN.SNAPSHOTS
  3207. /
  3208.     COMMIT WORK
  3209. /
  3210.     END
  3211. /
  3212. CREATE VIEW DOMAIN.SNAPSHOTS
  3213.   (OWNER,SNAPSHOTNAME,PRIVILEGES,TYPE,CREATEDATE,CREATETIME,
  3214.    UPDSTATDATE,UPDSTATTIME,ALTERDATE,ALTERTIME,
  3215.    REPLICATION,SERVERDB,SERVERNODE,UNLOADED,COMMENT)
  3216. AS SELECT
  3217.      OWNER,TABLENAME,PRIVILEGES,TYPE,"DATE","TIME",
  3218.      UPDSTATDATE,UPDSTATTIME,ALTERDATE,ALTERTIME,
  3219.      DECODE(REPLICATION,'NONE','NO','UNKNOWN',NULL,'YES'),
  3220.      SERVERDB,SERVERNODE,UNLOADED,COMMENT
  3221.    FROM SYSDD.TABLES
  3222.    WHERE type = 'SNAPSHOT'
  3223. /
  3224. IF $RC <> 0
  3225. THEN
  3226.      BEGIN
  3227. /
  3228.      END INIT SERVERDB
  3229. /
  3230.      STOP 7
  3231. /
  3232.      END
  3233. /
  3234. COMMIT WORK
  3235. /
  3236. GRANT SELECT ON DOMAIN.SNAPSHOTS TO PUBLIC WITH GRANT OPTION
  3237. /
  3238. IF $RC (EXISTS TABLE DOMAIN.SNAPSHOTDEFS) = 0
  3239. THEN
  3240.     BEGIN
  3241. /
  3242.     DROP VIEW DOMAIN.SNAPSHOTDEFS
  3243. /
  3244.     COMMIT WORK
  3245. /
  3246.     END
  3247. /
  3248. CREATE VIEW DOMAIN.SNAPSHOTDEFS
  3249.   (OWNER,SNAPSHOTNAME,FAST_REFRESHABLE,MASTER_OWNER,MASTER_TABLENAME,LEN,DEFINITION)
  3250. AS SELECT
  3251.      OWNER,TABLENAME,FAST_REFRESHABLE,MASTER_OWNER,MASTER_TABLENAME,LEN,DEFINITION
  3252.    FROM SYSDD.SNAPSHOTS
  3253.    WHERE owner = USERGROUP
  3254. /
  3255. IF $RC <> 0
  3256. THEN
  3257.      BEGIN
  3258. /
  3259.      END INIT SERVERDB
  3260. /
  3261.      STOP 7
  3262. /
  3263.      END
  3264. /
  3265. COMMIT WORK
  3266. /
  3267. GRANT SELECT ON DOMAIN.SNAPSHOTDEFS TO PUBLIC WITH GRANT OPTION
  3268. /
  3269. IF $RC (EXISTS TABLE DOMAIN.SYNONYMS) = 0
  3270. THEN
  3271.     BEGIN
  3272. /
  3273.     DROP VIEW DOMAIN.SYNONYMS
  3274. /
  3275.     COMMIT WORK
  3276. /
  3277.     END
  3278. /
  3279. CREATE VIEW DOMAIN.SYNONYMS
  3280.   (OWNER,SYNONYMNAME,TABLEOWNER,TABLENAME,
  3281.    CREATEDATE,CREATETIME,COMMENT)
  3282. AS SELECT
  3283.      USERGROUP,S.SYNONYMNAME,S.OWNER,S.TABLENAME,
  3284.      S."DATE",S."TIME",T.COMMENT
  3285.    FROM SYSDD.TABLES T, SYSDD.SYNONYMS S
  3286.    WHERE T.owner = USERGROUP
  3287.    AND T.tablename = S.synonymname
  3288.    AND T.type = 'SYNONYM'
  3289. /
  3290. IF $RC <> 0
  3291. THEN
  3292.      BEGIN
  3293. /
  3294.      END INIT SERVERDB
  3295. /
  3296.      STOP 7
  3297. /
  3298.      END
  3299. /
  3300. COMMIT WORK
  3301. /
  3302. GRANT SELECT ON DOMAIN.SYNONYMS TO PUBLIC WITH GRANT OPTION
  3303. /
  3304. CREATE VIEW DOMAIN.SYNONYM_
  3305.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  3306. AS SELECT
  3307.      'SYNONYM',OWNER,SYNONYMNAME,' ',' ',' ',' ',COMMENT
  3308.    FROM DOMAIN.SYNONYMS
  3309. /
  3310. IF $RC <> 0
  3311. THEN
  3312.      BEGIN
  3313. /
  3314.      END INIT SERVERDB
  3315. /
  3316.      STOP 7
  3317. /
  3318.      END
  3319. /
  3320. COMMIT WORK
  3321. /
  3322. IF $RC (EXISTS TABLE DOMAIN.TABLES) = 0
  3323. THEN
  3324.     BEGIN
  3325. /
  3326.     DROP VIEW DOMAIN.TABLES
  3327. /
  3328.     COMMIT WORK
  3329. /
  3330.     END
  3331. /
  3332. CREATE VIEW DOMAIN.TABLES
  3333.   (OWNER,TABLENAME,PRIVILEGES,TYPE,CREATEDATE,CREATETIME,
  3334.    UPDSTATDATE,UPDSTATTIME,ALTERDATE,ALTERTIME,
  3335.    REPLICATION,SERVERDB,SERVERNODE,SNAPSHOT_LOG,UNLOADED,COMMENT)
  3336. AS SELECT
  3337.      OWNER,TABLENAME,PRIVILEGES,TYPE,"DATE","TIME",
  3338.      UPDSTATDATE,UPDSTATTIME,ALTERDATE,ALTERTIME,
  3339.      DECODE(REPLICATION,'NONE','NO','UNKNOWN',NULL,'YES'),
  3340.      SERVERDB,SERVERNODE,SNAPSHOT_LOG,UNLOADED,COMMENT
  3341.    FROM SYSDD.TABLES
  3342.    WHERE type IN('TABLE','RESULT','SYNONYM','SNAPSHOT','VIEW','SYSTEM')
  3343. /
  3344. IF $RC <> 0
  3345. THEN
  3346.      BEGIN
  3347. /
  3348.      END INIT SERVERDB
  3349. /
  3350.      STOP 7
  3351. /
  3352.      END
  3353. /
  3354. COMMIT WORK
  3355. /
  3356. GRANT SELECT ON DOMAIN.TABLES TO PUBLIC WITH GRANT OPTION
  3357. /
  3358. CREATE VIEW DOMAIN.TABLE_
  3359.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  3360. AS SELECT
  3361.      'TABLE',OWNER,TABLENAME,' ',' ',' ',' ',COMMENT
  3362.    FROM DOMAIN.TABLES
  3363. /
  3364. IF $RC <> 0
  3365. THEN
  3366.      BEGIN
  3367. /
  3368.      END INIT SERVERDB
  3369. /
  3370.      STOP 7
  3371. /
  3372.      END
  3373. /
  3374. COMMIT WORK
  3375. /
  3376. IF $RC (EXISTS TABLE DOMAIN.TERMCHARSETS) = 0
  3377. THEN
  3378.     BEGIN
  3379. /
  3380.     DROP VIEW DOMAIN.TERMCHARSETS
  3381. /
  3382.     COMMIT WORK
  3383. /
  3384.     END
  3385. /
  3386. CREATE VIEW DOMAIN.TERMCHARSETS
  3387. AS SELECT *
  3388.    FROM SYSDD.TERMCHARSETS
  3389. /
  3390. IF $RC <> 0
  3391. THEN
  3392.      BEGIN
  3393. /
  3394.      END INIT SERVERDB
  3395. /
  3396.      STOP 7
  3397. /
  3398.      END
  3399. /
  3400. COMMIT WORK
  3401. /
  3402. GRANT SELECT ON DOMAIN.TERMCHARSETS TO PUBLIC WITH GRANT OPTION
  3403. /
  3404. IF $RC (EXISTS TABLE DOMAIN.TRIGGERS) = 0
  3405. THEN
  3406.     BEGIN
  3407. /
  3408.     DROP VIEW DOMAIN.TRIGGERS
  3409. /
  3410.     COMMIT WORK
  3411. /
  3412.     END
  3413. /
  3414. CREATE VIEW DOMAIN.TRIGGERS
  3415.   (OWNER,TABLENAME,TRIGGERNAME,"INSERT","UPDATE","DELETE",
  3416.    CREATEDATE,CREATETIME,DEFINITION,COMMENT)
  3417. AS SELECT
  3418.      OWNER,TABLENAME,TRIGGERNAME,INSERT,UPDATE,DELETE,
  3419.      "DATE","TIME",DEFINITION,COMMENT
  3420.    FROM SYSDD.TRIGGERS
  3421. /
  3422. IF $RC <> 0
  3423. THEN
  3424.      BEGIN
  3425. /
  3426.      END INIT SERVERDB
  3427. /
  3428.      STOP 7
  3429. /
  3430.      END
  3431. /
  3432. COMMIT WORK
  3433. /
  3434. GRANT SELECT ON DOMAIN.TRIGGERS TO PUBLIC WITH GRANT OPTION
  3435. /
  3436. CREATE VIEW DOMAIN.TRIGGER_
  3437.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  3438. AS SELECT
  3439.      'TRIGGER',OWNER,TABLENAME,TRIGGERNAME,' ',' ',' ',COMMENT
  3440.    FROM DOMAIN.TRIGGERS
  3441. /
  3442. IF $RC <> 0
  3443. THEN
  3444.      BEGIN
  3445. /
  3446.      END INIT SERVERDB
  3447. /
  3448.      STOP 7
  3449. /
  3450.      END
  3451. /
  3452. COMMIT WORK
  3453. /
  3454. IF $RC (EXISTS TABLE DOMAIN.TRIGGERPARAMS) = 0
  3455. THEN
  3456.     BEGIN
  3457. /
  3458.     DROP VIEW DOMAIN.TRIGGERPARAMS
  3459. /
  3460.     COMMIT WORK
  3461. /
  3462.     END
  3463. /
  3464. CREATE VIEW DOMAIN.TRIGGERPARAMS
  3465.   (OWNER,TABLENAME,TRIGGERNAME,PARAMETERNAME,POS,"NEW/OLD-TYPE",
  3466.    DATATYPE,LEN,"DEC",CREATEDATE,CREATETIME)
  3467. AS SELECT
  3468.      OWNER,TABLENAME,TRIGGERNAME,PARAMETERNAME,PARAM_NO,"NEW/OLD_TYPE",
  3469.      DECODE(DATATYPE,'BYTE','CHAR BYTE',DATATYPE),LEN,DEC,"DATE","TIME"
  3470.    FROM SYSDD.TRIGGERPARAMETERS
  3471. /
  3472. IF $RC <> 0
  3473. THEN
  3474.      BEGIN
  3475. /
  3476.      END INIT SERVERDB
  3477. /
  3478.      STOP 7
  3479. /
  3480.      END
  3481. /
  3482. COMMIT WORK
  3483. /
  3484. GRANT SELECT ON DOMAIN.TRIGGERPARAMS TO PUBLIC WITH GRANT OPTION
  3485. /
  3486. IF $RC (EXISTS TABLE DOMAIN.USERS) = 0
  3487. THEN
  3488.     BEGIN
  3489. /
  3490.     DROP VIEW DOMAIN.USERS
  3491. /
  3492.     COMMIT WORK
  3493. /
  3494.     END
  3495. /
  3496. CREATE VIEW DOMAIN.USERS
  3497.   (OWNER,GROUPNAME,USERNAME,USERMODE,CONNECTMODE,PERMLIMIT,TEMPLIMIT,
  3498.    MAXTIMEOUT,COSTWARNING,COSTLIMIT,CACHELIMIT,CREATEDATE,CREATETIME,ALTERDATE,
  3499.    ALTERTIME,PWCREADATE,PWCREATIME,SERVERDB,SERVERNODE,USER_ID,COMMENT)
  3500. AS SELECT
  3501.      OWNER,GROUPNAME,USERNAME,USERMODE,CONNECT,PERMLIMIT,TEMPLIMIT,
  3502.      MAXTIMEOUT,COSTWARNING,COSTLIMIT,CACHELIMIT,"DATE","TIME",ALTERDATE,
  3503.      ALTERTIME,PWCREATEDATE,PWCREATETIME,SERVERDB,SERVERNODE,USER_ID,COMMENT
  3504.    FROM SYSDD.USERS
  3505. /
  3506. IF $RC <> 0
  3507. THEN
  3508.      BEGIN
  3509. /
  3510.      END INIT SERVERDB
  3511. /
  3512.      STOP 7
  3513. /
  3514.      END
  3515. /
  3516. COMMIT WORK
  3517. /
  3518. GRANT SELECT (OWNER,GROUPNAME,USERNAME,USERMODE,CONNECTMODE,PERMLIMIT,
  3519.               TEMPLIMIT,MAXTIMEOUT,COSTWARNING,COSTLIMIT,CACHELIMIT,
  3520.               CREATEDATE,CREATETIME,ALTERDATE,ALTERTIME,PWCREADATE,
  3521.               PWCREATIME,SERVERDB,SERVERNODE,COMMENT)
  3522. ON DOMAIN.USERS TO PUBLIC WITH GRANT OPTION
  3523. /
  3524. CREATE VIEW DOMAIN.USER_
  3525.   (OBJTYPE,OWNER,NAME1,NAME2,NAME3,SUBTYPE,VERSION,COMMENT)
  3526. AS SELECT
  3527.      'USER',OWNER,GROUPNAME,USERNAME,' ',' ',' ',COMMENT
  3528.    FROM DOMAIN.USERS
  3529. /
  3530. IF $RC <> 0
  3531. THEN
  3532.      BEGIN
  3533. /
  3534.      END INIT SERVERDB
  3535. /
  3536.      STOP 7
  3537. /
  3538.      END
  3539. /
  3540. COMMIT WORK
  3541. /
  3542. IF $RC (EXISTS TABLE DOMAIN.CONNECTEDUSERS) = 0
  3543. THEN
  3544.     BEGIN
  3545. /
  3546.     DROP VIEW DOMAIN.CONNECTEDUSERS
  3547. /
  3548.     COMMIT WORK
  3549. /
  3550.     END
  3551. /
  3552. CREATE VIEW DOMAIN.CONNECTEDUSERS
  3553. AS SELECT *
  3554.    FROM SYSDD.CONNECTED_USERS
  3555. /
  3556. IF $RC <> 0
  3557. THEN
  3558.      BEGIN
  3559. /
  3560.      END INIT SERVERDB
  3561. /
  3562.      STOP 7
  3563. /
  3564.      END
  3565. /
  3566. COMMIT WORK
  3567. /
  3568. GRANT SELECT ON DOMAIN.CONNECTEDUSERS TO PUBLIC WITH GRANT OPTION
  3569. /
  3570. IF $RC (EXISTS TABLE DOMAIN.VERSIONS) = 0
  3571. THEN
  3572.     BEGIN
  3573. /
  3574.     DROP VIEW DOMAIN.VERSIONS
  3575. /
  3576.     COMMIT WORK
  3577. /
  3578.     END
  3579. /
  3580. CREATE VIEW DOMAIN.VERSIONS
  3581. AS SELECT *
  3582.    FROM SYSDD.VERSION
  3583. /
  3584. IF $RC <> 0
  3585. THEN
  3586.      BEGIN
  3587. /
  3588.      END INIT SERVERDB
  3589. /
  3590.      STOP 7
  3591. /
  3592.      END
  3593. /
  3594. COMMIT WORK
  3595. /
  3596. GRANT SELECT ON DOMAIN.VERSIONS TO PUBLIC WITH GRANT OPTION
  3597. /
  3598. IF $RC (EXISTS TABLE DOMAIN.VIEWS) = 0
  3599. THEN
  3600.     BEGIN
  3601. /
  3602.     DROP VIEW DOMAIN.VIEWS
  3603. /
  3604.     COMMIT WORK
  3605. /
  3606.     END
  3607. /
  3608. CREATE VIEW DOMAIN.VIEWS
  3609.   (OWNER,VIEWNAME,PRIVILEGES,TYPE,CREATEDATE,CREATETIME,
  3610.    UPDSTATDATE,UPDSTATTIME,ALTERDATE,ALTERTIME,
  3611.    REPLICATION,SERVERDB,SERVERNODE,UNLOADED,COMMENT)
  3612. AS SELECT
  3613.      OWNER,TABLENAME,PRIVILEGES,TYPE,"DATE","TIME",
  3614.      UPDSTATDATE,UPDSTATTIME,ALTERDATE,ALTERTIME,
  3615.      DECODE(REPLICATION,'NONE','NO','UNKNOWN',NULL,'YES'),
  3616.      SERVERDB,SERVERNODE,UNLOADED,COMMENT
  3617.    FROM SYSDD.TABLES
  3618.    WHERE type = 'VIEW'
  3619. /
  3620. IF $RC <> 0
  3621. THEN
  3622.      BEGIN
  3623. /
  3624.      END INIT SERVERDB
  3625. /
  3626.      STOP 7
  3627. /
  3628.      END
  3629. /
  3630. COMMIT WORK
  3631. /
  3632. GRANT SELECT ON DOMAIN.VIEWS TO PUBLIC WITH GRANT OPTION
  3633. /
  3634. IF $RC (EXISTS TABLE DOMAIN.VIEWDEFS) = 0
  3635. THEN
  3636.     BEGIN
  3637. /
  3638.     DROP VIEW DOMAIN.VIEWDEFS
  3639. /
  3640.     COMMIT WORK
  3641. /
  3642.     END
  3643. /
  3644. CREATE VIEW DOMAIN.VIEWDEFS
  3645.   (OWNER,VIEWNAME,LEN,DEFINITION)
  3646. AS SELECT
  3647.      OWNER,TABLENAME,LEN,DEFINITION
  3648.    FROM SYSDD.VIEWS
  3649.    WHERE owner = USERGROUP
  3650. /
  3651. IF $RC <> 0
  3652. THEN
  3653.      BEGIN
  3654. /
  3655.      END INIT SERVERDB
  3656. /
  3657.      STOP 7
  3658. /
  3659.      END
  3660. /
  3661. COMMIT WORK
  3662. /
  3663. GRANT SELECT ON DOMAIN.VIEWDEFS TO PUBLIC WITH GRANT OPTION
  3664. /
  3665. IF $RC (EXISTS TABLE DOMAIN.FKC_REFS_COL) = 0
  3666. THEN
  3667.     BEGIN
  3668. /
  3669.     DROP VIEW DOMAIN.FKC_REFS_COL
  3670. /
  3671.     COMMIT WORK
  3672. /
  3673.     END
  3674. /
  3675. CREATE VIEW DOMAIN.FKC_REFS_COL
  3676.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFCOLUMNNAME,DEFFKEYNAME,RELTYPE,
  3677.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  3678.    RULE,CREATEDATE,CREATETIME,FKEYCOMMENT)
  3679. AS SELECT
  3680.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,REFNAME,'REFERS',
  3681.      'COLUMN',REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  3682.      RULE,"DATE","TIME",COMMENT
  3683.    FROM SYSDD.FOREIGN_KEYS
  3684. /
  3685. IF $RC <> 0
  3686. THEN
  3687.      BEGIN
  3688. /
  3689.      END INIT SERVERDB
  3690. /
  3691.      STOP 7
  3692. /
  3693.      END
  3694. /
  3695. COMMIT WORK
  3696. /
  3697. GRANT SELECT ON DOMAIN.FKC_REFS_COL TO PUBLIC WITH GRANT OPTION
  3698. /
  3699. IF $RC (EXISTS TABLE DOMAIN.COL_REFS_DOM) = 0
  3700. THEN
  3701.     BEGIN
  3702. /
  3703.     DROP VIEW DOMAIN.COL_REFS_DOM
  3704. /
  3705.     COMMIT WORK
  3706. /
  3707.     END
  3708. /
  3709. CREATE VIEW DOMAIN.COL_REFS_DOM
  3710.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFCOLUMNNAME,RELTYPE,
  3711.    REFOBJTYPE,REFOWNER,REFDOMAINNAME,CREATEDATE,CREATETIME)
  3712. AS SELECT
  3713.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,'REFERS',
  3714.      'DOMAIN',DOMAINOWNER,DOMAINNAME,"DATE","TIME"
  3715.    FROM SYSDD.COLUMNS
  3716.    WHERE type IN('TABLE','RESULT','SYNONYM','SNAPSHOT','VIEW')
  3717.    AND domainname IS NOT NULL
  3718. /
  3719. IF $RC <> 0
  3720. THEN
  3721.      BEGIN
  3722. /
  3723.      END INIT SERVERDB
  3724. /
  3725.      STOP 7
  3726. /
  3727.      END
  3728. /
  3729. COMMIT WORK
  3730. /
  3731. GRANT SELECT ON DOMAIN.COL_REFS_DOM TO PUBLIC WITH GRANT OPTION
  3732. /
  3733. IF $RC (EXISTS TABLE DOMAIN.COL_USES_COL) = 0
  3734. THEN
  3735.     BEGIN
  3736. /
  3737.     DROP VIEW DOMAIN.COL_USES_COL
  3738. /
  3739.     COMMIT WORK
  3740. /
  3741.     END
  3742. /
  3743. CREATE VIEW DOMAIN.COL_USES_COL
  3744.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFCOLUMNNAME,RELTYPE,
  3745.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  3746. AS SELECT
  3747.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,'USES',
  3748.      'COLUMN',REFOWNER,REFTABLENAME,REFCOLUMNNAME,DATE,TIME
  3749.    FROM SYSDD.REFERENCED_COLUMNS
  3750. /
  3751. IF $RC <> 0
  3752. THEN
  3753.      BEGIN
  3754. /
  3755.      END INIT SERVERDB
  3756. /
  3757.      STOP 7
  3758. /
  3759.      END
  3760. /
  3761. COMMIT WORK
  3762. /
  3763. GRANT SELECT ON DOMAIN.COL_USES_COL TO PUBLIC WITH GRANT OPTION
  3764. /
  3765. IF $RC (EXISTS TABLE DOMAIN.DBP_CONT_PRM) = 0
  3766. THEN
  3767.     BEGIN
  3768. /
  3769.     DROP VIEW DOMAIN.DBP_CONT_PRM
  3770. /
  3771.     COMMIT WORK
  3772. /
  3773.     END
  3774. /
  3775. CREATE VIEW DOMAIN.DBP_CONT_PRM
  3776.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFDBPROCNAME,RELTYPE,
  3777.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFDBPROCNAME,REFPARAMETERNAME,POS,
  3778.    CREATEDATE,CREATETIME)
  3779. AS SELECT
  3780.      'DBPROCEDURE',OWNER,PROGRAM,MODULE,'CONTAINS',
  3781.      'DBPROCPARAM',OWNER,PROGRAM,MODULE,PARAMETERNAME,PARAM_NO,
  3782.      "DATE","TIME"
  3783.    FROM SYSDD.DBPROCPARAMETERS
  3784. /
  3785. IF $RC <> 0
  3786. THEN
  3787.      BEGIN
  3788. /
  3789.      END INIT SERVERDB
  3790. /
  3791.      STOP 7
  3792. /
  3793.      END
  3794. /
  3795. COMMIT WORK
  3796. /
  3797. GRANT SELECT ON DOMAIN.DBP_CONT_PRM TO PUBLIC WITH GRANT OPTION
  3798. /
  3799. IF $RC (EXISTS TABLE DOMAIN.DBP_REFS_MOD) = 0
  3800. THEN
  3801.     BEGIN
  3802. /
  3803.     DROP VIEW DOMAIN.DBP_REFS_MOD
  3804. /
  3805.     COMMIT WORK
  3806. /
  3807.     END
  3808. /
  3809. CREATE VIEW DOMAIN.DBP_REFS_MOD
  3810.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFDBPROCNAME,RELTYPE,
  3811.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFMODULENAME,REFPROGLANG,
  3812.    CREATEDATE,CREATETIME)
  3813. AS SELECT
  3814.      'DBPROCEDURE',OWNER,PROGRAM,MODULE,'REFERS',
  3815.      'MODULE',OWNER,PROGRAM,MODULE,'SQL-PL',
  3816.      "DATE","TIME"
  3817.    FROM SYSDD.DBPROCEDURES
  3818. /
  3819. IF $RC <> 0
  3820. THEN
  3821.      BEGIN
  3822. /
  3823.      END INIT SERVERDB
  3824. /
  3825.      STOP 7
  3826. /
  3827.      END
  3828. /
  3829. COMMIT WORK
  3830. /
  3831. GRANT SELECT ON DOMAIN.DBP_REFS_MOD TO PUBLIC WITH GRANT OPTION
  3832. /
  3833. IF $RC (EXISTS TABLE DOMAIN.DBF_CONT_PRM) = 0
  3834. THEN
  3835.     BEGIN
  3836. /
  3837.     DROP VIEW DOMAIN.DBF_CONT_PRM
  3838. /
  3839.     COMMIT WORK
  3840. /
  3841.     END
  3842. /
  3843. CREATE VIEW DOMAIN.DBF_CONT_PRM
  3844.   (DEFOBJTYPE,DEFOWNER,DEFDBFUNCNAME,RELTYPE,
  3845.    REFOBJTYPE,REFOWNER,REFDBFUNCNAME,REFPARAMETERNAME,POS,
  3846.    CREATEDATE,CREATETIME)
  3847. AS SELECT
  3848.      'DBFUNCTION',OWNER,DBFUNCTION,'CONTAINS',
  3849.      'DBFUNCPARAM',OWNER,DBFUNCTION,PARAMETERNAME,PARAM_NO,
  3850.      "DATE","TIME"
  3851.    FROM SYSDD.DBFUNCTIONPARAMS
  3852. /
  3853. IF $RC <> 0
  3854. THEN
  3855.      BEGIN
  3856. /
  3857.      END INIT SERVERDB
  3858. /
  3859.      STOP 7
  3860. /
  3861.      END
  3862. /
  3863. COMMIT WORK
  3864. /
  3865. GRANT SELECT ON DOMAIN.DBF_CONT_PRM TO PUBLIC WITH GRANT OPTION
  3866. /
  3867. IF $RC (EXISTS TABLE DOMAIN.DBF_REFS_MOD) = 0
  3868. THEN
  3869.     BEGIN
  3870. /
  3871.     DROP VIEW DOMAIN.DBF_REFS_MOD
  3872. /
  3873.     COMMIT WORK
  3874. /
  3875.     END
  3876. /
  3877. CREATE VIEW DOMAIN.DBF_REFS_MOD
  3878.   (DEFOBJTYPE,DEFOWNER,DEFDBFUNCNAME,RELTYPE,
  3879.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFMODULENAME,REFPROGLANG,
  3880.    CREATEDATE,CREATETIME)
  3881. AS SELECT
  3882.      'DBFUNCTION',OWNER,DBFUNCTION,'REFERS',
  3883.      'MODULE',OWNER,PROGRAM,DBPROCEDURE,'SQL-PL',
  3884.      "DATE","TIME"
  3885.    FROM SYSDD.DBFUNCTIONS
  3886. /
  3887. IF $RC <> 0
  3888. THEN
  3889.      BEGIN
  3890. /
  3891.      END INIT SERVERDB
  3892. /
  3893.      STOP 7
  3894. /
  3895.      END
  3896. /
  3897. COMMIT WORK
  3898. /
  3899. GRANT SELECT ON DOMAIN.DBF_REFS_MOD TO PUBLIC WITH GRANT OPTION
  3900. /
  3901. IF $RC (EXISTS TABLE DOMAIN.#ECM_USES_COL) <> 0
  3902. THEN
  3903.     BEGIN
  3904. /
  3905.     CREATE TABLE DOMAIN.#ECM_USES_COL
  3906.       (
  3907.        USER_ID     FIXED(10)       KEY,
  3908.        ROW_ID      CHAR(8)   BYTE  KEY,
  3909.        DEFOWNER    CHAR(18)  ASCII,
  3910.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  3911.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  3912.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  3913.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'EASYCOMMAND',
  3914.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  3915.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  3916.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  3917.        REFOWNER    CHAR(18)  ASCII,
  3918.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  3919.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  3920.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  3921.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'COLUMN',
  3922.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  3923.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  3924.        CREATEDATE  DATE DEFAULT DATE,
  3925.        CREATETIME  TIME DEFAULT TIME
  3926.       )
  3927.     WITH REPLICATION
  3928. /
  3929.     IF $RC <> 0
  3930.     THEN
  3931.          BEGIN
  3932. /
  3933.          END INIT SERVERDB
  3934. /
  3935.          STOP 7
  3936. /
  3937.          END
  3938. /
  3939.     CREATE INDEX INDEX1 ON DOMAIN.#ECM_USES_COL
  3940.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  3941. /
  3942.     IF $RC <> 0
  3943.     THEN
  3944.          BEGIN
  3945. /
  3946.          END INIT SERVERDB
  3947. /
  3948.          STOP 7
  3949. /
  3950.          END
  3951. /
  3952.     CREATE INDEX INDEX2 ON DOMAIN.#ECM_USES_COL
  3953.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  3954. /
  3955.     IF $RC <> 0
  3956.     THEN
  3957.          BEGIN
  3958. /
  3959.          END INIT SERVERDB
  3960. /
  3961.          STOP 7
  3962. /
  3963.          END
  3964. /
  3965.     COMMIT WORK
  3966. /
  3967.     END
  3968. /
  3969. IF $RC (EXISTS TABLE DOMAIN.ECM_USES_COL) = 0
  3970. THEN
  3971.     BEGIN
  3972. /
  3973.     DROP VIEW DOMAIN.ECM_USES_COL
  3974. /
  3975.     COMMIT WORK
  3976. /
  3977.     END
  3978. /
  3979. CREATE VIEW DOMAIN.ECM_USES_COL
  3980.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,DEFTABLEOWNER,DEFTABLENAME,RELTYPE,
  3981.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  3982. AS SELECT
  3983.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  3984.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME2,CREATEDATE,CREATETIME
  3985.    FROM DOMAIN.#ECM_USES_COL
  3986.    WHERE USERGROUP IN(defowner,refowner)
  3987. WITH CHECK OPTION
  3988. /
  3989. IF $RC <> 0
  3990. THEN
  3991.      BEGIN
  3992. /
  3993.      END INIT SERVERDB
  3994. /
  3995.      STOP 7
  3996. /
  3997.      END
  3998. /
  3999. COMMIT WORK
  4000. /
  4001. GRANT SELECT ON DOMAIN.ECM_USES_COL TO PUBLIC WITH GRANT OPTION
  4002. /
  4003. IF $RC (EXISTS TABLE DOMAIN.#ECM_USES_TAB) <> 0
  4004. THEN
  4005.     BEGIN
  4006. /
  4007.     CREATE TABLE DOMAIN.#ECM_USES_TAB
  4008.       (
  4009.        USER_ID     FIXED(10)       KEY,
  4010.        ROW_ID      CHAR(8)   BYTE  KEY,
  4011.        DEFOWNER    CHAR(18)  ASCII,
  4012.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4013.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4014.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4015.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'EASYCOMMAND',
  4016.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4017.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4018.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  4019.        REFOWNER    CHAR(18)  ASCII,
  4020.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4021.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4022.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4023.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'TABLE',
  4024.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4025.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4026.        TYPE        CHAR(8)   ASCII,
  4027.        CREATEDATE  DATE DEFAULT DATE,
  4028.        CREATETIME  TIME DEFAULT TIME
  4029.       )
  4030.     WITH REPLICATION
  4031. /
  4032.     IF $RC <> 0
  4033.     THEN
  4034.          BEGIN
  4035. /
  4036.          END INIT SERVERDB
  4037. /
  4038.          STOP 7
  4039. /
  4040.          END
  4041. /
  4042.     CREATE INDEX INDEX1 ON DOMAIN.#ECM_USES_TAB
  4043.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  4044. /
  4045.     IF $RC <> 0
  4046.     THEN
  4047.          BEGIN
  4048. /
  4049.          END INIT SERVERDB
  4050. /
  4051.          STOP 7
  4052. /
  4053.          END
  4054. /
  4055.     CREATE INDEX INDEX2 ON DOMAIN.#ECM_USES_TAB
  4056.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  4057. /
  4058.     IF $RC <> 0
  4059.     THEN
  4060.          BEGIN
  4061. /
  4062.          END INIT SERVERDB
  4063. /
  4064.          STOP 7
  4065. /
  4066.          END
  4067. /
  4068.     END
  4069. ELSE
  4070. /
  4071.     IF $RC (SHOW COLUMN DOMAIN.#ECM_USES_TAB.TYPE) <> 0
  4072.     THEN
  4073.         BEGIN
  4074. /
  4075.         ALTER TABLE DOMAIN.#ECM_USES_TAB ADD (TYPE CHAR(8) ASCII)
  4076. /
  4077.         IF $RC <> 0
  4078.         THEN
  4079.              BEGIN
  4080. /
  4081.              END INIT SERVERDB
  4082. /
  4083.              STOP 7
  4084. /
  4085.              END
  4086. /
  4087.         END
  4088. /
  4089. COMMIT WORK
  4090. /
  4091. IF $RC (EXISTS TABLE DOMAIN.ECM_USES_SNP) = 0
  4092. THEN
  4093.     BEGIN
  4094. /
  4095.     DROP VIEW DOMAIN.ECM_USES_SNP
  4096. /
  4097.     COMMIT WORK
  4098. /
  4099.     END
  4100. /
  4101. CREATE VIEW DOMAIN.ECM_USES_SNP
  4102.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,DEFTABLEOWNER,DEFTABLENAME,RELTYPE,
  4103.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  4104. AS SELECT
  4105.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4106.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4107.    FROM DOMAIN.#ECM_USES_TAB
  4108.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SNAPSHOT'
  4109. WITH CHECK OPTION
  4110. /
  4111. IF $RC <> 0
  4112. THEN
  4113.      BEGIN
  4114. /
  4115.      END INIT SERVERDB
  4116. /
  4117.      STOP 7
  4118. /
  4119.      END
  4120. /
  4121. COMMIT WORK
  4122. /
  4123. GRANT SELECT ON DOMAIN.ECM_USES_SNP TO PUBLIC WITH GRANT OPTION
  4124. /
  4125. IF $RC (EXISTS TABLE DOMAIN.ECM_USES_SYN) = 0
  4126. THEN
  4127.     BEGIN
  4128. /
  4129.     DROP VIEW DOMAIN.ECM_USES_SYN
  4130. /
  4131.     COMMIT WORK
  4132. /
  4133.     END
  4134. /
  4135. CREATE VIEW DOMAIN.ECM_USES_SYN
  4136.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,DEFTABLEOWNER,DEFTABLENAME,RELTYPE,
  4137.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  4138. AS SELECT
  4139.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4140.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4141.    FROM DOMAIN.#ECM_USES_TAB
  4142.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SYNONYM'
  4143. WITH CHECK OPTION
  4144. /
  4145. IF $RC <> 0
  4146. THEN
  4147.      BEGIN
  4148. /
  4149.      END INIT SERVERDB
  4150. /
  4151.      STOP 7
  4152. /
  4153.      END
  4154. /
  4155. COMMIT WORK
  4156. /
  4157. GRANT SELECT ON DOMAIN.ECM_USES_SYN TO PUBLIC WITH GRANT OPTION
  4158. /
  4159. IF $RC (EXISTS TABLE DOMAIN.ECM_USES_TAB) = 0
  4160. THEN
  4161.     BEGIN
  4162. /
  4163.     DROP VIEW DOMAIN.ECM_USES_TAB
  4164. /
  4165.     COMMIT WORK
  4166. /
  4167.     END
  4168. /
  4169. CREATE VIEW DOMAIN.ECM_USES_TAB
  4170.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,DEFTABLEOWNER,DEFTABLENAME,RELTYPE,
  4171.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  4172. AS SELECT
  4173.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4174.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4175.    FROM DOMAIN.#ECM_USES_TAB
  4176.    WHERE USERGROUP IN(defowner,refowner)
  4177. WITH CHECK OPTION
  4178. /
  4179. IF $RC <> 0
  4180. THEN
  4181.      BEGIN
  4182. /
  4183.      END INIT SERVERDB
  4184. /
  4185.      STOP 7
  4186. /
  4187.      END
  4188. /
  4189. COMMIT WORK
  4190. /
  4191. GRANT SELECT ON DOMAIN.ECM_USES_TAB TO PUBLIC WITH GRANT OPTION
  4192. /
  4193. IF $RC (EXISTS TABLE DOMAIN.ECM_USES_VIE) = 0
  4194. THEN
  4195.     BEGIN
  4196. /
  4197.     DROP VIEW DOMAIN.ECM_USES_VIE
  4198. /
  4199.     COMMIT WORK
  4200. /
  4201.     END
  4202. /
  4203. CREATE VIEW DOMAIN.ECM_USES_VIE
  4204.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,DEFTABLEOWNER,DEFTABLENAME,RELTYPE,
  4205.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  4206. AS SELECT
  4207.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4208.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4209.    FROM DOMAIN.#ECM_USES_TAB
  4210.    WHERE USERGROUP IN(defowner,refowner) AND type = 'VIEW'
  4211. WITH CHECK OPTION
  4212. /
  4213. IF $RC <> 0
  4214. THEN
  4215.      BEGIN
  4216. /
  4217.      END INIT SERVERDB
  4218. /
  4219.      STOP 7
  4220. /
  4221.      END
  4222. /
  4223. COMMIT WORK
  4224. /
  4225. GRANT SELECT ON DOMAIN.ECM_USES_VIE TO PUBLIC WITH GRANT OPTION
  4226. /
  4227. IF $RC (EXISTS TABLE DOMAIN.#EFM_USES_COL) <> 0
  4228. THEN
  4229.     BEGIN
  4230. /
  4231.     CREATE TABLE DOMAIN.#EFM_USES_COL
  4232.       (
  4233.        USER_ID     FIXED(10)       KEY,
  4234.        ROW_ID      CHAR(8)   BYTE  KEY,
  4235.        DEFOWNER    CHAR(18)  ASCII,
  4236.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4237.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4238.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4239.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'EASYFORM',
  4240.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4241.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4242.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  4243.        REFOWNER    CHAR(18)  ASCII,
  4244.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4245.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4246.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4247.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'COLUMN',
  4248.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4249.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4250.        CREATEDATE  DATE DEFAULT DATE,
  4251.        CREATETIME  TIME DEFAULT TIME
  4252.       )
  4253.     WITH REPLICATION
  4254. /
  4255.     IF $RC <> 0
  4256.     THEN
  4257.          BEGIN
  4258. /
  4259.          END INIT SERVERDB
  4260. /
  4261.          STOP 7
  4262. /
  4263.          END
  4264. /
  4265.     CREATE INDEX INDEX1 ON DOMAIN.#EFM_USES_COL
  4266.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  4267. /
  4268.     IF $RC <> 0
  4269.     THEN
  4270.          BEGIN
  4271. /
  4272.          END INIT SERVERDB
  4273. /
  4274.          STOP 7
  4275. /
  4276.          END
  4277. /
  4278.     CREATE INDEX INDEX2 ON DOMAIN.#EFM_USES_COL
  4279.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  4280. /
  4281.     IF $RC <> 0
  4282.     THEN
  4283.          BEGIN
  4284. /
  4285.          END INIT SERVERDB
  4286. /
  4287.          STOP 7
  4288. /
  4289.          END
  4290. /
  4291.     COMMIT WORK
  4292. /
  4293.     END
  4294. /
  4295. IF $RC (EXISTS TABLE DOMAIN.EFM_USES_COL) = 0
  4296. THEN
  4297.     BEGIN
  4298. /
  4299.     DROP VIEW DOMAIN.EFM_USES_COL
  4300. /
  4301.     COMMIT WORK
  4302. /
  4303.     END
  4304. /
  4305. CREATE VIEW DOMAIN.EFM_USES_COL
  4306.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFORMNAME,RELTYPE,
  4307.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  4308. AS SELECT
  4309.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME3,RELTYPE,
  4310.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME2,CREATEDATE,CREATETIME
  4311.    FROM DOMAIN.#EFM_USES_COL
  4312.    WHERE USERGROUP IN(defowner,refowner)
  4313. WITH CHECK OPTION
  4314. /
  4315. IF $RC <> 0
  4316. THEN
  4317.      BEGIN
  4318. /
  4319.      END INIT SERVERDB
  4320. /
  4321.      STOP 7
  4322. /
  4323.      END
  4324. /
  4325. COMMIT WORK
  4326. /
  4327. GRANT SELECT ON DOMAIN.EFM_USES_COL TO PUBLIC WITH GRANT OPTION
  4328. /
  4329. IF $RC (EXISTS TABLE DOMAIN.#EFM_USES_TAB) <> 0
  4330. THEN
  4331.     BEGIN
  4332. /
  4333.     CREATE TABLE DOMAIN.#EFM_USES_TAB
  4334.       (
  4335.        USER_ID     FIXED(10)       KEY,
  4336.        ROW_ID      CHAR(8)   BYTE  KEY,
  4337.        DEFOWNER    CHAR(18)  ASCII,
  4338.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4339.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4340.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4341.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'EASYFORM',
  4342.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4343.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4344.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  4345.        REFOWNER    CHAR(18)  ASCII,
  4346.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4347.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4348.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4349.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'TABLE',
  4350.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4351.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4352.        TYPE        CHAR(8)   ASCII,
  4353.        CREATEDATE  DATE DEFAULT DATE,
  4354.        CREATETIME  TIME DEFAULT TIME
  4355.       )
  4356.     WITH REPLICATION
  4357. /
  4358.     IF $RC <> 0
  4359.     THEN
  4360.          BEGIN
  4361. /
  4362.          END INIT SERVERDB
  4363. /
  4364.          STOP 7
  4365. /
  4366.          END
  4367. /
  4368.     CREATE INDEX INDEX1 ON DOMAIN.#EFM_USES_TAB
  4369.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  4370. /
  4371.     IF $RC <> 0
  4372.     THEN
  4373.          BEGIN
  4374. /
  4375.          END INIT SERVERDB
  4376. /
  4377.          STOP 7
  4378. /
  4379.          END
  4380. /
  4381.     CREATE INDEX INDEX2 ON DOMAIN.#EFM_USES_TAB
  4382.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  4383. /
  4384.     IF $RC <> 0
  4385.     THEN
  4386.          BEGIN
  4387. /
  4388.          END INIT SERVERDB
  4389. /
  4390.          STOP 7
  4391. /
  4392.          END
  4393. /
  4394.     END
  4395. ELSE
  4396. /
  4397.     IF $RC (SHOW COLUMN DOMAIN.#EFM_USES_TAB.TYPE) <> 0
  4398.     THEN
  4399.         BEGIN
  4400. /
  4401.         ALTER TABLE DOMAIN.#EFM_USES_TAB ADD (TYPE CHAR(8) ASCII)
  4402. /
  4403.         IF $RC <> 0
  4404.         THEN
  4405.              BEGIN
  4406. /
  4407.              END INIT SERVERDB
  4408. /
  4409.              STOP 7
  4410. /
  4411.              END
  4412. /
  4413.         END
  4414. /
  4415. COMMIT WORK
  4416. /
  4417. IF $RC (EXISTS TABLE DOMAIN.EFM_USES_SNP) = 0
  4418. THEN
  4419.     BEGIN
  4420. /
  4421.     DROP VIEW DOMAIN.EFM_USES_SNP
  4422. /
  4423.     COMMIT WORK
  4424. /
  4425.     END
  4426. /
  4427. CREATE VIEW DOMAIN.EFM_USES_SNP
  4428.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFORMNAME,RELTYPE,
  4429.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  4430. AS SELECT
  4431.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME3,RELTYPE,
  4432.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4433.    FROM DOMAIN.#EFM_USES_TAB
  4434.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SNAPSHOT'
  4435. WITH CHECK OPTION
  4436. /
  4437. IF $RC <> 0
  4438. THEN
  4439.      BEGIN
  4440. /
  4441.      END INIT SERVERDB
  4442. /
  4443.      STOP 7
  4444. /
  4445.      END
  4446. /
  4447. COMMIT WORK
  4448. /
  4449. GRANT SELECT ON DOMAIN.EFM_USES_SNP TO PUBLIC WITH GRANT OPTION
  4450. /
  4451. IF $RC (EXISTS TABLE DOMAIN.EFM_USES_SYN) = 0
  4452. THEN
  4453.     BEGIN
  4454. /
  4455.     DROP VIEW DOMAIN.EFM_USES_SYN
  4456. /
  4457.     COMMIT WORK
  4458. /
  4459.     END
  4460. /
  4461. CREATE VIEW DOMAIN.EFM_USES_SYN
  4462.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFORMNAME,RELTYPE,
  4463.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  4464. AS SELECT
  4465.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME3,RELTYPE,
  4466.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4467.    FROM DOMAIN.#EFM_USES_TAB
  4468.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SYNONYM'
  4469. WITH CHECK OPTION
  4470. /
  4471. IF $RC <> 0
  4472. THEN
  4473.      BEGIN
  4474. /
  4475.      END INIT SERVERDB
  4476. /
  4477.      STOP 7
  4478. /
  4479.      END
  4480. /
  4481. COMMIT WORK
  4482. /
  4483. GRANT SELECT ON DOMAIN.EFM_USES_SYN TO PUBLIC WITH GRANT OPTION
  4484. /
  4485. IF $RC (EXISTS TABLE DOMAIN.EFM_USES_TAB) = 0
  4486. THEN
  4487.     BEGIN
  4488. /
  4489.     DROP VIEW DOMAIN.EFM_USES_TAB
  4490. /
  4491.     COMMIT WORK
  4492. /
  4493.     END
  4494. /
  4495. CREATE VIEW DOMAIN.EFM_USES_TAB
  4496.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFORMNAME,RELTYPE,
  4497.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  4498. AS SELECT
  4499.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME3,RELTYPE,
  4500.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4501.    FROM DOMAIN.#EFM_USES_TAB
  4502.    WHERE USERGROUP IN(defowner,refowner)
  4503. WITH CHECK OPTION
  4504. /
  4505. IF $RC <> 0
  4506. THEN
  4507.      BEGIN
  4508. /
  4509.      END INIT SERVERDB
  4510. /
  4511.      STOP 7
  4512. /
  4513.      END
  4514. /
  4515. COMMIT WORK
  4516. /
  4517. GRANT SELECT ON DOMAIN.EFM_USES_TAB TO PUBLIC WITH GRANT OPTION
  4518. /
  4519. IF $RC (EXISTS TABLE DOMAIN.EFM_USES_VIE) = 0
  4520. THEN
  4521.     BEGIN
  4522. /
  4523.     DROP VIEW DOMAIN.EFM_USES_VIE
  4524. /
  4525.     COMMIT WORK
  4526. /
  4527.     END
  4528. /
  4529. CREATE VIEW DOMAIN.EFM_USES_VIE
  4530.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFORMNAME,RELTYPE,
  4531.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  4532. AS SELECT
  4533.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME3,RELTYPE,
  4534.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  4535.    FROM DOMAIN.#EFM_USES_TAB
  4536.    WHERE USERGROUP IN(defowner,refowner) AND type = 'VIEW'
  4537. WITH CHECK OPTION
  4538. /
  4539. IF $RC <> 0
  4540. THEN
  4541.      BEGIN
  4542. /
  4543.      END INIT SERVERDB
  4544. /
  4545.      STOP 7
  4546. /
  4547.      END
  4548. /
  4549. COMMIT WORK
  4550. /
  4551. GRANT SELECT ON DOMAIN.EFM_USES_VIE TO PUBLIC WITH GRANT OPTION
  4552. /
  4553. IF $RC (EXISTS TABLE DOMAIN.FOK_REFS_TAB) = 0
  4554. THEN
  4555.     BEGIN
  4556. /
  4557.     DROP VIEW DOMAIN.FOK_REFS_TAB
  4558. /
  4559.     COMMIT WORK
  4560. /
  4561.     END
  4562. /
  4563. CREATE VIEW DOMAIN.FOK_REFS_TAB
  4564.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFKEYNAME,RELTYPE,
  4565.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  4566. AS SELECT DISTINCT
  4567.      'FOREIGNKEY',OWNER,TABLENAME,REFNAME,'REFERS',
  4568.      'TABLE',REFOWNER,REFTABLENAME,"DATE","TIME"
  4569.    FROM SYSDD.FOREIGN_KEYS
  4570. /
  4571. IF $RC <> 0
  4572. THEN
  4573.      BEGIN
  4574. /
  4575.      END INIT SERVERDB
  4576. /
  4577.      STOP 7
  4578. /
  4579.      END
  4580. /
  4581. COMMIT WORK
  4582. /
  4583. GRANT SELECT ON DOMAIN.FOK_REFS_TAB TO PUBLIC WITH GRANT OPTION
  4584. /
  4585. IF $RC (EXISTS TABLE DOMAIN.FOK_USES_COL) = 0
  4586. THEN
  4587.     BEGIN
  4588. /
  4589.     DROP VIEW DOMAIN.FOK_USES_COL
  4590. /
  4591.     COMMIT WORK
  4592. /
  4593.     END
  4594. /
  4595. CREATE VIEW DOMAIN.FOK_USES_COL
  4596.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFFKEYNAME,RELTYPE,
  4597.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  4598. AS SELECT
  4599.      'FOREIGNKEY',OWNER,TABLENAME,REFNAME,'USES',
  4600.      'COLUMN',REFOWNER,REFTABLENAME,REFCOLUMNNAME,"DATE","TIME"
  4601.    FROM SYSDD.FOREIGN_KEYS
  4602. /
  4603. IF $RC <> 0
  4604. THEN
  4605.      BEGIN
  4606. /
  4607.      END INIT SERVERDB
  4608. /
  4609.      STOP 7
  4610. /
  4611.      END
  4612. /
  4613. COMMIT WORK
  4614. /
  4615. GRANT SELECT ON DOMAIN.FOK_USES_COL TO PUBLIC WITH GRANT OPTION
  4616. /
  4617. IF $RC (EXISTS TABLE DOMAIN.IND_USES_COL) = 0
  4618. THEN
  4619.     BEGIN
  4620. /
  4621.     DROP VIEW DOMAIN.IND_USES_COL
  4622. /
  4623.     COMMIT WORK
  4624. /
  4625.     END
  4626. /
  4627. CREATE VIEW DOMAIN.IND_USES_COL
  4628.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFINDEXNAME,
  4629.    RELTYPE,REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  4630.    TYPE,POS,SORT,CREATEDATE,CREATETIME,INDEXCOMMENT)
  4631. AS SELECT
  4632.      'INDEX',OWNER,TABLENAME,DECODE(INDEXNAME,' ',COLUMNNAME,INDEXNAME),
  4633.      'USES','COLUMN',OWNER,TABLENAME,COLUMNNAME,
  4634.      TYPE,COLUMNNO,SORT,"DATE","TIME",COMMENT
  4635.    FROM SYSDD.INDEXES
  4636. /
  4637. IF $RC <> 0
  4638. THEN
  4639.      BEGIN
  4640. /
  4641.      END INIT SERVERDB
  4642. /
  4643.      STOP 7
  4644. /
  4645.      END
  4646. /
  4647. COMMIT WORK
  4648. /
  4649. GRANT SELECT ON DOMAIN.IND_USES_COL TO PUBLIC WITH GRANT OPTION
  4650. /
  4651. IF $RC (EXISTS TABLE DOMAIN.#MOD_CALL_DBP) <> 0
  4652. THEN
  4653.     BEGIN
  4654. /
  4655.     CREATE TABLE DOMAIN.#MOD_CALL_DBP
  4656.       (
  4657.        USER_ID     FIXED(10)       KEY,
  4658.        ROW_ID      CHAR(8)   BYTE  KEY,
  4659.        DEFOWNER    CHAR(18)  ASCII,
  4660.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4661.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4662.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4663.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  4664.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4665.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4666.        RELTYPE     CHAR(18)  ASCII DEFAULT 'CALLS',
  4667.        REFOWNER    CHAR(18)  ASCII,
  4668.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4669.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4670.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4671.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'DBPROCEDURE',
  4672.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4673.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4674.        CALLMODE    CHAR(20)  ASCII,
  4675.        CALLCOND    CHAR(254) ASCII,
  4676.        PARAMS      CHAR(254) ASCII,
  4677.        CREATEDATE  DATE DEFAULT DATE,
  4678.        CREATETIME  TIME DEFAULT TIME
  4679.       )
  4680.     WITH REPLICATION
  4681. /
  4682.     IF $RC <> 0
  4683.     THEN
  4684.          BEGIN
  4685. /
  4686.          END INIT SERVERDB
  4687. /
  4688.          STOP 7
  4689. /
  4690.          END
  4691. /
  4692.     CREATE INDEX INDEX1 ON DOMAIN.#MOD_CALL_DBP
  4693.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  4694. /
  4695.     IF $RC <> 0
  4696.     THEN
  4697.          BEGIN
  4698. /
  4699.          END INIT SERVERDB
  4700. /
  4701.          STOP 7
  4702. /
  4703.          END
  4704. /
  4705.     CREATE INDEX INDEX2 ON DOMAIN.#MOD_CALL_DBP
  4706.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  4707. /
  4708.     IF $RC <> 0
  4709.     THEN
  4710.          BEGIN
  4711. /
  4712.          END INIT SERVERDB
  4713. /
  4714.          STOP 7
  4715. /
  4716.          END
  4717. /
  4718.     COMMIT WORK
  4719. /
  4720.     END
  4721. /
  4722. IF $RC (EXISTS TABLE DOMAIN.MOD_CALL_DBP) = 0
  4723. THEN
  4724.     BEGIN
  4725. /
  4726.     DROP VIEW DOMAIN.MOD_CALL_DBP
  4727. /
  4728.     COMMIT WORK
  4729. /
  4730.     END
  4731. /
  4732. CREATE VIEW DOMAIN.MOD_CALL_DBP
  4733.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  4734.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFDBPROCNAME,CREATEDATE,CREATETIME)
  4735. AS SELECT
  4736.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4737.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME2,CREATEDATE,CREATETIME
  4738.    FROM DOMAIN.#MOD_CALL_DBP
  4739.    WHERE USERGROUP IN(defowner,refowner)
  4740. WITH CHECK OPTION
  4741. /
  4742. IF $RC <> 0
  4743. THEN
  4744.      BEGIN
  4745. /
  4746.      END INIT SERVERDB
  4747. /
  4748.      STOP 7
  4749. /
  4750.      END
  4751. /
  4752. COMMIT WORK
  4753. /
  4754. GRANT SELECT ON DOMAIN.MOD_CALL_DBP TO PUBLIC WITH GRANT OPTION
  4755. /
  4756. IF $RC (EXISTS TABLE DOMAIN.#MOD_CALL_MOD) <> 0
  4757. THEN
  4758.     BEGIN
  4759. /
  4760.     CREATE TABLE DOMAIN.#MOD_CALL_MOD
  4761.       (
  4762.        USER_ID     FIXED(10)       KEY,
  4763.        ROW_ID      CHAR(8)   BYTE  KEY,
  4764.        DEFOWNER    CHAR(18)  ASCII,
  4765.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4766.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4767.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4768.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  4769.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4770.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4771.        RELTYPE     CHAR(18)  ASCII DEFAULT 'CALLS',
  4772.        REFOWNER    CHAR(18)  ASCII,
  4773.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4774.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4775.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4776.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  4777.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4778.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4779.        CALLMODE    CHAR(20)  ASCII,
  4780.        CALLCOND    CHAR(254) ASCII,
  4781.        PARAMS      CHAR(254) ASCII,
  4782.        CREATEDATE  DATE DEFAULT DATE,
  4783.        CREATETIME  TIME DEFAULT TIME
  4784.       )
  4785.     WITH REPLICATION
  4786. /
  4787.     IF $RC <> 0
  4788.     THEN
  4789.          BEGIN
  4790. /
  4791.          END INIT SERVERDB
  4792. /
  4793.          STOP 7
  4794. /
  4795.          END
  4796. /
  4797.     CREATE INDEX INDEX1 ON DOMAIN.#MOD_CALL_MOD
  4798.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  4799. /
  4800.     IF $RC <> 0
  4801.     THEN
  4802.          BEGIN
  4803. /
  4804.          END INIT SERVERDB
  4805. /
  4806.          STOP 7
  4807. /
  4808.          END
  4809. /
  4810.     CREATE INDEX INDEX2 ON DOMAIN.#MOD_CALL_MOD
  4811.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  4812. /
  4813.     IF $RC <> 0
  4814.     THEN
  4815.          BEGIN
  4816. /
  4817.          END INIT SERVERDB
  4818. /
  4819.          STOP 7
  4820. /
  4821.          END
  4822. /
  4823.     COMMIT WORK
  4824. /
  4825.     END
  4826. /
  4827. IF $RC (EXISTS TABLE DOMAIN.MOD_CALL_MOD) = 0
  4828. THEN
  4829.     BEGIN
  4830. /
  4831.     DROP VIEW DOMAIN.MOD_CALL_MOD
  4832. /
  4833.     COMMIT WORK
  4834. /
  4835.     END
  4836. /
  4837. CREATE VIEW DOMAIN.MOD_CALL_MOD
  4838.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  4839.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFMODULENAME,REFPROGLANG,
  4840.    CREATEDATE,CREATETIME)
  4841. AS SELECT
  4842.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4843.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3,
  4844.      CREATEDATE,CREATETIME
  4845.    FROM DOMAIN.#MOD_CALL_MOD
  4846.    WHERE USERGROUP IN(defowner,refowner)
  4847. WITH CHECK OPTION
  4848. /
  4849. IF $RC <> 0
  4850. THEN
  4851.      BEGIN
  4852. /
  4853.      END INIT SERVERDB
  4854. /
  4855.      STOP 7
  4856. /
  4857.      END
  4858. /
  4859. COMMIT WORK
  4860. /
  4861. GRANT SELECT ON DOMAIN.MOD_CALL_MOD TO PUBLIC WITH GRANT OPTION
  4862. /
  4863. IF $RC (EXISTS TABLE DOMAIN.#MOD_USES_COL) <> 0
  4864. THEN
  4865.     BEGIN
  4866. /
  4867.     CREATE TABLE DOMAIN.#MOD_USES_COL
  4868.       (
  4869.        USER_ID     FIXED(10)       KEY,
  4870.        ROW_ID      CHAR(8)   BYTE  KEY,
  4871.        DEFOWNER    CHAR(18)  ASCII,
  4872.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4873.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4874.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4875.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  4876.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4877.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4878.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  4879.        REFOWNER    CHAR(18)  ASCII,
  4880.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4881.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4882.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4883.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'COLUMN',
  4884.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4885.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4886.        CREATEDATE  DATE DEFAULT DATE,
  4887.        CREATETIME  TIME DEFAULT TIME
  4888.       )
  4889.     WITH REPLICATION
  4890. /
  4891.     IF $RC <> 0
  4892.     THEN
  4893.          BEGIN
  4894. /
  4895.          END INIT SERVERDB
  4896. /
  4897.          STOP 7
  4898. /
  4899.          END
  4900. /
  4901.     CREATE INDEX INDEX1 ON DOMAIN.#MOD_USES_COL
  4902.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  4903. /
  4904.     IF $RC <> 0
  4905.     THEN
  4906.          BEGIN
  4907. /
  4908.          END INIT SERVERDB
  4909. /
  4910.          STOP 7
  4911. /
  4912.          END
  4913. /
  4914.     CREATE INDEX INDEX2 ON DOMAIN.#MOD_USES_COL
  4915.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  4916. /
  4917.     IF $RC <> 0
  4918.     THEN
  4919.          BEGIN
  4920. /
  4921.          END INIT SERVERDB
  4922. /
  4923.          STOP 7
  4924. /
  4925.          END
  4926. /
  4927.     COMMIT WORK
  4928. /
  4929.     END
  4930. /
  4931. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_COL) = 0
  4932. THEN
  4933.     BEGIN
  4934. /
  4935.     DROP VIEW DOMAIN.MOD_USES_COL
  4936. /
  4937.     COMMIT WORK
  4938. /
  4939.     END
  4940. /
  4941. CREATE VIEW DOMAIN.MOD_USES_COL
  4942.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  4943.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  4944. AS SELECT
  4945.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  4946.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME2,CREATEDATE,CREATETIME
  4947.    FROM DOMAIN.#MOD_USES_COL
  4948.    WHERE USERGROUP IN(defowner,refowner)
  4949. WITH CHECK OPTION
  4950. /
  4951. IF $RC <> 0
  4952. THEN
  4953.      BEGIN
  4954. /
  4955.      END INIT SERVERDB
  4956. /
  4957.      STOP 7
  4958. /
  4959.      END
  4960. /
  4961. COMMIT WORK
  4962. /
  4963. GRANT SELECT ON DOMAIN.MOD_USES_COL TO PUBLIC WITH GRANT OPTION
  4964. /
  4965. IF $RC (EXISTS TABLE DOMAIN.#MOD_USES_DOM) <> 0
  4966. THEN
  4967.     BEGIN
  4968. /
  4969.     CREATE TABLE DOMAIN.#MOD_USES_DOM
  4970.       (
  4971.        USER_ID     FIXED(10)       KEY,
  4972.        ROW_ID      CHAR(8)   BYTE  KEY,
  4973.        DEFOWNER    CHAR(18)  ASCII,
  4974.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4975.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4976.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4977.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  4978.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4979.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4980.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  4981.        REFOWNER    CHAR(18)  ASCII,
  4982.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  4983.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  4984.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  4985.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'DOMAIN',
  4986.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  4987.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  4988.        CREATEDATE  DATE DEFAULT DATE,
  4989.        CREATETIME  TIME DEFAULT TIME
  4990.       )
  4991.     WITH REPLICATION
  4992. /
  4993.     IF $RC <> 0
  4994.     THEN
  4995.          BEGIN
  4996. /
  4997.          END INIT SERVERDB
  4998. /
  4999.          STOP 7
  5000. /
  5001.          END
  5002. /
  5003.     CREATE INDEX INDEX1 ON DOMAIN.#MOD_USES_DOM
  5004.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5005. /
  5006.     IF $RC <> 0
  5007.     THEN
  5008.          BEGIN
  5009. /
  5010.          END INIT SERVERDB
  5011. /
  5012.          STOP 7
  5013. /
  5014.          END
  5015. /
  5016.     CREATE INDEX INDEX2 ON DOMAIN.#MOD_USES_DOM
  5017.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5018. /
  5019.     IF $RC <> 0
  5020.     THEN
  5021.          BEGIN
  5022. /
  5023.          END INIT SERVERDB
  5024. /
  5025.          STOP 7
  5026. /
  5027.          END
  5028. /
  5029.     COMMIT WORK
  5030. /
  5031.     END
  5032. /
  5033. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_DOM) = 0
  5034. THEN
  5035.     BEGIN
  5036. /
  5037.     DROP VIEW DOMAIN.MOD_USES_DOM
  5038. /
  5039.     COMMIT WORK
  5040. /
  5041.     END
  5042. /
  5043. CREATE VIEW DOMAIN.MOD_USES_DOM
  5044.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  5045.    REFOBJTYPE,REFOWNER,REFDOMAINNAME,CREATEDATE,CREATETIME)
  5046. AS SELECT
  5047.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  5048.      REFOBJTYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5049.    FROM DOMAIN.#MOD_USES_DOM
  5050.    WHERE defowner = USERGROUP OR refowner LIKE '*'
  5051. WITH CHECK OPTION
  5052. /
  5053. IF $RC <> 0
  5054. THEN
  5055.      BEGIN
  5056. /
  5057.      END INIT SERVERDB
  5058. /
  5059.      STOP 7
  5060. /
  5061.      END
  5062. /
  5063. COMMIT WORK
  5064. /
  5065. GRANT SELECT ON DOMAIN.MOD_USES_DOM TO PUBLIC WITH GRANT OPTION
  5066. /
  5067. IF $RC (EXISTS TABLE DOMAIN.#MOD_USES_QCM) <> 0
  5068. THEN
  5069.     BEGIN
  5070. /
  5071.     CREATE TABLE DOMAIN.#MOD_USES_QCM
  5072.       (
  5073.        USER_ID     FIXED(10)       KEY,
  5074.        ROW_ID      CHAR(8)   BYTE  KEY,
  5075.        DEFOWNER    CHAR(18)  ASCII,
  5076.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5077.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5078.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5079.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  5080.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5081.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5082.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  5083.        REFOWNER    CHAR(18)  ASCII,
  5084.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5085.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5086.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5087.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QUERYCOMMAND',
  5088.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5089.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5090.        CREATEDATE  DATE DEFAULT DATE,
  5091.        CREATETIME  TIME DEFAULT TIME
  5092.       )
  5093.     WITH REPLICATION
  5094. /
  5095.     IF $RC <> 0
  5096.     THEN
  5097.          BEGIN
  5098. /
  5099.          END INIT SERVERDB
  5100. /
  5101.          STOP 7
  5102. /
  5103.          END
  5104. /
  5105.     CREATE INDEX INDEX1 ON DOMAIN.#MOD_USES_QCM
  5106.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5107. /
  5108.     IF $RC <> 0
  5109.     THEN
  5110.          BEGIN
  5111. /
  5112.          END INIT SERVERDB
  5113. /
  5114.          STOP 7
  5115. /
  5116.          END
  5117. /
  5118.     CREATE INDEX INDEX2 ON DOMAIN.#MOD_USES_QCM
  5119.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5120. /
  5121.     IF $RC <> 0
  5122.     THEN
  5123.          BEGIN
  5124. /
  5125.          END INIT SERVERDB
  5126. /
  5127.          STOP 7
  5128. /
  5129.          END
  5130. /
  5131.     COMMIT WORK
  5132. /
  5133.     END
  5134. /
  5135. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_QCM) = 0
  5136. THEN
  5137.     BEGIN
  5138. /
  5139.     DROP VIEW DOMAIN.MOD_USES_QCM
  5140. /
  5141.     COMMIT WORK
  5142. /
  5143.     END
  5144. /
  5145. CREATE VIEW DOMAIN.MOD_USES_QCM
  5146.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  5147.    REFOBJTYPE,REFOWNER,REFCOMMANDNAME,CREATEDATE,CREATETIME)
  5148. AS SELECT
  5149.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  5150.      REFOBJTYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5151.    FROM DOMAIN.#MOD_USES_QCM
  5152.    WHERE USERGROUP IN(defowner,refowner)
  5153. WITH CHECK OPTION
  5154. /
  5155. IF $RC <> 0
  5156. THEN
  5157.      BEGIN
  5158. /
  5159.      END INIT SERVERDB
  5160. /
  5161.      STOP 7
  5162. /
  5163.      END
  5164. /
  5165. COMMIT WORK
  5166. /
  5167. GRANT SELECT ON DOMAIN.MOD_USES_QCM TO PUBLIC WITH GRANT OPTION
  5168. /
  5169. IF $RC (EXISTS TABLE DOMAIN.#MOD_USES_TAB) <> 0
  5170. THEN
  5171.     BEGIN
  5172. /
  5173.     CREATE TABLE DOMAIN.#MOD_USES_TAB
  5174.       (
  5175.        USER_ID     FIXED(10)       KEY,
  5176.        ROW_ID      CHAR(8)   BYTE  KEY,
  5177.        DEFOWNER    CHAR(18)  ASCII,
  5178.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5179.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5180.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5181.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
  5182.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5183.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5184.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  5185.        REFOWNER    CHAR(18)  ASCII,
  5186.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5187.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5188.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5189.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'TABLE',
  5190.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5191.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5192.        DDLUSAGE    CHAR(1)   ASCII,
  5193.        DMLUSAGE    CHAR(20)  ASCII,
  5194.        TYPE        CHAR(8)   ASCII,
  5195.        CREATEDATE  DATE DEFAULT DATE,
  5196.        CREATETIME  TIME DEFAULT TIME
  5197.       )
  5198.     WITH REPLICATION
  5199. /
  5200.     IF $RC <> 0
  5201.     THEN
  5202.          BEGIN
  5203. /
  5204.          END INIT SERVERDB
  5205. /
  5206.          STOP 7
  5207. /
  5208.          END
  5209. /
  5210.     CREATE INDEX INDEX1 ON DOMAIN.#MOD_USES_TAB
  5211.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5212. /
  5213.     IF $RC <> 0
  5214.     THEN
  5215.          BEGIN
  5216. /
  5217.          END INIT SERVERDB
  5218. /
  5219.          STOP 7
  5220. /
  5221.          END
  5222. /
  5223.     CREATE INDEX INDEX2 ON DOMAIN.#MOD_USES_TAB
  5224.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5225. /
  5226.     IF $RC <> 0
  5227.     THEN
  5228.          BEGIN
  5229. /
  5230.          END INIT SERVERDB
  5231. /
  5232.          STOP 7
  5233. /
  5234.          END
  5235. /
  5236.     END
  5237. ELSE
  5238. /
  5239.     IF $RC (SHOW COLUMN DOMAIN.#MOD_USES_TAB.TYPE) <> 0
  5240.     THEN
  5241.         BEGIN
  5242. /
  5243.         ALTER TABLE DOMAIN.#MOD_USES_TAB ADD (TYPE CHAR(8) ASCII)
  5244. /
  5245.         IF $RC <> 0
  5246.         THEN
  5247.              BEGIN
  5248. /
  5249.              END INIT SERVERDB
  5250. /
  5251.              STOP 7
  5252. /
  5253.              END
  5254. /
  5255.         END
  5256. /
  5257. COMMIT WORK
  5258. /
  5259. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_SNP) = 0
  5260. THEN
  5261.     BEGIN
  5262. /
  5263.     DROP VIEW DOMAIN.MOD_USES_SNP
  5264. /
  5265.     COMMIT WORK
  5266. /
  5267.     END
  5268. /
  5269. CREATE VIEW DOMAIN.MOD_USES_SNP
  5270.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  5271.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  5272. AS SELECT
  5273.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  5274.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5275.    FROM DOMAIN.#MOD_USES_TAB
  5276.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SNAPSHOT'
  5277. WITH CHECK OPTION
  5278. /
  5279. IF $RC <> 0
  5280. THEN
  5281.      BEGIN
  5282. /
  5283.      END INIT SERVERDB
  5284. /
  5285.      STOP 7
  5286. /
  5287.      END
  5288. /
  5289. COMMIT WORK
  5290. /
  5291. GRANT SELECT ON DOMAIN.MOD_USES_SNP TO PUBLIC WITH GRANT OPTION
  5292. /
  5293. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_SYN) = 0
  5294. THEN
  5295.     BEGIN
  5296. /
  5297.     DROP VIEW DOMAIN.MOD_USES_SYN
  5298. /
  5299.     COMMIT WORK
  5300. /
  5301.     END
  5302. /
  5303. CREATE VIEW DOMAIN.MOD_USES_SYN
  5304.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  5305.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  5306. AS SELECT
  5307.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  5308.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5309.    FROM DOMAIN.#MOD_USES_TAB
  5310.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SYNONYM'
  5311. WITH CHECK OPTION
  5312. /
  5313. IF $RC <> 0
  5314. THEN
  5315.      BEGIN
  5316. /
  5317.      END INIT SERVERDB
  5318. /
  5319.      STOP 7
  5320. /
  5321.      END
  5322. /
  5323. COMMIT WORK
  5324. /
  5325. GRANT SELECT ON DOMAIN.MOD_USES_SYN TO PUBLIC WITH GRANT OPTION
  5326. /
  5327. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_TAB) = 0
  5328. THEN
  5329.     BEGIN
  5330. /
  5331.     DROP VIEW DOMAIN.MOD_USES_TAB
  5332. /
  5333.     COMMIT WORK
  5334. /
  5335.     END
  5336. /
  5337. CREATE VIEW DOMAIN.MOD_USES_TAB
  5338.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  5339.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  5340. AS SELECT
  5341.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  5342.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5343.    FROM DOMAIN.#MOD_USES_TAB
  5344.    WHERE USERGROUP IN(defowner,refowner)
  5345. WITH CHECK OPTION
  5346. /
  5347. IF $RC <> 0
  5348. THEN
  5349.      BEGIN
  5350. /
  5351.      END INIT SERVERDB
  5352. /
  5353.      STOP 7
  5354. /
  5355.      END
  5356. /
  5357. COMMIT WORK
  5358. /
  5359. GRANT SELECT ON DOMAIN.MOD_USES_TAB TO PUBLIC WITH GRANT OPTION
  5360. /
  5361. IF $RC (EXISTS TABLE DOMAIN.MOD_USES_VIE) = 0
  5362. THEN
  5363.     BEGIN
  5364. /
  5365.     DROP VIEW DOMAIN.MOD_USES_VIE
  5366. /
  5367.     COMMIT WORK
  5368. /
  5369.     END
  5370. /
  5371. CREATE VIEW DOMAIN.MOD_USES_VIE
  5372.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFMODULENAME,DEFPROGLANG,RELTYPE,
  5373.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  5374. AS SELECT
  5375.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,RELTYPE,
  5376.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5377.    FROM DOMAIN.#MOD_USES_TAB
  5378.    WHERE USERGROUP IN(defowner,refowner) AND type = 'VIEW'
  5379. WITH CHECK OPTION
  5380. /
  5381. IF $RC <> 0
  5382. THEN
  5383.      BEGIN
  5384. /
  5385.      END INIT SERVERDB
  5386. /
  5387.      STOP 7
  5388. /
  5389.      END
  5390. /
  5391. COMMIT WORK
  5392. /
  5393. GRANT SELECT ON DOMAIN.MOD_USES_VIE TO PUBLIC WITH GRANT OPTION
  5394. /
  5395. IF $RC (EXISTS TABLE DOMAIN.#PRO_CONT_MOD) = 0
  5396. THEN
  5397.     BEGIN
  5398. /
  5399.     DROP VIEW DOMAIN.#PRO_CONT_MOD
  5400. /
  5401.     COMMIT WORK
  5402. /
  5403.     END
  5404. /
  5405. CREATE VIEW DOMAIN.#PRO_CONT_MOD
  5406.   (DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFPROGLANG,RELTYPE,
  5407.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFMODULENAME,REFPROGLANG,
  5408.    CREATEDATE,CREATETIME)
  5409. AS SELECT
  5410.      'PROGRAM',OWNER,MODULENAME1,PROGLANG,'CONTAINS',
  5411.      'MODULE',OWNER,MODULENAME1,MODULENAME2,PROGLANG,
  5412.      CREATEDATE,CREATETIME
  5413.    FROM DOMAIN.MODULE
  5414. WITH CHECK OPTION
  5415. /
  5416. IF $RC <> 0
  5417. THEN
  5418.      BEGIN
  5419. /
  5420.      END INIT SERVERDB
  5421. /
  5422.      STOP 7
  5423. /
  5424.      END
  5425. /
  5426. COMMIT WORK
  5427. /
  5428. IF $RC (EXISTS TABLE DOMAIN.PRO_CONT_MOD) = 0
  5429. THEN
  5430.     BEGIN
  5431. /
  5432.     DROP VIEW DOMAIN.PRO_CONT_MOD
  5433. /
  5434.     COMMIT WORK
  5435. /
  5436.     END
  5437. /
  5438. CREATE VIEW DOMAIN.PRO_CONT_MOD
  5439. AS SELECT
  5440.      DEFOBJTYPE,DEFOWNER,DEFPROGRAMNAME,DEFPROGLANG,RELTYPE,
  5441.      REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFMODULENAME,REFPROGLANG,
  5442.      CREATEDATE,CREATETIME
  5443.    FROM DOMAIN.#PRO_CONT_MOD
  5444.    WHERE defowner = USERGROUP
  5445. WITH CHECK OPTION
  5446. /
  5447. IF $RC <> 0
  5448. THEN
  5449.      BEGIN
  5450. /
  5451.      END INIT SERVERDB
  5452. /
  5453.      STOP 7
  5454. /
  5455.      END
  5456. /
  5457. COMMIT WORK
  5458. /
  5459. GRANT SELECT ON DOMAIN.PRO_CONT_MOD TO PUBLIC WITH GRANT OPTION
  5460. /
  5461. IF $RC (EXISTS TABLE DOMAIN.#QCM_USES_COL) <> 0
  5462. THEN
  5463.     BEGIN
  5464. /
  5465.     CREATE TABLE DOMAIN.#QCM_USES_COL
  5466.       (
  5467.        USER_ID     FIXED(10)       KEY,
  5468.        ROW_ID      CHAR(8)   BYTE  KEY,
  5469.        DEFOWNER    CHAR(18)  ASCII,
  5470.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5471.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5472.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5473.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QUERYCOMMAND',
  5474.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5475.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5476.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  5477.        REFOWNER    CHAR(18)  ASCII,
  5478.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5479.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5480.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5481.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'COLUMN',
  5482.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5483.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5484.        CREATEDATE  DATE DEFAULT DATE,
  5485.        CREATETIME  TIME DEFAULT TIME
  5486.       )
  5487.     WITH REPLICATION
  5488. /
  5489.     IF $RC <> 0
  5490.     THEN
  5491.          BEGIN
  5492. /
  5493.          END INIT SERVERDB
  5494. /
  5495.          STOP 7
  5496. /
  5497.          END
  5498. /
  5499.     CREATE INDEX INDEX1 ON DOMAIN.#QCM_USES_COL
  5500.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5501. /
  5502.     IF $RC <> 0
  5503.     THEN
  5504.          BEGIN
  5505. /
  5506.          END INIT SERVERDB
  5507. /
  5508.          STOP 7
  5509. /
  5510.          END
  5511. /
  5512.     CREATE INDEX INDEX2 ON DOMAIN.#QCM_USES_COL
  5513.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5514. /
  5515.     IF $RC <> 0
  5516.     THEN
  5517.          BEGIN
  5518. /
  5519.          END INIT SERVERDB
  5520. /
  5521.          STOP 7
  5522. /
  5523.          END
  5524. /
  5525.     COMMIT WORK
  5526. /
  5527.     END
  5528. /
  5529. IF $RC (EXISTS TABLE DOMAIN.QCM_USES_COL) = 0
  5530. THEN
  5531.     BEGIN
  5532. /
  5533.     DROP VIEW DOMAIN.QCM_USES_COL
  5534. /
  5535.     COMMIT WORK
  5536. /
  5537.     END
  5538. /
  5539. CREATE VIEW DOMAIN.QCM_USES_COL
  5540.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  5541.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  5542. AS SELECT
  5543.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  5544.      REFOBJTYPE,REFOWNER,REFOBJNAME1,REFOBJNAME2,CREATEDATE,CREATETIME
  5545.    FROM DOMAIN.#QCM_USES_COL
  5546.    WHERE USERGROUP IN(defowner,refowner)
  5547. WITH CHECK OPTION
  5548. /
  5549. IF $RC <> 0
  5550. THEN
  5551.      BEGIN
  5552. /
  5553.      END INIT SERVERDB
  5554. /
  5555.      STOP 7
  5556. /
  5557.      END
  5558. /
  5559. COMMIT WORK
  5560. /
  5561. GRANT SELECT ON DOMAIN.QCM_USES_COL TO PUBLIC WITH GRANT OPTION
  5562. /
  5563. IF $RC (EXISTS TABLE DOMAIN.#QCM_USES_TAB) <> 0
  5564. THEN
  5565.     BEGIN
  5566. /
  5567.     CREATE TABLE DOMAIN.#QCM_USES_TAB
  5568.       (
  5569.        USER_ID     FIXED(10)       KEY,
  5570.        ROW_ID      CHAR(8)   BYTE  KEY,
  5571.        DEFOWNER    CHAR(18)  ASCII,
  5572.        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5573.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5574.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5575.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QUERYCOMMAND',
  5576.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5577.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5578.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  5579.        REFOWNER    CHAR(18)  ASCII,
  5580.        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
  5581.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5582.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5583.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'TABLE',
  5584.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5585.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5586.        TYPE        CHAR(8)   ASCII,
  5587.        CREATEDATE  DATE DEFAULT DATE,
  5588.        CREATETIME  TIME DEFAULT TIME
  5589.       )
  5590.     WITH REPLICATION
  5591. /
  5592.     IF $RC <> 0
  5593.     THEN
  5594.          BEGIN
  5595. /
  5596.          END INIT SERVERDB
  5597. /
  5598.          STOP 7
  5599. /
  5600.          END
  5601. /
  5602.     CREATE INDEX INDEX1 ON DOMAIN.#QCM_USES_TAB
  5603.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5604. /
  5605.     IF $RC <> 0
  5606.     THEN
  5607.          BEGIN
  5608. /
  5609.          END INIT SERVERDB
  5610. /
  5611.          STOP 7
  5612. /
  5613.          END
  5614. /
  5615.     CREATE INDEX INDEX2 ON DOMAIN.#QCM_USES_TAB
  5616.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5617. /
  5618.     IF $RC <> 0
  5619.     THEN
  5620.          BEGIN
  5621. /
  5622.          END INIT SERVERDB
  5623. /
  5624.          STOP 7
  5625. /
  5626.          END
  5627. /
  5628.     END
  5629. ELSE
  5630. /
  5631.     IF $RC (SHOW COLUMN DOMAIN.#QCM_USES_TAB.TYPE) <> 0
  5632.     THEN
  5633.         BEGIN
  5634. /
  5635.         ALTER TABLE DOMAIN.#QCM_USES_TAB ADD (TYPE CHAR(8) ASCII)
  5636. /
  5637.         IF $RC <> 0
  5638.         THEN
  5639.              BEGIN
  5640. /
  5641.              END INIT SERVERDB
  5642. /
  5643.              STOP 7
  5644. /
  5645.              END
  5646. /
  5647.         END
  5648. /
  5649. COMMIT WORK
  5650. /
  5651. IF $RC (EXISTS TABLE DOMAIN.QCM_USES_SNP) = 0
  5652. THEN
  5653.     BEGIN
  5654. /
  5655.     DROP VIEW DOMAIN.QCM_USES_SNP
  5656. /
  5657.     COMMIT WORK
  5658. /
  5659.     END
  5660. /
  5661. CREATE VIEW DOMAIN.QCM_USES_SNP
  5662.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  5663.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  5664. AS SELECT
  5665.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  5666.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5667.    FROM DOMAIN.#QCM_USES_TAB
  5668.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SNAPSHOT'
  5669. WITH CHECK OPTION
  5670. /
  5671. IF $RC <> 0
  5672. THEN
  5673.      BEGIN
  5674. /
  5675.      END INIT SERVERDB
  5676. /
  5677.      STOP 7
  5678. /
  5679.      END
  5680. /
  5681. COMMIT WORK
  5682. /
  5683. GRANT SELECT ON DOMAIN.QCM_USES_SNP TO PUBLIC WITH GRANT OPTION
  5684. /
  5685. IF $RC (EXISTS TABLE DOMAIN.QCM_USES_SYN) = 0
  5686. THEN
  5687.     BEGIN
  5688. /
  5689.     DROP VIEW DOMAIN.QCM_USES_SYN
  5690. /
  5691.     COMMIT WORK
  5692. /
  5693.     END
  5694. /
  5695. CREATE VIEW DOMAIN.QCM_USES_SYN
  5696.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  5697.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  5698. AS SELECT
  5699.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  5700.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5701.    FROM DOMAIN.#QCM_USES_TAB
  5702.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SYNONYM'
  5703. WITH CHECK OPTION
  5704. /
  5705. IF $RC <> 0
  5706. THEN
  5707.      BEGIN
  5708. /
  5709.      END INIT SERVERDB
  5710. /
  5711.      STOP 7
  5712. /
  5713.      END
  5714. /
  5715. COMMIT WORK
  5716. /
  5717. GRANT SELECT ON DOMAIN.QCM_USES_SYN TO PUBLIC WITH GRANT OPTION
  5718. /
  5719. IF $RC (EXISTS TABLE DOMAIN.QCM_USES_TAB) = 0
  5720. THEN
  5721.     BEGIN
  5722. /
  5723.     DROP VIEW DOMAIN.QCM_USES_TAB
  5724. /
  5725.     COMMIT WORK
  5726. /
  5727.     END
  5728. /
  5729. CREATE VIEW DOMAIN.QCM_USES_TAB
  5730.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  5731.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  5732. AS SELECT
  5733.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  5734.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5735.    FROM DOMAIN.#QCM_USES_TAB
  5736.    WHERE USERGROUP IN(defowner,refowner)
  5737. WITH CHECK OPTION
  5738. /
  5739. IF $RC <> 0
  5740. THEN
  5741.      BEGIN
  5742. /
  5743.      END INIT SERVERDB
  5744. /
  5745.      STOP 7
  5746. /
  5747.      END
  5748. /
  5749. COMMIT WORK
  5750. /
  5751. GRANT SELECT ON DOMAIN.QCM_USES_TAB TO PUBLIC WITH GRANT OPTION
  5752. /
  5753. IF $RC (EXISTS TABLE DOMAIN.QCM_USES_VIE) = 0
  5754. THEN
  5755.     BEGIN
  5756. /
  5757.     DROP VIEW DOMAIN.QCM_USES_VIE
  5758. /
  5759.     COMMIT WORK
  5760. /
  5761.     END
  5762. /
  5763. CREATE VIEW DOMAIN.QCM_USES_VIE
  5764.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  5765.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  5766. AS SELECT
  5767.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  5768.      TYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  5769.    FROM DOMAIN.#QCM_USES_TAB
  5770.    WHERE USERGROUP IN(defowner,refowner) AND type = 'VIEW'
  5771. WITH CHECK OPTION
  5772. /
  5773. IF $RC <> 0
  5774. THEN
  5775.      BEGIN
  5776. /
  5777.      END INIT SERVERDB
  5778. /
  5779.      STOP 7
  5780. /
  5781.      END
  5782. /
  5783. COMMIT WORK
  5784. /
  5785. GRANT SELECT ON DOMAIN.QCM_USES_VIE TO PUBLIC WITH GRANT OPTION
  5786. /
  5787. IF $RC (EXISTS TABLE DOMAIN.#QPC_USES_COL) <> 0
  5788. THEN
  5789.     BEGIN
  5790. /
  5791.     CREATE TABLE DOMAIN.#QPC_USES_COL
  5792.       (
  5793.        USER_ID     FIXED(10)       KEY,
  5794.        ROW_ID      CHAR(8)   BYTE  KEY,
  5795.        DEFOWNER    CHAR(18)  ASCII,
  5796.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  5797.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5798.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5799.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPCOMMAND',
  5800.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5801.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5802.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  5803.        REFOWNER    CHAR(18)  ASCII,
  5804.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  5805.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5806.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5807.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'COLUMN',
  5808.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5809.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5810.        CREATEDATE  DATE DEFAULT DATE,
  5811.        CREATETIME  TIME DEFAULT TIME
  5812.       )
  5813.     WITH REPLICATION
  5814. /
  5815.     IF $RC <> 0
  5816.     THEN
  5817.          BEGIN
  5818. /
  5819.          END INIT SERVERDB
  5820. /
  5821.          STOP 7
  5822. /
  5823.          END
  5824. /
  5825.     CREATE INDEX INDEX1 ON DOMAIN.#QPC_USES_COL
  5826.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5827. /
  5828.     IF $RC <> 0
  5829.     THEN
  5830.          BEGIN
  5831. /
  5832.          END INIT SERVERDB
  5833. /
  5834.          STOP 7
  5835. /
  5836.          END
  5837. /
  5838.     CREATE INDEX INDEX2 ON DOMAIN.#QPC_USES_COL
  5839.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5840. /
  5841.     IF $RC <> 0
  5842.     THEN
  5843.          BEGIN
  5844. /
  5845.          END INIT SERVERDB
  5846. /
  5847.          STOP 7
  5848. /
  5849.          END
  5850. /
  5851.     END
  5852. ELSE
  5853.     BEGIN
  5854. /
  5855.     ALTER TABLE DOMAIN.#QPC_USES_COL COLUMN REFOBJNAME1 CHAR(150) ASCII
  5856. /
  5857.     IF $RC <> 0
  5858.     THEN
  5859.          BEGIN
  5860. /
  5861.          END INIT SERVERDB
  5862. /
  5863.          STOP 7
  5864. /
  5865.          END
  5866. /
  5867.     END
  5868. /
  5869. COMMIT WORK
  5870. /
  5871. IF $RC (EXISTS TABLE DOMAIN.QPC_USES_COL) = 0
  5872. THEN
  5873.     BEGIN
  5874. /
  5875.     DROP VIEW DOMAIN.QPC_USES_COL
  5876. /
  5877.     COMMIT WORK
  5878. /
  5879.     END
  5880. /
  5881. CREATE VIEW DOMAIN.QPC_USES_COL
  5882.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  5883.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  5884. AS SELECT
  5885.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  5886.      REFOBJTYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),REFOBJNAME2,CREATEDATE,CREATETIME
  5887.    FROM DOMAIN.#QPC_USES_COL
  5888.    WHERE USERGROUP IN(defowner,refowner)
  5889. WITH CHECK OPTION
  5890. /
  5891. IF $RC <> 0
  5892. THEN
  5893.      BEGIN
  5894. /
  5895.      END INIT SERVERDB
  5896. /
  5897.      STOP 7
  5898. /
  5899.      END
  5900. /
  5901. COMMIT WORK
  5902. /
  5903. GRANT SELECT ON DOMAIN.QPC_USES_COL TO PUBLIC WITH GRANT OPTION
  5904. /
  5905. IF $RC (EXISTS TABLE DOMAIN.#QPC_USES_TAB) <> 0
  5906. THEN
  5907.     BEGIN
  5908. /
  5909.     CREATE TABLE DOMAIN.#QPC_USES_TAB
  5910.       (
  5911.        USER_ID     FIXED(10)       KEY,
  5912.        ROW_ID      CHAR(8)   BYTE  KEY,
  5913.        DEFOWNER    CHAR(18)  ASCII,
  5914.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  5915.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5916.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5917.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPCOMMAND',
  5918.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5919.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5920.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  5921.        REFOWNER    CHAR(18)  ASCII,
  5922.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  5923.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  5924.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  5925.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'TABLE',
  5926.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  5927.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  5928.        TYPE        CHAR(8)   ASCII,
  5929.        CREATEDATE  DATE DEFAULT DATE,
  5930.        CREATETIME  TIME DEFAULT TIME
  5931.       )
  5932.     WITH REPLICATION
  5933. /
  5934.     IF $RC <> 0
  5935.     THEN
  5936.          BEGIN
  5937. /
  5938.          END INIT SERVERDB
  5939. /
  5940.          STOP 7
  5941. /
  5942.          END
  5943. /
  5944.     CREATE INDEX INDEX1 ON DOMAIN.#QPC_USES_TAB
  5945.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  5946. /
  5947.     IF $RC <> 0
  5948.     THEN
  5949.          BEGIN
  5950. /
  5951.          END INIT SERVERDB
  5952. /
  5953.          STOP 7
  5954. /
  5955.          END
  5956. /
  5957.     CREATE INDEX INDEX2 ON DOMAIN.#QPC_USES_TAB
  5958.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  5959. /
  5960.     IF $RC <> 0
  5961.     THEN
  5962.          BEGIN
  5963. /
  5964.          END INIT SERVERDB
  5965. /
  5966.          STOP 7
  5967. /
  5968.          END
  5969. /
  5970.     END
  5971. ELSE
  5972. /
  5973.     IF $RC (SHOW COLUMN DOMAIN.#QPC_USES_TAB.TYPE) <> 0
  5974.     THEN
  5975.         BEGIN
  5976. /
  5977.         ALTER TABLE DOMAIN.#QPC_USES_TAB ADD (TYPE CHAR(8) ASCII)
  5978. /
  5979.         IF $RC <> 0
  5980.         THEN
  5981.              BEGIN
  5982. /
  5983.              END INIT SERVERDB
  5984. /
  5985.              STOP 7
  5986. /
  5987.              END
  5988. /
  5989.         END
  5990.     ELSE
  5991.         BEGIN
  5992. /
  5993.         ALTER TABLE DOMAIN.#QPC_USES_TAB COLUMN REFOBJNAME1 CHAR(150) ASCII
  5994. /
  5995.         IF $RC <> 0
  5996.         THEN
  5997.              BEGIN
  5998. /
  5999.              END INIT SERVERDB
  6000. /
  6001.              STOP 7
  6002. /
  6003.              END
  6004. /
  6005.         END
  6006. /
  6007. COMMIT WORK
  6008. /
  6009. IF $RC (EXISTS TABLE DOMAIN.QPC_USES_SNP) = 0
  6010. THEN
  6011.     BEGIN
  6012. /
  6013.     DROP VIEW DOMAIN.QPC_USES_SNP
  6014. /
  6015.     COMMIT WORK
  6016. /
  6017.     END
  6018. /
  6019. CREATE VIEW DOMAIN.QPC_USES_SNP
  6020.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  6021.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  6022. AS SELECT
  6023.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6024.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6025.    FROM DOMAIN.#QPC_USES_TAB
  6026.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SNAPSHOT'
  6027. WITH CHECK OPTION
  6028. /
  6029. IF $RC <> 0
  6030. THEN
  6031.      BEGIN
  6032. /
  6033.      END INIT SERVERDB
  6034. /
  6035.      STOP 7
  6036. /
  6037.      END
  6038. /
  6039. COMMIT WORK
  6040. /
  6041. GRANT SELECT ON DOMAIN.QPC_USES_SNP TO PUBLIC WITH GRANT OPTION
  6042. /
  6043. IF $RC (EXISTS TABLE DOMAIN.QPC_USES_SYN) = 0
  6044. THEN
  6045.     BEGIN
  6046. /
  6047.     DROP VIEW DOMAIN.QPC_USES_SYN
  6048. /
  6049.     COMMIT WORK
  6050. /
  6051.     END
  6052. /
  6053. CREATE VIEW DOMAIN.QPC_USES_SYN
  6054.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  6055.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  6056. AS SELECT
  6057.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6058.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6059.    FROM DOMAIN.#QPC_USES_TAB
  6060.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SYNONYM'
  6061. WITH CHECK OPTION
  6062. /
  6063. IF $RC <> 0
  6064. THEN
  6065.      BEGIN
  6066. /
  6067.      END INIT SERVERDB
  6068. /
  6069.      STOP 7
  6070. /
  6071.      END
  6072. /
  6073. COMMIT WORK
  6074. /
  6075. GRANT SELECT ON DOMAIN.QPC_USES_SYN TO PUBLIC WITH GRANT OPTION
  6076. /
  6077. IF $RC (EXISTS TABLE DOMAIN.QPC_USES_TAB) = 0
  6078. THEN
  6079.     BEGIN
  6080. /
  6081.     DROP VIEW DOMAIN.QPC_USES_TAB
  6082. /
  6083.     COMMIT WORK
  6084. /
  6085.     END
  6086. /
  6087. CREATE VIEW DOMAIN.QPC_USES_TAB
  6088.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  6089.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  6090. AS SELECT
  6091.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6092.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6093.    FROM DOMAIN.#QPC_USES_TAB
  6094.    WHERE USERGROUP IN(defowner,refowner)
  6095. WITH CHECK OPTION
  6096. /
  6097. IF $RC <> 0
  6098. THEN
  6099.      BEGIN
  6100. /
  6101.      END INIT SERVERDB
  6102. /
  6103.      STOP 7
  6104. /
  6105.      END
  6106. /
  6107. COMMIT WORK
  6108. /
  6109. GRANT SELECT ON DOMAIN.QPC_USES_TAB TO PUBLIC WITH GRANT OPTION
  6110. /
  6111. IF $RC (EXISTS TABLE DOMAIN.QPC_USES_VIE) = 0
  6112. THEN
  6113.     BEGIN
  6114. /
  6115.     DROP VIEW DOMAIN.QPC_USES_VIE
  6116. /
  6117.     COMMIT WORK
  6118. /
  6119.     END
  6120. /
  6121. CREATE VIEW DOMAIN.QPC_USES_VIE
  6122.   (DEFOBJTYPE,DEFOWNER,DEFCOMMANDNAME,RELTYPE,
  6123.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  6124. AS SELECT
  6125.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6126.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6127.    FROM DOMAIN.#QPC_USES_TAB
  6128.    WHERE USERGROUP IN(defowner,refowner) AND type = 'VIEW'
  6129. WITH CHECK OPTION
  6130. /
  6131. IF $RC <> 0
  6132. THEN
  6133.      BEGIN
  6134. /
  6135.      END INIT SERVERDB
  6136. /
  6137.      STOP 7
  6138. /
  6139.      END
  6140. /
  6141. COMMIT WORK
  6142. /
  6143. GRANT SELECT ON DOMAIN.QPC_USES_VIE TO PUBLIC WITH GRANT OPTION
  6144. /
  6145. IF $RC (EXISTS TABLE DOMAIN.#QPQ_USES_COL) <> 0
  6146. THEN
  6147.     BEGIN
  6148. /
  6149.     CREATE TABLE DOMAIN.#QPQ_USES_COL
  6150.       (
  6151.        USER_ID     FIXED(10)       KEY,
  6152.        ROW_ID      CHAR(8)   BYTE  KEY,
  6153.        DEFOWNER    CHAR(18)  ASCII,
  6154.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6155.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6156.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6157.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPQUERY',
  6158.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6159.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6160.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  6161.        REFOWNER    CHAR(18)  ASCII,
  6162.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6163.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6164.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6165.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'COLUMN',
  6166.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6167.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6168.        CREATEDATE  DATE DEFAULT DATE,
  6169.        CREATETIME  TIME DEFAULT TIME
  6170.       )
  6171.     WITH REPLICATION
  6172. /
  6173.     IF $RC <> 0
  6174.     THEN
  6175.          BEGIN
  6176. /
  6177.          END INIT SERVERDB
  6178. /
  6179.          STOP 7
  6180. /
  6181.          END
  6182. /
  6183.     CREATE INDEX INDEX1 ON DOMAIN.#QPQ_USES_COL
  6184.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  6185. /
  6186.     IF $RC <> 0
  6187.     THEN
  6188.          BEGIN
  6189. /
  6190.          END INIT SERVERDB
  6191. /
  6192.          STOP 7
  6193. /
  6194.          END
  6195. /
  6196.     CREATE INDEX INDEX2 ON DOMAIN.#QPQ_USES_COL
  6197.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  6198. /
  6199.     IF $RC <> 0
  6200.     THEN
  6201.          BEGIN
  6202. /
  6203.          END INIT SERVERDB
  6204. /
  6205.          STOP 7
  6206. /
  6207.          END
  6208. /
  6209.     END
  6210. ELSE
  6211.     BEGIN
  6212. /
  6213.     ALTER TABLE DOMAIN.#QPQ_USES_COL COLUMN REFOBJNAME1 CHAR(150) ASCII
  6214. /
  6215.     IF $RC <> 0
  6216.     THEN
  6217.          BEGIN
  6218. /
  6219.          END INIT SERVERDB
  6220. /
  6221.          STOP 7
  6222. /
  6223.          END
  6224. /
  6225.     END
  6226. /
  6227. COMMIT WORK
  6228. /
  6229. IF $RC (EXISTS TABLE DOMAIN.QPQ_USES_COL) = 0
  6230. THEN
  6231.     BEGIN
  6232. /
  6233.     DROP VIEW DOMAIN.QPQ_USES_COL
  6234. /
  6235.     COMMIT WORK
  6236. /
  6237.     END
  6238. /
  6239. CREATE VIEW DOMAIN.QPQ_USES_COL
  6240.   (DEFOBJTYPE,DEFOWNER,DEFQUERYNAME,RELTYPE,
  6241.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,CREATEDATE,CREATETIME)
  6242. AS SELECT
  6243.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6244.      REFOBJTYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),REFOBJNAME2,CREATEDATE,CREATETIME
  6245.    FROM DOMAIN.#QPQ_USES_COL
  6246.    WHERE USERGROUP IN(defowner,refowner)
  6247. WITH CHECK OPTION
  6248. /
  6249. IF $RC <> 0
  6250. THEN
  6251.      BEGIN
  6252. /
  6253.      END INIT SERVERDB
  6254. /
  6255.      STOP 7
  6256. /
  6257.      END
  6258. /
  6259. COMMIT WORK
  6260. /
  6261. GRANT SELECT ON DOMAIN.QPQ_USES_COL TO PUBLIC WITH GRANT OPTION
  6262. /
  6263. IF $RC (EXISTS TABLE DOMAIN.#QPQ_USES_TAB) <> 0
  6264. THEN
  6265.     BEGIN
  6266. /
  6267.     CREATE TABLE DOMAIN.#QPQ_USES_TAB
  6268.       (
  6269.        USER_ID     FIXED(10)       KEY,
  6270.        ROW_ID      CHAR(8)   BYTE  KEY,
  6271.        DEFOWNER    CHAR(18)  ASCII,
  6272.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6273.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6274.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6275.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPQUERY',
  6276.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6277.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6278.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  6279.        REFOWNER    CHAR(18)  ASCII,
  6280.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6281.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6282.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6283.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'TABLE',
  6284.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6285.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6286.        TYPE        CHAR(8)   ASCII,
  6287.        CREATEDATE  DATE DEFAULT DATE,
  6288.        CREATETIME  TIME DEFAULT TIME
  6289.       )
  6290.     WITH REPLICATION
  6291. /
  6292.     IF $RC <> 0
  6293.     THEN
  6294.          BEGIN
  6295. /
  6296.          END INIT SERVERDB
  6297. /
  6298.          STOP 7
  6299. /
  6300.          END
  6301. /
  6302.     CREATE INDEX INDEX1 ON DOMAIN.#QPQ_USES_TAB
  6303.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  6304. /
  6305.     IF $RC <> 0
  6306.     THEN
  6307.          BEGIN
  6308. /
  6309.          END INIT SERVERDB
  6310. /
  6311.          STOP 7
  6312. /
  6313.          END
  6314. /
  6315.     CREATE INDEX INDEX2 ON DOMAIN.#QPQ_USES_TAB
  6316.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  6317. /
  6318.     IF $RC <> 0
  6319.     THEN
  6320.          BEGIN
  6321. /
  6322.          END INIT SERVERDB
  6323. /
  6324.          STOP 7
  6325. /
  6326.          END
  6327. /
  6328.     END
  6329. ELSE
  6330. /
  6331.     IF $RC (SHOW COLUMN DOMAIN.#QPQ_USES_TAB.TYPE) <> 0
  6332.     THEN
  6333.         BEGIN
  6334. /
  6335.         ALTER TABLE DOMAIN.#QPQ_USES_TAB ADD (TYPE CHAR(8) ASCII)
  6336. /
  6337.         IF $RC <> 0
  6338.         THEN
  6339.              BEGIN
  6340. /
  6341.              END INIT SERVERDB
  6342. /
  6343.              STOP 7
  6344. /
  6345.              END
  6346. /
  6347.         END
  6348.     ELSE
  6349.         BEGIN
  6350. /
  6351.         ALTER TABLE DOMAIN.#QPQ_USES_TAB COLUMN REFOBJNAME1 CHAR(150) ASCII
  6352. /
  6353.         IF $RC <> 0
  6354.         THEN
  6355.              BEGIN
  6356. /
  6357.              END INIT SERVERDB
  6358. /
  6359.              STOP 7
  6360. /
  6361.              END
  6362. /
  6363.         END
  6364. /
  6365. COMMIT WORK
  6366. /
  6367. IF $RC (EXISTS TABLE DOMAIN.QPQ_USES_SNP) = 0
  6368. THEN
  6369.     BEGIN
  6370. /
  6371.     DROP VIEW DOMAIN.QPQ_USES_SNP
  6372. /
  6373.     COMMIT WORK
  6374. /
  6375.     END
  6376. /
  6377. CREATE VIEW DOMAIN.QPQ_USES_SNP
  6378.   (DEFOBJTYPE,DEFOWNER,DEFQUERYNAME,RELTYPE,
  6379.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  6380. AS SELECT
  6381.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6382.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6383.    FROM DOMAIN.#QPQ_USES_TAB
  6384.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SNAPSHOT'
  6385. WITH CHECK OPTION
  6386. /
  6387. IF $RC <> 0
  6388. THEN
  6389.      BEGIN
  6390. /
  6391.      END INIT SERVERDB
  6392. /
  6393.      STOP 7
  6394. /
  6395.      END
  6396. /
  6397. COMMIT WORK
  6398. /
  6399. GRANT SELECT ON DOMAIN.QPQ_USES_SNP TO PUBLIC WITH GRANT OPTION
  6400. /
  6401. IF $RC (EXISTS TABLE DOMAIN.QPQ_USES_SYN) = 0
  6402. THEN
  6403.     BEGIN
  6404. /
  6405.     DROP VIEW DOMAIN.QPQ_USES_SYN
  6406. /
  6407.     COMMIT WORK
  6408. /
  6409.     END
  6410. /
  6411. CREATE VIEW DOMAIN.QPQ_USES_SYN
  6412.   (DEFOBJTYPE,DEFOWNER,DEFQUERYNAME,RELTYPE,
  6413.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  6414. AS SELECT
  6415.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6416.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6417.    FROM DOMAIN.#QPQ_USES_TAB
  6418.    WHERE USERGROUP IN(defowner,refowner) AND type = 'SYNONYM'
  6419. WITH CHECK OPTION
  6420. /
  6421. IF $RC <> 0
  6422. THEN
  6423.      BEGIN
  6424. /
  6425.      END INIT SERVERDB
  6426. /
  6427.      STOP 7
  6428. /
  6429.      END
  6430. /
  6431. COMMIT WORK
  6432. /
  6433. GRANT SELECT ON DOMAIN.QPQ_USES_SYN TO PUBLIC WITH GRANT OPTION
  6434. /
  6435. IF $RC (EXISTS TABLE DOMAIN.QPQ_USES_TAB) = 0
  6436. THEN
  6437.     BEGIN
  6438. /
  6439.     DROP VIEW DOMAIN.QPQ_USES_TAB
  6440. /
  6441.     COMMIT WORK
  6442. /
  6443.     END
  6444. /
  6445. CREATE VIEW DOMAIN.QPQ_USES_TAB
  6446.   (DEFOBJTYPE,DEFOWNER,DEFQUERYNAME,RELTYPE,
  6447.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  6448. AS SELECT
  6449.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6450.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6451.    FROM DOMAIN.#QPQ_USES_TAB
  6452.    WHERE USERGROUP IN(defowner,refowner)
  6453. WITH CHECK OPTION
  6454. /
  6455. IF $RC <> 0
  6456. THEN
  6457.      BEGIN
  6458. /
  6459.      END INIT SERVERDB
  6460. /
  6461.      STOP 7
  6462. /
  6463.      END
  6464. /
  6465. COMMIT WORK
  6466. /
  6467. GRANT SELECT ON DOMAIN.QPQ_USES_TAB TO PUBLIC WITH GRANT OPTION
  6468. /
  6469. IF $RC (EXISTS TABLE DOMAIN.QPQ_USES_VIE) = 0
  6470. THEN
  6471.     BEGIN
  6472. /
  6473.     DROP VIEW DOMAIN.QPQ_USES_VIE
  6474. /
  6475.     COMMIT WORK
  6476. /
  6477.     END
  6478. /
  6479. CREATE VIEW DOMAIN.QPQ_USES_VIE
  6480.   (DEFOBJTYPE,DEFOWNER,DEFQUERYNAME,RELTYPE,
  6481.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  6482. AS SELECT
  6483.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6484.      TYPE,REFOWNER,SUBSTR(REFOBJNAME1,1,18),CREATEDATE,CREATETIME
  6485.    FROM DOMAIN.#QPQ_USES_TAB
  6486.    WHERE USERGROUP IN(defowner,refowner) AND type = 'VIEW'
  6487. WITH CHECK OPTION
  6488. /
  6489. IF $RC <> 0
  6490. THEN
  6491.      BEGIN
  6492. /
  6493.      END INIT SERVERDB
  6494. /
  6495.      STOP 7
  6496. /
  6497.      END
  6498. /
  6499. COMMIT WORK
  6500. /
  6501. GRANT SELECT ON DOMAIN.QPQ_USES_VIE TO PUBLIC WITH GRANT OPTION
  6502. /
  6503. IF $RC (EXISTS TABLE DOMAIN.#QPE_USES_QPC) <> 0
  6504. THEN
  6505.     BEGIN
  6506. /
  6507.     CREATE TABLE DOMAIN.#QPE_USES_QPC
  6508.       (
  6509.        USER_ID     FIXED(10)       KEY,
  6510.        ROW_ID      CHAR(8)   BYTE  KEY,
  6511.        DEFOWNER    CHAR(18)  ASCII,
  6512.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6513.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6514.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6515.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPEXCELLINK',
  6516.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6517.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6518.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  6519.        REFOWNER    CHAR(18)  ASCII,
  6520.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6521.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6522.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6523.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPCOMMAND',
  6524.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6525.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6526.        CREATEDATE  DATE DEFAULT DATE,
  6527.        CREATETIME  TIME DEFAULT TIME
  6528.       )
  6529.     WITH REPLICATION
  6530. /
  6531.     IF $RC <> 0
  6532.     THEN
  6533.          BEGIN
  6534. /
  6535.          END INIT SERVERDB
  6536. /
  6537.          STOP 7
  6538. /
  6539.          END
  6540. /
  6541.     CREATE INDEX INDEX1 ON DOMAIN.#QPE_USES_QPC
  6542.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  6543. /
  6544.     IF $RC <> 0
  6545.     THEN
  6546.          BEGIN
  6547. /
  6548.          END INIT SERVERDB
  6549. /
  6550.          STOP 7
  6551. /
  6552.          END
  6553. /
  6554.     CREATE INDEX INDEX2 ON DOMAIN.#QPE_USES_QPC
  6555.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  6556. /
  6557.     IF $RC <> 0
  6558.     THEN
  6559.          BEGIN
  6560. /
  6561.          END INIT SERVERDB
  6562. /
  6563.          STOP 7
  6564. /
  6565.          END
  6566. /
  6567.     COMMIT WORK
  6568. /
  6569.     END
  6570. /
  6571. IF $RC (EXISTS TABLE DOMAIN.QPE_USES_QPC) = 0
  6572. THEN
  6573.     BEGIN
  6574. /
  6575.     DROP VIEW DOMAIN.QPE_USES_QPC
  6576. /
  6577.     COMMIT WORK
  6578. /
  6579.     END
  6580. /
  6581. CREATE VIEW DOMAIN.QPE_USES_QPC
  6582.   (DEFOBJTYPE,DEFOWNER,DEFEXCELLINKNAME,RELTYPE,
  6583.    REFOBJTYPE,REFOWNER,REFCOMMANDNAME,CREATEDATE,CREATETIME)
  6584. AS SELECT
  6585.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6586.      REFOBJTYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  6587.    FROM DOMAIN.#QPE_USES_QPC
  6588.    WHERE USERGROUP IN(defowner,refowner)
  6589. WITH CHECK OPTION
  6590. /
  6591. IF $RC <> 0
  6592. THEN
  6593.      BEGIN
  6594. /
  6595.      END INIT SERVERDB
  6596. /
  6597.      STOP 7
  6598. /
  6599.      END
  6600. /
  6601. COMMIT WORK
  6602. /
  6603. GRANT SELECT ON DOMAIN.QPE_USES_QPC TO PUBLIC WITH GRANT OPTION
  6604. /
  6605. IF $RC (EXISTS TABLE DOMAIN.#QPE_USES_QPQ) <> 0
  6606. THEN
  6607.     BEGIN
  6608. /
  6609.     CREATE TABLE DOMAIN.#QPE_USES_QPQ
  6610.       (
  6611.        USER_ID     FIXED(10)       KEY,
  6612.        ROW_ID      CHAR(8)   BYTE  KEY,
  6613.        DEFOWNER    CHAR(18)  ASCII,
  6614.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6615.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6616.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6617.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPEXCELLINK',
  6618.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6619.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6620.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  6621.        REFOWNER    CHAR(18)  ASCII,
  6622.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6623.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6624.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6625.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPQUERY',
  6626.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6627.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6628.        CREATEDATE  DATE DEFAULT DATE,
  6629.        CREATETIME  TIME DEFAULT TIME
  6630.       )
  6631.     WITH REPLICATION
  6632. /
  6633.     IF $RC <> 0
  6634.     THEN
  6635.          BEGIN
  6636. /
  6637.          END INIT SERVERDB
  6638. /
  6639.          STOP 7
  6640. /
  6641.          END
  6642. /
  6643.     CREATE INDEX INDEX1 ON DOMAIN.#QPE_USES_QPQ
  6644.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  6645. /
  6646.     IF $RC <> 0
  6647.     THEN
  6648.          BEGIN
  6649. /
  6650.          END INIT SERVERDB
  6651. /
  6652.          STOP 7
  6653. /
  6654.          END
  6655. /
  6656.     CREATE INDEX INDEX2 ON DOMAIN.#QPE_USES_QPQ
  6657.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  6658. /
  6659.     IF $RC <> 0
  6660.     THEN
  6661.          BEGIN
  6662. /
  6663.          END INIT SERVERDB
  6664. /
  6665.          STOP 7
  6666. /
  6667.          END
  6668. /
  6669.     COMMIT WORK
  6670. /
  6671.     END
  6672. /
  6673. IF $RC (EXISTS TABLE DOMAIN.QPE_USES_QPQ) = 0
  6674. THEN
  6675.     BEGIN
  6676. /
  6677.     DROP VIEW DOMAIN.QPE_USES_QPQ
  6678. /
  6679.     COMMIT WORK
  6680. /
  6681.     END
  6682. /
  6683. CREATE VIEW DOMAIN.QPE_USES_QPQ
  6684.   (DEFOBJTYPE,DEFOWNER,DEFEXCELLINKNAME,RELTYPE,
  6685.    REFOBJTYPE,REFOWNER,REFQUERYNAME,CREATEDATE,CREATETIME)
  6686. AS SELECT
  6687.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6688.      REFOBJTYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  6689.    FROM DOMAIN.#QPE_USES_QPQ
  6690.    WHERE USERGROUP IN(defowner,refowner)
  6691. WITH CHECK OPTION
  6692. /
  6693. IF $RC <> 0
  6694. THEN
  6695.      BEGIN
  6696. /
  6697.      END INIT SERVERDB
  6698. /
  6699.      STOP 7
  6700. /
  6701.      END
  6702. /
  6703. COMMIT WORK
  6704. /
  6705. GRANT SELECT ON DOMAIN.QPE_USES_QPQ TO PUBLIC WITH GRANT OPTION
  6706. /
  6707. IF $RC (EXISTS TABLE DOMAIN.#QPW_USES_QPC) <> 0
  6708. THEN
  6709.     BEGIN
  6710. /
  6711.     CREATE TABLE DOMAIN.#QPW_USES_QPC
  6712.       (
  6713.        USER_ID     FIXED(10)       KEY,
  6714.        ROW_ID      CHAR(8)   BYTE  KEY,
  6715.        DEFOWNER    CHAR(18)  ASCII,
  6716.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6717.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6718.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6719.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPWORDLINK',
  6720.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6721.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6722.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  6723.        REFOWNER    CHAR(18)  ASCII,
  6724.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6725.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6726.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6727.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPCOMMAND',
  6728.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6729.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6730.        CREATEDATE  DATE DEFAULT DATE,
  6731.        CREATETIME  TIME DEFAULT TIME
  6732.       )
  6733.     WITH REPLICATION
  6734. /
  6735.     IF $RC <> 0
  6736.     THEN
  6737.          BEGIN
  6738. /
  6739.          END INIT SERVERDB
  6740. /
  6741.          STOP 7
  6742. /
  6743.          END
  6744. /
  6745.     CREATE INDEX INDEX1 ON DOMAIN.#QPW_USES_QPC
  6746.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  6747. /
  6748.     IF $RC <> 0
  6749.     THEN
  6750.          BEGIN
  6751. /
  6752.          END INIT SERVERDB
  6753. /
  6754.          STOP 7
  6755. /
  6756.          END
  6757. /
  6758.     CREATE INDEX INDEX2 ON DOMAIN.#QPW_USES_QPC
  6759.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  6760. /
  6761.     IF $RC <> 0
  6762.     THEN
  6763.          BEGIN
  6764. /
  6765.          END INIT SERVERDB
  6766. /
  6767.          STOP 7
  6768. /
  6769.          END
  6770. /
  6771.     COMMIT WORK
  6772. /
  6773.     END
  6774. /
  6775. IF $RC (EXISTS TABLE DOMAIN.QPW_USES_QPC) = 0
  6776. THEN
  6777.     BEGIN
  6778. /
  6779.     DROP VIEW DOMAIN.QPW_USES_QPC
  6780. /
  6781.     COMMIT WORK
  6782. /
  6783.     END
  6784. /
  6785. CREATE VIEW DOMAIN.QPW_USES_QPC
  6786.   (DEFOBJTYPE,DEFOWNER,DEFWORDLINKNAME,RELTYPE,
  6787.    REFOBJTYPE,REFOWNER,REFCOMMANDNAME,CREATEDATE,CREATETIME)
  6788. AS SELECT
  6789.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6790.      REFOBJTYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  6791.    FROM DOMAIN.#QPW_USES_QPC
  6792.    WHERE USERGROUP IN(defowner,refowner)
  6793. WITH CHECK OPTION
  6794. /
  6795. IF $RC <> 0
  6796. THEN
  6797.      BEGIN
  6798. /
  6799.      END INIT SERVERDB
  6800. /
  6801.      STOP 7
  6802. /
  6803.      END
  6804. /
  6805. COMMIT WORK
  6806. /
  6807. GRANT SELECT ON DOMAIN.QPW_USES_QPC TO PUBLIC WITH GRANT OPTION
  6808. /
  6809. IF $RC (EXISTS TABLE DOMAIN.#QPW_USES_QPQ) <> 0
  6810. THEN
  6811.     BEGIN
  6812. /
  6813.     CREATE TABLE DOMAIN.#QPW_USES_QPQ
  6814.       (
  6815.        USER_ID     FIXED(10)       KEY,
  6816.        ROW_ID      CHAR(8)   BYTE  KEY,
  6817.        DEFOWNER    CHAR(18)  ASCII,
  6818.        DEFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6819.        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6820.        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6821.        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPWORDLINK',
  6822.        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6823.        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6824.        RELTYPE     CHAR(18)  ASCII DEFAULT 'USES',
  6825.        REFOWNER    CHAR(18)  ASCII,
  6826.        REFOBJNAME1 CHAR(150) ASCII DEFAULT ' ',
  6827.        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
  6828.        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
  6829.        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'QPQUERY',
  6830.        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
  6831.        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
  6832.        CREATEDATE  DATE DEFAULT DATE,
  6833.        CREATETIME  TIME DEFAULT TIME
  6834.       )
  6835.     WITH REPLICATION
  6836. /
  6837.     IF $RC <> 0
  6838.     THEN
  6839.          BEGIN
  6840. /
  6841.          END INIT SERVERDB
  6842. /
  6843.          STOP 7
  6844. /
  6845.          END
  6846. /
  6847.     CREATE INDEX INDEX1 ON DOMAIN.#QPW_USES_QPQ
  6848.     (DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3)
  6849. /
  6850.     IF $RC <> 0
  6851.     THEN
  6852.          BEGIN
  6853. /
  6854.          END INIT SERVERDB
  6855. /
  6856.          STOP 7
  6857. /
  6858.          END
  6859. /
  6860.     CREATE INDEX INDEX2 ON DOMAIN.#QPW_USES_QPQ
  6861.     (REFOWNER,REFOBJNAME1,REFOBJNAME2,REFOBJNAME3)
  6862. /
  6863.     IF $RC <> 0
  6864.     THEN
  6865.          BEGIN
  6866. /
  6867.          END INIT SERVERDB
  6868. /
  6869.          STOP 7
  6870. /
  6871.          END
  6872. /
  6873.     COMMIT WORK
  6874. /
  6875.     END
  6876. /
  6877. IF $RC (EXISTS TABLE DOMAIN.QPW_USES_QPQ) = 0
  6878. THEN
  6879.     BEGIN
  6880. /
  6881.     DROP VIEW DOMAIN.QPW_USES_QPQ
  6882. /
  6883.     COMMIT WORK
  6884. /
  6885.     END
  6886. /
  6887. CREATE VIEW DOMAIN.QPW_USES_QPQ
  6888.   (DEFOBJTYPE,DEFOWNER,DEFWORDLINKNAME,RELTYPE,
  6889.    REFOBJTYPE,REFOWNER,REFQUERYNAME,CREATEDATE,CREATETIME)
  6890. AS SELECT
  6891.      DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,RELTYPE,
  6892.      REFOBJTYPE,REFOWNER,REFOBJNAME1,CREATEDATE,CREATETIME
  6893.    FROM DOMAIN.#QPW_USES_QPQ
  6894.    WHERE USERGROUP IN(defowner,refowner)
  6895. WITH CHECK OPTION
  6896. /
  6897. IF $RC <> 0
  6898. THEN
  6899.      BEGIN
  6900. /
  6901.      END INIT SERVERDB
  6902. /
  6903.      STOP 7
  6904. /
  6905.      END
  6906. /
  6907. COMMIT WORK
  6908. /
  6909. GRANT SELECT ON DOMAIN.QPW_USES_QPQ TO PUBLIC WITH GRANT OPTION
  6910. /
  6911. IF $RC (EXISTS TABLE DOMAIN.SNP_CONT_COL) = 0
  6912. THEN
  6913.     BEGIN
  6914. /
  6915.     DROP VIEW DOMAIN.SNP_CONT_COL
  6916. /
  6917.     COMMIT WORK
  6918. /
  6919.     END
  6920. /
  6921. CREATE VIEW DOMAIN.SNP_CONT_COL
  6922.   (DEFOBJTYPE,DEFOWNER,DEFSNAPSHOTNAME,RELTYPE,
  6923.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  6924.    POS,CREATEDATE,CREATETIME)
  6925. AS SELECT
  6926.      TYPE,OWNER,TABLENAME,'CONTAINS',
  6927.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,
  6928.      COLUMNNO,"DATE","TIME"
  6929.    FROM SYSDD.COLUMNS
  6930.    WHERE type = 'SNAPSHOT'
  6931. /
  6932. IF $RC <> 0
  6933. THEN
  6934.      BEGIN
  6935. /
  6936.      END INIT SERVERDB
  6937. /
  6938.      STOP 7
  6939. /
  6940.      END
  6941. /
  6942. COMMIT WORK
  6943. /
  6944. GRANT SELECT ON DOMAIN.SNP_CONT_COL TO PUBLIC WITH GRANT OPTION
  6945. /
  6946. IF $RC (EXISTS TABLE DOMAIN.SNP_USES_SYN) = 0
  6947. THEN
  6948.     BEGIN
  6949. /
  6950.     DROP VIEW DOMAIN.SNP_USES_SYN
  6951. /
  6952.     COMMIT WORK
  6953. /
  6954.     END
  6955. /
  6956. CREATE VIEW DOMAIN.SNP_USES_SYN
  6957.   (DEFOBJTYPE,DEFOWNER,DEFSNAPSHOTNAME,RELTYPE,
  6958.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  6959. AS SELECT DISTINCT
  6960.      TYPE,OWNER,TABLENAME,'USES',
  6961.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  6962.    FROM SYSDD.VIEW_USES_TABLE
  6963.    WHERE type = 'SNAPSHOT' AND refkind = 'SYNONYM'
  6964. /
  6965. IF $RC <> 0
  6966. THEN
  6967.      BEGIN
  6968. /
  6969.      END INIT SERVERDB
  6970. /
  6971.      STOP 7
  6972. /
  6973.      END
  6974. /
  6975. COMMIT WORK
  6976. /
  6977. GRANT SELECT ON DOMAIN.SNP_USES_SYN TO PUBLIC WITH GRANT OPTION
  6978. /
  6979. IF $RC (EXISTS TABLE DOMAIN.SNP_USES_TAB) = 0
  6980. THEN
  6981.     BEGIN
  6982. /
  6983.     DROP VIEW DOMAIN.SNP_USES_TAB
  6984. /
  6985.     COMMIT WORK
  6986. /
  6987.     END
  6988. /
  6989. CREATE VIEW DOMAIN.SNP_USES_TAB
  6990.   (DEFOBJTYPE,DEFOWNER,DEFSNAPSHOTNAME,RELTYPE,
  6991.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  6992. AS SELECT DISTINCT
  6993.      TYPE,OWNER,TABLENAME,'USES',
  6994.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  6995.    FROM SYSDD.VIEW_USES_TABLE
  6996.    WHERE type = 'SNAPSHOT'
  6997. /
  6998. IF $RC <> 0
  6999. THEN
  7000.      BEGIN
  7001. /
  7002.      END INIT SERVERDB
  7003. /
  7004.      STOP 7
  7005. /
  7006.      END
  7007. /
  7008. COMMIT WORK
  7009. /
  7010. GRANT SELECT ON DOMAIN.SNP_USES_TAB TO PUBLIC WITH GRANT OPTION
  7011. /
  7012. IF $RC (EXISTS TABLE DOMAIN.SNP_USES_VIE) = 0
  7013. THEN
  7014.     BEGIN
  7015. /
  7016.     DROP VIEW DOMAIN.SNP_USES_VIE
  7017. /
  7018.     COMMIT WORK
  7019. /
  7020.     END
  7021. /
  7022. CREATE VIEW DOMAIN.SNP_USES_VIE
  7023.   (DEFOBJTYPE,DEFOWNER,DEFSNAPSHOTNAME,RELTYPE,
  7024.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  7025. AS SELECT DISTINCT
  7026.      TYPE,OWNER,TABLENAME,'USES',
  7027.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  7028.    FROM SYSDD.VIEW_USES_TABLE
  7029.    WHERE type = 'SNAPSHOT' AND refkind = 'VIEW'
  7030. /
  7031. IF $RC <> 0
  7032. THEN
  7033.      BEGIN
  7034. /
  7035.      END INIT SERVERDB
  7036. /
  7037.      STOP 7
  7038. /
  7039.      END
  7040. /
  7041. COMMIT WORK
  7042. /
  7043. GRANT SELECT ON DOMAIN.SNP_USES_VIE TO PUBLIC WITH GRANT OPTION
  7044. /
  7045. IF $RC (EXISTS TABLE DOMAIN.SYN_REFS_SNP) = 0
  7046. THEN
  7047.     BEGIN
  7048. /
  7049.     DROP VIEW DOMAIN.SYN_REFS_SNP
  7050. /
  7051.     COMMIT WORK
  7052. /
  7053.     END
  7054. /
  7055. CREATE VIEW DOMAIN.SYN_REFS_SNP
  7056.   (DEFOBJTYPE,DEFOWNER,DEFSYNONYMNAME,RELTYPE,
  7057.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  7058. AS SELECT
  7059.      'SYNONYM',USERGROUP,S.SYNONYMNAME,'REFERS',
  7060.      T.TYPE,S.OWNER,S.TABLENAME,S."DATE",S."TIME"
  7061.    FROM SYSDD.SYNONYMS S, SYSDD.TABLES T
  7062.    WHERE T.owner = S.owner
  7063.    AND T.tablename = S.tablename
  7064.    AND T.type = 'SNAPSHOT'
  7065. /
  7066. IF $RC <> 0
  7067. THEN
  7068.      BEGIN
  7069. /
  7070.      END INIT SERVERDB
  7071. /
  7072.      STOP 7
  7073. /
  7074.      END
  7075. /
  7076. COMMIT WORK
  7077. /
  7078. GRANT SELECT ON DOMAIN.SYN_REFS_SNP TO PUBLIC WITH GRANT OPTION
  7079. /
  7080. IF $RC (EXISTS TABLE DOMAIN.SYN_REFS_TAB) = 0
  7081. THEN
  7082.     BEGIN
  7083. /
  7084.     DROP VIEW DOMAIN.SYN_REFS_TAB
  7085. /
  7086.     COMMIT WORK
  7087. /
  7088.     END
  7089. /
  7090. CREATE VIEW DOMAIN.SYN_REFS_TAB
  7091.   (DEFOBJTYPE,DEFOWNER,DEFSYNONYMNAME,RELTYPE,
  7092.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  7093. AS SELECT
  7094.      'SYNONYM',USERGROUP,S.SYNONYMNAME,'REFERS',
  7095.      T.TYPE,S.OWNER,S.TABLENAME,S."DATE",S."TIME"
  7096.    FROM SYSDD.SYNONYMS S, SYSDD.TABLES T
  7097.    WHERE T.owner = S.owner
  7098.    AND T.tablename = S.tablename
  7099. /
  7100. IF $RC <> 0
  7101. THEN
  7102.      BEGIN
  7103. /
  7104.      END INIT SERVERDB
  7105. /
  7106.      STOP 7
  7107. /
  7108.      END
  7109. /
  7110. COMMIT WORK
  7111. /
  7112. GRANT SELECT ON DOMAIN.SYN_REFS_TAB TO PUBLIC WITH GRANT OPTION
  7113. /
  7114. IF $RC (EXISTS TABLE DOMAIN.SYN_REFS_VIE) = 0
  7115. THEN
  7116.     BEGIN
  7117. /
  7118.     DROP VIEW DOMAIN.SYN_REFS_VIE
  7119. /
  7120.     COMMIT WORK
  7121. /
  7122.     END
  7123. /
  7124. CREATE VIEW DOMAIN.SYN_REFS_VIE
  7125.   (DEFOBJTYPE,DEFOWNER,DEFSYNONYMNAME,RELTYPE,
  7126.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  7127. AS SELECT
  7128.      'SYNONYM',USERGROUP,S.SYNONYMNAME,'REFERS',
  7129.      T.TYPE,S.OWNER,S.TABLENAME,S."DATE",S."TIME"
  7130.    FROM SYSDD.SYNONYMS S, SYSDD.TABLES T
  7131.    WHERE T.owner = S.owner
  7132.    AND T.tablename = S.tablename
  7133.    AND T.type = 'VIEW'
  7134. /
  7135. IF $RC <> 0
  7136. THEN
  7137.      BEGIN
  7138. /
  7139.      END INIT SERVERDB
  7140. /
  7141.      STOP 7
  7142. /
  7143.      END
  7144. /
  7145. COMMIT WORK
  7146. /
  7147. GRANT SELECT ON DOMAIN.SYN_REFS_VIE TO PUBLIC WITH GRANT OPTION
  7148. /
  7149. IF $RC (EXISTS TABLE DOMAIN.TAB_CONT_COL) = 0
  7150. THEN
  7151.     BEGIN
  7152. /
  7153.     DROP VIEW DOMAIN.TAB_CONT_COL
  7154. /
  7155.     COMMIT WORK
  7156. /
  7157.     END
  7158. /
  7159. CREATE VIEW DOMAIN.TAB_CONT_COL
  7160.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,RELTYPE,
  7161.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  7162.    POS,CREATEDATE,CREATETIME)
  7163. AS SELECT
  7164.      TYPE,OWNER,TABLENAME,'CONTAINS',
  7165.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,
  7166.      COLUMNNO,"DATE","TIME"
  7167.    FROM SYSDD.COLUMNS
  7168.    WHERE type IN('TABLE','RESULT','SYNONYM','SNAPSHOT','VIEW')
  7169. /
  7170. IF $RC <> 0
  7171. THEN
  7172.      BEGIN
  7173. /
  7174.      END INIT SERVERDB
  7175. /
  7176.      STOP 7
  7177. /
  7178.      END
  7179. /
  7180. COMMIT WORK
  7181. /
  7182. GRANT SELECT ON DOMAIN.TAB_CONT_COL TO PUBLIC WITH GRANT OPTION
  7183. /
  7184. IF $RC (EXISTS TABLE DOMAIN.TAB_CONT_FOK) = 0
  7185. THEN
  7186.     BEGIN
  7187. /
  7188.     DROP VIEW DOMAIN.TAB_CONT_FOK
  7189. /
  7190.     COMMIT WORK
  7191. /
  7192.     END
  7193. /
  7194. CREATE VIEW DOMAIN.TAB_CONT_FOK
  7195.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,RELTYPE,
  7196.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFFKEYNAME,CREATEDATE,CREATETIME)
  7197. AS SELECT DISTINCT
  7198.           'TABLE',OWNER,TABLENAME,'CONTAINS',
  7199.           'FOREIGNKEY',OWNER,TABLENAME,REFNAME,"DATE","TIME"
  7200.    FROM SYSDD.FOREIGN_KEYS
  7201. /
  7202. IF $RC <> 0
  7203. THEN
  7204.      BEGIN
  7205. /
  7206.      END INIT SERVERDB
  7207. /
  7208.      STOP 7
  7209. /
  7210.      END
  7211. /
  7212. COMMIT WORK
  7213. /
  7214. GRANT SELECT ON DOMAIN.TAB_CONT_FOK TO PUBLIC WITH GRANT OPTION
  7215. /
  7216. IF $RC (EXISTS TABLE DOMAIN.TAB_CONT_IND) = 0
  7217. THEN
  7218.     BEGIN
  7219. /
  7220.     DROP VIEW DOMAIN.TAB_CONT_IND
  7221. /
  7222.     COMMIT WORK
  7223. /
  7224.     END
  7225. /
  7226. CREATE VIEW DOMAIN.TAB_CONT_IND
  7227.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,RELTYPE,
  7228.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFINDEXNAME,
  7229.    CREATEDATE,CREATETIME)
  7230. AS SELECT
  7231.      'TABLE',OWNER,TABLENAME,'CONTAINS',
  7232.      'INDEX',OWNER,TABLENAME,INDEXNAME,
  7233.      CREATEDATE,CREATETIME
  7234.    FROM DOMAIN.INDEXES
  7235. /
  7236. IF $RC <> 0
  7237. THEN
  7238.      BEGIN
  7239. /
  7240.      END INIT SERVERDB
  7241. /
  7242.      STOP 7
  7243. /
  7244.      END
  7245. /
  7246. COMMIT WORK
  7247. /
  7248. GRANT SELECT ON DOMAIN.TAB_CONT_IND TO PUBLIC WITH GRANT OPTION
  7249. /
  7250. IF $RC (EXISTS TABLE DOMAIN.TAB_CONT_TRG) = 0
  7251. THEN
  7252.     BEGIN
  7253. /
  7254.     DROP VIEW DOMAIN.TAB_CONT_TRG
  7255. /
  7256.     COMMIT WORK
  7257. /
  7258.     END
  7259. /
  7260. CREATE VIEW DOMAIN.TAB_CONT_TRG
  7261.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,RELTYPE,
  7262.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFTRIGGERNAME,CREATEDATE,CREATETIME)
  7263. AS SELECT
  7264.      'TABLE',OWNER,TABLENAME,'CONTAINS',
  7265.      'TRIGGER',OWNER,TABLENAME,TRIGGERNAME,"DATE","TIME"
  7266.    FROM SYSDD.TRIGGERS
  7267. /
  7268. IF $RC <> 0
  7269. THEN
  7270.      BEGIN
  7271. /
  7272.      END INIT SERVERDB
  7273. /
  7274.      STOP 7
  7275. /
  7276.      END
  7277. /
  7278. COMMIT WORK
  7279. /
  7280. GRANT SELECT ON DOMAIN.TAB_CONT_TRG TO PUBLIC WITH GRANT OPTION
  7281. /
  7282. IF $RC (EXISTS TABLE DOMAIN.TAB_USES_CON) = 0
  7283. THEN
  7284.     BEGIN
  7285. /
  7286.     DROP VIEW DOMAIN.TAB_USES_CON
  7287. /
  7288.     COMMIT WORK
  7289. /
  7290.     END
  7291. /
  7292. CREATE VIEW DOMAIN.TAB_USES_CON
  7293.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,RELTYPE,
  7294.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCONSTRAINTNAME)
  7295. AS SELECT
  7296.      'TABLE',OWNER,TABLENAME,'USES',
  7297.      'CONSTRAINT',OWNER,TABLENAME,CONSTRAINTNAME
  7298.    FROM SYSDD.CONSTRAINTS
  7299. /
  7300. IF $RC <> 0
  7301. THEN
  7302.      BEGIN
  7303. /
  7304.      END INIT SERVERDB
  7305. /
  7306.      STOP 7
  7307. /
  7308.      END
  7309. /
  7310. COMMIT WORK
  7311. /
  7312. GRANT SELECT ON DOMAIN.TAB_USES_CON TO PUBLIC WITH GRANT OPTION
  7313. /
  7314. IF $RC (EXISTS TABLE DOMAIN.TRG_CONT_PRM) = 0
  7315. THEN
  7316.     BEGIN
  7317. /
  7318.     DROP VIEW DOMAIN.TRG_CONT_PRM
  7319. /
  7320.     COMMIT WORK
  7321. /
  7322.     END
  7323. /
  7324. CREATE VIEW DOMAIN.TRG_CONT_PRM
  7325.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFTRIGGERNAME,RELTYPE,
  7326.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFTRIGGERNAME,REFPARAMETERNAME,POS,
  7327.    CREATEDATE,CREATETIME)
  7328. AS SELECT
  7329.      'TRIGGER',OWNER,TABLENAME,TRIGGERNAME,'CONTAINS',
  7330.      'TRIGGERPARAM',OWNER,TABLENAME,TRIGGERNAME,PARAMETERNAME,PARAM_NO,
  7331.      "DATE","TIME"
  7332.    FROM SYSDD.TRIGGERPARAMETERS
  7333. /
  7334. IF $RC <> 0
  7335. THEN
  7336.      BEGIN
  7337. /
  7338.      END INIT SERVERDB
  7339. /
  7340.      STOP 7
  7341. /
  7342.      END
  7343. /
  7344. COMMIT WORK
  7345. /
  7346. GRANT SELECT ON DOMAIN.TRG_CONT_PRM TO PUBLIC WITH GRANT OPTION
  7347. /
  7348. IF $RC (EXISTS TABLE DOMAIN.TRG_REFS_MOD) = 0
  7349. THEN
  7350.     BEGIN
  7351. /
  7352.     DROP VIEW DOMAIN.TRG_REFS_MOD
  7353. /
  7354.     COMMIT WORK
  7355. /
  7356.     END
  7357. /
  7358. CREATE VIEW DOMAIN.TRG_REFS_MOD
  7359.   (DEFOBJTYPE,DEFOWNER,DEFTABLENAME,DEFTRIGGERNAME,RELTYPE,
  7360.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFMODULENAME,REFPROGLANG,
  7361.    CREATEDATE,CREATETIME)
  7362. AS SELECT
  7363.      'TRIGGER',OWNER,TABLENAME,TRIGGERNAME,'REFERS',
  7364.      'MODULE',OWNER,PROGRAM,DBTRIGGER,'SQL-PL',
  7365.      "DATE","TIME"
  7366.    FROM SYSDD.TRIGGERS
  7367. /
  7368. IF $RC <> 0
  7369. THEN
  7370.      BEGIN
  7371. /
  7372.      END INIT SERVERDB
  7373. /
  7374.      STOP 7
  7375. /
  7376.      END
  7377. /
  7378. COMMIT WORK
  7379. /
  7380. GRANT SELECT ON DOMAIN.TRG_REFS_MOD TO PUBLIC WITH GRANT OPTION
  7381. /
  7382. IF $RC (EXISTS TABLE DOMAIN.USR_OWNS_DBF) = 0
  7383. THEN
  7384.     BEGIN
  7385. /
  7386.     DROP VIEW DOMAIN.USR_OWNS_DBF
  7387. /
  7388.     COMMIT WORK
  7389. /
  7390.     END
  7391. /
  7392. CREATE VIEW DOMAIN.USR_OWNS_DBF
  7393.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7394.    REFOBJTYPE,REFOWNER,REFDBFUNCNAME,CREATEDATE,CREATETIME)
  7395. AS SELECT
  7396.      'USER',U.OWNER_OWNER,D.OWNER,D.OWNER,'OWNS',
  7397.      'DBFUNCTION',D.OWNER,D.DBFUNCTION,D."DATE",D."TIME"
  7398.    FROM SYSDD.DBFUNCTIONS D,SYSDD.USERS U
  7399.    WHERE D.owner in(U.username,U.groupname)
  7400. /
  7401. IF $RC <> 0
  7402. THEN
  7403.      BEGIN
  7404. /
  7405.      END INIT SERVERDB
  7406. /
  7407.      STOP 7
  7408. /
  7409.      END
  7410. /
  7411. COMMIT WORK
  7412. /
  7413. GRANT SELECT ON DOMAIN.USR_OWNS_DBF TO PUBLIC WITH GRANT OPTION
  7414. /
  7415. IF $RC (EXISTS TABLE DOMAIN.USR_OWNS_DOM) = 0
  7416. THEN
  7417.     BEGIN
  7418. /
  7419.     DROP VIEW DOMAIN.USR_OWNS_DOM
  7420. /
  7421.     COMMIT WORK
  7422. /
  7423.     END
  7424. /
  7425. CREATE VIEW DOMAIN.USR_OWNS_DOM
  7426.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7427.    REFOBJTYPE,REFOWNER,REFDOMAINNAME,CREATEDATE,CREATETIME)
  7428. AS SELECT
  7429.      'USER',U.OWNER_OWNER,D.OWNER,D.OWNER,'OWNS',
  7430.      'DOMAIN',D.OWNER,D.DOMAINNAME,D."DATE",D."TIME"
  7431.    FROM SYSDD.DOMAINS D,SYSDD.USERS U
  7432.    WHERE D.owner IN(U.username,U.groupname)
  7433. /
  7434. IF $RC <> 0
  7435. THEN
  7436.      BEGIN
  7437. /
  7438.      END INIT SERVERDB
  7439. /
  7440.      STOP 7
  7441. /
  7442.      END
  7443. /
  7444. COMMIT WORK
  7445. /
  7446. GRANT SELECT ON DOMAIN.USR_OWNS_DOM TO PUBLIC WITH GRANT OPTION
  7447. /
  7448. IF $RC (EXISTS TABLE DOMAIN.USR_OWNS_USR) = 0
  7449. THEN
  7450.     BEGIN
  7451. /
  7452.     DROP VIEW DOMAIN.USR_OWNS_USR
  7453. /
  7454.     COMMIT WORK
  7455. /
  7456.     END
  7457. /
  7458. CREATE VIEW DOMAIN.USR_OWNS_USR
  7459.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7460.    REFOBJTYPE,REFOWNER,REFGROUPNAME,REFUSERNAME,CREATEDATE,CREATETIME)
  7461. AS SELECT
  7462.      'USER',OWNER_OWNER,OWNER,OWNER,'OWNS',
  7463.      'USER',OWNER,GROUPNAME,USERNAME,"DATE","TIME"
  7464.    FROM SYSDD.USERS
  7465. /
  7466. IF $RC <> 0
  7467. THEN
  7468.      BEGIN
  7469. /
  7470.      END INIT SERVERDB
  7471. /
  7472.      STOP 7
  7473. /
  7474.      END
  7475. /
  7476. COMMIT WORK
  7477. /
  7478. GRANT SELECT ON DOMAIN.USR_OWNS_USR TO PUBLIC WITH GRANT OPTION
  7479. /
  7480. IF $RC (EXISTS TABLE DOMAIN.USR_USES_COL) = 0
  7481. THEN
  7482.     BEGIN
  7483. /
  7484.     DROP VIEW DOMAIN.USR_USES_COL
  7485. /
  7486.     COMMIT WORK
  7487. /
  7488.     END
  7489. /
  7490. CREATE VIEW DOMAIN.USR_USES_COL
  7491.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7492.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  7493.    PRIVILEGES,CREATEDATE,CREATETIME,GRANTOR)
  7494. AS SELECT
  7495.      'USER',GRANTEEOWNER,GRANTEE,GRANTEE,'USES',
  7496.      'COLUMN',OWNER,NAME1,DECODE(NAME2,NULL,'- ALL COLUMNS -',NAME2),
  7497.      PRIVILEGES,"DATE","TIME",GRANTOR
  7498.    FROM SYSDD.PRIVILEGES
  7499.    WHERE type NOT IN('DBPROC','SEQUENCE')
  7500. /
  7501. IF $RC <> 0
  7502. THEN
  7503.      BEGIN
  7504. /
  7505.      END INIT SERVERDB
  7506. /
  7507.      STOP 7
  7508. /
  7509.      END
  7510. /
  7511. COMMIT WORK
  7512. /
  7513. GRANT SELECT ON DOMAIN.USR_USES_COL TO PUBLIC WITH GRANT OPTION
  7514. /
  7515. IF $RC (EXISTS TABLE DOMAIN.USR_USES_DBP) = 0
  7516. THEN
  7517.     BEGIN
  7518. /
  7519.     DROP VIEW DOMAIN.USR_USES_DBP
  7520. /
  7521.     COMMIT WORK
  7522. /
  7523.     END
  7524. /
  7525. CREATE VIEW DOMAIN.USR_USES_DBP
  7526.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7527.    REFOBJTYPE,REFOWNER,REFPROGRAMNAME,REFDBPROCNAME,CREATEDATE,CREATETIME)
  7528. AS SELECT
  7529.      'USER',GRANTEEOWNER,GRANTEE,GRANTEE,'USES',
  7530.      'DBPROCEDURE',OWNER,NAME1,NAME2,"DATE","TIME"
  7531.    FROM SYSDD.PRIVILEGES
  7532.    WHERE type = 'DBPROC' AND grantee <> owner
  7533. /
  7534. IF $RC <> 0
  7535. THEN
  7536.      BEGIN
  7537. /
  7538.      END INIT SERVERDB
  7539. /
  7540.      STOP 7
  7541. /
  7542.      END
  7543. /
  7544. COMMIT WORK
  7545. /
  7546. GRANT SELECT ON DOMAIN.USR_USES_DBP TO PUBLIC WITH GRANT OPTION
  7547. /
  7548. IF $RC (EXISTS TABLE DOMAIN.USR_USES_SNP) = 0
  7549. THEN
  7550.     BEGIN
  7551. /
  7552.     DROP VIEW DOMAIN.USR_USES_SNP
  7553. /
  7554.     COMMIT WORK
  7555. /
  7556.     END
  7557. /
  7558. CREATE VIEW DOMAIN.USR_USES_SNP
  7559.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7560.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,PRIVILEGES,CREATEDATE,CREATETIME)
  7561. AS SELECT
  7562.      'USER',GRANTEEOWNER,GRANTEE,GRANTEE,'USES',
  7563.      TYPE,OWNER,NAME1,PRIVILEGES,"DATE","TIME"
  7564.    FROM SYSDD.PRIVILEGES
  7565.    WHERE name2 IS NULL AND type = 'SNAPSHOT'
  7566.    AND type NOT IN('DBPROC','SEQUENCE')
  7567. /
  7568. IF $RC <> 0
  7569. THEN
  7570.      BEGIN
  7571. /
  7572.      END INIT SERVERDB
  7573. /
  7574.      STOP 7
  7575. /
  7576.      END
  7577. /
  7578. COMMIT WORK
  7579. /
  7580. GRANT SELECT ON DOMAIN.USR_USES_SNP TO PUBLIC WITH GRANT OPTION
  7581. /
  7582. IF $RC (EXISTS TABLE DOMAIN.USR_USES_TAB) = 0
  7583. THEN
  7584.     BEGIN
  7585. /
  7586.     DROP VIEW DOMAIN.USR_USES_TAB
  7587. /
  7588.     COMMIT WORK
  7589. /
  7590.     END
  7591. /
  7592. CREATE VIEW DOMAIN.USR_USES_TAB
  7593.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7594.    REFOBJTYPE,REFOWNER,REFTABLENAME,PRIVILEGES,CREATEDATE,CREATETIME)
  7595. AS SELECT
  7596.      'USER',GRANTEEOWNER,GRANTEE,GRANTEE,'USES',
  7597.      TYPE,OWNER,NAME1,PRIVILEGES,"DATE","TIME"
  7598.    FROM SYSDD.PRIVILEGES
  7599.    WHERE name2 IS NULL AND type NOT IN('DBPROC','SEQUENCE')
  7600. /
  7601. IF $RC <> 0
  7602. THEN
  7603.      BEGIN
  7604. /
  7605.      END INIT SERVERDB
  7606. /
  7607.      STOP 7
  7608. /
  7609.      END
  7610. /
  7611. COMMIT WORK
  7612. /
  7613. GRANT SELECT ON DOMAIN.USR_USES_TAB TO PUBLIC WITH GRANT OPTION
  7614. /
  7615. IF $RC (EXISTS TABLE DOMAIN.USR_USES_VIE) = 0
  7616. THEN
  7617.     BEGIN
  7618. /
  7619.     DROP VIEW DOMAIN.USR_USES_VIE
  7620. /
  7621.     COMMIT WORK
  7622. /
  7623.     END
  7624. /
  7625. CREATE VIEW DOMAIN.USR_USES_VIE
  7626.   (DEFOBJTYPE,DEFOWNER,DEFGROUPNAME,DEFUSERNAME,RELTYPE,
  7627.    REFOBJTYPE,REFOWNER,REFVIEWNAME,PRIVILEGES,CREATEDATE,CREATETIME)
  7628. AS SELECT
  7629.      'USER',GRANTEEOWNER,GRANTEE,GRANTEE,'USES',
  7630.      TYPE,OWNER,NAME1,PRIVILEGES,"DATE","TIME"
  7631.    FROM SYSDD.PRIVILEGES
  7632.    WHERE name2 IS NULL AND type = 'VIEW'
  7633.    AND type NOT IN('DBPROC','SEQUENCE')
  7634. /
  7635. IF $RC <> 0
  7636. THEN
  7637.      BEGIN
  7638. /
  7639.      END INIT SERVERDB
  7640. /
  7641.      STOP 7
  7642. /
  7643.      END
  7644. /
  7645. COMMIT WORK
  7646. /
  7647. GRANT SELECT ON DOMAIN.USR_USES_VIE TO PUBLIC WITH GRANT OPTION
  7648. /
  7649. IF $RC (EXISTS TABLE DOMAIN.VIE_CONT_COL) = 0
  7650. THEN
  7651.     BEGIN
  7652. /
  7653.     DROP VIEW DOMAIN.VIE_CONT_COL
  7654. /
  7655.     COMMIT WORK
  7656. /
  7657.     END
  7658. /
  7659. CREATE VIEW DOMAIN.VIE_CONT_COL
  7660.   (DEFOBJTYPE,DEFOWNER,DEFVIEWNAME,RELTYPE,
  7661.    REFOBJTYPE,REFOWNER,REFTABLENAME,REFCOLUMNNAME,
  7662.    POS,CREATEDATE,CREATETIME)
  7663. AS SELECT
  7664.      TYPE,OWNER,TABLENAME,'CONTAINS',
  7665.      'COLUMN',OWNER,TABLENAME,COLUMNNAME,
  7666.      COLUMNNO,"DATE","TIME"
  7667.    FROM SYSDD.COLUMNS
  7668.    WHERE type = 'VIEW'
  7669. /
  7670. IF $RC <> 0
  7671. THEN
  7672.      BEGIN
  7673. /
  7674.      END INIT SERVERDB
  7675. /
  7676.      STOP 7
  7677. /
  7678.      END
  7679. /
  7680. COMMIT WORK
  7681. /
  7682. GRANT SELECT ON DOMAIN.VIE_CONT_COL TO PUBLIC WITH GRANT OPTION
  7683. /
  7684. IF $RC (EXISTS TABLE DOMAIN.VIE_USES_SNP) = 0
  7685. THEN
  7686.     BEGIN
  7687. /
  7688.     DROP VIEW DOMAIN.VIE_USES_SNP
  7689. /
  7690.     COMMIT WORK
  7691. /
  7692.     END
  7693. /
  7694. CREATE VIEW DOMAIN.VIE_USES_SNP
  7695.   (DEFOBJTYPE,DEFOWNER,DEFVIEWNAME,RELTYPE,
  7696.    REFOBJTYPE,REFOWNER,REFSNAPSHOTNAME,CREATEDATE,CREATETIME)
  7697. AS SELECT DISTINCT
  7698.      TYPE,OWNER,TABLENAME,'USES',
  7699.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  7700.    FROM SYSDD.VIEW_USES_TABLE
  7701.    WHERE type = 'VIEW' AND refkind = 'SNAPSHOT'
  7702. /
  7703. IF $RC <> 0
  7704. THEN
  7705.      BEGIN
  7706. /
  7707.      END INIT SERVERDB
  7708. /
  7709.      STOP 7
  7710. /
  7711.      END
  7712. /
  7713. COMMIT WORK
  7714. /
  7715. GRANT SELECT ON DOMAIN.VIE_USES_SNP TO PUBLIC WITH GRANT OPTION
  7716. /
  7717. IF $RC (EXISTS TABLE DOMAIN.VIE_USES_SYN) = 0
  7718. THEN
  7719.     BEGIN
  7720. /
  7721.     DROP VIEW DOMAIN.VIE_USES_SYN
  7722. /
  7723.     COMMIT WORK
  7724. /
  7725.     END
  7726. /
  7727. CREATE VIEW DOMAIN.VIE_USES_SYN
  7728.   (DEFOBJTYPE,DEFOWNER,DEFVIEWNAME,RELTYPE,
  7729.    REFOBJTYPE,REFOWNER,REFSYNONYMNAME,CREATEDATE,CREATETIME)
  7730. AS SELECT DISTINCT
  7731.      TYPE,OWNER,TABLENAME,'USES',
  7732.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  7733.    FROM SYSDD.VIEW_USES_TABLE
  7734.    WHERE type = 'VIEW' AND refkind = 'SYNONYM'
  7735. /
  7736. IF $RC <> 0
  7737. THEN
  7738.      BEGIN
  7739. /
  7740.      END INIT SERVERDB
  7741. /
  7742.      STOP 7
  7743. /
  7744.      END
  7745. /
  7746. COMMIT WORK
  7747. /
  7748. GRANT SELECT ON DOMAIN.VIE_USES_SYN TO PUBLIC WITH GRANT OPTION
  7749. /
  7750. IF $RC (EXISTS TABLE DOMAIN.VIE_USES_TAB) = 0
  7751. THEN
  7752.     BEGIN
  7753. /
  7754.     DROP VIEW DOMAIN.VIE_USES_TAB
  7755. /
  7756.     COMMIT WORK
  7757. /
  7758.     END
  7759. /
  7760. CREATE VIEW DOMAIN.VIE_USES_TAB
  7761.   (DEFOBJTYPE,DEFOWNER,DEFVIEWNAME,RELTYPE,
  7762.    REFOBJTYPE,REFOWNER,REFTABLENAME,CREATEDATE,CREATETIME)
  7763. AS SELECT DISTINCT
  7764.      TYPE,OWNER,TABLENAME,'USES',
  7765.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  7766.    FROM SYSDD.VIEW_USES_TABLE
  7767.    WHERE type = 'VIEW'
  7768. /
  7769. IF $RC <> 0
  7770. THEN
  7771.      BEGIN
  7772. /
  7773.      END INIT SERVERDB
  7774. /
  7775.      STOP 7
  7776. /
  7777.      END
  7778. /
  7779. COMMIT WORK
  7780. /
  7781. GRANT SELECT ON DOMAIN.VIE_USES_TAB TO PUBLIC WITH GRANT OPTION
  7782. /
  7783. IF $RC (EXISTS TABLE DOMAIN.VIE_USES_VIE) = 0
  7784. THEN
  7785.     BEGIN
  7786. /
  7787.     DROP VIEW DOMAIN.VIE_USES_VIE
  7788. /
  7789.     COMMIT WORK
  7790. /
  7791.     END
  7792. /
  7793. CREATE VIEW DOMAIN.VIE_USES_VIE
  7794.   (DEFOBJTYPE,DEFOWNER,DEFVIEWNAME,RELTYPE,
  7795.    REFOBJTYPE,REFOWNER,REFVIEWNAME,CREATEDATE,CREATETIME)
  7796. AS SELECT DISTINCT
  7797.      TYPE,OWNER,TABLENAME,'USES',
  7798.      REFKIND,REFNAME,REFTABLENAME,DATE,TIME
  7799.    FROM SYSDD.VIEW_USES_TABLE
  7800.    WHERE type = 'VIEW' AND refkind = 'VIEW'
  7801. /
  7802. IF $RC <> 0
  7803. THEN
  7804.      BEGIN
  7805. /
  7806.      END INIT SERVERDB
  7807. /
  7808.      STOP 7
  7809. /
  7810.      END
  7811. /
  7812. COMMIT WORK
  7813. /
  7814. GRANT SELECT ON DOMAIN.VIE_USES_VIE TO PUBLIC WITH GRANT OPTION
  7815. /
  7816. END INIT SERVERDB
  7817. /
  7818.     INCLUDE '%DBROOT%\env\XDDCOM.ins'
  7819. /
  7820.     INCLUDE '%DBROOT%\env\SHOWQCM.ins'
  7821. /
  7822.     INCLUDE '%DBROOT%\env\SHOWCMD.ins'
  7823. /
  7824.     INCLUDE '%DBROOT%\env\SYSPROC.ins'
  7825. /
  7826.