FUNCTION ZWY_IPADR2STRING.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(IPADR) LIKE  MSXXLIST-HOSTADR
*"  EXPORTING
*"     REFERENCE(STRING) TYPE  C
*"----------------------------------------------------------------------

*****************************************************************
*
*     SAP AG Walldorf
*     Systeme, Anwendungen und Produkte in der Datenverarbeitung
*
*     (C) Copyright SAP AG 1995
*
*****************************************************************
*
*  Project:          R/3 Gateway Monitor
*  Entwickl.-Stand:  BIN-Datenbank
*
*  Source-Typ:       Funktionsbaustein
*
*  Autor:            Werner Rehm , Basis
*
*****************************************************************
*  Entwicklungslog:
*
*  16.11.99 rehm Erste Implementierung
*
*****************************************************************
*
*  Beschreibung:
*
*   Umwandlung des RAW4-Feldes in einen String
*
*****************************************************************

  DATA: I TYPE I,
        X TYPE X,
        IP(20).

*---------------------------------------------------------------------
* Konvertiert Hex-Darstellung in IP-Adresse als String
*---------------------------------------------------------------------
  CLEAR IP.

  X = IPADR(1).
  I = X.
  WRITE I TO IP LEFT-JUSTIFIED.
  IP+4 = '.'.
  CONDENSE IP NO-GAPS.

  X = IPADR+1(1).
  I = X.
  WRITE I TO IP+5 LEFT-JUSTIFIED.
  IP+10 = '.'.
  CONDENSE IP NO-GAPS.

  X = IPADR+2(1).
  I = X.
  WRITE I TO IP+10 LEFT-JUSTIFIED.
  IP+16 = '.'.
  CONDENSE IP NO-GAPS.

  X = IPADR+3(1).
  I = X.
  WRITE I TO IP+15 LEFT-JUSTIFIED.
  CONDENSE IP NO-GAPS.

  STRING = IP.



ENDFUNCTION.