home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / DBDEMO.ZIP / DEMODB.ZIP / D30ACBC1.BND (.txt) < prev    next >
DB2 Bind  |  1991-07-03  |  5KB  |  46 lines
  1. D30ACBC1iBJIJDHHTGRAY   1
  2. WHENEVER SQLERROR GOTO exit_error
  3. WHENEVER SQLWARNING CONTINUE
  4. WHENEVER NOT FOUND CONTINUE
  5. ALTER TABLE SAVINGS FOREIGN KEY SSSN (S_SSN) REFERENCES CUSTOMER       ON DELETE RESTRICT
  6. ALTER TABLE LOAN FOREIGN KEY LSSN (L_SSN) REFERENCES CUSTOMER       ON DELETE RESTRICT
  7. ALTER TABLE CHECKING FOREIGN KEY CSSN (C_SSN1) REFERENCES CUSTOMER       ON DELETE RESTRICT
  8. ALTER TABLE DEBITS FOREIGN KEY DACCT (DB_ACCNUMB) REFERENCES CHECKING       ON DELETE CASCADE
  9. ALTER TABLE CREDITS FOREIGN KEY CACCT (CR_ACCNUMB) REFERENCES CHECKING       ON DELETE CASCADE
  10. COMMIT
  11. REVOKE CREATETAB ON DATABASE FROM PUBLIC
  12. REVOKE BINDADD ON DATABASE FROM PUBLIC
  13. REVOKE CONNECT ON DATABASE FROM PUBLIC
  14. GRANT DBADM ON DATABASE TO GDBADM, BADMIN
  15. GRANT CONNECT, BINDADD ON DATABASE TO GPREP, PREP
  16. GRANT CONNECT, CREATETAB ON DATABASE TO GCREATE, TCREATE
  17. GRANT CONNECT ON DATABASE TO GQRYSEL, QRYSEL, GEDIT, TEDIT, GTVCON,        TVCON, GSELINS, SELINS, REFER, TDELETE, TUPDATE, SELUPDEL, TEXECUTE,        EDITALT
  18. GRANT SELECT ON TABLE CUSTOMER TO GQRYSEL, QRYSEL
  19. GRANT SELECT, UPDATE, INSERT, DELETE ON TABLE CUSTOMER TO GEDIT, TEDIT
  20. GRANT SELECT, UPDATE, INSERT, DELETE ON TABLE CHECKING TO GEDIT, TEDIT
  21. GRANT SELECT, UPDATE, INSERT, DELETE ON TABLE SAVINGS TO GEDIT, TEDIT
  22. COMMIT
  23. CREATE VIEW VLOAN AS              SELECT CU_SSN,CU_NAME,CU_ADDR1,CU_ADDR2,CU_ZIP,L_NUMB,L_TYPE,L_RATE,                   L_PAYMT,L_BAL,L_INTODAT,L_DESCRIP,L_DATE,L_SSN,L_TERM              FROM   CUSTOMER, LOAN              WHERE  CUSTOMER.CU_SSN = LOAN.L_SSN
  24. CREATE VIEW VSAVE AS              SELECT CU_SSN,CU_NAME,S_INTTOD,S_ACCNUMB,S_BAL,S_SSN              FROM   CUSTOMER, SAVINGS              WHERE  CUSTOMER.CU_SSN = SAVINGS.S_SSN
  25. COMMIT
  26. CREATE VIEW VIEWBOX AS              SELECT B_NUMB, B_SIZE, B_RENT              FROM   BOX              WHERE  B_SIZE = 'M'
  27. COMMIT
  28. CREATE VIEW VIEWCUST AS              SELECT *              FROM   NEWCUST
  29. COMMIT
  30. CREATE VIEW SOLLOAN (SSN, SSNSC) AS              ((SELECT CU_SSN, S_SSN              FROM CUSTOMER, SAVINGS              WHERE (CU_SSN = S_SSN) AND (S_BAL > 1000.00))                          INTERSECT               (SELECT CU_SSN, C_SSN1              FROM CUSTOMER, CHECKING              WHERE (CU_SSN = C_SSN1) AND (C_ENDBAL > 1000.00))                          EXCEPT               (SELECT CU_SSN, L_SSN              FROM CUSTOMER, LOAN              WHERE CU_SSN = L_SSN))
  31. COMMIT
  32. CREATE VIEW CHKACT (ACCNUMB) AS         ((SELECT C_ACCNUMB           FROM CHECKING           WHERE C_ACCNUMB NOT IN (SELECT DB_ACCNUMB FROM DEBITS))                     INTERSECT            (SELECT C_ACCNUMB           FROM CHECKING           WHERE C_ACCNUMB NOT IN (SELECT CR_ACCNUMB FROM CREDITS)))
  33. COMMIT
  34. CREATE VIEW INACTCUS (SSN) AS           (SELECT CU_SSN FROM CUSTOMER            WHERE CU_SSN NOT IN ((SELECT C_SSN1 FROM CHECKING)                                          UNION                                (SELECT S_SSN FROM SAVINGS)                                          UNION                                (SELECT L_SSN FROM LOAN)                                          UNION                                (SELECT B_SSN FROM BOX)))
  35. COMMIT
  36. COMMIT
  37. COMMIT
  38. COMMIT
  39. COMMIT
  40. INSERT INTO  PERFDAT3 SELECT  CU_SSN , CU_NAME, CU_ADDR1 , CU_ADDR2 ,CU_ZIP , L_NUMB , L_TYPE, L_RATE ,  L_TERM ,L_PAYMT, L_BAL, L_INTODAT,L_DESCRIP, L_DATE, S_ACCNUMB , S_IRATE,  S_INTTOD, S_BAL, B_NUMB , B_SIZE,B_RENT ,  B_PAYUP, C_ACCNUMB , C_STARTBAL, C_ENDBAL  FROM CUSTOMER, LOAN, SAVINGS, BOX, CHECKING  WHERE CU_SSN = L_SSN AND CU_SSN = S_SSN AND CU_SSN = B_SSN AND CU_SSN = C_SSN1
  41. INSERT INTO  PERFDAT4 SELECT  CU_SSN , CU_NAME, CU_ADDR1 , CU_ADDR2 ,CU_ZIP , L_NUMB , L_TYPE, L_RATE ,  L_TERM ,L_PAYMT, L_BAL, L_INTODAT,L_DESCRIP, L_DATE, S_ACCNUMB , S_IRATE,  S_INTTOD, S_BAL, B_NUMB , B_SIZE,B_RENT ,  B_PAYUP, C_ACCNUMB , C_STARTBAL, C_ENDBAL  FROM CUSTOMER, LOAN, SAVINGS, BOX, CHECKING  WHERE CU_SSN = L_SSN AND CU_SSN = S_SSN AND CU_SSN = B_SSN AND CU_SSN = C_SSN1
  42. CREATE INDEX  D3INDEX ON PERFDAT3  (CU_SSN ASC)
  43. COMMIT
  44. WHENEVER SQLERROR CONTINUE
  45. ROLLBACK WORK
  46.