not tested, aber als beispiel reicht es sicher:

dow %scan('.': %subst(f15:1:%len(%trimr(f15))) : 1 ) <> *zero;
f15 = %replace('':f15:%scan('.':f15):1);
// im ersten arg als ersatzzeichen NICHTS ''
dsplyf15;
enddo;

enjoy it

hinweis: ich hab versucht eine lösung zu finden, die ohne extra zu definierende zwischenfelder auskommt.