Re: EDTWRD for IP adress

["Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>]

Try this:

D                 DS
D $ipNum                        12s 0
D  $ip1                          3s 0   overlay($ipNum:*next)
D  $ip2                          3s 0   overlay($ipNum:*next)
D  $ip3                          3s 0   overlay($ipNum:*next)
D  $ip4                          3s 0   overlay($ipNum:*next)

D $editedIP       S             15a

C                   eval      $ipNum = yourIPAddress
C                   eval      $editedIP = %trim(%editc($ip1:'Z')) + '.' +
C                                         %trim(%editc($ip2:'Z')) + '.' +
C                                         %trim(%editc($ip3:'Z')) + '.' +
C                                         %trim(%editc($ip4:'Z'))


--- original message ---
Hello all,

I have a field that holds an IP address (numeric 12 digits). I want to
display/print it as 999.999.999.999

I tought I'd used the edit word EDTWRD('   .   .   .   ')

But this does not work because the "." is considered the decimal
separatior.

Is there an easy way to format an IP address on a report?

thanks