Search for a command to run...
declare cursor c1 is select * from emp; e emp %rowtype; begin open c1; loop fetch c1 into e; exit when c1 %notfound; dbms_output.put_line(e.ename || ' ' || e.sal); end loop; dbms_output.put_line('No of records fetched ' || c1 %rowcount); close c1; e...
DECLARE vno NUMBER(5) := :vno; vname emp.ename%TYPE; BEGIN SELECT ename INTO vname FROM emp WHERE empno = vno; DBMS_OUTPUT.PUT_LINE(vno || ' ' || vname); EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('NO data in table'); WHEN OTHERS ...
declare cursor c1 is select * from emp; e emp %rowtype; net number(10); bonus number(10); begin open c1; loop fetch c1 into e; exit when c1 %notfound; net:= e.sal+nvl(e.comm,0); if(e.job='CLERK' and net>1000) then bonus:=800; elsif(e.job='SALESMAN' ...
CREATE OR REPLACE FUNCTION net_sal(vno NUMBER) RETURN NUMBER IS vsal emp.sal%TYPE; vcomm emp.comm%TYPE; net NUMBER(10); BEGIN SELECT sal, comm INTO vsal, vcomm FROM emp WHERE empno = vno; net := vsal + NVL(vcomm, 0); RETURN(net); END; for out...
DECLARE CURSOR c1 IS SELECT * FROM emp WHERE job = 'MANAGER'; BEGIN DBMS_OUTPUT.ENABLE; FOR i IN c1 LOOP DBMS_OUTPUT.PUT_LINE(i.empno || ' ' || i.ename || ' ' || i.sal); END LOOP; END;
DECLARE temp_number NUMBER; temp_string VARCHAR2(10) := 'BLAKE'; BEGIN temp_number := temp_string; EXCEPTION WHEN VALUE_ERROR THEN DBMS_OUTPUT.PUT_LINE('A VALUE_ERROR occurred'); END;
CREATE OR REPLACE procedure dept_emp(dno NUMBER) IS cursor c1 is select * from emp where deptno=dno; BEGIN for i in c1 loop dbms_output.put_line(i.empno||' ' || i.ename ||' ' || i.deptno); END loop; end; //for output begin dept_emp(10); end;
declare cursor c1 is select * from emp; e emp %rowtype; begin open c1; loop fetch c1 into e; exit when c1 %notfound; dbms_output.put_line(e.empno || ' ' || e.ename||' ' ||e.sal ||' ' || e.deptno); end loop; dbms_output.put_line('No of records fetc...
DECLARE i NUMBER :=:i; n NUMBER :=:n; even NUMBER := 0; odd NUMBER := 0; BEGIN WHILE i <= n LOOP IF i MOD 2 = 0 THEN even := even + i; ELSE odd := odd + i; END IF; i := i + 1; END LOOP; DBMS_OUTPUT.PUT_LINE('Sum of Even Numbers: ' || e...