janeiro 16, 2014 às 4:07 pm
#106257
Participante
Apesar de já ter encontrado a solução, segue uma idéia com SQL DINÂMICO+CURSOR IMPLÍCITO.
DECLARE
VCURSOR_DINAMIC VARCHAR2(128);
VSQL VARCHAR2(4000);
BEGIN
VCURSOR_DINAMIC := 'SELECT USERNAME,ACCOUNT_STATUS FROM DBA_USERS';
VSQL := '
BEGIN
FOR R IN ('||VCURSOR_DINAMIC||') LOOP
DBMS_OUTPUT.put_line(R.USERNAME);
DBMS_OUTPUT.put_line(R.ACCOUNT_STATUS);
END LOOP;
END;';
EXECUTE IMMEDIATE VSQL;
END;