FM to get XML tag values

Tables:     Example XML:   <ANIL>HI</ANIL> <OZGEN>BYE</OZGEN> Return:     Source Code:   FUNCTION ZGET_XML_TAG_VALUES. *”———————————————————————- *”*”Local Interface: *”  TABLES *”      IT_XML TYPE  STRING_TABLE *”      RT_VALUES TYPE  BSP_STABLE_2C *”———————————————————————- data ls_xml type string. data beg type string value ‘<‘. data end type string value ‘>’. data sla type string value ‘/’. data ls_result type bsp_2_ct. translate beg to upper case. translate end to upper case. translate sla to upper case. data lv_value1 type string. data lv_value2 type string. data lv_value3 type string. data lv_len  type i. data lv_len1 type i. data lv_len2 type i. data lv_len3 type i. data lv_pos1 type i. data lv_pos2 type i. data lv_pos3 type i. data lv_pos4 type i. data value1 type string. data value2 type string. loop at it_xml into ls_xml.  translate ls_xml to upper case.  clear: lv_pos1, value1, value2,         lv_pos2, lv_len. * Looking for ‘<‘  find first occurrence of beg in ls_xml       match offset lv_pos1.  check sy–subrc eq 0. * Looking for ‘>’  find first occurrence of end in ls_xml  match offset lv_pos2.  check sy–subrc eq 0.  lv_len = lv_pos2 – lv_pos1 + 1.… Continue reading FM to get XML tag values

Fm to Consume Web Services Manually

Import Parameters:   Tables:   Source Code: FUNCTION ZCONSUME_WS_MANUALLY. *”———————————————————————- *”*”Local Interface: *”  IMPORTING *”     REFERENCE(I_URL) TYPE  STRING *”     REFERENCE(I_USERNAME) TYPE  STRING OPTIONAL *”     REFERENCE(I_PASSWORD) TYPE  STRING OPTIONAL *”  TABLES *”      IT_XML TYPE  STRING_TABLE OPTIONAL *”      RT_XML TYPE  STRING_TABLE OPTIONAL *”———————————————————————- data lo_client         type ref to if_http_client. data ls_smum_xmltb     type smum_xmltb           . data gv_ws_string      type string               . data lv_string         type string               . data lv_length         type i                    . data gv_ws_stringx     type xstring              . data lv_content_leng   type string               . data rt_smum_xmltb     type table of smum_xmltb  . data lv_response_data  type string               . data lv_response_datax type xstring              . data lt_return         type table of bapiret2    . * 1. Collecting XML in string. loop at it_xml into lv_string.  concatenate gv_ws_string lv_string         into gv_ws_string.  clear lv_string. endloop. * 2. Getting lenght of xml lv_length = lv_content_leng           = strlen( gv_ws_string ). * 3. Creating client ocject cl_http_client=>create_by_url(       exporting url = i_url       importing client = lo_client ). check lo_client is bound. * 4. Setting uname and pass if filled if i_username is not initial and    i_password is not initial.    lo_client->authenticate( username = i_username                             password = i_password ). endif. lo_client->propertytype_accept_cookie          = if_http_client=>co_enabled. lo_client->request->set_header_field(    name  = if_http_form_fields_sap=>sap_client value          = ‘100’ ). lo_client->propertytype_logon_popup… Continue reading Fm to Consume Web Services Manually