Neste tutorial, estou dando 4 exemplos de blocos anônimos PL/SQL, para que você possa aprender como criar e usar blocos anônimos no banco de dados Oracle. Blocos anônimos em PL/SQL são os programas que não possuem nenhuma instrução Create Procedure ou Create Function, e não são salvos no banco de dados Oracle. Blocos anônimos PL/SQL usados principalmente para testes ou para executar o programa no banco de dados Oracle apenas uma vez.
1. Bloco anônimo PL/SQL para imprimir números em ordem inversa
O programa PL/SQL a seguir imprimirá os números de 0 a 10 em ordem inversa, usando a cláusula REVERSE no loop for.
SET SERVEROUTPUT ON;
DECLARE
counter NUMBER;
BEGIN
FOR counter IN REVERSE 0..10 LOOP
DBMS_OUTPUT.PUT_LINE (counter);
END LOOP;
END;
/ Saída
10 9 8 7 6 5 4 3 2 1 0 PL/SQL procedure successfully completed.
2. Imprimir contagem de funcionários em um departamento
O programa PL/SQL a seguir contará os funcionários do departamento 90. A tabela é do esquema de RH do banco de dados Oracle. Você pode baixar este esquema no link a seguir Download HR Schema.
SET SERVEROUTPUT ON;
DECLARE
emp_count NUMBER;
v_department_id NUMBER := 90;
BEGIN
SELECT COUNT ( * )
INTO emp_count
FROM employees
WHERE department_id = v_department_id;
DBMS_OUTPUT.PUT_LINE( 'The employee count is: '
|| emp_count
|| ' for the department with an ID of: '
|| v_department_id);
END;
/ Saída
The employee count is: 3 for the department with an ID of: 90 PL/SQL procedure successfully completed.
3. Obter entrada no bloco e impressão anônimo PL/SQL
No exemplo abaixo, ele solicitará a entrada do usuário para o ID do departamento e imprimirá a contagem de funcionários nesse departamento, além de imprimir o nome do departamento.
SET SERVEROUTPUT ON;
DECLARE
dept_id_var NUMBER (4) := &department_id;
dept_name VARCHAR2 (30);
emp_count NUMBER;
BEGIN
SELECT COUNT ( * )
INTO emp_count
FROM employees
WHERE department_id = dept_id_var;
SELECT department_name
INTO dept_name
FROM departments
WHERE department_id = dept_id_var;
DBMS_OUTPUT.PUT_LINE( 'There are '
|| emp_count
|| ' employees '
|| 'in the '
|| dept_name
|| ' department.');
END;
/ Saída
Enter value for department_id: 60 old 2: dept_id_var NUMBER(4) := &department_id; new 2: dept_id_var NUMBER(4) := 60; There are 4 employees in the IT department. PL/SQL procedure successfully completed.
4. Bloco PL/SQL com <> Exemplo
O bloco PL/SQL a seguir está usando os rótulos para o bloco pai e filho. O bloco filho acessará a variável do bloco pai usando a referência de rótulo do bloco pai. O programa atualizará o antigo ID do gerente com o novo ID do gerente para os departamentos.
SET SERVEROUTPUT ON;
<<outer_block>>
DECLARE
mgr_id NUMBER (6) := '¤t_manager_id';
dept_count NUMBER := 0;
BEGIN
SELECT COUNT ( * )
INTO dept_count
FROM departments
WHERE manager_id = outer_block.mgr_id;
IF dept_count > 0
THEN
<<inner_block>>
DECLARE
dept_name VARCHAR2 (30);
mgr_id NUMBER (6) := '&new_manager_id';
BEGIN
SELECT department_name
INTO dept_name
FROM departments
WHERE manager_id = outer_block.mgr_id;
UPDATE departments
SET manager_id = inner_block.mgr_id
WHERE manager_id = outer_block.mgr_id;
DBMS_OUTPUT.PUT_LINE (
'Department manager ID has been changed for ' || dept_name);
END inner_block;
ELSE
DBMS_OUTPUT.PUT_LINE (
'There are no departments listed for the manager');
END IF;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
DBMS_OUTPUT.PUT_LINE (
'There are no departments listed for the manager');
END outer_block;
/ Saída
Enter value for current_manager_id: 100 old 3: mgr_id NUMBER (6) := '¤t_manager_id'; new 3: mgr_id NUMBER (6) := '100'; Enter value for new_manager_id: 201 old 16: mgr_id NUMBER (6) := '&new_manager_id'; new 16: mgr_id NUMBER (6) := '201'; Department manager ID has been changed for Executive PL/SQL procedure successfully completed.
