Chip 1997 September/CHIP_CD_1997_09_PL.iso/software/testsoft/adabas/setup/data.z/SQLPL.ins

Text File | 1995-10-23 | 5.9 KB | 200 lines

SAY --- Installing system tables for SQL-PL ...
/
/ *****************************************************
/ Systemtables of the Conversational Component SQL-PL
/ *****************************************************
/
/
INIT SERVERDB
/
IF $RC (SHOW VIEW SYSDIALOGLIBRARY) = 0
THEN
/
     DROP VIEW SYSDIALOGLIBRARY
/
IF  $RC (EXISTS TABLE SYSDIALOGLIBRARY) <> 0
THEN
     BEGIN
/
     CREATE TABLE SYSDIALOGLIBRARY
       (
        OWNER       CHAR(18) ASCII DEFAULT USERGROUP,
        APPLICATION CHAR(18) ASCII DEFAULT ' ',
        MODULE      CHAR(18) ASCII DEFAULT ' ',
        PROGLANG    CHAR(18) ASCII DEFAULT ' ',
        OBJTYPE     CHAR(18) ASCII,
        SUBTYPE     CHAR(12) ASCII DEFAULT ' ',
        VERSION     CHAR(4)  ASCII DEFAULT ' ',
        LONGNAME    CHAR(40) ASCII DEFAULT ' ',
        KIND        CHAR(6)  ASCII,
        MODINDEX    CHAR(2)  ASCII,
        STATUS      CHAR(1)  ASCII,
        CREATEDATE  DATE            DEFAULT DATE,
        CREATETIME  TIME            DEFAULT TIME,
        UPDATEDATE  DATE            DEFAULT DATE,
        UPDATETIME  TIME            DEFAULT TIME,
        STRLENGTH   FIXED(18,0),
        CODETYPE    CHAR(6)  ASCII,
        VALUE_AREA  FIXED(18,0),
        CODE_AREA   FIXED(18,0),
        OBJ         LONG     BYTE,
        PRIMARY KEY (OWNER,APPLICATION,MODULE,PROGLANG,OBJTYPE,SUBTYPE,VERSION)
       )
/
     GRANT SELECT, INSERT, DELETE, UPDATE ON SYSDIALOGLIBRARY TO DOMAIN
/
     GRANT SELECT ON SYSDIALOGLIBRARY TO PUBLIC
/
     COMMIT WORK
/
     IF $RC (SHOW VIEW SYSDIALLIB) = 0
     THEN
/
          DROP VIEW SYSDIALLIB
/
     CREATE VIEW SYSDIALLIB
     AS SELECT *
        FROM SYSDIALOGLIBRARY
        WHERE owner = USERGROUP
     WITH CHECK OPTION
/
     GRANT SELECT, INSERT, DELETE, UPDATE ON SYSDIALLIB TO PUBLIC
/
     COMMIT WORK
/
     END
/
IF $RC (SHOW VIEW SYSPL_USR_ACCS_PRO) = 0
THEN
/
     DROP VIEW SYSPL_USR_ACCS_PRO
/
IF  $RC (EXISTS TABLE SYSPL_USR_ACCS_PRO) <> 0
THEN
     BEGIN
/
     CREATE TABLE SYSPL_USR_ACCS_PRO
       (
        DEFOBJTYPE  CHAR(18) ASCII DEFAULT 'USER',
        GRANTEE     CHAR(18) ASCII DEFAULT USERGROUP,
        DEFOBJNAME1 CHAR(18) ASCII DEFAULT ' ',
        DEFOBJNAME2 CHAR(18) ASCII DEFAULT ' ',
        DEFOBJNAME3 CHAR(18) ASCII DEFAULT ' ',
        DEFSUBTYPE  CHAR(12) ASCII DEFAULT ' ',
        DEFVERSION  CHAR(4)  ASCII DEFAULT ' ',
        OBJTYPE     CHAR(18) ASCII DEFAULT 'PROGRAM',
        OWNER       CHAR(18) ASCII DEFAULT USERGROUP,
        APPLICATION CHAR(18) ASCII DEFAULT ' ',
        REFOBJNAME2 CHAR(18) ASCII DEFAULT ' ',
        PROGLANG    CHAR(18) ASCII DEFAULT ' ',
        REFSUBTYPE  CHAR(12) ASCII DEFAULT ' ',
        VERSION     CHAR(4)  ASCII DEFAULT ' ',
        RELTYPE     CHAR(18) ASCII DEFAULT 'ACCESSES',
        PRIVILEGE   CHAR(4)  ASCII,
        COMMENT     CHAR(40) ASCII,
        PRIMARY KEY (DEFOBJTYPE,GRANTEE,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,
                     DEFSUBTYPE,DEFVERSION,OBJTYPE,OWNER,APPLICATION,
                     REFOBJNAME2,PROGLANG,REFSUBTYPE,VERSION,RELTYPE)
       )
