【转贴】【ABAP】Call web dynpro in web dynpro

  DATA: l_url_str TYPE string. "String to hold another application's  
  "Absolute URL  
  DATA: l_window_manager TYPE REF TO if_wd_window_manager.  
  DATA: l_cmp_api TYPE REF TO if_wd_component.  
  DATA: l_window  TYPE REF TO if_wd_window.  
  DATA: lt_para   TYPE tihttpnvp. "Holding passed in parameters  
  DATA: lwa_para  TYPE ihttpnvp.  "Work area for passing in parameters  
* Fill pass in parameters  
* Appointment type  
  lwa_para-name  = 'ZATYPE'.  
  lwa_para-value = l_atype.  
  APPEND lwa_para TO lt_para.  
  CLEAR lwa_para.  
* Request number  
  lwa_para-name  = 'ZREQNO'."Request number  
  lwa_para-value = lv_req_no.  
  APPEND lwa_para TO lt_para.  
  CLEAR lwa_para.  
* Get absolute URL of another application  
  cl_wd_utilities=>construct_wd_url(  
    EXPORTING  
      application_name              = 'ZGECFWDA0029'  
      in_parameters                 = lt_para  
    IMPORTING  
      out_absolute_url              = l_url_str  
         ).  
* Get a reference of window from component  
  l_cmp_api = wd_comp_controller->wd_get_api( ).  
  l_window_manager = l_cmp_api->get_window_manager( ).  
  l_window = l_window_manager->create_external_window(  
      url            = l_url_str  
*      title          = title  
*      modal          = ABAP_FALSE  
*      has_menubar    = ABAP_TRUE  
*      is_resizable   = ABAP_TRUE  
*      has_scrollbars = ABAP_TRUE  
*      has_statusbar  = ABAP_TRUE  
*      has_toolbar    = ABAP_TRUE  
*      has_location   = ABAP_TRUE  
         ).  
  l_window->open( ).