代码:CREATE OR REPLACE PROCEDURE P_TESTB AS VARCURSOR SYS_REFCURSOR; R USERS%ROWTYPE; BEGIN P_TESTA(VARCURSOR); LOOP FETCH VARCURSOR INTO R; EXIT WHEN VARCURSOR%NOTFOUND; DBMS_OUTPUT.PUT_LINE(R.NAME); END LOOP; END P_TESTB;