Liren Large Software Subsidy 5/05.iso/a/a524/37.ddi/demo/demo4_pls.sql

Text File | 1991-03-04 | 770 b | 24 lines

rem
rem $Header: demo4_pls.sql,v 6.1 90/02/16 18:40:10 nsalah Exp $ demo4_pls.sql Copyr (c) 1989 Oracle
rem
DECLARE
    total_wages        NUMBER := 0;
    high_paid        NUMBER := 0;
    higher_comm        NUMBER := 0;
BEGIN
    FOR emp_record IN (SELECT sal, comm FROM emp WHERE deptno = 20) LOOP
        emp_record.comm := NVL(emp_record.comm, 0);
        total_wages := total_wages + emp_record.sal +
               emp_record.comm;
        IF emp_record.sal > 2000.00 THEN
                 high_paid := high_paid + 1;
        END IF;
        IF emp_record.comm > emp_record.sal THEN
                 higher_comm := higher_comm + 1;
        END IF;
    END LOOP;
    INSERT INTO temp VALUES (high_paid, higher_comm,
      'Total Wages: $' || TO_CHAR(total_wages));
    COMMIT;
END;