ABAP-container拆分

1.界面

2.代码

 *&---------------------------------------------------------------------*
 *& Report  ZRICO_TEST22
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*
 report z_sourav_splitter.

 type-pools:cndp.
 data:
   docking   type ref to cl_gui_docking_container,
   splitter  type ref to cl_gui_splitter_container,
   splitter1 type ref to cl_gui_splitter_container.

 parameters: p type char1.
 at selection-screen output.

   if docking is not bound.
     create object docking
       exporting
         repid     = sy-repid
         dynnr     = sy-dynnr
         side      = docking->dock_at_left
         extension = .
     if sy-subrc = .
       check splitter is not bound.
       create object splitter
         exporting
           link_dynnr = sy-dynnr
           link_repid = sy-repid
           height     =
           align      =
           parent     = docking
           rows       =
           columns    = .
       if sy-subrc = .
 *      PERFORM publish using:
 *       '1' '1' 'DEMOWORD97SAPLOGO',
 *       '2' '1' 'ENJOYSAP_LOGO',
 *       '1' '2' 'ENJOYSAP_LOGO',
 *       '2' '2' 'DEMOWORD97SAPLOGO'.
         check splitter1 is not bound.
         create object splitter1
           exporting
             link_dynnr = sy-dynnr
             link_repid = sy-repid
             height     =
             align      =
             parent     = splitter->get_container( row =  column =  )
             rows       =
             columns    = .
       endif.
     endif.
   endif.

 form publish using l_row type any
                    l_column type any
                    l_logo type w3objid.
   data: dock_sub_cont   type ref to cl_gui_container,
         url             type cndp_url,
         picture_control type ref to cl_gui_picture.

   call method splitter->get_container
     exporting
       row       = l_row
       column    = l_column
     receiving
       container = dock_sub_cont.

   create object picture_control
     exporting
       parent = dock_sub_cont.

   call function 'DP_PUBLISH_WWW_URL'
     exporting
       objid                 = l_logo
       lifetime              = cndp_lifetime_transaction
     importing
       url                   = url
     exceptions
       dp_invalid_parameters =
       no_object             =
       dp_error_publish      =
       others                = .
   if sy-subrc = .
     call method picture_control->load_picture_from_url_async
       exporting
         url = url.
   endif.
 endform.