Irgendwo sind auch dem DDS Grenzen gesetzt.
Hier hilft wirklich nur SQL (kein RLA-Zugriff!!!), substr(digits(mynum, 1, 1)).

Allerdings kann die Performance da schon etwas leiden.

Schau ich mir die Aufgabenstellung so an, sollte es doch auch mit RLA gehen.
Bilde eine LF auf die 2 Felder, wie rum hängt von der Aufgabenstllung ab, setze gezielt mit SETLL auf und lese per READ bis die Bedingung nicht mehr zutrifft.

Bei SQL sähe das eben so aus:

select ...
from myfile
where My2PackField between x0 and x9 and My7PackField = 1234567