sql2 1602

PACKAGE BODY sp_timer IS

last_timing NUMBER := NULL;

PROCEDURĘ capture

(context_in IN VARCHAR2) IS BEGIN

last_timing := DBMS_UTILITY.GET_TIME;

END;

PROCEDURĘ show_elapsed IS BEGIN

DBMS_OUT PUT.PUT.LINĘ

(DBMS_UTILITY.GET_TIME - last timing);

END;

END sp_timer;