home *** CD-ROM | disk | FTP | other *** search
/ PC Treasures, Inc. / pctreasures.mdf / WINDOWS / adabas / f_0001 / env / easy.ins < prev    next >
Text File  |  1999-11-01  |  3KB  |  111 lines
  1. SAY --- Installing system tables for EASY ...
  2. /
  3. /* @(#)EASY.ins 10.01.00  1998-01-30
  4. / *****************************************************
  5. / Systemtables of the Conversational Component EASY
  6. / *****************************************************
  7. /
  8. /
  9. INIT SERVERDB
  10. /
  11. IF $RC (SHOW VIEW SYSEASYMASKS) = 0
  12. THEN
  13. /
  14.      DROP VIEW SYSEASYMASKS
  15. /
  16. IF $RC (EXISTS TABLE SYSEASYMASKS) <> 0
  17. THEN
  18.      BEGIN
  19. /
  20.      CREATE TABLE SYSEASYMASKS
  21.        (
  22.         TOWNER         CHAR(18) ASCII KEY DEFAULT USERGROUP,
  23.         TNAME          CHAR(18) ASCII KEY DEFAULT ' ',
  24.         MOWNER         CHAR(18) ASCII KEY DEFAULT USERGROUP,
  25.         MNAME          CHAR(18) ASCII KEY DEFAULT ' ',
  26.         OBJTYPE        CHAR(18) ASCII KEY DEFAULT 'EASYMASK',
  27.         SUBTYPE        CHAR(12) ASCII KEY DEFAULT ' ',
  28.         KEY7_NOT_USED  CHAR(4)  ASCII KEY DEFAULT ' ',
  29.         CREATEDATE     DATE DEFAULT DATE,
  30.         CREATETIME     TIME DEFAULT TIME,
  31.         UPDATEDATE     DATE DEFAULT DATE,
  32.         UPDATETIME     TIME DEFAULT TIME,
  33.         MCODE          CHAR(6)  ASCII,
  34.         MVERSION       FIXED(3),
  35.         MLENGTH        FIXED(18),
  36.         WARNINGLEVEL   FIXED(3),
  37.         WARNINGCOMMENT CHAR(18) ASCII,
  38.         CODE           LONG     BYTE
  39.        )
  40. /
  41.      GRANT SELECT, UPDATE, INSERT, DELETE ON SYSEASYMASKS TO DOMAIN
  42. /
  43.      GRANT SELECT ON SYSEASYMASKS TO PUBLIC
  44. /
  45.      IF $RC (SHOW VIEW SYSEASYDEFMASKS) = 0
  46.      THEN
  47. /
  48.           DROP VIEW SYSEASYDEFMASKS
  49. /
  50.      CREATE VIEW SYSEASYDEFMASKS
  51.      AS SELECT *
  52.         FROM SYSEASYMASKS
  53.         WHERE towner = USERGROUP
  54.      WITH CHECK OPTION
  55. /
  56.      GRANT SELECT, UPDATE, INSERT, DELETE ON SYSEASYDEFMASKS TO PUBLIC
  57. /
  58.      COMMIT WORK
  59. /
  60.      END
  61. /
  62. IF $RC (SHOW VIEW SYSEASYSTOCOMS) = 0
  63. THEN
  64. /
  65.      DROP VIEW SYSEASYSTOCOMS
  66. /
  67. IF $RC (EXISTS TABLE SYSEASYSTOCOMS) <> 0
  68. THEN
  69.      BEGIN
  70. /
  71.      CREATE TABLE SYSEASYSTOCOMS
  72.        (
  73.         AUTHOR         CHAR(18) ASCII KEY DEFAULT USERGROUP,
  74.         COMMAND_NAME   CHAR(18) ASCII KEY DEFAULT ' ',
  75.         TOWNER         CHAR(18) ASCII KEY DEFAULT USERGROUP,
  76.         TNAME          CHAR(18) ASCII KEY DEFAULT ' ',
  77.         OBJTYPE        CHAR(18) ASCII KEY DEFAULT 'EASYCOMMAND',
  78.         SUBTYPE        CHAR(12) ASCII KEY DEFAULT ' ',
  79.         KEY7_NOT_USED  CHAR(4)  ASCII KEY DEFAULT ' ',
  80.         CREATEDATE     DATE DEFAULT DATE,
  81.         CREATETIME     TIME DEFAULT TIME,
  82.         UPDATEDATE     DATE DEFAULT DATE,
  83.         UPDATETIME     TIME DEFAULT TIME,
  84.         CCODE          CHAR(1) ASCII,
  85.         COMMAND        LONG    BYTE
  86.        )
  87. /
  88.      GRANT SELECT, UPDATE, INSERT, DELETE ON SYSEASYSTOCOMS TO DOMAIN
  89. /
  90.      GRANT SELECT ON SYSEASYSTOCOMS TO PUBLIC
  91. /
  92.      IF $RC (SHOW VIEW SYSEASYDEFSTOCOMS) = 0
  93.      THEN
  94. /
  95.           DROP VIEW SYSEASYDEFSTOCOMS
  96. /
  97.      CREATE VIEW SYSEASYDEFSTOCOMS
  98.      AS SELECT *
  99.         FROM SYSEASYSTOCOMS
  100.         WHERE author = USERGROUP
  101.      WITH CHECK OPTION
  102. /
  103.      GRANT SELECT, UPDATE, INSERT, DELETE ON SYSEASYDEFSTOCOMS TO PUBLIC
  104. /
  105.      COMMIT WORK
  106. /
  107.      END
  108. /
  109. END INIT SERVERDB
  110. /
  111.