Komplettübung Webservice Wetterbericht1 Zott

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'

(


2/6


)ro'* anlegen

+


3/6


http://www.webservicex.net/globalweather.asmx?WSDL

,


4/6


*&---------------------------------------------------------------------**& 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((


5/6


(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:


6/6


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% /&gtH/ 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:

Komplettübung Webservice Wetterbericht1 Zott

Documents

Transcript of Komplettübung Webservice Wetterbericht1 Zott