DATA: BEGIN OF DESTI OCCURS 100.
INCLUDE STRUCTURE MSXXLIST.
DATA: END OF DESTI.
DATA: BEGIN OF USR_LIST OCCURS 1000.
INCLUDE STRUCTURE UINFO.
DATA: END OF USR_LIST.
DATA: BEGIN OF SERVERP OCCURS 100, " Presentationserver
S(32),
SL(15),
X(4) TYPE X,
L(5),
H(5),
M(5),
C,
PRO(4),
COMMU,
" SL(31) for new IP-Address
END OF SERVERP.
FORM GET_IP CHANGING P_IP.
REFRESH DESTI.
CALL FUNCTION 'RFC_GET_LOCAL_SERVERS'
TABLES
HOSTS = DESTI
EXCEPTIONS
NOT_AVAILABLE = 1.
CLEAR DESTI.
READ TABLE DESTI WITH KEY HOST = SY-HOST.
IF SY-SUBRC EQ 0.
REFRESH USR_LIST.
CALL FUNCTION 'THUSRINFO' DESTINATION DESTI-NAME
TABLES
USR_TABL = USR_LIST
EXCEPTIONS
COMMUNICATION_FAILURE = 17.
IF SY-SUBRC = '17'.
SERVERP-COMMU = 'P'.
EXIT.
ELSE.
SERVERP-COMMU = ' '.
ENDIF.
CLEAR USR_LIST.
READ TABLE USR_LIST WITH KEY BNAME = SY-UNAME.
IF SY-SUBRC EQ 0.
CLEAR SERVERP-S.
SERVERP-S = USR_LIST-TERM.
SERVERP-X = USR_LIST-HOSTADR.
PERFORM IP_HEX2ASCII_N USING SERVERP-X CHANGING SERVERP-SL.
MOVE SERVERP-SL TO P_IP.
ENDIF.
ENDIF.
ENDFORM. " GET_IP
*&---------------------------------------------------------------------*
*& Form IP_HEX2ASCII_N
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_SERVERP_X text
* <--P_SERVERP_SL text
*----------------------------------------------------------------------*
FORM IP_HEX2ASCII_N USING DESI CHANGING ERGEBNIS.
DATA: T TYPE X,
TT(3),
HELP TYPE I,
HELP1 TYPE I VALUE 0,
DESTI_X(8) TYPE X ,
DESI_HLP TYPE I,
H_TYPE.
* unicode
DESCRIBE FIELD DESI LENGTH DESI_HLP IN BYTE MODE.
* non-unicode
* DESCRIBE FIELD DESI LENGTH DESI_HLP.
DESCRIBE FIELD DESI TYPE H_TYPE.
IF DESI_HLP <> 4 AND DESI_HLP <> 8.
* WRITE: / 'Length of processed IP-address is'(026), DESI_HLP, '.'.
* WRITE: / 'It should be of length 4 or 8 !'(027).
ELSE.
IF H_TYPE = 'X'.
DESTI_X = DESI.
DESI_HLP = DESI_HLP - 1.
CLEAR ERGEBNIS.
DO DESI_HLP TIMES. " 4 or 8 Bytes ?3 or 7 times
T = DESTI_X+HELP1(1).
PERFORM HEX2ASCII USING T CHANGING TT.
HELP = STRLEN( ERGEBNIS ).
ERGEBNIS+HELP = TT.
HELP = STRLEN( ERGEBNIS ).
ERGEBNIS+HELP = '.'.
HELP1 = HELP1 + 1.
ENDDO.
T = DESTI_X+HELP1(1).
PERFORM HEX2ASCII USING T CHANGING TT.
HELP = STRLEN( ERGEBNIS ).
ERGEBNIS+HELP = TT.
ELSE.
EXIT.
ENDIF.
ENDIF.
ENDFORM. " IP_HEX2ASCII_N
*&---------------------------------------------------------------------*
*& Form HEX2ASCII
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_T text
* <--P_TT text
*----------------------------------------------------------------------*
FORM HEX2ASCII USING T CHANGING V.
DATA : H TYPE I,
E(3).
H = T. E = H.
CONDENSE E.
V = E.
ENDFORM. " HEX2ASCII
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
447 | 인터널 테이블 라인수 lines [8] | sapjoy | 2014.01.20 | 17057 |
446 | TRY와 SQL [2] | sapjoy | 2013.12.05 | 5827 |
445 | SAP 버퍼를 다시 설정하는 방법 | Wise 멘토 | 2013.10.04 | 7485 |
444 | debug 시 문장 skip 요령 [36] | 하마대왕 | 2013.10.04 | 6852 |
443 | SAP GUI 730 ALV Grid 느림 현상(해결방법) [3] | Dave | 2013.09.27 | 8879 |
442 | TYPE-1 프로그램에서 실행버튼 없애기 [1] | 아밥뽀 | 2013.09.23 | 9104 |
441 | sap 메뉴에서 표준 매뉴 전환 [1] | selection장 | 2013.09.13 | 9443 |
440 | 요약파일1 [7] | 밤의화신 | 2013.09.11 | 8038 |
439 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8359 |
438 | ABAP 교육 [9] | 밤의화신 | 2013.09.11 | 7385 |
437 | ABAP 교육 [6] | 밤의화신 | 2013.09.11 | 7198 |
436 | ABAP 교육 [6] | 밤의화신 | 2013.09.11 | 7272 |
435 | ABAP 교육 [12] | 밤의화신 | 2013.09.11 | 7287 |
434 | ABAP 교육 [32] | 밤의화신 | 2013.09.11 | 8493 |
433 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8490 |
432 | REM PROCESS2 [1] | 밤의화신 | 2013.09.11 | 4497 |
431 | REM PROCESS1 | 밤의화신 | 2013.09.11 | 5398 |
430 | REM TABLE3 | 밤의화신 | 2013.09.11 | 2657 |
429 | REM TABLE2 | 밤의화신 | 2013.09.11 | 2819 |
428 | REM TABLE1 | 밤의화신 | 2013.09.11 | 2867 |