快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

新蒲京澳门app下载_机器人论坛网进入



*&---------------------------------------------------------------------*

*& Report Z_IP *

*& *

*&---------------------------------------------------------------------*

*& *

*& *

*&--------------------------------------------------------------------新蒲京澳门app下载-*

REPORT Z_IP .

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 UINFO-HOSTADR (hex)

TERMINAL = TERM. "like UINFO-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 新蒲京澳门app下载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 +新蒲京澳门app下载 14.

ENDIF.

WHEN 'F'.

IF ITIMES = 0.

RESULT = RESULT + 15 * 16.

ELSE.

RESULT = RESULT + 15.

E新蒲京澳门app下载NDIF.

WHEN OTHERS.

IF ITIMES = 0.

RESULT = RESULT + HX+ITIMES(1) * 16.新蒲京澳门app下载

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.

您可能还会对下面的文章感兴趣: