*&---------------------------------------------------------------------*

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