[Reclamação] Transcrição

Muitos erros na transcrição...segue código corrigido:

create or replace NONEDITIONABLE PACKAGE BODY CLIENTE_PAC
IS
    FUNCTION VERIFICA_SEGMENTO_MERCADO
        (p_id in segmercado.id%type)
            RETURN boolean
    IS
        v_dummy number (1);
    BEGIN
        SELECT 1 into v_dummy
            FROM segmercado
            WHERE id = p_id;
        RETURN true;
    EXCEPTION
        WHEN no_data_found then
            RETURN false;
    END;

    FUNCTION OBTER_CATEGORIA_CLIENTE
        (p_faturamento_previsto IN cliente.faturamento_previsto%type)
        RETURN cliente.categoria%type
    IS
    BEGIN
        IF p_faturamento_previsto <= 10000 THEN
            RETURN 'PEQUENO';
        ELSIF p_faturamento_previsto <= 50000 THEN
            RETURN 'MEDIO';
        ELSIF p_faturamento_previsto <= 100000 THEN
            RETURN 'MEDIO GRANDE';
        ELSE
            RETURN 'GRANDE';
        END IF;
    END;
        PROCEDURE FORMAT_CNPJ
            (p_cnpj IN OUT varchar2)
    IS
    BEGIN
        p_cnpj := substr(p_cnpj, 1, 2) ||'/'|| substr(p_cnpj,3);
        DBMS_OUTPUT.PUT_LINE('CHAMEI A ROTINA FORMAT_CNPJ DO PACOTE !!!!!');
    END;
    
SET SERVEROUTPUT ON;
EXECUTE CLIENTE_PAC.INCLUIR_CLIENTE(18,'INCLUIR CLIENTE PELO PACOTE USANDO PROC INTERNA', 22222, 2, 50000);


EXECUTE INCLUIR_CLIENTE(19,'INCLUIR CLIENTE FORA DO PACOTE', 22222, 2, 50000);