Лабораторная работа № 6

DECLARE

country_record countries%rowtype;

BEGIN

SELECT * INTO country_record FROM countries WHERE country_id = &countryid;

DBMS_OUTPUT.ENABLE();

DBMS_OUTPUT.PUT_LINE(country_record.country_name);

END;

DECLARE

TYPE dept_table_type IS TABLE OF departments.department_name%type INDEX BY BINARY_INTEGER;

my_dept_table dept_table_type;

loop_count NUMBER(10):=10;

deptno NUMBER(10):=0;

BEGIN

FOR i IN 1..10 LOOP

SELECT department_name INTO my_dept_table(i) FROM departments WHERE department_id = i*10;

END LOOP;

DBMS_OUTPUT.ENABLE();

FOR i IN 1..10 LOOP

DBMS_OUTPUT.PUT_LINE(my_dept_table(i));

END LOOP;

END;

/

DECLARE

TYPE dept_table_type IS TABLE OF departments%rowtype INDEX BY BINARY_INTEGER;

my_dept_table dept_table_type;

loop_count NUMBER(10):=10;

deptno NUMBER(10):=0;

BEGIN

FOR i IN 1..10 LOOP

SELECT * INTO my_dept_table(i) FROM departments WHERE department_id = i*10;

END LOOP;

DBMS_OUTPUT.ENABLE();

FOR i IN 1..10 LOOP

DBMS_OUTPUT.PUT_LINE(my_dept_table(i).department_id || ' ' || my_dept_table(i).department_name || ' ' || my_dept_table(i).manager_id || ' ' || my_dept_table(i).location_id);

END LOOP;

END;

/

SET SERVEROUTPUT ON

SET VERIFY OFF

ACCEPT emp_id PROMPT 'Please enter your employee number';

ACCEPT emp_deptid PROMPT 'Please enter the department number for which salary revision is being done';

DECLARE

emp_authorization NUMBER(5);

emp_id NUMBER(5):=&emp_id;

emp_deptid NUMBER(6):=&emp_deptid;

no_such_employee EXCEPTION;

v_employee_id employee_details.employee_id%type;

-- INCLUDE EXECUTABLE SECTION OF OUTER BLOCK HERE

BEGIN

-- RAISE EXCEPTION HERE

-- INCLUDE SIMPLE IF STATEMENT HERE

IF emp_authorization = emp_id THEN

SELECT employee_id INTO v_employee_id FROM employee_details WHERE department_id IN (SELECT department_id FROM departments WHERE department_name = 'Human Resources');

DECLARE

emp_sal employee_details.salary%TYPE;

emp_fname employee_details.first_name%TYPE;

emp_lname employee_details.last_name%TYPE;

i NUMBER:=1;

-- DECLARE AN INDEX BY TABLE OF TYPE VARCHAR2(50). CALL

-- IT ename_table_type

TYPE ename_table_type IS TABLE OF employee_details%rowtype INDEX BY VARCHAR2(50);

ename_table ename_table_type;

-- DECLARE A VARIABLE ename_table OF TYPE ename_table_type

c_hike1 constant real :=.20;

c_hike2 constant real :=.15;

c_hike3 constant real :=.08;

c_hike4 constant real :=.03;

c_range1 constant number :=6500;

c_range2 constant number :=9500;

c_range3 constant number :=12000;

BEGIN

NULL;

END;

-- DECLARE A CURSOR CALLED emp_records TO HOLD salary,

-- first_name, and last_name of employees

-- INCLUDE EXECUTABLE SECTION OF INNER BLOCK HERE

-- CLOSE THE INNER BLOCK

ELSE

DBMS_OUTPUT.PUT_LINE ('SORRY YOU ARE NOT AUTHORIZED TO USE THIS APPLICATION');

END IF;

-- INCLUDE EXCEPTION SECTION FOR OUTER BLOCK

EXCEPTION

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE('Exception occured');

-- CLOSE THE OUTER BLOCK

END;