+ EXEC SQL REPEATED INSERT INTO users
+ (login, users_id, uid, shell, last, first, middle, status,
+ clearid, type, modtime, modby, modwith, fullname, home_addr,
+ home_phone, office_phone, department, fmodtime, fmodby, fmodwith,
+ potype, xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime)
+ VALUES (:login, :id, :uid, '/bin/csh', :last, :first, :middle, 0,
+ :sid, :class, 'now', :who, :prog, :fullname, :haddr, :hphone,
+ :ophone, :dept, 'now', :who, :prog, 'NONE', :name, :dept,
+ :title, :raddr, :hphone, :ophone, date('now'));
+ if (sqlca.sqlcode != 0) {
+ if (sqlca.sqlcode == SQL_DEADLOCK) {
+ com_err(whoami, MR_DEADLOCK, "adding user %s", sid);
+ EXEC SQL ROLLBACK;
+ return newuser(e);
+ } else {
+ com_err(whoami, 0, "ingres error %d", sqlca.sqlcode);
+ exit(1);
+ }
+ } else
+ com_err(whoami, 0, "adding user %s %s", e->first, e->last);
+}
+