-
-## append users (#login = login, users_id = id, #uid = uid, shell = "/bin/csh",
-## #last = last, #first = first, #middle = middle, status = st,
-## #mit_id = eid, #mit_year = class,
-## modtime = "now", modby = WHO, modwith = PROG,
-## #fullname = fullname, office_addr = oaddr,
-## office_phone = ophone, #mit_dept = dept,
-## fmodtime = "now", fmodby = WHO, fmodwith = PROG,
-## potype = "NONE")
- com_err(whoami, 0, "adding user %s %s", e->first, e->last);
-##}
-
-
-set_next_object_id(object)
- char *object;
-##{
-## char *name;
-## int rowcount, exists, value;
-
- name = object;
-## begin transaction
-## repeat retrieve (value = values.#value) where values.#name = @name
-## inquire_equel(rowcount = "rowcount")
- if (rowcount != 1) {
-## abort
- return(0);
+
+ sid = e->id;
+ name = e->name;
+ rdept = e->dept;
+ title = e->title;
+ rhphone = e->phone;
+ rophone = e->phone2;
+
+ EXEC SQL REPEATED INSERT INTO users
+ (login, users_id, uid, shell, last, first, middle, status,
+ clearid, type, modtime, modby, modwith, fullname, office_addr,
+ office_phone, department, fmodtime, fmodby, fmodwith,
+ potype, xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime)
+ VALUES (:login, :id, :uid, '/bin/csh', :last, :first, :middle, :st,
+ :sid, :class, 'now', :who, :prog, :fullname, :oaddr, :ophone,
+ :dept, 'now', :who, :prog, 'NONE', :name, :rdept,
+ :title, :oaddr, :rhphone, :rophone, 'now');
+ if (sqlca.sqlcode != 0) {
+ if (sqlca.sqlcode == SQL_DEADLOCK) {
+ com_err(whoami, MR_DEADLOCK, "adding user");
+ } else {
+ com_err(whoami, 0, "ingres error %d adding user", sqlca.sqlcode);
+ exit(1);
+ }
+ } else
+ com_err(whoami, 0, "adding user %s %s", e->first, e->last);
+}
+
+
+set_next_users_id(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 = 'users_id';
+ if (sqlfail()) sqlexit();
+ if (sqlca.sqlerrd[2] != 1) {
+ EXEC SQL ROLLBACK;
+ com_err(whoami, MR_INTERNAL, "values table inconsistancy");
+ exit(1);