Advertisement
Guest User

Untitled

a guest
Jun 14th, 2019
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 2.07 KB | None | 0 0
  1. --PAKIET
  2. CREATE OR REPLACE PACKAGE pracownicy AS
  3.     PROCEDURE add_emp(inout_emp IN OUT EMP%ROWTYPE);
  4.     PROCEDURE change_emp(in_emp EMP%ROWTYPE);
  5.     PROCEDURE delete_emp(in_id NUMBER);
  6.     PROCEDURE change_salary(in_id NUMBER, in_percent NUMBER);
  7.     PROCEDURE top_n_emp(in_n NUMBER);
  8.     PROCEDURE change_dept(in_emp_id NUMBER, in_dept_id NUMBER);
  9.     PROCEDURE stat_emp(in_command VARCHAR2);
  10. END pracownicy;
  11.  
  12. CREATE OR REPLACE PACKAGE BODY pracownicy AS
  13.     --1
  14.     PROCEDURE add_emp(inout_emp IN OUT EMP%ROWTYPE) IS
  15.     BEGIN
  16.         inout_emp.id := emp_id.NEXTVAL;
  17.         INSERT INTO emp VALUES (inout_emp.id, inout_emp.last_name, inout_emp.first_name, inout_emp.userid, inout_emp.start_date,
  18.             inout_emp.comments, inout_emp.manager_id, inout_emp.title, inout_emp.dept_id, inout_emp.salary, inout_emp.commission_pct);
  19.         COMMIT;
  20.     END add_emp;
  21.     --2
  22.     PROCEDURE change_emp(in_emp EMP%ROWTYPE) IS
  23.     BEGIN
  24.         DBMS_OUTPUT.put_line('not implemented');
  25.     END change_emp;
  26.     --3
  27.     PROCEDURE delete_emp(in_id NUMBER) IS
  28.     BEGIN
  29.         DBMS_OUTPUT.put_line('not implemented');
  30.     END delete_emp;
  31.     --4
  32.     PROCEDURE change_salary(in_id NUMBER, in_percent NUMBER) IS
  33.     BEGIN
  34.         DBMS_OUTPUT.put_line('not implemented');
  35.     END change_salary;
  36.     --5
  37.     PROCEDURE top_n_emp(in_n NUMBER) IS
  38.     BEGIN
  39.         DBMS_OUTPUT.put_line('not implemented');
  40.     END top_n_emp;
  41.     --6
  42.     PROCEDURE change_dept(in_emp_id NUMBER, in_dept_id NUMBER) IS
  43.     BEGIN
  44.         DBMS_OUTPUT.put_line('not implemented');
  45.     END change_dept;
  46.     --7
  47.     PROCEDURE stat_emp(in_command VARCHAR2) IS
  48.     BEGIN
  49.         DBMS_OUTPUT.put_line('not implemented');
  50.     END stat_emp;
  51.    
  52. END pracownicy;
  53.  
  54. SET SERVEROUTPUT ON;
  55.  
  56. DECLARE
  57.     pracownik EMP%ROWTYPE;
  58. BEGIN
  59.     SELECT 0, 'nazwisko', 'imie', 'login11', SYSDATE, NULL, NULL, 'VP, Operations', 10, 1300, NULL
  60.     INTO pracownik
  61.     FROM dual;
  62.     DBMS_OUTPUT.put_line('ID: ' || pracownik.id);
  63.     pracownicy.add_emp(pracownik);
  64.     DBMS_OUTPUT.put_line('ID: ' || pracownik.id);
  65. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement