+ EXEC SQL UPDATE users
+ SET first = NVL(:first, CHR(0)), last = NVL(:last, CHR(0)),
+ middle = NVL(:middle, CHR(0)), modby = :who, modwith = :prog,
+ modtime = SYSDATE
+ WHERE users_id = :id;
+ if (sqlca.sqlcode)
+ {
+ dbmserr("updating name", sqlca.sqlcode);
+ exit(1);
+ }
+ }
+ else
+ {
+ com_err(whoami, 0, "was %s %s %s, became %s %s %s",
+ dfirst, dmiddle, dlast, first, middle, last);