hallo,

etwa so:

D telefonstring s 50a varying
D digits C '0123456789'
D pos S 10i 0


pos = %check (digits : telefonstring);

Wenn alles numerisch ist, ist der Rückkehrcode 0, ansonsten (wenn ein nichtnumerisches Zeichen gefunden wurde) die Position des gefundenen Zeichens.

Das musst Du evtl. im Loop laufen lassen,
um die Art des nichtnumerischen Zeichens zu untersuchen (Trennung zwischen Ortwahl und Rufnummer?) und dann ab der gefundenen Position weitersuchen. Oder speicherst Du die komplette Telefonnummer in einem einzigen Feld ab?

ulli