Advertisement
Guest User

Untitled

a guest
Oct 16th, 2019
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.89 KB | None | 0 0
  1. SET SERVEROUTPUT ON;
  2.  
  3. DECLARE
  4.  
  5. TYPE emp_table_type IS TABLE OF emp%ROWTYPE
  6. INDEX BY BINARY_INTEGER;
  7.  
  8. emp_record emp%ROWTYPE;
  9. emp_table emp_table_type;
  10.  
  11. hire_date_n emp.hiredate%TYPE;
  12. text_modificat VARCHAR2(16);
  13.  
  14. BEGIN
  15. SELECT *
  16. INTO emp_table(1)
  17. FROM emp
  18. WHERE ename = 'BLAKE';
  19.  
  20. SELECT *
  21. INTO emp_table(2)
  22. FROM emp
  23. WHERE ename = 'SCOTT';
  24.  
  25. SELECT *
  26. INTO emp_table(3)
  27. FROM emp
  28. WHERE ename = 'KING';
  29.  
  30. SELECT *
  31. INTO emp_table(4)
  32. FROM emp
  33. WHERE ename = 'FORD';
  34.  
  35. FOR index_angajat IN 1..emp_table.COUNT LOOP
  36. hire_date_n := TRUNC(emp_table(index_angajat).hiredate, 'MONTH');
  37.  
  38. IF EXTRACT(DAY FROM emp_table(index_angajat).hiredate) <> '1' THEN
  39. emp_table(index_angajat).hiredate := hire_date_n;
  40. text_modificat := 'MODIFICAT';
  41.  
  42. ELSE
  43. text_modificat := 'NEMODIFICAT';
  44.  
  45. END IF;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement