写ABAP程序获取本机的IP地址

REPORT  ztest_tanp_getip.
DATA hostadr LIKE uinfo-hostadr.
DATA hostaddr(8).
DATA term LIKE uinfo-term.
DATA xhcount TYPE i.
DATA:iptxt(15),itimes TYPE i,itimes1 TYPE i,hx(2).
DATA:result TYPE i,resulttxt(3).
CALL FUNCTION 'TH_USER_INFO'
  IMPORTING
    hostaddr = hostadr "like unifo-hostadr(hex)
    terminal = term."likne unifo-term
hostaddr = hostadr.
DO 4 TIMES.
  hx = hostaddr+itimes1(2).
  itimes = 0.
  result = 0.
  DO 2 TIMES.
    CASE hx+itimes(1).
      WHEN 'A'.
        IF itimes = 0.
          result = result + 10 * 16.
        ELSE.
          result = result + 10.
        ENDIF.
      WHEN 'B'.
        IF itimes = 0.
          result = result + 11 * 16.
        ELSE.
          result = result + 11.
        ENDIF.
      WHEN 'C'.
        IF itimes = 0.
          result = result + 12 * 16.
        ELSE.
          result = result + 12.
        ENDIF.
      WHEN 'D'.
        IF itimes = 0.
          result = result + 13 * 16.
        ELSE.
          result = result + 13.
        ENDIF.
      WHEN 'E'.
        IF itimes = 0.
          result = result + 14 * 16.
        ELSE.
          result = result + 14.
        ENDIF.
      WHEN 'F'.
        IF itimes = 0.
          result = result + 15 * 16.
        ELSE.
          result = result + 15.
        ENDIF.
      WHEN OTHERS.
        IF itimes = 0.
          result = result + hx+itimes(1) * 16.
        ELSE.
          result = result + hx+itimes(1).
        ENDIF.
    ENDCASE.
    itimes = itimes + 1.
  ENDDO.
  resulttxt = result.
  IF iptxt <> ''.
    CONCATENATE iptxt '.' resulttxt INTO iptxt.
  ELSE.
    iptxt = resulttxt.
  ENDIF.
  itimes1 = itimes1 + 2.
ENDDO.
WRITE iptxt.

转载于:https://www.cnblogs.com/zxiu/p/7444774.html