несколько IF внутри цикла курсора - PullRequest
Новая
       43

несколько IF внутри цикла курсора

0 голосов
/ 29 мая 2019

после этого вопроса, я не могу оценить с помощью различных операторов IF внутри одного цикла, мое выполнение заканчивается на ORA-01403: no data found

Что у меня есть:

Декларация: 

CREATE OR REPLACE PACKAGE MYSCHEMA.MYPKG AS

FUNCTION MYFUNCTION ( description OUT VARCHAR2 ) RETURN INTEGER;

END MYPKG;

Body: 

CREATE OR REPLACE PACKAGE BODY MYSCHEMA.MYPKG AS

    FUNCTION MYFUNCTION ( description OUT VARCHAR2 ) RETURN INTEGER AS

CURSOR CUR_MYDATA IS
        SELECT
            o.name,
            o.last_name,
            o.id,
            o.socnum
        FROM
            origin o
        WHERE
            1=1
            AND o.name like upper ('a%');

        TYPE t_name IS TABLE OF origin.name%TYPE;
        TYPE t_lastname IS TABLE OF origin.last_name%TYPE;
        TYPE t_id IS TABLE OF origin.id%TYPE;
        TYPE t_socnum IS TABLE OF origin.socnum%TYPE;

        l_name t_name;
        l_lastname t_lastname;
        l_id t_id;
        l_socnum t_socnum;

    retcode INTEGER := 0;

    BEGIN
        description := 'OK';

        OPEN CUR_MYDATA;
        LOOP
        FETCH CUR_MYDATA BULK COLLECT INTO l_name,l_lastname,l_id,l_socnum;
        EXIT WHEN l_name.count = 0;
            for name in l_name.first .. l_name.last loop
                IF l_socnum(name) IS NULL THEN 
                    (select oo.socnum from other_origin where oo.id=l_id(name)) 
                END IF;

                IF length(l_lastname(name)) < 2 THEN
                    l_lastname(name) := 'default lastname';
                END IF;
            end loop;

            forall i IN l_name.first .. l_name.last    
                INSERT INTO destiny (
                    d_name,
                    d_lastname,
                    d_id,
                    d_socnum) 
                VALUES (
                    l_name(i),
                    l_lastname(i),
                    l_id(i),
                    l_socnum(i));

            END LOOP;
            COMMIT;
            RETURN retcode;
     EXCEPTION
     WHEN OTHERS THEN
        description := SQLERRM;
        retcode := SQLCODE;
        CLOSE CUR_MYDATA;
        RETURN retcode;
    END MYFUNCTION;

END MYPKG;

Но я получил ORA-01403: no data found

Я тоже пробовал: 

for name in l_name.first .. l_name.last loop
    IF l_socnum(name) IS NULL THEN 
        (select oo.socnum 
        into l_socnum(name)
        from other_origin where oo.id=l_id(name))

        for ln in l_name.first .. l_name.last loop
            IF length(l_lastname(ln)) < 2 THEN
                l_lastname(ln) := 'default lastname';
            END IF;
        end loop;
    END IF;

end loop;

Но ошибка та же.

Итак, что, по вашему мнению, мне не хватает, когда я несколько раз зацикливаюсь на курсоре, оценивающем разные столбцы?

...