Portuguese

Table	Column	Data Type	Length	Precision	Scale	Primary Key	Nullable	Default	Comment
EMP	EMPNO	NUMBER	-	4	0	1	-	-	-
	ENAME	VARCHAR2	10	-	-	-		-	-
	JOB	VARCHAR2	9	-	-	-		-	-
	MGR	NUMBER	-	4	0	-		-	-
	HIREDATE	DATE	7	-	-	-		-	-
	SAL	NUMBER	-	37	2	-		-	-
	COMM	NUMBER	-	7	2	-		-	-
	DEPTNO	NUMBER	-	2	0	-		-

the program i am executing is

DECLARE

E_NAME EMP.ENAME%TYPE;

E_MGR EMP.MGR%TYPE;

E_SAL EMP.SAL%TYPE;

CURSOR E_CUR IS

SELECT ENAME,MGR,SAL FROM EMP;

BEGIN

OPEN E_CUR;

DBMS_OUTPUT.PUT_LINE(E_NAME||' '|| E_MGR||' '||E_SAL);

LOOP

FETCH E_CUR INTO E_NAME,E_SAL,E_MGR;

IF E_SAL> 2000 THEN

UPDATE EMP SET SAL=SAL/1000 ;

DBMS_OUTPUT.PUT_LINE(E_NAME||' | '|| E_MGR||' | '||E_SAL);

EXIT  WHEN E_CUR%NOTFOUND;

END IF;

END LOOP;

END