*&---------------------------------------------------------------------*
*& Report ZSAP_TEST_48
*&
*&---------------------------------------------------------------------*
*&
*& text: get response contents from url
*& fm: HTTP_GET
*&---------------------------------------------------------------------*
REPORT zsap_test_48.
TYPES: BEGIN OF text ,
line(256),
END OF text .
DATA: gt_response TYPE TABLE OF text WITH HEADER LINE .
DATA: gt_response_header TYPE TABLE OF text WITH HEADER LINE .
DATA: g_status(3) TYPE c ,
g_statustext(128) TYPE c ,
g_length TYPE i .
PARAMETERS: url(50) TYPE c LOWER CASE DEFAULT 'http://www.baidu.com'.
PARAMETERS: dest LIKE rfcdes-rfcdest DEFAULT 'SAPHTTP'.
CALL FUNCTION 'HTTP_GET'
EXPORTING
absolute_uri = url
* REQUEST_ENTITY_BODY_LENGTH =
rfc_destination = dest
* PROXY =
* PROXY_USER =
* PROXY_PASSWORD =
* USER =
* PASSWORD =
blankstocrlf = 'Y'
* TIMEOUT =
IMPORTING
status_code = g_status
status_text = g_statustext
response_entity_body_length = g_length
TABLES
* REQUEST_ENTITY_BODY =
response_entity_body = gt_response
response_headers = gt_response_header
* REQUEST_HEADERS =
* EXCEPTIONS
* CONNECT_FAILED = 1
* TIMEOUT = 2
* INTERNAL_ERROR = 3
* TCPIP_ERROR = 4
* DATA_ERROR = 5
* SYSTEM_FAILURE = 6
* COMMUNICATION_FAILURE = 7
* OTHERS = 8
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT gt_response_header .
WRITE / gt_response_header-line .
ENDLOOP.
SKIP 2 .
LOOP AT gt_response .
REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab
IN gt_response-line WITH ' '.
WRITE / gt_response-line .
ENDLOOP.
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
EXPORTING
destination = dest
EXCEPTIONS
OTHERS = 0.
ABAP 使用HTTP_GET小例子(用来访问外部网站)
最新推荐文章于 2024-06-19 17:00:23 发布