+
+ if (!strcmp(strtrim(type), "FSGROUP"))
+ {
+ *path = '\0';
+ EXEC SQL DECLARE group_cursor CURSOR FOR
+ SELECT f.name, g.key FROM filesys f, fsgroup g
+ WHERE f.filsys_id = g.filsys_id AND f.type='AFS'
+ AND g.group_id = :fid
+ ORDER BY g.key;
+ EXEC SQL OPEN group_cursor;
+ EXEC SQL FETCH group_cursor INTO :path, :key;
+ EXEC SQL CLOSE group_cursor;
+ }
+
+ EXEC SQL DECLARE alias_cursor CURSOR FOR
+ SELECT name INTO :alias FROM alias
+ WHERE type='FILESYS' AND trans=:label;
+