Skip to content

Ahmet Faruk Bişkinler

ABAP

ABAP (Advanced Business Application Programming, originally Allgemeiner Berichts-Aufbereitungs-Prozessor, German for "general report creation processor"[citation needed]) is a very high level programming language created by the German software company SAP. It is currently positioned, alongside the more recently introduced Java, as the language for programming SAP's Web Application Server, part of its NetWeaver platform for building business applications. Its syntax is somewhat similar to COBOL.

http://en.wikipedia.org/wiki/ABAP

 

 

SAP ABAP Get UME User Details information from WS (Web service) and parsing xml information PDF Yazdır e-Posta
SAP - ABAP
Administrator tarafından yazıldı.   
Cuma, 09 Ocak 2009 13:09
Etiketler:
SAP ABAP Get UME User Details getting information from WS (Web service) and parsing xml information with call tranformation. 
Z_XML_GET_MASS
  1.  
  2. *&---------------------------------------------------------------------*
  3. *& Report Z_XML_GET_MASS
  4. *&
  5. *&---------------------------------------------------------------------*
  6. *&
  7. *&
  8. *&---------------------------------------------------------------------*
  9.  
  10. REPORT z_xml_get_mass.
  11.  
  12.  
  13. TYPES : BEGIN OF typ_userdetail ,
  14.   test1 TYPE string,
  15.   test2 TYPE string,
  16.   orgunit  TYPE string,
  17.   displayname TYPE string,
  18.   accessibilitylevel TYPE string,
  19.   cellphone TYPE string,
  20.   city TYPE string,
  21.   company TYPE string,
  22.   country TYPE string,
  23.   currency TYPE string,
  24.   department TYPE string,
  25.   email TYPE string,
  26.   fax TYPE string,
  27.   firstname TYPE string,
  28.   jobtitle TYPE string,
  29.   lastname TYPE string,
  30.   locale TYPE string,
  31.   parentgroups TYPE string,
  32.   roles TYPE string,
  33.   salutation TYPE string,
  34.   state TYPE string,
  35.   street TYPE string,
  36.   telephone TYPE string,
  37.   timezone TYPE string,
  38.   title TYPE string,
  39.   transientattribute TYPE string,
  40.   uid TYPE string,
  41.   uniquename TYPE string,
  42.   useraccountuniqueids TYPE string,
  43.   useraccounts TYPE string,
  44.   userfactory TYPE string,
  45.   zip TYPE string,
  46. END OF typ_userdetail.
  47.  
  48. TYPES typ_t_userdetail TYPE STANDARD TABLE OF typ_userdetail.
  49.  
  50. DATA: BEGIN OF ws_xml_data OCCURS 0,
  51.           userid TYPE string,
  52.           namespace TYPE string,
  53.           attribute TYPE typ_t_userdetail,
  54.      END OF ws_xml_data.
  55.  
  56. data: wa_xml like ws_xml_data.
  57. data: wa_x TYPE typ_userdetail.
  58.  
  59. *-- variables for text processing
  60. DATA xmlstr TYPE string.
  61. " End of XMl
  62.  
  63. " Start of WS getData
  64. *-- variables for proxy class
  65. DATA : input TYPE zws_get_attribute_mass_in_doc,
  66.         output TYPE zws_get_attribute_mass_out_doc,
  67.         io_clientproxy TYPE REF TO zws_co_ipr_ws_ume_ejbvi_docume,
  68.         xslt_err TYPE REF TO cx_xslt_exception,
  69.         lo_sys_exception   TYPE REF TO cx_ai_system_fault,
  70.         lo_app_exception   TYPE REF TO cx_ai_application_fault.
  71.  
  72. *-- input screen
  73. PARAMETERS : p_input(50) DEFAULT 'abiskinler'.
  74. PARAMETERS : p_name(50) DEFAULT 'com.sap.security.core.usermanagement' LOWER CASE.
  75. PARAMETERS : p_attrib(50) DEFAULT 'orgunit' LOWER CASE.
  76.  
  77. APPEND p_input TO input-user_id-string.
  78. input-name_space = p_name.
  79. APPEND p_attrib TO input-attribute_name-string.
  80. APPEND 'displayname' TO input-attribute_name-string.
  81.  
  82. *-- create web service proxy class instance
  84.     CREATE OBJECT io_clientproxy
  85.       EXPORTING
  86.         logical_port_name = 'DEFAULT'.
  87.  
  88.   CATCH cx_ai_system_fault.
  89.  
  91.  
  92.  
  93. *-- call web service methods
  95.     CALL METHOD io_clientproxy->get_attribute_mass
  96.       EXPORTING
  98.       IMPORTING
  99.         output = output.
  100.  
  101.   CATCH cx_ai_system_fault INTO lo_sys_exception.
  102.     MESSAGE lo_sys_exception TYPE 'I'.
  103.   CATCH cx_ai_application_fault INTO lo_app_exception.
  104.     MESSAGE lo_app_exception TYPE 'I'.
  105.  
  107.  
  108. xmlstr = output-response.
  109.  
  110. *CALL TRANSFORMATION id
  111. *   SOURCE ATTRIBUTE = outtab1[]
  112. *   RESULT XML xmlstr.
  113.  
  114. *REFRESH outtab1.
  115. CALL TRANSFORMATION id
  116.    SOURCE XML xmlstr
  117.    RESULT users = ws_xml_data[].
  118.  
  119. *WRITE xmlstr.
  120.  
  121. LOOP AT ws_xml_data INTO wa_xml.
  122.   LOOP AT wa_xml-attribute INTO wa_x.
  123.      WRITE:/ 'uniquename: ',wa_x-uniquename.
  124.      WRITE:/ 'displayname: ',wa_x-displayname.
  125.      WRITE:/ p_attrib(10),': ',wa_x-orgunit.
  127.  
  129.  
  130.  
http://www.biskinler.com/
Etiketler:
Yeni yorum ekle