switch (*type) {
case 'U':
case 'u':
- EXEC SQL SELECT login INTO :iname FROM users WHERE users_id=:j;
+ EXEC SQL SELECT CHAR(login) INTO :iname FROM users WHERE users_id=:j;
break;
case 'L':
case 'l':
- EXEC SQL SELECT name INTO :iname FROM list WHERE list_id=:j;
+ EXEC SQL SELECT CHAR(name) INTO :iname FROM list WHERE list_id=:j;
break;
case 'M':
case 'm':
- EXEC SQL SELECT name INTO :iname FROM machine WHERE mach_id=:j;
+ EXEC SQL SELECT CHAR(name) INTO :iname FROM machine WHERE mach_id=:j;
break;
case 'C':
case 'c':
- EXEC SQL SELECT name INTO :iname FROM cluster WHERE clu_id=:j;
+ EXEC SQL SELECT CHAR(name) INTO :iname FROM cluster WHERE clu_id=:j;
break;
case 'F':
case 'f':
- EXEC SQL SELECT label INTO :iname FROM filesys WHERE filsys_id=:j;
+ EXEC SQL SELECT CHAR(label) INTO :iname FROM filesys WHERE filsys_id=:j;
break;
case 'S':
case 's':
- EXEC SQL SELECT string INTO :iname FROM strings WHERE string_id=:j;
+ EXEC SQL SELECT CHAR(string) INTO :iname FROM strings WHERE string_id=:j;
break;
default:
return(MR_INTERNAL);