Displaying Two ALV Grid on Screen

In this tutorial I will try to explain how to display multiple ALV Grid on a single screen. This is a very simple concept, to render or to draw a ALV grid on a screen you need a CONTAINER. Usually we create a CONTAINER with class CL_GUI_CUSTOM_CONTAINER and pass this CONTAINER object while creating ALV grid in parameter I_PARENT. Now to display multiple ALV grid you need multiple CONTAINER, here the class CL_GUI_EAST_SPLITTER_CONTAINER comes in the picture. This class divides a particular CONTAINER into two and give you two CONTAINER in return. How it divides depend on the parameter you pass while creating object. You can divide it horizontally by passing argument CL_GUI_EAST_SPLITTER_CONTAINER=>ORIENTATION_HORIZONTAL or vertically by passing argument CL_GUI_EAST_SPLITTER_CONTAINER=>orientation_VERTICAL. Since it will give you two CONTAINER you can further divide resulting CONATINER into two. So each time you create a object of CL_GUI_EAST_SPLITTER_CONTAINER you get one more CONTAINER. Finally you can use these CONATINER to create ALV Grids, or any GUI controls for example CL_GUI_ALV_TREE or CL_GUI_MOVIE (SAP Movie Control.. sounds interesting).

If you are confuse with above explanation then just forgot it and see the example. I have created a SCREEN 100 with custom container name 'CONTAINER'.



Below is the code for above screen shot.

REPORT zreport.
TABLES : scarr .
DATA : it_scarr TYPE TABLE OF scarr .
 
DATA : ob_custom TYPE REF TO cl_gui_custom_container ,
       ob_split1 TYPE REF TO cl_gui_easy_splitter_container ,
       ob_split2 TYPE REF TO cl_gui_easy_splitter_container ,
       ob_grid1  TYPE REF TO cl_gui_alv_grid ,
       ob_grid2  TYPE REF TO cl_gui_alv_grid ,
       ob_grid3  TYPE REF TO cl_gui_alv_grid .
 
SELECT-OPTIONS : s_carrid FOR scarr-carrid .
 
START-OF-SELECTION .
 
SELECT *
  INTO TABLE it_scarr
  FROM scarr
 WHERE carrid IN s_carrid .
 
CALL SCREEN 100 .
 
*&---------------------------------------------------------------------*
*& Module status_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
 
MODULE status_0100 OUTPUT.
   SET TITLEBAR 'ZTITLE01' .
   SET PF-STATUS 'ZPF01' .

* This will create a container
   CREATE OBJECT ob_custom
      EXPORTING
        container_name = 'CONTAINER' . 
 
* This spit the container OB_CUSTOM into two
   CREATE OBJECT ob_split1
      EXPORTING
        parent = ob_custom
        orientation = cl_gui_easy_splitter_container=>orientation_vertical .
 
* Now we have two container
* OB_SPLIT1->TOP_LEFT_CONTAINER
* OB_SPLIT1->BOTTOM_RIGHT_CONTAINER
* Since these two are itself a container we can further devide them into two.
* Let try to divide OB_SPLIT1->BOTTOM_RIGHT_CONTAINER into two
 
    CREATE OBJECT ob_split2
       EXPORTING
          parent = ob_split1->bottom_right_container
          orientation = cl_gui_easy_splitter_container=>orientation_horizontal .
 
* Now we have total 3 container available with us
* OB_SPLIT1->TOP_LEFT_CONTAINER
* OB_SPLIT2->TOP_LEFT_CONTAINER
* OB_SPLIT2->BOTTOM_RIGHT_CONTAINER
* Note that OB_SPLIT1->BOTTOM_RIGHT_CONTAINER is not available because we divided
* that into two.
* Now Put a grid in each container
 
   CREATE OBJECT ob_grid1
      EXPORTING
        i_parent = ob_split1->top_left_container .
 
   CREATE OBJECT ob_grid2
      EXPORTING
        i_parent = ob_split2->top_left_container .
 
   CREATE OBJECT ob_grid3
      EXPORTING
        i_parent = ob_split2->bottom_right_container .
 
   CALL METHOD ob_grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SCARR'
      CHANGING
        it_outtab = it_scarr.
 
   CALL METHOD ob_grid2->set_table_for_first_display
      EXPORTING
         i_structure_name = 'SCARR'
      CHANGING
         it_outtab = it_scarr.
 
   CALL METHOD ob_grid3->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SCARR'
      CHANGING
        it_outtab = it_scarr.
 
ENDMODULE. " status_0100 OUTPUT
 
*&---------------------------------------------------------------------*
*& Module user_command_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

   IF sy-ucomm = 'BACK' OR sy-ucomm = 'EXIT' .
      FREE : ob_grid1 ,
             ob_grid2 ,
             ob_grid3 ,
             ob_split1 ,
             ob_split2 ,
             ob_custom .

       LEAVE TO SCREEN 0 .
   ENDIF.

ENDMODULE. " user_command_0100 INPUT

Recommended blogs
Display ALV Grid (OOP) Fullscreen
Use of Application Log FMs to display Message List/Log
Creating custom page format for sapscript/smartform
Reset ALV Export Option for User