home *** CD-ROM | disk | FTP | other *** search
/ PC Treasures, Inc. / pctreasures.mdf / WINDOWS / adabas / f_0001 / env / domain.ins < prev    next >
Text File  |  1999-11-01  |  581b  |  39 lines
  1. /* @(#)DOMAIN.ins 10.01.00  1998-01-30
  2. /
  3. SQLMODE ADABAS
  4. /
  5. AUTOCOMMIT OFF
  6. /
  7. INIT SERVERDB
  8. /
  9. IF $RC (SHOW (sysdba_loc) USER LOCALSYSDBA) <> 0
  10. THEN
  11. /
  12.     RETURNCODE 0
  13. /
  14. IF $RC (SHOW (domdba_loc) SYSDBA OF "DOMAIN") <> 0
  15. THEN
  16. /
  17.     RETURNCODE 0
  18. /
  19. IF $RC (SELECT domdba_loc.username from domdba_loc, sysdba_loc
  20.         where domdba_loc.username = sysdba_loc.username) <> 0
  21. THEN
  22. /
  23.     RETURNCODE 0
  24. /
  25. ELSE
  26.     BEGIN
  27. /
  28.     END INIT SERVERDB
  29. /
  30. /
  31.     INCLUDE '%DBROOT%\env\XDD.ins'
  32. /
  33.     INCLUDE '%DBROOT%\env\SPROC.ins'
  34. /
  35.     END
  36. /
  37. END INIT SERVERDB
  38. /
  39.