+ EXEC SQL REPEATED UPDATE numvalues SET value = :value
+ WHERE name = 'users_id';
+ if (sqlca.sqlcode != 0) {
+ com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ exit(1);
+ }
+ return(retval);
+}
+
+set_next_uid(limit)
+ int limit;
+{
+ EXEC SQL BEGIN DECLARE SECTION;
+ int rowcount, flag, value, retval;
+ EXEC SQL END DECLARE SECTION;
+
+ EXEC SQL REPEATED SELECT value INTO :value FROM numvalues
+ WHERE name = 'uid';
+ if (sqlfail()) sqlexit();
+ if (sqlca.sqlerrd[2] != 1) {
+ EXEC SQL ROLLBACK;
+ com_err(whoami, MR_INTERNAL, "values table inconsistancy");
+ exit(1);
+ }
+
+ flag = 0;
+ EXEC SQL REPEATED SELECT uid INTO :flag FROM users WHERE uid = :value;
+ if (sqlfail()) sqlexit();
+ if (sqlca.sqlerrd[2] == 0)
+ flag = 0;
+ while (flag) {
+ value++;
+ if (limit && value > MAX_ID_VALUE)
+ value = MIN_ID_VALUE;
+ flag = 0;
+ EXEC SQL REPEATED SELECT uid INTO :flag FROM users WHERE uid = :value;
+ if (sqlfail()) sqlexit();
+ if (sqlca.sqlerrd[2] == 0)
+ flag = 0;
+ }
+
+ retval = value++;
+ if (limit && value > MAX_ID_VALUE)
+ value = MIN_ID_VALUE;
+ EXEC SQL REPEATED UPDATE numvalues SET value = :value WHERE name = 'uid';
+ if (sqlca.sqlcode != 0) {
+ com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ exit(1);
+ }
+ return(retval);
+}
+
+
+sqlexit()
+{
+ com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ EXEC SQL ROLLBACK WORK;
+ exit(1);