declare
-- Local variables here
TYPE MYCURSOR IS REF CURSOR;
CUR MYCURSOR;
TYPE EMP_NO_TYPE IS RECORD
(
EMPNO c_emp_desc_t.emp_no% TYPE
);
EMPCORD EMP_NO_TYPE;
EXEC_SQL VARCHAR2( 800);
Schema_Name_I VARCHAR2( 20);
BEGIN
Schema_Name_I := 'MESDV';
EXEC_SQL := 'SELECTEMP_NO FROM ' || Schema_Name_I || '.C_EMP_DESC_T where rownum <= 10';
OPEN CUR FOR EXEC_SQL;
LOOP
FETCH CUR
INTO EMPCORD;
EXIT WHEN CUR% NOTFOUND;
DBMS_OUTPUT.PUT_LINE(empcord.empno);
END LOOP;
END;
-- Local variables here
TYPE MYCURSOR IS REF CURSOR;
CUR MYCURSOR;
TYPE EMP_NO_TYPE IS RECORD
(
EMPNO c_emp_desc_t.emp_no% TYPE
);
EMPCORD EMP_NO_TYPE;
EXEC_SQL VARCHAR2( 800);
Schema_Name_I VARCHAR2( 20);
BEGIN
Schema_Name_I := 'MESDV';
EXEC_SQL := 'SELECTEMP_NO FROM ' || Schema_Name_I || '.C_EMP_DESC_T where rownum <= 10';
OPEN CUR FOR EXEC_SQL;
LOOP
FETCH CUR
INTO EMPCORD;
EXIT WHEN CUR% NOTFOUND;
DBMS_OUTPUT.PUT_LINE(empcord.empno);
END LOOP;
END;