+-- Package to help with making Oracle more like other DBs with respect to
+-- auto-incrementing columns.
+/*$mw$*/
+CREATE PACKAGE &mw_prefix.lastval_pkg IS
+ lastval NUMBER;
+ PROCEDURE setLastval(val IN NUMBER, field OUT NUMBER);
+ FUNCTION getLastval RETURN NUMBER;
+END;
+/*$mw$*/
+
+/*$mw$*/
+CREATE PACKAGE BODY &mw_prefix.lastval_pkg IS
+ PROCEDURE setLastval(val IN NUMBER, field OUT NUMBER) IS BEGIN
+ lastval := val;
+ field := val;
+ END;
+
+ FUNCTION getLastval RETURN NUMBER IS BEGIN
+ RETURN lastval;
+ END;
+END;
+/*$mw$*/