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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
407 | 팝업창이나 서브스크린 디버깅을 쉽게 할 수 있어요 [17] | 김창훈 | 2007.08.08 | 5070 |
406 | HELP를 WEB으로 접속하려면,,, 이렇게 하세요 [8] | 김창훈 | 2007.08.08 | 3847 |
405 | 간단한 ALV Report를 생성해주는 사이트 [2] | 홍성현 | 2007.08.09 | 4018 |
404 | SAP에서 바코드 인쇄하기 [1] | 홍성현 | 2007.08.09 | 5303 |
403 | Python과 SAP RFC 통신 [3] | 홍성현 | 2007.08.09 | 5808 |
402 | 사용자별 Upload & Download 기본값 [1] | 홍성현 | 2007.08.09 | 3661 |
401 | ABAP에서 웹브라우져 호출 | 홍성현 | 2007.08.09 | 8316 |
400 | SAP Icon 출력 [3] | 홍성현 | 2007.08.09 | 6538 |
399 | ABAP System Fields | 홍성현 | 2007.08.09 | 3931 |
398 | 4.6에서 ALV 필드 변경 안될때 버퍼 지우는 방법 | 신종철 | 2007.08.10 | 4780 |
397 | ALV 중간 집계 하기 [3] | 신종철 | 2007.08.10 | 4779 |
396 | 텍스트반영시(자재명,저장위치명 기타등등) 속도개선 방법 [6] | 김창훈 | 2007.08.14 | 5970 |
395 | 속도개선하기....INDEX를 이렇게도 쓰네용~~ [9] | 김창훈 | 2007.08.14 | 5374 |
394 | AT 구문에 대한 설명입니다. [6] | 김창훈 | 2007.08.16 | 5734 |
393 | 플랜트로 회사코드와 기준통화 찾기 [8] | 김창훈 | 2007.08.16 | 5594 |
392 | 엑셀 65000 라인초과시 사용 유틸 [5] | GG | 2007.08.19 | 5296 |
391 | ABAP 문법 1st [13] | 아일락 | 2007.08.20 | 4555 |
390 | ABAP 문법 2nd [8] | 아일락 | 2007.08.20 | 3914 |
389 | 조회조건 동적으로 보이기 [5] | 신종철™ | 2007.08.20 | 4769 |
388 | 스페이스를 2자리로 먹을때 1자리로 먹게 바꾸기 [1] | 신종철™ | 2007.08.20 | 3951 |