WHERE f.filsys_id = g.filsys_id AND g.group_id = :fid
ORDER BY key, label;
EXEC SQL OPEN f_cursor2;
- while (1) {
+ for (flag1=1;;flag1++) {
EXEC SQL FETCH f_cursor2 INTO :type, :loc, :id, :access,:mount,
:comments, :name, :trans;
if (sqlca.sqlcode != 0) break;
strtrim(type);
if (!strcmp(type, "NFS") || !strcmp(type, "RVD")) {
if (mach = hash_lookup(machines, id)) {
- fprintf(out, "%s.filsys\tHS %s \"%s %s %s %s %s\"\n",
+ fprintf(out, "%s.filsys\tHS %s \"%s %s %s %s %s %d\"\n",
group, HTYPE, type, strtrim(loc), mach,
- strtrim(access), strtrim(mount));
+ strtrim(access), strtrim(mount), flag1);
}
} else if (!strcmp(type, "AFS")) {
- fprintf(out, "%s.filsys\tHS %s \"AFS %s %s %s\"\n",
+ fprintf(out, "%s.filsys\tHS %s \"AFS %s %s %s %d\"\n",
group, HTYPE, strtrim(loc), strtrim(access),
- strtrim(mount));
+ strtrim(mount), flag1);
} else if (!strcmp(type, "ERR")) {
fprintf(out, "%s.filsys\tHS %s \"ERR %s\"\n",
group, HTYPE, strtrim(comments));
strtrim(sd);
fprintf(out, "%s.pcap\tHS %s \"%s:rp=%s:rm=%s:sd=%s:ka#%d:pc#%d",
name, HTYPE, name, rp, hash_lookup(machines, rm), sd, ka, pc);
- if (rq)
+ if (rq && hash_lookup(machines, rq))
fprintf(out, ":rq=%s\"\n", hash_lookup(machines, rq));
else
fputs("\"\n", out);