middle, status, clearid, type, modtime, modby, modwith, fullname,
department, home_addr, home_phone, office_addr, office_phone, fmodtime,
fmodby, fmodwith, potype, pmodtime, pmodby, pmodwith,
- xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure)
+ xname, xdept, xtitle, xaddress, xphone1, xphone2, xmodtime, secure,
+ created, creator)
VALUES (:login, :users_id, :uid, '/bin/athena/tcsh', 'cmd',
NVL(:last, CHR(0)), NVL(:first, CHR(0)), NVL(:middle, CHR(0)),
:st, NVL(:id, CHR(0)), NVL(:type, CHR(0)), SYSDATE, :who, :prog,
'NONE', SYSDATE, :who, :prog,
NVL(SUBSTR(:name, 0, :xnlen), CHR(0)), NVL(:dept, CHR(0)),
NVL(:xtitle, CHR(0)), NVL(:xaddress, CHR(0)),
- NVL(:xphone1, CHR(0)), NVL(:xphone2, CHR(0)), SYSDATE, :issecure);
+ NVL(:xphone1, CHR(0)), NVL(:xphone2, CHR(0)), SYSDATE, :issecure,
+ SYSDATE, :who);
if (sqlca.sqlcode)
{
dbmserr("adding user", sqlca.sqlcode);