Displaying ALV using a Docking Container


Hello Friends in this article we are going to see how to display ALV using docking container in sap abap

Objective

This program is used to display Docking Container. Sometimes we get the requirement to place the container at any corner as resizable Ex:  ALV and selection parameters in same Screen. To serve purpose we will go for docking container.

Introduction

As we know that a SAP Container is a control that accommodates other controls, such as the SAP Tree Control, SAP Picture Control, SAP Text edit Control, SAP Splitter Control, and so on. It manages these controls logically in a collection, and provides a physical area in which they are displayed. All controls live in a container. Since containers are themselves controls, you can nest them. There are five kinds of SAP Containers:

SAP Custom Container: display controls in an area defined on a normal screen using the Screen Painter. Class: CL_GUI_CUSTOM_CONTAINER

SAP Dialog Box Container: display controls in a modal dialog box or full screen.

Class: CL_GUI_DIALOGBOX_CONTAINER

SAP Docking Container: The SAP Docking Container allows you to attach a control to any of the four edges of a screen as a resizable screen area. You can also detach it so that it becomes an independent modal dialog box. Class: CL_GUI_DOCKING_CONTAINER

SAP Splitter Container: to display more than one control in a given area by dividing it into cells. Class: CL_GUI_SPLITTER_CONTAINER

SAP Easy Splitter Container:  this container allows us to divide an area into two cells with a control in each. The cells are separated by a moveable splitter bar.

Class: CL_GUI_EASY_SPLITTER_CONTAINER.  

Here we display the functionality of docking container.

SAP Docking container can be attached on or more areas of screen. To reattach the docking container to a different edge of the screen we use DOCK_AT method. To switch the status of the Docking Container between fixed (docking) and free (floating) we use the method FLOAT.


We can use docking container in web Dynpro and sub screen also.

Below is the Example of Docking Container.  

Code Snippet

REPORT  z75_docking MESSAGE-ID yxnmc.

TABLES: mara.
*———————————————————————*
*                        W O R K  A R E A S                           *
*———————————————————————*
DATA:
*  Material Data
  BEGIN OF wa_mara,
    matnr    TYPE   mara-matnr,         ” Material No.
    mtart    TYPE   mara-mtart,         ” Material Type
    bismt    TYPE   mara-bismt,         ” Old material No.
    matkl    TYPE   mara-matkl,         ” Material group
    meins    TYPE   mara-meins,         ” Base Unit of Measure
    brgew    TYPE   mara-brgew,         ” Gross Weight
    ntgew    TYPE   mara-ntgew,         ” Net Weight
    gewei    TYPE   mara-gewei,         ” Weight Unit
  END OF wa_mara,

* Field Catalog

wa_fieldcat   TYPE lvc_s_fcat.

*———————————————————————*
*                   I N T E R N A L   T A B L E S                     *
*———————————————————————*
DATA:
* For Material Data
  t_mara LIKE STANDARD TABLE OF wa_mara,
* For Field Catalog
  t_fieldcat  TYPE lvc_t_fcat.

*———————————————————————*
*                     W O R K  V A R I A B L E S                      *
*———————————————————————*
DATA:
* User Command
  ok_code TYPE sy-ucomm,
* Reference Variable for Docking Container
  r_dock_container  TYPE REF TO cl_gui_docking_container,
* Reference Variable for alv grid
  r_grid  TYPE REF TO cl_gui_alv_grid.

*———————————————————————*
*                S T A R T   O F   S E L E C T I O N                  *
*———————————————————————*
START-OF-SELECTION.
* To Display the Data
  PERFORM display_output.
*&——————————————————————–*
*&      Form  display_output                                          *
*&——————————————————————–*
*       To Call the  screen & display the output                      *
*———————————————————————*
*   There are no interface parameters to be passed to this subroutine.*
*———————————————————————*
FORM display_output .
* To fill the Field Catalog
  PERFORM fill_fieldcat USING :
      ‘MATNR’    ‘T_MARA’         ‘Material No.’,
      ‘MTART’    ‘T_MARA’         ‘Material Type’,
      ‘BISMT’    ‘T_MARA’         ‘Old Material No.’,
      ‘MATKL’    ‘T_MARA’         ‘Material Group’,
      ‘MEINS’    ‘T_MARA’         ‘Base Unit of Measure’,
      ‘BRGEW’    ‘T_MARA’         ‘Gross Weight’,
      ‘NTGEW’    ‘T_MARA’         ‘Net Weight’,
      ‘GEWEI’    ‘T_MARA’         ‘Weight Unit’.
  CALL SCREEN 500.
