DECLARE  
   RUN_S         CLOB;  
   IGNORE        NUMBER;  
   SOURCE_CURSOR NUMBER;  
   PWFIELD_COUNT NUMBER DEFAULT 0;  
   L_DESCTBL     DBMS_SQL.DESC_TAB2;  
   Z_NUMBER      NUMBER;  
BEGIN  
   RUN_S         := ' SELECT 1      AS VAL1,  
                             2      AS VAL2,  
                             CURSOR (SELECT 11 AS VAL11,  
                                            12 AS VAL12  
                                       FROM DUAL) AS CUR1,  
                             CURSOR (SELECT 11 AS VAL11,  
                                            12 AS VAL12  
                                       FROM DUAL) AS CUR2  
                        FROM DUAL';  
   SOURCE_CURSOR := DBMS_SQL.OPEN_CURSOR;  
   DBMS_SQL.PARSE(SOURCE_CURSOR, RUN_S, DBMS_SQL.NATIVE);  
   DBMS_SQL.DESCRIBE_COLUMNS2(SOURCE_CURSOR, PWFIELD_COUNT, L_DESCTBL); -- get record structure  
   FOR I IN 1 .. PWFIELD_COUNT LOOP  
      DBMS_OUTPUT.PUT_LINE('Col ' || I || ' Type:' || L_DESCTBL(I).COL_TYPE);  
      IF L_DESCTBL(I).COL_TYPE = 2 THEN  
         DBMS_SQL.DEFINE_COLUMN(SOURCE_CURSOR, I, Z_NUMBER);  
      elsiF L_DESCTBL(I).COL_TYPE = 102 THEN  
      -- ?????  
      --   DBMS_SQL.DEFINE_COLUMN(SOURCE_CURSOR, I, Z_NUMBER);  
      null;  
      END IF;  
      NULL;  
   END LOOP;  
   IGNORE := DBMS_SQL.EXECUTE(SOURCE_CURSOR);  
   LOOP  
      IF DBMS_SQL.FETCH_ROWS(SOURCE_CURSOR) > 0 THEN  
         FOR I IN 1 .. PWFIELD_COUNT LOOP  
            IF L_DESCTBL(I).COL_TYPE IN (2) THEN  
               DBMS_SQL.COLUMN_VALUE(SOURCE_CURSOR, I, Z_NUMBER);  
               DBMS_OUTPUT.PUT_LINE('Col ' || I || ' Value:' || Z_NUMBER);  
            END IF;  
         END LOOP;  
      ELSE  
         EXIT;  
      END IF;  
   END LOOP;  
END;