create or replace procedure emp_cur is
	R_emp EMP%ROWTYPE;
	CURSOR c_emp IS SELECT * FROM emp;
	--從scott的emp表中取出各雇員的信息。
BEGIN
	OPEN c_emp;
	--循環輸出雇員信息
	LOOP
		FETCH c_emp INTO r_emp;
		EXIT WHEN c_emp%NOTFOUND;
		DBMS_OUTPUT.PUT_LINE ('Salary of Employee '||r_emp.ename ||
		' is '||r_emp.sal);
	END LOOP;
	CLOSE c_emp;
END;