8/10/2019 Komplettbung Webservice Wetterbericht1 Zott
1/6
Integrata WebServices fr die NRW-Bank
Komplettbung Webservice Wetterbericht
rkennen der WS!"
instieg ins Internet # http#$$%%%&%ebservice'&com$%s$default&asp'
(
8/10/2019 Komplettbung Webservice Wetterbericht1 Zott
2/6
Integrata WebServices fr die NRW-Bank
)ro'* anlegen
+
8/10/2019 Komplettbung Webservice Wetterbericht1 Zott
3/6
Integrata WebServices fr die NRW-Bank
http://www.webservicex.net/globalweather.asmx?WSDL
,
8/10/2019 Komplettbung Webservice Wetterbericht1 Zott
4/6
Integrata WebServices fr die NRW-Bank
*&---------------------------------------------------------------------**& Report ZSMS_PROXY*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*
report zcountry_proxy.data: p_content type string t!"#$ type i
* Re%erence aria'(es %or proxy and exception c(ass (o_c(ientproxy type re% to z'c_co_g(o'a(_)eat er_soap (o_sys_exception type re% to cx_ai_syste+_%au(t city type ta'(e o% string
* Structures to set and get +essage content (s_re,uest_gcpc type z'c_get_cities_'y_country_soa! (s_response_gcpc type z'c_get_cities_'y_country_soap.
para+eters: country type c ar de%au(t /ger+any/ city! type c ar de%au(t /(eipzig/.
(s_re,uest_gcpc-country_na+e 0 country.*(s_re,uest-contro((er-%ie(d 0 /1try.
* create proxy c(ient get run ti+e %ie(d t!. create o'2ect (o_c(ientproxy exporting (ogica(_port_na+e 0 /Z31_1O_45O365_7869 8R_SO6P/.
* do sync ronous c(ient proxy ca((
8/10/2019 Komplettbung Webservice Wetterbericht1 Zott
5/6
Integrata WebServices fr die NRW-Bank
(o_c(ientproxy-;get_cities_'y_country" exporting input 0 (s_re,uest_gcpc i+porting output 0 (s_response_gcpc $. get run ti+e %ie(d t!. )rite: < /9i+e:/ t!. p_content 0 (s_response_gcpc-get_cities_'y_country_resu(t .*&---------------------------------------------------------------------**& Processing t e string*&---------------------------------------------------------------------* data : +o%% type syst-ta'ix
+o%%! type syst-ta'ix (en type syst-ta'ix .
do . %ind /=1ity;/ in section o%%set +o%% o% p_content ignoring case +atc o%%set +o%% . i% sy-su'rc 0 . +o%% 0 +o%% > # . %ind /=+o%%"(en$ . append p_content>+o%%"(en$ to city. e(se. exit. endi%. enddo .
catc cx_ai_syste+_%au(t into (o_sys_exception.
* 8rror and(ing
*&---------------------------------------------------------------------**& Report Z_1O?@9RY*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*
report z_country.
*&---------------------------------------------------------------------**& Se(ection Screen*&---------------------------------------------------------------------*para+eters : p_cnt type t At-(andx .
*&---------------------------------------------------------------------**& 9ypes and Bata*&---------------------------------------------------------------------*data: city type ta'(e o% string t! type i.data: ttp_c(ient type re% to i%_ ttp_c(ient ttp_ur( type string p_content type string city(ast type string .%ie(d-sy+'o(s: =city; type string.*&---------------------------------------------------------------------**& Start o% Se(ection*&---------------------------------------------------------------------*start-o%-se(ection .
* 3ui(d t e ur( string 'ased on input concatenate / ttp:
8/10/2019 Komplettbung Webservice Wetterbericht1 Zott
6/6
Integrata WebServices fr die NRW-Bank
get run ti+e %ie(d t!. )rite: < /9i+e:/ t!. exit. p_content 0 ttp_c(ient-;response-;get_cdata" $. get run ti+e %ie(d t!. rep(ace a(( occurrences o% /&(tH/ in p_content )it /=/ . rep(ace a(( occurrences o% />H/ in p_content )it /;/ .
*&---------------------------------------------------------------------**& Processing t e string*&---------------------------------------------------------------------* data : +o%% type syst-ta'ix +o%%! type syst-ta'ix (en type syst-ta'ix .
do . %ind /=1ity;/ in section o%%set +o%% o% p_content ignoring case +atc o%%set +o%% . i% sy-su'rc 0 . +o%% 0 +o%% > # . %ind /=+o%%"(en$ . append p_content>+o%%"(en$ to city. e(se. exit. endi%. enddo . (oop at city assigning =city;. c(ear ttp_ur(.** 7etter'eric t zu a((en StIdten* 0000000000000000000000000000000 concatenate / ttp:
Top Related