Hallo Community.
Wir mussten wegen einer Programmanforderung das Format der kompletten
IP Adresse von z. B. 71.6.129.43 (keine Ahnung wer die hat, ist halt ein Beispiel)
so umwandeln das 071.006.129.043 übergeben wird (also mit führenden Nullen auffüllen).

Anbei eine kleine Routine die wir dazu erstellt haben. Vielleicht ist das ja auch für andere
nützlich, deshalb stelle ich das hier mal rein :

D VAR01 S 15a inz('222.55.0.129')
D VAR02 S 15a inz(' . . . ')
D x S 3 0
D y S 3 0
D i S 3 0
D z S 3 0
*
/FREE
Z = 0;
I = 15;
for x = 15 by 1 downto 1;
if %subst(var01:x:1) <> *blanks and %subst(var01:x:1) <> '.';
%subst(var02:i:1) = %subst(var01:x:1);
i = i - 1;
z = z + 1;
endif;
if %subst(var01:x:1) = '.';
for y = z to 2;
%subst(var02:i:1) = '0';
i = i - 1;
endfor;
z = 0;
%subst(var02:i:1) = '.';
i = i - 1;
endif;
endfor;
dsply VAR02;
/END-FREE
c seton LR

Vielleicht hat ja noch jemand "kürzere" Wege. Ich habe auch nach einer %Split BIF Funktion
gesucht aber leider nichts dazu gefunden ...

Kommentare gerne erwünscht.

Gruß,
Ralf