+
+ /* get all the machines */
+ EXEC SQL DECLARE csr003 CURSOR FOR
+ SELECT i.member_type, m.name
+ FROM machine m, imembers i
+ WHERE i.list_id = :list_id AND i.member_type = 'MACHINE'
+ AND i.member_id = m.mach_id
+ ORDER BY m.name;
+
+ EXEC SQL OPEN csr003;
+ while (1)
+ {
+ EXEC SQL FETCH csr003 into :member_type, :member_name;
+ if (sqlca.sqlcode)
+ break;
+ fprintf(fout, "%d %s %s\n", list_id, member_type, member_name);