logb.tst

OReilly Oracle PL SQL Programming第4版源代码

/* Analyzes overhead of auton transactions. */
CREATE OR REPLACE PROCEDURE test_auton (
   counter IN INTEGER)
IS
   b BOOLEAN;
BEGIN
   ROLLBACK;

   PLVtmr.set_factor (counter);
   PLVtmr.capture;
   FOR repind IN 1 .. counter
   LOOP
      log81.putline (repind, 'Wow! ' || repind || ' just happened.');
   END LOOP;
   PLVtmr.show_elapsed ('One transaction');

   ROLLBACK;
   
   PLVtmr.capture;
   FOR repind IN 1 .. counter
   LOOP
       log81.saveline (repind, 
          'Wow! ' || repind || ' just happened.');
   END LOOP;
   PLVtmr.show_elapsed ('Auton transaction');

   ROLLBACK;
   
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/
*/