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

澳门威利斯人网站44_临夏教育信息网进入



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

*& Report Z_IP *

*& *

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

*& *

*& *

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

REPORT Z_IP .

DATA HOSTADR L澳门威利斯人网站44IKE 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 ITIMES = 0.

RESULT = RESULT + 11 * 16.

ELSE.

RESULT = RESULT + 11.

ENDIF.

WHEN 'C'.

IF ITIMES = 0.

RESULT = RESULT + 12 * 16.

ELSE.

RESULT = RESULT + 1澳门威利斯人网站442.

ENDIF.

WHEN 'D'.

IF ITIMES = 0.

RESULT = RESULT + 13 * 16.

ELSE.

RESULT = RESUL澳门威利斯人网站44T + 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澳门威利斯人网站44 + 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.澳门威利斯人网站44

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