Таблицы в PL/SQL - Oracle - Ответ 2417010

CREATE OR REPLACE PROCEDURE "ACTIVE_SUBSCRIBER"
IS
 
 
CURSOR id_cur IS
    SELECT код_подписч
    FROM Бланк_подп
    WHERE (EXTRACT(YEAR FROM дата_подп) = (SELECT EXTRACT (YEAR FROM sysdate) FROM dual ) OR (EXTRACT(YEAR FROM дата_подп) = (SELECT EXTRACT (YEAR FROM sysdate) FROM dual)-1)) AND
    (EXTRACT(MONTH FROM дата_подп) = (SELECT EXTRACT (MONTH FROM sysdate) FROM dual) OR ((EXTRACT(MONTH FROM дата_подп) > (12-6+(SELECT EXTRACT (MONTH FROM sysdate) FROM dual)) AND EXTRACT(MONTH FROM дата_подп) < 12)));
 
TYPE table_ID IS TABLE OF NUMBER 
    INDEX BY BINARY_INTEGER;
 
mas_id table_ID;
 
 
i NUMBER;
nothing exception;    
    
BEGIN
 
i := 0;    
DBMS_OUTPUT.ENABLE;
 
 
 
DBMS_OUTPUT.put_line('good');        
        
OPEN id_cur;
 
FETCH id_cur INTO mas_id(i);
IF NOT(id_cur%FOUND) THEN
raise nothing;
END IF;
 
LOOP  
    i := i+1;
    FETCH id_cur INTO mas_id(i);  
    EXIT WHEN id_cur%NOTFOUND;
    
END LOOP;
 
CLOSE id_cur; 
DBMS_OUTPUT.put_line(mas_id(0));     
DBMS_OUTPUT.put_line('good');        
        
EXCEPTION 
    WHEN nothing THEN
    DBMS_OUTPUT.put_line('No such subscriber'); 
 
      
END;​