emplu.tst

OReilly Oracle PL SQL Programming第4版源代码

@@emplu.pkg
CREATE OR REPLACE PROCEDURE test_emplu (
   counter IN INTEGER, empno_in IN emp.empno%TYPE := 7788)
IS
   emprec employee%ROWTYPE;
BEGIN
   PLVtmr.set_factor (counter);
   PLVtmr.capture;
   FOR i IN 1 .. counter
   LOOP
      emprec := emplu1.onerow (empno_in);
   END LOOP;
   PLVtmr.show_elapsed ('database table');

   PLVtmr.set_factor (counter);
   PLVtmr.capture;
   FOR i IN 1 .. counter
   LOOP
      emprec := emplu2.onerow (empno_in);
   END LOOP;
   PLVtmr.show_elapsed ('index-by table');
END;
/


/*======================================================================
| Supplement to the third edition of Oracle PL/SQL Programming by Steven
| Feuerstein with Bill Pribyl, Copyright (c) 1997-2002 O'Reilly &
| Associates, Inc. To submit corrections or find more code samples visit
| http://www.oreilly.com/catalog/oraclep3/
*/