Möglichkeiten gibt es wie immer mehrere:
Split kann man mittels %SCAN erreichen. Hier kann man auch eine Startposition angeben.
Per %SUBST dann ab Position mit der Länge den wert entnehmen und das Ergebnis per %DEC in eine Zahl umwandeln.
Per %EDITC(Wert:'X') mit Vornull ausgeben.

// nur Prinzipiell
d MyAdr s 16 varying
d MyIp s 3p 0 dim(4)
d xi s 5i 0
d xp s 5i 0
d xs s 5i 0

myAdr = %trim(var01) + '.'; // für Scan benötigt
xs=1;
for xi=1 to 4;
xp=%scan(xs:'.':myAdr);
myIp(xi) = %dec(%subst(MyAdr:xs:xp-xs));
xs=xp+1;
endfor;
var02 = %editc(myIp(1):'X') + '.' + %editc(myIp(2):'X') + '.' %editc(myIp(3):'X') + '.' %editc(myIp(4):'X');