CREATE OR REPLACE PROCEDURE formatar_cnpj2
(p_CNPJ IN OUT CLIENTE.CNPJ%TYPE)
IS
BEGIN
p_CNPJ:= SUBSTR(p_CNPJ,1,3) || '/' || SUBSTR(p_CNPJ,4,3);
END;
VARIABLE g_CNPJ VARCHAR2(100);
EXECUTE :g_CNPJ := '68090'
EXECUTE formatar_cnpj2(:g_CNPJ);
PRINT :g_CNPJ;