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

[Rainer Ross]

Hallo Forum,

ab 7.1 TR9 oder 7.2 TR1 geht es auch mit der Funktion LPAD in SQL. Ich habe das Beispiel von Baldur Fürchau entsprechend modifiziert

dcl-ds  dsmyip;
         myip1      zoned(3);    
         myip2      zoned(3);
         myip3      zoned(3);
         myip4      zoned(3);
         myip       zoned(3) dim(4) pos(1);
end-ds;

dcl-s   myadr      varchar(16);
dcl-s   result     varchar(16);
dcl-s   xi         uns(5);
dcl-s   xp         uns(5);
dcl-s   xs         uns(5);

clear dsmyip;
myadr  = '48.16.0.25';
myadr += '.';
xs    = 1;

for xi = 1 to 4;
  xp   = %scan('.':myadr:xs);
  myip(xi) = %dec(%subst(myadr:xs:xp-xs):3:0);
  xs = xp + 1;
endfor;

exec sql set :result = lpad(:myip1, 3, '0') concat '.' concat
                       lpad(:myip2, 3, '0') concat '.' concat
                       lpad(:myip3, 3, '0') concat '.' concat
                       lpad(:myip4, 3, '0'); 

Herzliche Grüße
Rainer Ross