-## range of u is users
-## retrieve (id = u.users_id, name = u.login, last = u.#last,
-## first = u.#first, status = u.#status, buf = u.potype,
-## id2 = u.pop_id, id3 = u.box_id, sid = u.modby, sid2 = u.fmodby,
-## sid3 = u.pmodby, sid4 = u.comment, sid5 = u.sigwho) {
+/* range of u is users
+ * retrieve (id = u.users_id, name = u.login, last = u.#last,
+ * first = u.#first, status = u.#status, buf = u.potype,
+ * id2 = u.pop_id, id3 = u.box_id, sid = u.modby, sid2 = u.fmodby,
+ * sid3 = u.pmodby, sid4 = u.comment, sid5 = u.sigwho) {
+ */
+ EXEC SQL DECLARE csr102 CURSOR FOR
+ SELECT users_id, login, last, first, status, potype, pop_id, box_id,
+ modby, fmodby, pmodby, comment, sigwho FROM users;
+ EXEC SQL OPEN csr102;
+ while(1) {
+ EXEC SQL FETCH csr102 INTO :id, :name, :last, :first, :status,
+ :buf, :id2, :id3, :sid, :sid2, :sid3, :sid4, :sid5;
+ if(sqlca.sqlcode != 0) break;
+