-## range of fs is filesys
-## retrieve (aarg0 = fs.label, aarg1 = fs.type,
-## aarg2 = text(fs.mach_id),
-## aarg3 = fs.name, aarg4 = fs.mount, aarg5 = fs.access,
-## aarg6 = fs.comments, aarg7 = text(fs.owner),
-## aarg8 = text(fs.owners), aarg9 = text(fs.createflg),
-## aarg10 = fs.lockertype)
-## where qual
+ EXEC SQL SELECT CHAR(fs.label), fs.type, CHAR(fs.mach_id), fs.name,
+ fs.mount, fs.access, fs.comments, CHAR(fs.owner), CHAR(fs.owners),
+ CHAR(fs.createflg), fs.lockertype
+ INTO :aarg0, :aarg1, :aarg2, :aarg3, :aarg4, :aarg5, :aarg6,
+ :aarg7, :aarg8, :aarg9, :aarg10
+ FROM filesys fs WHERE :qual;
+ name = malloc(0);
+ id = atoi(aarg2);
+ id_to_name(id, "MACHINE", &name);
+ strcpy(aarg2, name);
+ id = atoi(aarg7);
+ id_to_name(id, "USER", &name);
+ strcpy(aarg7, name);
+ id = atoi(aarg8);
+ id_to_name(id, "LIST", &name);
+ strcpy(aarg8, name);
+ free(name);