home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 April / comcd0402.iso / vollver / adabas / f_0001 / env / dbload.ins < prev    next >
Encoding:
Text File  |  1999-11-01  |  997 b   |  69 lines
  1. SAY --- Installing system tables of SYSDBA needed for DBLOAD ...
  2. /*
  3. /* @(#)DBLOAD.ins 10.01.00  1998-01-30
  4. INIT SERVERDB
  5. /
  6. IF $RC (EXISTS TABLE "SYS%CATALOG1") <> 0
  7. THEN
  8.     BEGIN
  9. /*
  10.     CREATE TABLE "SYS%CATALOG1"
  11.     (K    CHAR(48)   BYTE,
  12.      INFO CHAR(3900) BYTE,
  13.      PRIMARY KEY (K)
  14.     )
  15. /*
  16.     IF $RC <> 0
  17.     THEN
  18. /*
  19.         STOP 7
  20. /*
  21.     END
  22. /**
  23. IF $RC (EXISTS TABLE "SYS%CATALOG2") <> 0
  24. THEN
  25.     BEGIN
  26. /*
  27.     CREATE TABLE "SYS%CATALOG2"
  28.     (K    CHAR(48)   BYTE,
  29.      INFO CHAR(3900) BYTE,
  30.      PRIMARY KEY (K)
  31.     )
  32. /*
  33.     IF $RC <> 0
  34.     THEN
  35. /*
  36.         STOP 7
  37. /*
  38.     END
  39. /**
  40. IF $RC (EXISTS TABLE DUAL) <> 0
  41. THEN
  42.     BEGIN
  43. /*
  44.     CREATE TABLE DUAL (DUMMY CHAR(1))
  45. /*
  46.     IF $RC <> 0
  47.     THEN
  48. /*
  49.         STOP 7
  50. /*
  51.     INSERT INTO DUAL VALUES ('a')
  52. /*
  53.     IF $RC <> 0
  54.     THEN
  55. /*
  56.         STOP 7
  57. /*
  58.     GRANT SELECT ON DUAL TO PUBLIC
  59. /*
  60.     IF $RC <> 0
  61.     THEN
  62. /*
  63.         STOP 7
  64. /*
  65.     END
  66. /**
  67. END INIT SERVERDB
  68. /**
  69.