CREATE OR REPLACE PROCEDURE formata_cnpj (
p_CNPJ IN CLIENTE.CNPJ%type,
p_CNPJ_SAIDA OUT CLIENTE.CNPJ%type
)
IS
BEGIN
p_CNPJ_SAIDA := SUBSTR(p_CNPJ,1,2) || '/' || SUBSTR(p_CNPJ,3,2) || '-' || SUBSTR(p_CNPJ,5,1);
END;
----------- resolução
SET SERVEROUTPUT ON;
DECLARE
V_CNPJ cliente.cnpj%type;
V_CNPJ_SAIDA cliente.cnpj%type;
BEGIN
v_cnpj :='68090';
v_cnpj_saida :='68090';
dbms_output.put_line(v_cnpj||' , '||v_cnpj_saida);
formata_cnpj(v_cnpj,v_cnpj_saida);
dbms_output.put_line(v_cnpj||' , '||v_cnpj_saida);
END;
