RPGLE IP Adresse formatieren auf 'xxx.xxx.xxx.xxx.'

[Fuerchau]

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');

[BenderD]

... Kürze ist nicht das Problem, sondern Lesbarkeit!!!
da macht man sich eine Procedure Num2Alfa3, der eine Zahl übergeben wird und die selbige 3 stellig alfa mit führenden Nullen zurück gibt. Kriegt die Murks schickt sie eine Escape Message. Selbige Procedure gehört dann sogar in ein Standard SRVPGM.

D*B

[holgerscherer]

... Kürze ist nicht das Problem, sondern Lesbarkeit!!!
D*B

Aber Dieter - wofür Lesbarkeit? Wir leben in schlechten Zeiten und müssen jedes Byte sparen. Schliesslich kann man sich auch bei mehrzeiligen Regexen die Formatierung sparen

-h

[Fuerchau]

@Pikachu
Dafür wird dann wieder die Umkehr-Funktion in RPGLE gesucht. Wobei das dann ein 1-Zeiler ist.

[TheDevil]

Hallo.
Ja %editc hatte ich auch kurz drang gedacht aber wie das immer so ist ... man(n) denkt dann einfach zu viel und kommt auf abwege ...
Der vorherige Code war noch mal ne Seite länger und ich war schon froh den so "eingekürzt" zu haben ... grins.
Danke nochmals ..

Gruß aus dem düsteren Norden der Republik.
Ralf