EXEC SQL DECLARE csr401 CURSOR FOR
SELECT mach_id, value1 FROM serverhosts
WHERE service='POP';
+ if (sqlca.sqlcode != 0) ingerr(&sqlca.sqlcode);
EXEC SQL OPEN csr401;
while(1) {
EXEC SQL FETCH csr401 INTO :id, :cnt;
SELECT users_id, login, last, first, status,
potype, pop_id, box_id FROM users
WHERE potype='POP';
+ if (sqlca.sqlcode != 0) ingerr(&sqlca.sqlcode);
EXEC SQL OPEN csr402;
while(1) {
EXEC SQL FETCH csr402 INTO :id, :name, :last, :first, :status,
machines = create_hash(1000);
EXEC SQL DECLARE csr403 CURSOR FOR
SELECT mach_id, name FROM machine;
+ if (sqlca.sqlcode != 0) ingerr(&sqlca.sqlcode);
EXEC SQL OPEN csr403;
while(1) {
EXEC SQL FETCH csr403 INTO :id, :name;
nfsphys = create_hash(500);
EXEC SQL DECLARE csr404 CURSOR FOR
SELECT nfsphys_id, dir, mach_id, allocated FROM nfsphys;
+ if (sqlca.sqlcode != 0) ingerr(&sqlca.sqlcode);
EXEC SQL OPEN csr404;
while(1) {
EXEC SQL FETCH csr404 INTO :id, :name, :id2, :id3;
dprintf("Counting quotas...\n");
EXEC SQL DECLARE csr405 CURSOR FOR
SELECT phys_id, quota FROM quota;
+ if (sqlca.sqlcode != 0) ingerr(&sqlca.sqlcode);
EXEC SQL OPEN csr405;
while(1) {
EXEC SQL FETCH csr405 INTO :id, :id2;