Curly brackets missing. I think this can be beautified by extracting `ulen = STRLEN(uname)`.