+ strtrim(homedir);
+ strtrim(profiledir);
+
+ if (strcmp(mit_id, "") == 0)
+ strcpy(mit_id, "0");
+
+ if (strcasecmp(homedir, "[AFS]") == 0 || strcasecmp(profiledir,
+ "[AFS]") == 0)
+ {
+ EXEC SQL SELECT filsys_id into :fid
+ FROM filesys
+ WHERE lockertype = 'HOMEDIR'
+ AND label = :login
+ AND type = 'FSGROUP';
+
+ if (sqlca.sqlcode == 0)
+ {
+ EXEC SQL DECLARE f_cursor CURSOR FOR
+ SELECT type, name
+ FROM filesys a, fsgroup b
+ WHERE a.filsys_id=b.filsys_id
+ AND b.group_id=:fid
+ ORDER by key;
+
+ EXEC SQL OPEN f_cursor;
+
+ EXEC SQL FETCH f_cursor INTO :type, :name;
+
+ if (sqlca.sqlcode == 0)
+ {
+ strtrim(type);
+ strtrim(name);
+ }
+ else
+ {
+ strcpy(type, "NONE");
+ strcpy(name, "NONE");
+ }
+
+ EXEC SQL CLOSE f_cursor;
+ }
+
+ else
+ {
+ EXEC SQL SELECT type, name into :type, :name
+ FROM filesys
+ WHERE lockertype = 'HOMEDIR'
+ AND label=:login;
+
+ if (sqlca.sqlcode == 0)
+ {
+ strtrim(type);
+ strtrim(name);
+ }
+ else
+ {
+ strcpy(type, "NONE");
+ strcpy(name, "NONE");
+ }
+ }
+ if (strcasecmp(type, "AFS") != 0)
+ strcpy(name, "[LOCAL]");