Oracle 10g Dicas de PL/SQL Conteúdo Objetivos............................................................................................................................................................ 2 Comentários ...................................................................................................................................................... 2 Declarações ....................................................................................................................................................... 2 Conversões de variáveis .................................................................................................................................... 2 DDL – Criar, alterar ou apagar tabelas (Create, Alter or Drop table) ................................................................ 3 Restrições na criação da tabela (CONSTRAINTS): .............................................................................................. 4 Select, Insert, Update e Delete .......................................................................................................................... 7 Seleção de dados usando as junções dos relacionamentos entre tabelas ....................................................... 9 Visão (VIEW) .................................................................................................................................................... 10 Seqüência (Sequence) ..................................................................................................................................... 10 Blocos .............................................................................................................................................................. 10 LOOP usando Cursor........................................................................................................................................ 11 Procedimentos armazenados (Stored Procedures)......................................................................................... 12 Gatilhos (Triggers) ........................................................................................................................................... 14 Trigger mutante ............................................................................................................................................... 16 Funções (Function) .......................................................................................................................................... 17 Packages .......................................................................................................................................................... 17 JOB ................................................................................................................................................................... 18 Referências ...................................................................................................................................................... 19 2 Objetivos Nesse artigo serão relatadas algumas dicas de PL/SQL. Os exemplos de PL/SQL abaixo foram realizados no Oracle 10g. A idéia para a elaboração desse artigo é auxiliar o pessoal que está iniciando em PL/SQL. Comentários Quando o comentário for de uma linha, pode usar dois hífens. Por exemplo: -- Esse seria um comentário de apenas uma linha. Quando o comentário ultrapassar uma linha usa o /*...*/. Por exemplo: /* Esse seria o comentário que ultrapassa uma linha. */ Declarações Tipos de variáveis Tipo binary_integer number(<precisão>,<escala>) char(<comprimento>) long varchar2(<comprimento>) raw(<comprimento) Descrição Numérico para armazenar valores inteiros Numérico para armazenar valor em ponto flutuante Alfanumérico de tamanho fixo com até 32767 caracteres Alfanumérico de tamanho variável com comprimento de até 32760 caracteres Alfanumérico de tamanho variável com comprimento de até 32767 caracteres Armazena dados binários de até 32767 caracteres Conversões de variáveis TO_CHAR - Converter um valor numérico para char select TO_CHAR(99999,'0000000000.99') from dual 3 TO_CHAR Converter uma data para o formato especifico select to_char(sysdate, 'YYYY-MM-DD') from dual Outros formatos de data CC, SCC Século SYYY, YYYY, YEAR, SYEAR, YYY, YY, Y Ano Q Quarto de ano MONTH Mês por extenso MON Mês abreviado para três letras MM Mês (numérico) WW Semana do ano WHERE Semana do mês WHERE Início da semana do mês DDD Dia do ano DD Dia do mês D Dia da semana DAY Nome do dia DY Dia abreviado p/ 3 letras J Dia em data Juliana HH, HH12, HH24 Hora MI Minuto SS Segundo TO_NUMBER - Converter um valor char para numérico select TO_NUMBER('5678.32', '9999.99') from dual NVL - Se a 1ª expressão vier null ou vazia ele retorna a 2ª expressão select NVL(123,234) from dual select NVL('',234) from dual select NVL(null,234) from dual DDL – Criar, alterar ou apagar tabelas (Create, Alter or Drop table) Script para criar tabela: CREATE TABLE <table_name> ( <column_name> <datatype> [<expr>], <column_name> <datatype> [<expr>], .... ) CREATE TABLE TB_TESTE ( cod NUMBER, nm_pessoa VARCHAR2(14), 4 salario NUMBER(10,2) ) Para visualizar a descrição da tabela TB_TESTE: DESCRIBE TB_TESTE DESC TB_TESTE Com a tabela já existente é possível acrescentar campos ou alterar tipo do campo, desde que, o tipo possa ser suportado. Para adicionar campo a tabela: ALTER TABLE TB_TESTE ADD data_atual date ALTER TABLE TB_TESTE ADD sexo char(1) Para alterar o tipo do campo da tabela: ALTER TABLE TB_TESTE MODIFY (sexo varchar2(15)) Para remover o campo da tabela: ALTER TABLE TB_TESTE DROP (sexo) Para mudar o nome da tabela: RENAME TB_TESTE TO TB_PESSOA Para apagar a tabela: DROP TABLE tb_pessoa Restrições na criação da tabela (CONSTRAINTS): CONSTRAINT NULL ou NOT NULL Na criação de tabelas é possível acrescentar algumas restrições para o momento dos inserts. Um exemplo seria a restrição NULL ou NOT NULL. Essa restrição é para determinar que o campo determinado permite ou não permite um insert com o campo vazio. CREATE TABLE TB_PRODUTO ( cod INT NOT NULL, nome VARCHAR2(50) NULL ) INSERT INTO TB_PRODUTO VALUES(1,'A') 5 INSERT INTO TB_PRODUTO VALUES(NULL,'A') INSERT INTO TB_PRODUTO VALUES(2,NULL) SELECT * FROM TB_PRODUTO DROP TABLE TB_PRODUTO CONSTRAINT UNIQUE A constraint UNIQUE tem a função de não permitir a inserção de itens repetidos. Na criação da tabela é permitido adicionar diversos campos com essa restrição. CREATE TABLE TB_PRODUTO ( cod INT UNIQUE, nome VARCHAR2(50) NULL ) INSERT INTO TB_PRODUTO VALUES(1,'A') INSERT INTO TB_PRODUTO VALUES(NULL,'A') INSERT INTO TB_PRODUTO VALUES(1,'B') SELECT * FROM TB_PRODUTO DROP TABLE TB_PRODUTO CONSTRAINT PRIMARY KEY Tem a função de não permitir a inserção de itens repetidos. Na criação da tabela apenas um campo deve possuir essa característica. CREATE TABLE TB_PRODUTO ( cod INT NOT NULL PRIMARY KEY, nome VARCHAR2(50) , valor number(10,2) ) INSERT INTO TB_PRODUTO VALUES(1,'A',10) INSERT INTO TB_PRODUTO VALUES(1,'B',20) INSERT INTO TB_PRODUTO VALUES(NULL,'C',30) DROP TABLE TB_PRODUTO CREATE TABLE TB_PRODUTO ( cod INT NOT NULL , nome VARCHAR2(50), valor NUMBER(10,2), CONSTRAINT PK_PRODUTO PRIMARY KEY(cod) 6 ) CONSTRAINT FOREIGN KEY Usado para relacionamento entre tabelas. Para inserir os dados em uma tabela que possui relacionamento, será necessário que exista o mesmo dado na tabela relacionada, se não existir, não será permitido A inserção e ocorrerá erro. Verifique o exemplo abaixo: CREATE TABLE TB_VENDA ( cod INT NOT NULL PRIMARY KEY, nome VARCHAR2(50), cod_produto INT, CONSTRAINT FK_PRODUTO_VENDA FOREIGN KEY (cod_produto) REFERENCES TB_PRODUTO(cod) ) INSERT INTO TB_VENDA VALUES(1,'A',1) INSERT INTO TB_VENDA VALUES(1,'A',2) SELECT * FROM TB_VENDA DROP TABLE TB_VENDA CHECK CONSTRAINT Restrição para determinar o tipo da informação Verifique o exemplo abaixo: Nesse exemplo só vai permitir a inserção do cod acima de 0. CREATE TABLE TB_TESTE1 ( cod INT NOT NULL CHECK( ID > 0 ), nome VARCHAR2(50) ) INSERT INTO TB_TESTE1 VALUES(1,'A') INSERT INTO TB_TESTE1 VALUES(-1,'A') 7 Vamos criar a tabelas para os próximos testes: CREATE TABLE TB_CARGO ( cod NUMBER PRIMARY KEY, ds_cargo VARCHAR2(14) ) CREATE TABLE TB_PESSOA ( cod NUMBER PRIMARY KEY, nm_pessoa VARCHAR2(14), salario NUMBER(10,2), cargo NUMBER, CONSTRAINT fk_cargo_pessoa FOREIGN KEY (cargo) REFERENCES tb_cargo(cod) ) Select, Insert, Update e Delete Funções sql para manipular uma tabela Sintaxe de Insert Exemplo para inserir na tabela criada anteriormente: INSERT INTO tb_cargo (cod, ds_cargo) VALUES (1,'Contador') INSERT INTO tb_cargo (cod, ds_cargo) VALUES (2,'Auxiliar') INSERT INTO tb_cargo (cod, ds_cargo) VALUES (3,'Gerente') INSERT INTO tb_pessoa (cod,nm_pessoa, salario, cargo) VALUES (1,'José Silva',700.00,1) INSERT INTO tb_pessoa (cod,nm_pessoa, salario, cargo) VALUES (2,'Pedro Henrique',1400.00,2) INSERT INTO tb_pessoa (cod,nm_pessoa, salario, cargo) VALUES (3,'Lucas Andrade',3200.00,3) Funções sql para manipular uma tabela SELECT SELECT <columns> FROM <table> Exemplo: select * from TB_PESSOA Funções interessantes para ser usada no select: Para deixar os caracteres todos em maiúsculo: UPPER() Exemplo: select UPPER(nm_pessoa) from tb_pessoa 8 Para deixar os caracteres em minúsculos: LOWER() Exemplo: select LOWER(nm_pessoa) from tb_pessoa Para deixar o primeiro caractere de cada frase em maiúsculo: INITCAP() Exemplo: select INITCAP('jose maria dos santos') from dual Concatenando dados: select 'nome: ' || nm_pessoa, 'salario: ' || salario from tb_pessoa Trabalhando com condições (where) Para trazer apenas uma pessoa específica pesquisando por nome ou por código: SELECT * FROM tb_pessoa WHERE nm_pessoa = 'José Silva' SELECT * FROM tb_pessoa WHERE nm_pessoa LIKE 'Lucas%' SELECT * FROM tb_pessoa WHERE cod = 3 Critérios de ordenação SELECT * FROM tb_pessoa ORDER BY nm_pessoa SELECT * FROM tb_pessoa order by cod Critérios de condições Símbolo Descrição Exemplo = < > <= Igual Menor Maior Menor ou Igual Maior ou Igual Diferente Diferente Diferente Entre Igual E Ou Negação SELECT * FROM tb_pessoa WHERE salario = 3000 SELECT * FROM tb_pessoa WHERE salario < 1000 SELECT * FROM tb_pessoa WHERE salario > 1000 SELECT * FROM tb_pessoa WHERE salario <= 1000 >= <> != ^= BETWEEN ... END … IN(…) AND OR NOT SUBSTR() SELECT * FROM tb_pessoa WHERE salario >= 1000 SELECT * FROM tb_pessoa WHERE salario <> 1000 SELECT * FROM tb_pessoa WHERE salario != 1000 SELECT * FROM tb_pessoa WHERE salario ^= 1000 SELECT * FROM tb_pessoa WHERE salario between 700 and 2000 SELECT * FROM tb_pessoa WHERE salario in(680,1360,2720) SELECT * FROM tb_pessoa WHERE salario > 1000 AND salario < 2000 SELECT * FROM tb_pessoa WHERE salario = 2000 or salario = 3000 SELECT * FROM tb_pessoa WHERE salario not in(680,1360,2720) 9 Determina quantos caracteres serão exibidos SELECT SUBSTR('José Silva Santos',1,10) FROM DUAL INSTR() Informa em que posição está o primeiro caractere requerido SELECT INSTR('José Silva Santos','v') FROM DUAL LENGTH() Informa a quantidade de caracteres possui o texto informado SELECT LENGTH('José Silva Santos') FROM DUAL LPAD() Preenche A esquerda com o caractere que FOR determinado até preencher A quantidade determinada. SELECT salario, LPAD(salario,10,'0') FROM tb_pessoa RPAD() Preenche A direita com o caractere que FOR determinado até preencher A quantidade determinada. SELECT salario, RPAD(salario,10,'0') FROM tb_pessoa TRIM() Remove o caractere informado na frase SELECT TRIM('-' FROM '- Primeiro Teste') FROM DUAL ADD_MONTHS() Acrescentar meses a frente SELECT ADD_MONTHS('01-MAI-2013',3) FROM DUAL Seleção de dados usando as junções dos relacionamentos entre tabelas INNER JOIN Seleciona os dados relacionados das duas tabelas. SELECT p.nm_pessoa, p.salario, cg.ds_cargo FROM tb_pessoa p INNER JOIN tb_cargo cg ON (cg.cod = p.cargo) LEFT JOIN Seleciona os dados relacionados das duas tabelas e da tabela a esquerda seleciona também os dados que estão nulos. SELECT p.nm_pessoa, p.salario, cg.ds_cargo FROM tb_pessoa p LEFT JOIN tb_cargo cg ON (cg.cod = p.cargo) RIGHT JOIN Seleciona os dados relacionados das duas tabelas e da tabela a direita seleciona também os dados que estão nulos 10 SELECT p.nm_pessoa, p.salario, cg.ds_cargo FROM tb_pessoa p RIGHT JOIN tb_cargo cg ON (cg.cod = p.cargo) Visão (VIEW) VIEW é uma tabela lógica que pode ser baseada em uma ou mais tabelas. Uma VIEW conceitualmente se aplica para minimizar o acesso aos dados de uma tabela ou a composição de um JOIN. Sintaxe da VIEW: CREATE OR REPLACE VIEW vw_pessoa_cargo AS SELECT p.cod, p.nm_pessoa, p.salario, ca.ds_cargo FROM tb_pessoa p INNER JOIN tb_cargo ca ON (ca.cod = p.cargo) select * from vw_pessoa_cargo Seqüência (Sequence) O Oracle gera automaticamente um novo valor para uma chave primária. Constrói o próximo valor da chave primária referente a uma seqüência através do comando INSERT. Sintaxe para cria sequence CREATE SEQUENCE sq_pessoa INCREMENT BY 1 START WITH 1 MAXVALUE 999999 CYCLE; Expressões: NEXTVAL - Gera o próximo valor disponível. CURRVAL - Faz referência a mais recente valor gerado. SELECT sq_pessoa.NEXTVAL FROM DUAL; SELECT sq_pessoa.CURRVAL from DUAL; Exemplo: INSERT INTO TB_PESSOA(cod, nm_pessoa, salario, cargo)VALUES(sq_pessoa.nextval, 'Claudio', 1200,2) Blocos A estrutura de bloco vai ser muito usada na criação de procedure, trigger, function e package. 11 Estrutura de um bloco DECLARE - Contém a declaração de todas as variáveis, constantes, cursores e etc. BEGIN - Contém os comandos EXCEPTION - Contém as ações que serão tomadas se ocorrer algum erro na execução. DECLARE salario number(10,2); data date; BEGIN salario := 1200.00; data := sysdate; DBMS_OUTPUT.PUT_LINE('Salário:' || TO_CHAR(salario)); DBMS_OUTPUT.PUT_LINE('Dia:' || TO_CHAR(data, 'day')); END; LOOP usando Cursor Simples LOOP usando variáveis DECLARE v_nome VARCHAR2(15); v_salario number(10,2); CURSOR my_cursor IS SELECT nm_pessoa, salario INTO v_nome, v_salario FROM TB_PESSOA; BEGIN OPEN my_cursor; LOOP FETCH my_cursor INTO v_nome, v_salario; EXIT WHEN my_cursor%NOTFOUND; DBMS_OUTPUT.PUT_LINE('Nome: ' || v_nome || ' | Salário: ' || v_salario); END LOOP; END; Simples WHILE muito bom para ser usado sem variável como o exemplo abaixo DECLARE CURSOR my_cursor IS SELECT * FROM TB_PESSOA; l_record my_cursor%ROWTYPE; BEGIN OPEN my_cursor; FETCH my_cursor INTO l_record; while my_cursor%FOUND LOOP DBMS_OUTPUT.PUT_LINE('Nome: ' || l_record.nm_pessoa || ' | Salário: ' || l_record.salario); FETCH my_cursor INTO l_record; 12 END LOOP; END; CURSOR usando parâmetro DECLARE CURSOR my_cursor(p_cod NUMBER) IS SELECT nm_pessoa FROM TB_PESSOA WHERE cod = p_cod; pessoa my_cursor%ROWTYPE; type tpessoas is table of my_cursor%ROWTYPE; pessoas tpessoas; i integer; BEGIN OPEN my_cursor(2); LOOP FETCH my_cursor INTO pessoa; EXIT WHEN my_cursor%notfound; DBMS_OUTPUT.PUT_LINE('Nome: ' || pessoa.nm_pessoa); END LOOP; CLOSE my_cursor; OPEN my_cursor(3); LOOP FETCH my_cursor INTO pessoa; EXIT WHEN my_cursor%notfound; DBMS_OUTPUT.PUT_LINE('Nome: ' || pessoa.nm_pessoa); END LOOP; CLOSE my_cursor; END; LOOP usando o FOR BEGIN FOR pessoas IN (SELECT * FROM tb_pessoa) LOOP DBMS_OUTPUT.PUT_LINE('Nome: ' || pessoas.nm_pessoa); DBMS_OUTPUT.PUT_LINE('Salário: ' || pessoas.salario ); END LOOP; END; Procedimentos armazenados (Stored Procedures) Stored Procedures ou Procedimentos armazenados são subprogramas armazenados com objetos do banco de dados. As Stored Procedure permitem criar blocos de código que pode conter instruções SQL. Serve para otimizar perfomance e aumentar a segurança das aplicações, além de promover reusabilidade e facilidade da manutenção. 13 Procedure usando parâmetro: CREATE OR REPLACE PROCEDURE SP_INSERIR_PESSOAS(p_nm_pessoa varchar2, p_salario number, p_cargo number) IS BEGIN INSERT INTO tb_pessoa (cod, nm_pessoa, salario, cargo) VALUES (sq_pessoa.nextval, p_nm_pessoa, p_salario, p_cargo); END SP_INSERIR_PESSOAS; /*Para executar*/ BEGIN SP_INSERIR_PESSOAS('Rita',2300,2); END; Procedure com retorno: CREATE OR REPLACE PROCEDURE SP_INSERIR_PESSOAS(p_nm_pessoa varchar2, p_salario number, p_cargo number, p_resultado out varchar2) IS BEGIN INSERT INTO tb_pessoa(cod, nm_pessoa, salario, cargo) VALUES (sq_pessoa.nextval, p_nm_pessoa, p_salario, p_cargo); p_resultado := 'Cadastro realizado com sucesso! - Nome: ' || p_nm_pessoa; END SP_INSERIR_PESSOAS; /*Para executar*/ DECLARE v_resultado varchar2(80); BEGIN SP_INSERIR_PESSOAS('Jorge',2300,2, v_resultado); dbms_output.put_line(v_resultado); END; 14 Gatilhos (Triggers) Functions ou Funções são blocos PL/SQL nomeados, semelhantes às Stored Procedures. A diferença é que as funções obrigatoriamente devem retornar um valor. Usada para ser executada no momento de uma instrução SQL. BEFORE INSERT BEFORE INSERT FOR EACH ROW AFTER INSERT AFTER INSERT FOR EACH ROW BEFORE UPDATE BEFORE UPDATE FOR EACH ROW AFTER UPDATE AFTER UPDATE FOR EACH ROW BEFORE DELETE BEFORE DELETE FOR EACH ROW AFTER DELETE AFTER DELETE FOR EACH ROW TRIGGER –TIPO DE EVENTO Dispara uma vez antes de uma transação INSERT Dispara antes de cada novo registro criado. Dispara uma vez depois de uma transação INSERT Dispara depois de cada novo registro criado. Dispara uma vez antes de uma transação UPDATE Dispara antes de cada novo registro alterado. Dispara uma vez depois de uma transação UPDATE Dispara depois de cada novo registro alterado. Dispara uma vez antes de uma transação DELETE Dispara antes de cada novo registro apagado. Dispara uma vez depois de uma transação DELETE Dispara depois de cada novo registro apagado. Exemplo: Antes de criar um exemplo de trigger vamos criar uma tabela de log para teste. CREATE SEQUENCE sq_log_pessoa INCREMENT BY 1 START WITH 1 MAXVALUE 999999 cycle; CREATE TABLE tb_log_pessoa ( cod_log NUMBER PRIMARY KEY, cod_pessoa NUMBER, salario NUMBER(10,2), cod_cargo number , tipo_operacao varchar2(30) ); 15 Vamos criar uma trigger AFTER INSERT. Quando for inserir um novo registro na tabela Tb_pessoa, a trigger vai inserir os mesmos dados na tabela Tb_log_pessoa e campo tipo_operacao informe qual tipo de operação está sendo realizado Ex: (CADASTRO, ALTERAÇÃO, EXCLUSÃO). CREATE OR REPLACE TRIGGER TG_INSERT_PESSOA AFTER INSERT ON TB_PESSOA FOR EACH ROW BEGIN INSERT INTO TB_LOG_PESSOA(cod_log, cod_pessoa, salario, cod_cargo, tipo_operacao) VALUES(sq_log_pessoa.nextval, :NEW.cod, :NEW.salario, :NEW.cargo,'cadastro'); END; INSERT INTO tb_pessoa (cod, nm_pessoa, salario, cargo) VALUES (sq_pessoa.nextval, 'Junior', 1000,1); É possível criar uma trigger que possua os eventos (INSERT, UPDATE E DELETE). A trigger vai inserir os mesmos dados na tabela Tb_log_pessoa e campo tipo_operacao informe qual tipo de operação está sendo realizado Ex: (CADASTRO, ALTERAÇÃO, EXCLUSÃO). CREATE OR REPLACE TRIGGER TG_INSERT_PESSOA AFTER INSERT OR UPDATE OR DELETE ON TB_PESSOA FOR EACH ROW BEGIN IF (INSERTING) THEN INSERT INTO TB_LOG_PESSOA(cod_log, cod_pessoa, salario, cod_cargo, tipo_operacao) VALUES(sq_log_pessoa.nextval, :NEW.cod, :NEW.salario, :NEW.cargo,'cadastro'); ELSE IF (DELETING) THEN INSERT INTO TB_LOG_PESSOA(cod_log, cod_pessoa, salario, cod_cargo, tipo_operacao) VALUES(sq_log_pessoa.nextval, :OLD.cod, :OLD.salario, :OLD.cargo,'exclusão'); ELSE INSERT INTO TB_LOG_PESSOA(cod_log, cod_pessoa, salario, cod_cargo, tipo_operacao) VALUES(sq_log_pessoa.nextval, :NEW.cod, :NEW.salario, :NEW.cargo,'alteração'); END IF; END IF; END; INSERT INTO tb_pessoa (cod, nm_pessoa, salario, cargo) VALUES (sq_pessoa.nextval, 'Lourdes', 1000,1); DELETE FROM tb_pessoa WHERE nm_pessoa = 'Lourdes' AND salario = 1000 AND cargo = 1 update tb_pessoa set cargo = 2 where nm_pessoa = 'Junior' and salario = 1000 select * from tb_log_pessoa 16 Trigger mutante Trigger mutante é quando tentamos criar uma trigger para determinada tabela e dentro dela, tentamos manipular os dados dessa mesma tabela. Com toda certeza vai dá o erro: ORA-04091; Quando a trigger está sendo executada, no momento da manipulação da tabela, a mesma fica no modo bloqueado até que se encerre o procedimento, ou seja, não é permitido realizar nenhum tipo de select. Para resolver essa questão é só adicionar a instrução do Oracle chamado “PRAGMA AUTONOMOUS_TRANSACTION;” Esta instrução (PRAGMA) funciona como uma diretiva de compilação para o Oracle, que passa a tratar esta função como um código independente da transação principal que esteja ocorrendo. Assim, o COMMIT realizado na função, não afeta outras transações abertas. Exemplo: Criar uma Trigger na tabela TB_PESSOA que garanta que o soma dos salários por cargo não ultrapasse 13.000. CREATE OR REPLACE TRIGGER TG_LIMITE_DESPESAS_CARGO BEFORE INSERT OR UPDATE ON TB_PESSOA FOR EACH ROW DECLARE PRAGMA AUTONOMOUS_TRANSACTION; v_total_por_cargo NUMBER; BEGIN SELECT sum(salario) INTO v_total_por_cargo FROM tb_pessoa p INNER JOIN tb_cargo ca ON (ca.cod = p.cargo) WHERE p.cargo = to_number(:NEW.cargo); IF(INSERTING)THEN IF((v_total_por_cargo + to_number(:NEW.salario)) > 13000)THEN dbms_output.put_line('limite de despesa está ultrapassado seu limite de 13.000,00'); RAISE_APPLICATION_ERROR(-20001,'Atenção: limite de despesa está ultrapassado seu limite de 13.000,00.'); END IF; ELSE IF(((v_total_por_cargo - to_number(:OLD.salario)) + to_number(:OLD.salario)) > 13000)THEN dbms_output.put_line('limite de despesa está ultrapassado seu limite de 13.000,00'); RAISE_APPLICATION_ERROR(-20001,'Atenção: limite de despesa está ultrapassado seu limite de 13.000,00.'); END IF; END IF; END; 17 Funções (Function) Função (Function) é um conjunto de PL/SQL. É muito semelhante ao Store Procedure, a diferença é que a função sempre deve retornar um valor. CREATE OR REPLACE FUNCTION FC_SALARIO(p_cod NUMBER) RETURN NUMBER IS v_salario number(10,2); BEGIN SELECT salario INTO v_salario FROM tb_pessoa WHERE cod = p_cod; RETURN v_salario + (v_salario * 10) / 100; END FC_SALARIO; Execução: DECLARE v_valor number; BEGIN v_valor := FC_SALARIO(1); dbms_output.put_line('teste ' || v_valor); end; select salario,FC_SALARIO(cod) from tb_pessoa; Packages O Package é um objeto do banco de dados capaz de armazenar procedures e functions integradas, que podem ser executadas separadamente como se fossem parte de uma biblioteca ou à partir de uma execução provocar várias execuções encadeadas. Packages são compostos de duas partes: A parte pública e a parte privada. Construção Pública: Descrição Pode ser referenciada de qualquer ambiente no Oracle. Localização Declarar dentro da package especification e definir dentro da package body Construção Privada: Descrição Pode ser referenciada somente dentro da mesma package Localização Declarar e definir dentro da package body o Digitar o código fonte através da um editor de texto, criando-se primeiro a package especification e depois a package body. o Executar o Script a partir do SQL*PLUS, através do comando Start / @. o Utilizar o comando execute para executar a Procedure / Function de dentro da package. 18 Simples exemplo de Package: CREATE OR REPLACE PACKAGE PCK_PESSOA IS PROCEDURE PROC_CALC (p_codigo IN NUMBER); END PCK_PESSOA; CREATE OR REPLACE PACKAGE BODY PCK_PESSOA IS PROCEDURE PROC_CALC(p_codigo IN NUMBER) IS v_salario NUMBER(10,2); v_nm_pessoa varchar2(30); BEGIN SELECT salario, nm_pessoa INTO v_salario, v_nm_pessoa FROM tb_pessoa WHERE cod = p_codigo; DBMS_OUTPUT.PUT_LINE('Salario de ' || v_nm_pessoa ||': ' || TO_CHAR(v_salario+(v_salario*15/100)) ); END; END PCK_PESSOA; Para executar a package: BEGIN PCK_PESSOA.PROC_CALC(8); END; JOB Exemplo da procedure: CREATE OR REPLACE PROCEDURE SP_DELETE_PESSOA IS BEGIN DELETE FROM TB_PESSOA END SP_DELETE_PESSOA; Criando uma nova JOB BEGIN -- JOB DEFINED ENTIRELY BY THE CREATE JOB PROCEDURE. DBMS_SCHEDULER.CREATE_JOB ( JOB_NAME => 'JOB_SP_DELETE_PESSOA', JOB_TYPE => 'PLSQL_BLOCK', JOB_ACTION => 'BEGIN SP_DELETE_PESSOA(); END;', START_DATE => SYSTIMESTAMP, REPEAT_INTERVAL => 'sysdate + 3/1440', END_DATE => NULL, 19 ENABLED COMMENTS ); END; => TRUE, => 'JOB PARA EXECUTAR PROCEDURE SP_DELETE_PESSOA.' Referências - Devmedia : www.devmedia.com.br - Apostilando : www.apostilando.com