/
     GRANT SELECT, INSERT, UPDATE, DELETE ON SYSPL_USR_ACCS_PRO TO DOMAIN
/
     COMMIT WORK
/
     IF $RC (SHOW VIEW SYSDIALPRIVATE) = 0
     THEN
/
          DROP VIEW SYSDIALPRIVATE
/
     CREATE VIEW SYSDIALPRIVATE
     AS SELECT *
        FROM SYSPL_USR_ACCS_PRO
        WHERE owner = USERGROUP
     WITH CHECK OPTION
/
     GRANT INSERT, DELETE, UPDATE, SELECT ON SYSDIALPRIVATE TO PUBLIC
/
     IF $RC (SHOW VIEW SYSDIALCALL) = 0
     THEN
/
          DROP VIEW SYSDIALCALL
/
     CREATE VIEW SYSDIALCALL
     AS SELECT *
        FROM SYSPL_USR_ACCS_PRO
        WHERE grantee IN(USERGROUP,'PUBLIC') AND privilege LIKE '*C*'
     WITH CHECK OPTION
/
     GRANT SELECT, DELETE ON SYSDIALCALL TO PUBLIC
/
     IF $RC (SHOW VIEW SYSDIALCOPY) = 0
     THEN
/
          DROP VIEW SYSDIALCOPY
/
     CREATE VIEW SYSDIALCOPY
     AS SELECT *
        FROM SYSPL_USR_ACCS_PRO
        WHERE grantee IN(USERGROUP,'PUBLIC') AND privilege LIKE '*I*'
     WITH CHECK OPTION
/
     GRANT SELECT, DELETE ON SYSDIALCOPY TO PUBLIC
/
     END
/
GRANT SELECT ON SYSPL_USR_ACCS_PRO TO PUBLIC
/
IF $RC (SHOW VIEW SYSPL_MOD_CALL_MOD) = 0
THEN
/
     DROP VIEW SYSPL_MOD_CALL_MOD
/
IF  $RC (EXISTS TABLE SYSPL_MOD_CALL_MOD ) <> 0
THEN
     BEGIN
/
     CREATE TABLE SYSPL_MOD_CALL_MOD
       (
        DEFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
        DEFOWNER    CHAR(18)  ASCII DEFAULT USERGROUP,
        DEFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
        DEFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
        DEFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
        DEFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
        DEFVERSION  CHAR(4)   ASCII DEFAULT ' ',
        REFOBJTYPE  CHAR(18)  ASCII DEFAULT 'MODULE',
        REFOWNER    CHAR(18)  ASCII DEFAULT USERGROUP,
        REFOBJNAME1 CHAR(18)  ASCII DEFAULT ' ',
        REFOBJNAME2 CHAR(18)  ASCII DEFAULT ' ',
        REFOBJNAME3 CHAR(18)  ASCII DEFAULT ' ',
        REFSUBTYPE  CHAR(12)  ASCII DEFAULT ' ',
        REFVERSION  CHAR(4)   ASCII DEFAULT ' ',
        RELTYPE     CHAR(18)  ASCII DEFAULT 'CALLS',
        STATUS      CHAR(1)   ASCII,
        PRIMARY KEY (DEFOBJTYPE,DEFOWNER,DEFOBJNAME1,DEFOBJNAME2,DEFOBJNAME3,
                     DEFSUBTYPE,DEFVERSION,REFOBJTYPE,REFOWNER,REFOBJNAME1,
                     REFOBJNAME2,REFOBJNAME3,REFSUBTYPE,REFVERSION,RELTYPE)
       )
/
     GRANT SELECT, INSERT, UPDATE, DELETE ON SYSPL_MOD_CALL_MOD TO DOMAIN
/
     IF $RC (SHOW VIEW SYSACTIVERELSHIP) = 0
     THEN
/
          DROP VIEW SYSACTIVERELSHIP
/
     CREATE VIEW SYSACTIVERELSHIP
     AS SELECT *
        FROM SYSPL_MOD_CALL_MOD
        WHERE defowner = USERGROUP
     WITH CHECK OPTION
/
     GRANT SELECT, INSERT, UPDATE, DELETE ON SYSACTIVERELSHIP TO PUBLIC
/
     COMMIT WORK
/
     END
/
END INIT SERVERDB
/