home *** CD-ROM | disk | FTP | other *** search
/ Java 1.2 How-To / JavaHowTo.iso / 3rdParty / jbuilder / TRIAL / JBUILDER / JSAMPLES.Z / sqlOracle.sql < prev    next >
Encoding:
Text File  |  1998-05-08  |  9.7 KB  |  165 lines
  1.  
  2. //Title:        Stored Procedure Sample
  3. //Version:      2.0
  4. //Copyright:    Copyright (c) 1998
  5. //Company:      Borland Int'l
  6. //Description:  This is the SQL definitions for Oracle.
  7.  
  8.  
  9. DROP FUNCTION  SAMPLEEMPINFO;
  10. DROP PROCEDURE SAMPLEINSEMP;
  11. DROP PROCEDURE SAMPLEUPDEMP;
  12. DROP PROCEDURE SAMPLEDELEMP;
  13. DROP PROCEDURE SAMPLEUPDSALARY;
  14. DROP TABLE SAMPLEDEPT;
  15. DROP TABLE SAMPLEEMP;
  16.  
  17. CREATE TABLE SAMPLEEMP
  18. ( 
  19.   EMPID    INTEGER NOT NULL,
  20.   FNAME    CHAR(20),
  21.   LNAME    VARCHAR(20),
  22.   HIREDATE DATE,
  23.   SALARY   NUMERIC(15,3),
  24.   DEPTID   INTEGER,
  25.  
  26.   PRIMARY KEY (EMPID)
  27. );
  28.                                 
  29. CREATE TABLE SAMPLEDEPT
  30. (
  31.   DEPTID   INTEGER NOT NULL UNIQUE,
  32.   DNAME    CHAR(25)
  33. );
  34.  
  35. CREATE FUNCTION SAMPLEEMPINFO( DEPT SAMPLEEMP.DEPTID%TYPE ) RETURN rcSAMPLEEMP AS
  36.    type recEMP is record (
  37.      EMPID    SAMPLEEMP.EMPID%TYPE, 
  38.      LNAME    SAMPLEEMP.LNAME%TYPE, 
  39.      FNAME    SAMPLEEMP.FNAME%TYPE, 
  40.      HIREDATE SAMPLEEMP.HIREDATE%TYPE, 
  41.      SALARY   SAMPLEEMP.SALARY%TYPE );
  42.   type rcSAMPLEEMP is ref cursor return recEMP; 
  43.   rc   rcSAMPLEEMP;
  44. BEGIN
  45.   open rc for select EMPID,LNAME,FNAME,HIREDATE,SALARY from SAMPLEEMP where DEPTID = DEPT;
  46.   return rc;
  47. END;
  48.  
  49. CREATE PROCEDURE SAMPLEINSEMP (
  50.   EMP_ID SAMPLEEMP.EMPID%TYPE,
  51.   F_NAME SAMPLEEMP.FNAME%TYPE,
  52.   L_NAME SAMPLEEMP.LNAME%TYPE,
  53.   DHIRE  SAMPLEEMP.HIREDATE%TYPE,
  54.   SAL    SAMPLEEMP.SALARY%TYPE,
  55.   DEPT   SAMPLEEMP.DEPTID%TYPE ) AS 
  56. BEGIN
  57.   INSERT INTO SAMPLEEMP VALUES (EMP_ID, F_NAME, L_NAME, DHIRE, SAL, DEPT);
  58. END;
  59.  
  60. CREATE PROCEDURE SAMPLEUPDEMP (
  61.   OLD_ID SAMPLEEMP.EMPID%TYPE,
  62.   EMP_ID SAMPLEEMP.EMPID%TYPE,
  63.   F_NAME SAMPLEEMP.FNAME%TYPE,
  64.   L_NAME SAMPLEEMP.LNAME%TYPE,
  65.   DHIRE  SAMPLEEMP.HIREDATE%TYPE,
  66.   SAL    SAMPLEEMP.SALARY%TYPE,
  67.   DEPT   SAMPLEEMP.DEPTID%TYPE ) AS 
  68. BEGIN
  69.   UPDATE SAMPLEEMP
  70.     SET
  71.       EMPID    = EMP_ID, 
  72.       FNAME    = F_NAME,
  73.       LNAME    = L_NAME,
  74.       HIREDATE = DHIRE,
  75.       SALARY   = SAL,
  76.       DEPTID   = DEPT
  77.     WHERE
  78.       EMPID    = OLD_ID;
  79. END;
  80.  
  81. CREATE PROCEDURE SAMPLEUPDSALARY ( EMP_ID SAMPLEEMP.EMPID%TYPE, INCREASE SAMPLEEMP.SALARY%TYPE ) AS 
  82. BEGIN
  83.   UPDATE SAMPLEEMP SET  SALARY = SALARY + INCREASE
  84.     WHERE EMPID = EMP_ID;
  85. END;
  86.  
  87. CREATE PROCEDURE SAMPLEDELEMP ( EMP_ID SAMPLEEMP.EMPID%TYPE ) AS 
  88. BEGIN
  89.   DELETE FROM SAMPLEEMP WHERE EMPID = EMP_ID;
  90. END;
  91.  
  92. //  
  93. // Values for SAMPLEEMP :
  94. //
  95.  
  96. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (2,   'Roberto',     'lname',        '28-DEC-88', 70000.00,  600);
  97. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (4,   'Bruce',       'Young',        '28-DEC-88', 40000.00,  621);
  98. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (5,   'Kim',         'Lambert',      '06-FEB-89', 32000.00,  130);
  99. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (8,   'Leslie',      'Johnson',      '05-APR-89', 13050.00,  180);
  100. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (9,   'Phil',        'Forest',       '17-APR-89', 67300.00,  622);
  101. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (11,  'K. J.',       'Weston',       '17-JAN-90', 100000.00, 130);
  102. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (12,  'Terri',       'Lee',          '01-MAY-90', 79000.00,  000);
  103. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (14,  'Stewart',     'Hall',         '04-JUN-90', 89000.00,  900);
  104. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (15,  'Katherine',   'Young',        '14-JUN-90', 38888.00,  623);
  105. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (20,  'Chris',       'Papadopoulos', '01-JAN-90', 47566.00,  671);
  106. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (24,  'Pete',        'Fisher',       '12-SEP-90', 53000.00,  671);
  107. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (28,  'Ann',         'Bennet',       '01-FEB-91', 23000.00,  120);
  108. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (29,  'Roger',       'De Souza',     '18-FEB-91', 19000.00,  623);
  109. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (34,  'Janet',       'Baldwin',      '21-MAR-91', 93000.00,  110);
  110. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (36,  'Roger',       'Reeves',       '25-APR-91', 34000.00,  120);
  111. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (37,  'Willie',      'Stansbury',    '25-APR-91', 23000.00,  120);
  112. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (44,  'Leslie',      'Phong',        '03-JUN-91', 59000.00,  623);
  113. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (45,  'Ashok',       'Ramanathan',   '01-AUG-91', 73000.00,  621);
  114. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (46,  'Walter',      'Steadman',     '09-AUG-91', 27777.00,  900);
  115. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (52,  'Carol',       'Nordstrom',    '02-OCT-91', 45000.00,  180);
  116. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (61,  'Luke',        'Leung',        '18-FEB-92', 44000.00,  110);
  117. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (71,  'Jennifer M.', 'Burbank',      '15-APR-92', 43000.00,  622);
  118. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (72,  'Claudia',     'Sutherland',   '20-APR-92', 28000.00,  140);
  119. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (83,  'Dana',        'Bishop',       '01-JUN-92', 89000.00,  621);
  120. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (85,  'Mary S.',     'MacDonald',    '01-JUN-92', 24000.00,  100);
  121. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (94,  'Randy',       'Williams',     '08-AUG-92', 39000.00,  672);
  122. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (105, 'Oliver H.',   'Bender',       '08-OCT-92', 200000.00, 000);
  123. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (107, 'Kevin',       'Cook',         '01-FEB-93', 120000.00, 670);
  124. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (109, 'Kelly',       'Brown',        '04-FEB-93', 60000.00,  600);
  125. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (110, 'Yuki',        'Ichida',       '04-FEB-93', 32000.00,  115);
  126. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (113, 'Mary',        'Page',         '12-APR-93', 31000.00,  671);
  127. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (114, 'Bill',        'Parker',       '01-JUN-93', 23000.00,  623);
  128. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (118, 'Takashi',     'Yamamoto',     '01-JUL-93', 21000.00,  115);
  129. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (121, 'Roberto',     'Ferrari',      '12-JUL-93', 19000.00,  125);
  130. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (127, 'Michael',     'Yanowski',     '09-AUG-93', 16000.00,  100);
  131. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (134, 'Jacques',     'Glon',         '23-AUG-93', 17000.00,  123);
  132. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (136, 'Scott',       'Johnson',      '13-SEP-93', 34000.00,  623);
  133. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (138, 'T.J.',        'Green',        '01-NOV-93', 45000.00,  621);
  134. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (141, 'Pierre',      'Osborne',      '03-JAN-94', 56000.00,  121);
  135. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (144, 'John',        'Montgomery',   '30-MAR-94', 32000.00,  672);
  136. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (145, 'Mark',        'Guckenheimer', '02-MAY-94', 32000.00,  622);
  137. INSERT INTO SAMPLEEMP (EMPID,LNAME,FNAME,HIREDATE,SALARY,DEPTID) VALUES (146, 'Lynn',        'Kemper',       '31-OCT-97', 56000.00,  622);
  138.  
  139.  
  140. //
  141. // Values for SAMPLEDEPTID :
  142. //
  143. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 000, 'Corporate Headquarters');
  144. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 100, 'Sales and Marketing');
  145. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 600, 'Engineering');
  146. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 900, 'Finance');
  147. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 180, 'Marketing');
  148. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 620, 'Software Products Div.');
  149. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 621, 'Software Development');
  150. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 622, 'Quality Assurance');
  151. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 623, 'Customer Support');
  152. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 670, 'Consumer Electronics Div.');
  153. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 671, 'Research and Development');
  154. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 672, 'Customer Services');
  155. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 130, 'Field Office: East Coast');
  156. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 140, 'Field Office: Canada');
  157. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 110, 'Pacific Rim Headquarters');
  158. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 115, 'Field Office: Japan');
  159. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 116, 'Field Office: Singapore');
  160. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 120, 'European Headquarters');
  161. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 121, 'Field Office: Switzerland');
  162. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 123, 'Field Office: France');
  163. INSERT INTO SAMPLEDEPT (DEPTID, DNAME) VALUES ( 125, 'Field Office: Italy');
  164.  
  165.