+## repeat replace tbs (appends = appends + 1, modtime = "now")
+## where tbs.table = "nfsquota"
+
+ return(SMS_SUCCESS);
+##}
+
+/**
+ ** delete_locker - special query routine for deleting a user locker
+ **
+ ** Inputs:
+ ** argv[0] - users_id
+ ** argv[1] - machine_id
+ ** argv[2] - device
+ ** argv[3] - quota
+ **
+ ** Description:
+ ** - delete filesys entry (label=<login>)
+ ** - decrement allocated in nfsphys by quota
+ ** - delete nfsquota entry
+ **
+ ** Errors:
+ ** - SMS_FILESYS - no filesys exists for user
+ **
+ **/
+
+delete_locker(q, argv)
+ register struct query *q;
+ register char *argv[];
+##{
+## int users_id;
+## int mach_id;
+## char *device;
+## int quota;
+## int rowcount;
+## char login[9];
+
+ /* copy arguments */
+ users_id = *(int *)argv[0];
+ mach_id = *(int *)argv[1];
+ device = argv[2];
+ sscanf(argv[3], "%d", "a);
+
+## range of u is users
+## range of f is filesys
+## range of np is nfsphys
+## range of nq is nfsquota
+## range of tbs is tblstats
+
+ /* get login name */
+## repeat retrieve (login = u.#login) where u.#users_id = @users_id
+
+ /* delete the filesys entry */
+## repeat delete f where f.label = @login
+## inquire_equel (rowcount = "rowcount")
+ if (rowcount == 0) return(SMS_FILESYS);
+## repeat replace tbs (deletes = tbs.deletes + 1, modtime = "now")
+## where tbs.table = "filesys"
+
+ /* decrement usage count in nfsphys table */
+## replace np (#allocated = np.#allocated - quota)
+## where np.#mach_id = mach_id and np.#device = device
+## repeat replace tbs (updates = tbs.updates + 1, modtime = "now")
+## where tbs.table = "nfsphys"
+
+ /* delete nfsquota entry */
+## delete nq where nq.#users_id = users_id and nq.#mach_id = mach_id and
+## nq.#device = device
+## repeat replace tbs (deletes = tbs.deletes + 1, modtime = "now")
+## where tbs.table = "nfsquota"