ENDFORM.                               ” Display_output  

*&————————————————————–*
*&      Form  FILL_FIELDCAT                                     *
*&————————————————————–*
*       To Fill the Field Catalog                               *
*—————————————————————*
*  Three Parameters are passed                                  *
*  pv_field   TYPE any for Field                                *
*  pv_tabname TYPE any for Table Name                           *
*  pv_coltext TYPE any for Header Text                          *
*—————————————————————*
FORM fill_fieldcat  USING   pv_field   TYPE any
                            pv_tabname TYPE any
                            pv_coltext TYPE any .

  wa_fieldcat-fieldname  = pv_field.
  wa_fieldcat-tabname    = pv_tabname.
  wa_fieldcat-coltext    = pv_coltext.

  APPEND wa_fieldcat TO t_fieldcat.
  CLEAR  wa_fieldcat.
ENDFORM.                               ” FILL_FIELDCAT  

Create the Screen 0500.  

Flow Logic for Screen 500.  

*&———————————————————————*
*&      Module  STATUS_0500  OUTPUT                                    *
*&———————————————————————*
*       To Set GUI Status & Title                                      *
*———————————————————————-*
MODULE status_0500 OUTPUT.

  SET PF-STATUS ‘STATUS’.
  SET TITLEBAR ‘TITLE’.

ENDMODULE.                             ” STATUS_0500  OUTPUT


*&———————————————————————*
*&      Module  CREATE_OBJECTS  OUTPUT                                 *
*&———————————————————————*
*       To Call the Docking Container & Display Method                 *
*———————————————————————-*
MODULE create_objects OUTPUT.
* Create a Docking container and dock the control at right side of screen
  CHECK r_dock_container IS  INITIAL.
  CREATE OBJECT r_dock_container
    EXPORTING
   side                        = cl_gui_docking_container=>dock_at_right
      extension                   = 780
      caption                     = ‘Materials’
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.                               ”  IF sy-subrc <> 0.

* To Create the Grid Instance
  CREATE OBJECT r_grid
    EXPORTING
      i_parent          = r_dock_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
  IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.                               ” IF sy-subrc <> 0.

* Formatted Output Table is Sent to Control
  CALL METHOD r_grid->set_table_for_first_display
    CHANGING
      it_outtab                      =  t_mara
      it_fieldcatalog                =  t_fieldcat
*      it_sort                       =
*      it_filter                     =
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4
          .
  IF sy-subrc <> 0.
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.                               ” IF sy-subrc <> 0.
ENDMODULE.                             ” CREATE_OBJECTS  OUTPUT
*&———————————————————————*
*&      Module  USER_COMMAND_0500  INPUT                               *
*&———————————————————————*
*     To Fetch the Material Data & Refresh Table after get User Command*
*———————————————————————-*
MODULE user_command_0500 INPUT.
  CASE ok_code.
    WHEN ‘EXECUTE’.
      SELECT matnr                     ” material no.
             mtart                     ” material type
             bismt                     ” old material no.
             matkl                     ” material group
             meins                     ” base unit of measure
             brgew                     ” gross weight
             ntgew                     ” net weight
             gewei                     ” weight unit
        FROM mara
        INTO TABLE t_mara
        WHERE  mtart = mara-mtart.
      IF sy-subrc <> 0.
      ENDIF.                           ” IF sy-subrc EQ 0.
      CALL METHOD r_grid->refresh_table_display.
    WHEN ‘BACK’ OR ‘CANCEL’ OR ‘EXIT’.
      LEAVE TO SCREEN 0.
  ENDCASE.                             ” CASE ok_code.
ENDMODULE.                             ” USER_COMMAND_0500  INPUT


Leave a Reply

Your email address will not be published. Required fields are marked *