{
struct variable *vp = vars[i];
- if (vp->type == ALPHA && vp->width > MAX_SHORT_STRING)
+ if (var_is_long_string (vp))
{
msg (SE, _("It is not possible to assign value labels to long "
- "string variables such as %s."), vp->name);
+ "string variables such as %s."), var_get_name (vp));
return 0;
}
}
size_t i;
/* Set value. */
- if (vars[0]->type == ALPHA)
+ if (var_is_alpha (vars[0]))
{
if (lex_token (lexer) != T_STRING)
{
value.f = lex_tokval (lexer);
}
lex_get (lexer);
+ lex_match (lexer, ',');
/* Set label. */
if (!lex_force_string (lexer))
ds_destroy (&label);
lex_get (lexer);
+ lex_match (lexer, ',');
}
while (lex_token (lexer) != '/' && lex_token (lexer) != '.');