home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 April / comcd0402.iso / vollver / adabas / f_0001 / env / infosys.ins < prev    next >
Encoding:
Text File  |  1999-11-01  |  1.2 KB  |  56 lines
  1. / *********************************************************************
  2. /* @(#)INFOSYS.ins 10.01.00  1998-01-30
  3. / Create system tables for system messages and help information
  4. / *********************************************************************
  5. /
  6. INIT SERVERDB
  7. /
  8. IF $RC (EXISTS TABLE SYSMESSAGES) = 0
  9. THEN
  10.      BEGIN
  11. /
  12.      DROP TABLE SYSMESSAGES
  13. /
  14.      COMMIT WORK
  15. /
  16.      END
  17. /
  18. CREATE TABLE SYSMESSAGES
  19.              ( MSGNO      FIXED (5,0)         KEY,
  20.                LANGUAGE   CHAR  (03)    ASCII KEY,
  21.                MSGTEXT    CHAR  (80)    ASCII )
  22. /
  23. GRANT SELECT
  24.              ON SYSMESSAGES
  25.              TO PUBLIC
  26. /
  27. COMMIT WORK
  28. /
  29. /
  30. / *********************************************************************
  31. /
  32. IF $RC (EXISTS TABLE SYSHELP) = 0
  33. THEN
  34. /
  35.      BEGIN
  36. /
  37.      DROP TABLE SYSHELP
  38. /
  39.      COMMIT WORK
  40. /
  41.      END
  42. /
  43. CREATE TABLE SYSHELP
  44.              ( LANGUAGE   CHAR  (03)    ASCII KEY,
  45.                HELP_ID    CHAR  (12)    ASCII KEY,
  46.                LINENO     FIXED (5,0)         KEY,
  47.                HELP_MODE  CHAR  (02)    ASCII,
  48.                LINE       CHAR  (132)    ASCII )
  49. /
  50. GRANT SELECT ON SYSHELP   TO PUBLIC
  51. /
  52. COMMIT WORK
  53. /
  54. END INIT SERVERDB
  55. /
  56.