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

Text File | 1991-03-04 | 448 b | 19 lines

rem
rem $Header: demo2_pls.sql,v 6.1 90/02/16 18:40:02 nsalah Exp $ demo2_pls.sql Copyr (c) 1989 Oracle
rem
DECLARE
    num_rows  NUMBER;
BEGIN
    UPDATE emp SET sal = sal*1.1
      WHERE job = 'SALESMAN' AND comm > 350;
    num_rows := SQL%ROWCOUNT;   -- get number of rows updated

    IF num_rows > 3 THEN
        ROLLBACK;
        INSERT INTO temp (col1, message)
          VALUES (num_rows, 'Too many qualify');
    END IF;

    COMMIT;
END;