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

Question

Я создал ТИП

TYPE t_array IS TABLE OF VARCHAR2(15); 

Функция, которая принимает строку, которая содержит «» в качестве разделителя, и функция возвращает t_array которая в основном разделив строку и список значений возвращения ,

FUNCTION split_string(id IN VARCHAR2) 
... 
... 
.... 
RETURN t_array; 
END split_string; 

Теперь моя хранимая процедура занимает в длинных строках в качестве входных данных, вызывает функцию, чтобы разбить строку и петли через t_array и возвращает курсор.

PROCEDURE p_get_xxx(p_id IN VARCHAR2, 
        p_cur_result OUT SYSREFCURSOR) 
AS 
    l_array schema_name.t_array; 
BEGIN 
    l_array := split_string(p_id); 

    OPEN p_cur_result FOR 

    FOR i IN l_array.first .. l_array.last 
    LOOP 
    SELECT * FROM ........ 
    WHERE ID = l_array(i); 
    END LOOP; 
END p_get_xxx; 

Я получаю ошибку компиляции вдоль линий:

Неожиданное «FOR» на месте «(»

Есть ли лучший способ обработки этого сценария, я упускаю какую-то вещь здесь?

Answer 1

Курсор всегда открывается в инструкции SELECT. Насколько я знаю, курсор не открывается, чтобы открыть курсор на FOR loo п.

Мне кажется, что вы действительно хотите создать инструкцию SELECT динамически. Я предлагаю примерно следующее:

PROCEDURE p_get_xxx(p_id IN VARCHAR2, p_cur_result OUT SYSREFCURSOR) 
AS 
    l_array schema_name.t_array; 
    strSelect_statement VARCHAR2(4000); 
BEGIN 
    l_array := split_string(p_id); 

    -- Set up the basics of the SELECT statement 

    strSelect_statement := 'SELECT * FROM SOME_TABLE WHERE ID IN ('; 

    FOR i IN l_array.FIRST..l_array.LAST LOOP 
    strSelect_statement := strSelect_statement || 
          '''' || l_array(i) || ''','; 
    END LOOP; 

    -- Get rid of the unwanted trailing comma 

    strSelect_statement := SUBSTR(strSelect_statement, 1, 
            LENGTH(strSelect_statement)-1); 

    -- Add a right parentheses to close the IN list 

    strSelect_statement := strSelect_statement || ')'; 

    -- Open the cursor 

    OPEN p_cur_result FOR strSelect_statement; 
END p_get_xxx; 

Удачи.