Ejemplos pl/sql

EJEMPLO DOS:

Se mide el salario de profesores de una universidad, segun el rango  y la cantidad de horas trabajadas;
Se descuentan iva y rete fuente.

DECLARE

A NUMBER:=25500;

B NUMBER:=23500;

C NUMBER:=21500;

D NUMBER:=15500;

RESULTDSCTO NUMBER;

RESULTTOTAL NUMBER;

RANGO VARCHAR(1):=:DIGITE_RANGO;

HORAS NUMBER:=:DIGITE_HORAS;

BEGIN

IF(RANGO='A') THEN

RESULTDSCTO:=(A*HORAS)*0.1788;

RESULTTOTAL:=((A*HORAS)-RESULTDSCTO);

DBMS_OUTPUT.PUT_LINE(RESULTTOTAL);

ELSIF(RANGO='B') THEN

RESULTDSCTO:=(B*HORAS)*0.1788;

RESULTTOTAL:=((B*HORAS)-RESULTDSCTO);

DBMS_OUTPUT.PUT_LINE(RESULTTOTAL);

ELSIF(RANGO='C') THEN

RESULTDSCTO:=(C*HORAS)*0.1788;

RESULTTOTAL:=((C*HORAS)-RESULTDSCTO);

DBMS_OUTPUT.PUT_LINE(RESULTTOTAL);

ELSIF(RANGO='D') THEN

RESULTDSCTO:=(D*HORAS)*0.1788;

RESULTTOTAL:=((D*HORAS)-RESULTDSCTO);

DBMS_OUTPUT.PUT_LINE(RESULTTOTAL);

ELSE

DBMS_OUTPUT.PUT_LINE('¬¬');

END IF;

END;