sprintf(nfs_dir, "%s/nfs", DCM_DIR);
#ifsql INGRES
- EXEC SQL CONNECT sms;
+ EXEC SQL CONNECT moira;
#endsql
#ifsql INFORMIX
- EXEC SQL DATABASE sms;
+ EXEC SQL DATABASE moira;
#endsql
changed = do_nfs();
machs = sq_create();
lists = sq_create();
+ /* The following is declarative, not executed,
+ * and so is dependent on where it is in the file,
+ * not in the order of execution of statements.
+ */
EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
EXEC SQL DECLARE s_cursor CURSOR FOR
SELECT m.name, s.value3
EXEC SQL DECLARE l_cursor CURSOR FOR
SELECT gid, list_id
FROM list
- WHERE grp <> 0 AND active != 0;
+ WHERE grouplist != 0 AND active != 0;
EXEC SQL OPEN l_cursor;
while (1) {
EXEC SQL FETCH l_cursor INTO :gid, :lid;