Undefined number of Ref cursor,

Question

I im migrating from sqlserver to oracle and I have some procedure that could return from 1 to 10 cursor depending on the parameters. What is the best way to do that?

Answer 1

create or replace PROCEDURE spConsTbRefGetListOfValues
     p_strTableName  IN      VARCHAR2,
        p_RCT1          IN OUT  SYS_REFCURSOR,
        p_RCT2          IN OUT  SYS_REFCURSOR,
        p_RCT3          IN OUT  SYS_REFCURSOR,
        p_RCT4          IN OUT  SYS_REFCURSOR,
        p_RCT5          IN OUT  SYS_REFCURSOR,
        p_RCT6          IN OUT  SYS_REFCURSOR
AS
     strSelect VARCHAR2(4000);
        intNbrCursors NUMBER;
BEGIN       
     strSelect := '';
        intNbrCursors := 0;
        FOR REC IN (  SELECT 'SELECT * FROM ' || ctablesource || ' ORDER BY ' || cTriTableSource AS SQLSelect
                      FROM Tables
                      WHERE Tables.cnomtable = p_strTableName AND ctypechamp = 'L'
                      ORDER BY nOrdreColonne
        LOOP
            intNbrCursors := intNbrCursors + 1;
            strSelect := REC.SQLSelect;
            CASE intNbrCursors
                  WHEN 1 THEN
                      OPEN p_RCT1 FOR
                      strSelect;
                  WHEN 2 THEN
                      OPEN p_RCT2 FOR
                      strSelect;
                  WHEN 3 THEN
                      OPEN p_RCT3 FOR
                      strSelect;
                  WHEN 4 THEN
                      OPEN p_RCT4 FOR
                      strSelect;
                  WHEN 5 THEN
                      OPEN p_RCT5 FOR
                      strSelect;
                  WHEN 6 THEN
                      OPEN p_RCT6 FOR
                      strSelect;
            END CASE;
            EXECUTE IMMEDIATE strSelect;
        END LOOP;
END;Depending on the situation, it can return 1 to 6 cursor. The problem is when there is, let say only 2 cursor that are set, i get an error in Vb because the other 4 cursors are empty. Is there a better way to solve this that to add this part:
        WHILE intNbrCursors < 6
        LOOP
            intNbrCursors := intNbrCursors + 1;
            CASE intNbrCursors
                  WHEN 1 THEN
                      OPEN p_RCT1 FOR
                      SELECT * FROM DUAL;
                  WHEN 2 THEN
                      OPEN p_RCT2 FOR
                      SELECT * FROM DUAL;
                  WHEN 3 THEN
                      OPEN p_RCT3 FOR
                      SELECT * FROM DUAL;
                  WHEN 4 THEN
                      OPEN p_RCT4 FOR
                      SELECT * FROM DUAL;
                  WHEN 5 THEN
                      OPEN p_RCT5 FOR
                      SELECT * FROM DUAL;
                  WHEN 6 THEN
                      OPEN p_RCT6 FOR
                      SELECT * FROM DUAL;
            END CASE;
        END LOOP;Is there a way i can set the number of return cursor dynamically?