SAY ------ Installing system SHOW-DB-PROCEDURES ...
/* @(#)SYSPROC.ins 10.01.00  1998-01-30
/
INIT SERVERDB
/
IF $RC (SHOW DBPROCEDURE DOMAIN.SYSPROC.SHOW_VIEW) = 0
THEN
    BEGIN
/
    DROP DBPROCEDURE DOMAIN.SYSPROC.SHOW_VIEW
/
    END
/
IF $RC (DELETE sysdba.SYSDIALLIB
        WHERE owner ='DOMAIN' AND application='SYSPROC'
        AND (subtype LIKE 'CODE*' OR subtype =' ')) <> 0
THEN
/
    RETURNCODE 0
/
COMMIT WORK
/
DATALOAD TABLE sysdba.SYSDIALLIB
OWNER       'DOMAIN'
APPLICATION 22-39
MODULE      43-60
PROGLANG    64-81
OBJTYPE     85-102
SUBTYPE     106-117
VERSION     121-124
LONGNAME    128-167 DEFAULT NULL
KIND        171-176 DEFAULT NULL
MODINDEX    180-181 DEFAULT NULL
STATUS      185-185 DEFAULT NULL
STRLENGTH   189-207 DEFAULT NULL
CODETYPE    211-216 DEFAULT NULL
VALUE_AREA  220-238 DEFAULT NULL
INFILE '%DBROOT%\env\SYSPROC.ind'
DEC '/ /./'
NULL '?                   '
/
IF $RC <> 0
THEN
    BEGIN
/
    END INIT SERVERDB
/
    STOP 8
/
    END
/
COMMIT WORK
/
LOAD LONG COLUMN SYSDBA.SYSDIALLIB.OBJ
INFILE '%DBROOT%\env\SYSPROC.ino'
/
IF $RC <> 0
THEN
    BEGIN
/
    END INIT SERVERDB
/
    STOP 8
/
    END
/
COMMIT WORK
/
IF $RC (INSERT sysdba.SYSDIALPRIVATE
        SET
        DEFOBJTYPE  ='USER',
        GRANTEE     ='PUBLIC',
        OBJTYPE     ='PROGRAM',
        OWNER       ='DOMAIN' ,
        APPLICATION ='SYSPROC',
        PROGLANG    ='DIALOG',
        VERSION     ='PROD',
        RELTYPE     ='ACCESSES',
        PRIVILEGE   ='C',
        COMMENT     ='STOREDPROCEDURE') = 200
THEN
/
    RETURNCODE 0
/
ANALYZE DOMAIN.SYSPROC.SHOW_VIEW
/
STORE DBPROCEDURE
/
STORE DBPROCEDURE ALL
/
CREATE DBPROCEDURE DOMAIN.SYSPROC.SHOW_VIEW WITH REPLICATION
/
IF $RC <> 0
THEN
    BEGIN
/
    END INIT SERVERDB
/
    STOP 7
/
    END
/
GRANT EXECUTE ON DOMAIN.SYSPROC.SHOW_VIEW TO PUBLIC
/
COMMIT WORK
/
END INIT SERVERDB
/
