- if (lex_integer (lexer) <= *record)
- {
- msg (SE, _("The record number specified, %ld, is at or "
- "before the previous record, %d. Data "
- "fields must be listed in order of "
- "increasing record number."),
- lex_integer (lexer), *record);
- return false;
- }
+ if (!lex_force_int_range (lexer, NULL, *record + 1, INT_MAX))
+ return false;