home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 43.ddi / DEMOINS.SQL < prev    next >
Encoding:
Text File  |  1990-08-17  |  2.2 KB  |  66 lines
  1. Rem
  2. Rem Set up security for SQL*Menu 5.0 Demo
  3. Rem
  4. Rem 17-AUG-90 TKELLEY All statements without &1 from SECURITY.SQL
  5. Rem
  6.  
  7. Set termout off
  8. Set verify off
  9. Set heading off
  10. Set echo on
  11. Set scan on
  12. Column x newline
  13. spool security.lis
  14.  
  15. GRANT SELECT ON MENU_B_APPL TO SCOTT;
  16. GRANT SELECT ON MENU_B_APPL_GRP TO SCOTT;
  17. GRANT SELECT ON MENU_B_INFO TO SCOTT;
  18. GRANT SELECT ON MENU_B_OPTION TO SCOTT;
  19. GRANT SELECT ON MENU_B_PARAM TO SCOTT;
  20. GRANT SELECT ON MENU_B_PARM_XREF TO SCOTT;
  21. GRANT SELECT ON MENU_B_CIRCLE TO SCOTT;
  22. GRANT SELECT ON MENU_B_OBJ_TEXT TO SCOTT;
  23. GRANT SELECT ON MENU_B_GROUP TO SCOTT;
  24. GRANT SELECT ON MENU_B_GRP_PRIV TO SCOTT;
  25. GRANT SELECT ON MENU_B_PRIV TO SCOTT;
  26. GRANT SELECT ON MENU_B_USER TO SCOTT;
  27. GRANT SELECT ON MENU_B_REF TO SCOTT;
  28. GRANT SELECT ON MENU_V_APPL TO SCOTT;
  29. GRANT SELECT ON MENU_V_APPL_GRP TO SCOTT;
  30. GRANT SELECT ON MENU_V_INFO TO SCOTT;
  31. GRANT SELECT ON MENU_V_OPTION TO SCOTT;
  32. GRANT SELECT ON MENU_V_PARAM TO SCOTT;
  33. GRANT SELECT ON MENU_V_PARM_XREF TO SCOTT;
  34. GRANT SELECT ON MENU_V_CIRCLE TO SCOTT;
  35. GRANT SELECT ON MENU_V_OBJ_TEXT TO SCOTT;
  36. GRANT SELECT ON MENU_V_GROUP TO SCOTT;
  37. GRANT SELECT ON MENU_V_GRP_PRIV TO SCOTT;
  38. GRANT SELECT ON MENU_V_PRIV TO SCOTT;
  39. GRANT SELECT ON MENU_V_USER TO SCOTT;
  40. GRANT SELECT ON MENU_V_REF TO SCOTT;
  41. GRANT SELECT ON MENU_B_PROCEDURE TO SCOTT;
  42. GRANT SELECT ON MENU_V_PROCEDURE TO SCOTT;
  43. commit;
  44.  
  45. INSERT INTO MENU_B_GROUP VALUES ('GROUPTOBEDELETED', 'Y', 'Y', 'Y', 1);
  46. INSERT INTO MENU_B_GROUP SELECT 'MANAGERS', 'Y', 'Y', 'Y', MAX(OBJECT_TEXT_ID)+1
  47. FROM MENU_B_GROUP;
  48. INSERT INTO MENU_B_OBJ_TEXT SELECT 'MNUGROUPAPPLICATION', OBJECT_TEXT_ID, 1,
  49. 'This is a test access group.'
  50. FROM  MENU_B_GROUP WHERE GROUP_NAME = 'MANAGERS';
  51. INSERT INTO MENU_B_GROUP SELECT 'CLERKS', 'Y', 'Y', 'Y',  MAX(OBJECT_TEXT_ID)+1  FROM MENU_B_GROUP;
  52. INSERT INTO MENU_B_OBJ_TEXT SELECT 'MNUGROUPAPPLICATION', OBJECT_TEXT_ID, 1,
  53. 'This is a test access group.'
  54. FROM  MENU_B_GROUP WHERE GROUP_NAME = 'CLERKS';
  55. DELETE FROM MENU_B_GROUP WHERE GROUP_NAME = 'GROUPTOBEDELETED';
  56. COMMIT;
  57.  
  58. INSERT INTO MENU_B_USER VALUES
  59. ('CLERKS', 'SCOTT');
  60. DELETE FROM MENU_B_USER WHERE
  61. ((GROUP_NAME = 'MANAGERS')
  62. AND
  63. (USER_NAME = 'SCOTT'));
  64. commit;
  65. exit;
  66.