Sometime we need display graphic objects on our selecction screen, ALV etc. Below code can help us displaying system and user graphics on container.

You can use your SE78 graphics in this program

P.S. Please refer when you are using my codes in your personal pages. Thanks

*[*********************************************************************]
*[ Author      : Mehmet Avşar
*[ Location    : @Turkey
*[ Date / Time : 07.07.2008

*[ Add a container on screen named LOGO. And set PBO picture PBO at screen flow logic.
*[ Subject     : Display Graphics on Container
*[*********************************************************************]

report zgraphics
line-size 255
no standard page heading
line-count 065(001)
message-id zmsg.

CONSTANTS: cntl_true TYPE i VALUE 1,
cntl_false TYPE i VALUE 0.
DATA:h_picture TYPE REF TO cl_gui_picture,
h_pic_container TYPE REF TO cl_gui_custom_container.

DATA: graphic_url(255),
graphic_refresh(1),
g_result LIKE cntl_true.

DATA: BEGIN OF graphic_table OCCURS 0,
line(255) TYPE x,
END OF graphic_table.

DATA: graphic_size TYPE i.

CALL SCREEN 100.

MODULE picture OUTPUT.

DATA: l_graphic_xstr TYPE xstring,
l_graphic_conv TYPE i,
l_graphic_offs TYPE i.

CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
EXPORTING
p_object = ‘GRAPHICS’
p_name = ‘ZLOGO’“IMAGE NAME - Image name from SE78
p_id = ‘BMAP’
p_btype = ‘BCOL’
RECEIVING
p_bmp = l_graphic_xstr
EXCEPTIONS
not_found = 1
OTHERS = 2.

graphic_size = XSTRLEN( l_graphic_xstr ).
CHECK graphic_size > 0.

l_graphic_conv = graphic_size.
l_graphic_offs = 0.

WHILE l_graphic_conv > 255.
graphic_table-line = l_graphic_xstr+l_graphic_offs(255).
APPEND graphic_table.
l_graphic_offs = l_graphic_offs + 255.
l_graphic_conv = l_graphic_conv - 255.
ENDWHILE.

graphic_table-line = l_graphic_xstr+l_graphic_offs(l_graphic_conv).
APPEND graphic_table.

CALL FUNCTION ‘DP_CREATE_URL’
EXPORTING
type = ‘image’
subtype = cndp_sap_tab_unknown “ ’X-UNKNOWN’
size = graphic_size
lifetime = cndp_lifetime_transaction “‘T’
TABLES
data = graphic_table
CHANGING
url = graphic_url
EXCEPTIONS

* dp_invalid_parameter = 1
* dp_error_put_table = 2
* dp_error_general = 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.
EXIT.
ENDIF.

CREATE OBJECT h_pic_container
EXPORTING container_name = ‘LOGO’.

CREATE OBJECT h_picture EXPORTING parent = h_pic_container.

CALL METHOD h_picture->load_picture_from_url
EXPORTING
url = graphic_url
IMPORTING
RESULT = g_result.

ENDMODULE.

TYPE-POOLS: abap.

TYPES : BEGIN OF ty_outtab,
        celltab TYPE lvc_t_styl.
        INCLUDE STRUCTURE qals.
TYPES   END   OF ty_outtab.

DATA  : gt_outtab  TYPE TABLE OF ty_outtab WITH HEADER LINE,
        gs_layout  TYPE lvc_s_layo,
        ls_celltab TYPE lvc_s_styl,
        lt_celltab TYPE lvc_t_styl.

SELECT * FROM qals INTO CORRESPONDING FIELDS OF TABLE gt_outtab UP TO 20 ROWS.

ls_celltab-style = '00000121'.

INSERT ls_celltab INTO lt_celltab INDEX 1.

READ TABLE gt_outtab INDEX 1.

gt_outtab-celltab = lt_celltab.

INSERT gt_outtab INDEX 1.

gs_layout-stylefname = 'CELLTAB'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  EXPORTING
    i_structure_name = 'QALS'
    is_layout_lvc    = gs_layout
  TABLES
    t_outtab         = gt_outtab
  EXCEPTIONS
    program_error    = 1
    OTHERS           = 2.

This sample show how we use cl_gui_alv_grid protected events... When you execute this example
you can sort your data when you single click on column header...

P.S. Please refer this site when you are using my examples. Thanks


*&---------------------------------------------------------------------*
*& Report  ZUS_SDN_ALV_SINGLE_COL_HEADER
*&
*&---------------------------------------------------------------------*
*& Thread: cl_gui_alv_grid protected events
*& https://forums.sdn.sap.com/thread.jspa?threadID=914943&tstart=0
*&---------------------------------------------------------------------*

REPORT  ZUS_SDN_ALV_SINGLE_COL_HEADER.

TYPE-POOLS: abap, cntb, icon.

TYPES: BEGIN OF ty_s_outtab.
INCLUDE TYPE vbak AS vbak.
TYPES: celltab    TYPE lvc_t_styl.
TYPES: END OF ty_s_outtab.
TYPES: ty_t_outtab    TYPE STANDARD TABLE OF ty_s_outtab
                      WITH DEFAULT KEY.

DATA: gt_outtab   TYPE ty_t_outtab.

DATA:
  gd_okcode       TYPE ui_func,
  gd_repid        TYPE syrepid,
  gt_fcat         TYPE lvc_t_fcat,
  gs_layout       TYPE lvc_s_layo,
  gs_variant      TYPE disvariant,
*
  go_docking      TYPE REF TO cl_gui_docking_container,
  go_grid         TYPE REF TO cl_gui_alv_grid.

*----------------------------------------------------------------------*
*       CLASS lcl_eventhandler DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_eventhandler DEFINITION.

  public section.
    class-methods:
      handle_user_command
        for EVENT user_command of cl_gui_alv_grid
        importing
          e_ucomm
          sender.

ENDCLASS.                    "lcl_eventhandler DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_eventhandler IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_eventhandler IMPLEMENTATION.

  method handle_user_command.

    break-point.
    endmethod.

ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION

PARAMETER:
  p_active  as CHECKBOX.

START-OF-SELECTION.

  PERFORM init_controls.

  PERFORM build_fieldcatalog.
  PERFORM set_layout_and_variant.

  PERFORM build_outtab.
  PERFORM display_outtab.

**  set handler:
**    lcl_eventhandler=>handle_user_command for go_grid.

  gd_repid = syst-repid.
  CALL METHOD go_docking->link
    EXPORTING
      repid                       = gd_repid
      dynnr                       = '0100'
*      CONTAINER                   =
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      lifetime_dynpro_dynpro_link = 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.

  CALL SCREEN '0100'.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MAIN_0100'.
*  SET TITLEBAR 'xxx'.

  CALL METHOD go_grid->refresh_table_display
*    EXPORTING
*      IS_STABLE      =
*      I_SOFT_REFRESH =
    EXCEPTIONS
      finished       = 1
      OTHERS         = 2.
  IF sy-subrc  0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  TRANSLATE gd_okcode TO UPPER CASE.
  CASE gd_okcode.
    WHEN 'BACK' OR
         'EXIT' OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.

    WHEN 'APPEND'.
      PERFORM append_row.

    WHEN 'EDIT'.
      PERFORM edit_row.

    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*
*&      Form  INIT_CONTROLS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_controls .

  CREATE OBJECT go_docking
    EXPORTING
      parent                      = cl_gui_container=>screen0
*      REPID                       =
*      DYNNR                       =
*      SIDE                        = DOCK_AT_LEFT
*      EXTENSION                   = 50
*      STYLE                       =
*      LIFETIME                    = lifetime_default
*      CAPTION                     =
*      METRIC                      = 0
      ratio                       = 90
*      NO_AUTODEF_PROGID_DYNNR     =
*      NAME                        =
    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.

  CALL METHOD go_docking->set_extension
    EXPORTING
      extension  = 99999
    EXCEPTIONS
      cntl_error = 1
      OTHERS     = 2.
  IF sy-subrc  0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  CREATE OBJECT go_grid
    EXPORTING
*      I_SHELLSTYLE      = 0
*      I_LIFETIME        =
      i_parent          = go_docking
*      I_APPL_EVENTS     = space
*      I_PARENTDBG       =
*      I_APPLOGPARENT    =
*      I_GRAPHICSPARENT  =
*      I_NAME            =
*      I_FCAT_COMPLETE   = SPACE
    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.

ENDFORM.                    " INIT_CONTROLS
*&---------------------------------------------------------------------*
*&      Form  build_fieldcatalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM build_fieldcatalog .

  REFRESH: gt_fcat.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
*     I_BUFFER_ACTIVE              =
      i_structure_name             = 'VBAK'
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
    CHANGING
      ct_fieldcat                  = gt_fcat
   EXCEPTIONS
     inconsistent_interface       = 1
     program_error                = 2
     OTHERS                       = 3.
  IF sy-subrc  0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " build_fieldcatalog
*&---------------------------------------------------------------------*
*&      Form  set_layout_and_variant
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM set_layout_and_variant .

  CLEAR: gs_layout,
         gs_variant.

  gs_layout-zebra      = abap_true.
  gs_layout-cwidth_opt = abap_true.
  gs_layout-edit       = abap_true. " Grid editable
  gs_layout-stylefname = 'CELLTAB'. " set editable/non-editable

  gs_layout-sgl_clk_hd = p_active. " Single click in (col) header

ENDFORM.                    " set_layout_and_variant
*&---------------------------------------------------------------------*
*&      Form  BUILD_OUTTAB
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM build_outtab .
* define local data
  DATA: ls_outtab   TYPE ty_s_outtab,
        ls_fcat     TYPE lvc_s_fcat,
        ls_celltab  TYPE lvc_s_styl.

  SELECT * FROM  vbak INTO CORRESPONDING FIELDS OF TABLE gt_outtab
         UP TO 100 ROWS.

  " Editability of the initially displayed rows is inactivated
  CLEAR: ls_outtab.
  LOOP AT gt_fcat INTO ls_fcat.
    ls_celltab-fieldname = ls_fcat-fieldname.
    ls_celltab-style     = cl_gui_alv_grid=>mc_style_disabled.

    INSERT ls_celltab INTO TABLE ls_outtab-celltab. " sorted itab !!!
  ENDLOOP.

  MODIFY gt_outtab FROM ls_outtab
    TRANSPORTING celltab
    WHERE ( table_line IS NOT INITIAL ).

ENDFORM.                    " BUILD_OUTTAB
*&---------------------------------------------------------------------*
*&      Form  APPEND_ROW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM append_row .
* define local data
  DATA: ls_outtab   TYPE ty_s_outtab,
        ls_fcat     TYPE lvc_s_fcat,
        ls_celltab  TYPE lvc_s_styl.

  " Editability of the initially displayed rows is inactivated
  CLEAR: ls_outtab.
  LOOP AT gt_fcat INTO ls_fcat.
    ls_celltab-fieldname = ls_fcat-fieldname.
    ls_celltab-style     = cl_gui_alv_grid=>mc_style_disabled.

    INSERT ls_celltab INTO TABLE ls_outtab-celltab. " sorted itab !!!
  ENDLOOP.

  APPEND ls_outtab TO gt_outtab.

ENDFORM.                    " APPEND_ROW
*&---------------------------------------------------------------------*
*&      Form  EDIT_ROW
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM edit_row .
* define local data
  DATA: ls_outtab   TYPE ty_s_outtab,
        ls_row      TYPE lvc_s_row,
        lt_rows     TYPE lvc_t_row.

  CALL METHOD go_grid->get_selected_rows
    IMPORTING
      et_index_rows = lt_rows
*      ET_ROW_NO     =
      .

  IF ( lt_rows IS INITIAL ).
    MESSAGE 'Select at least a single row' TYPE 'S'.
    RETURN.
  ENDIF.

  REFRESH: ls_outtab-celltab.
  LOOP AT lt_rows INTO ls_row.
    MODIFY gt_outtab FROM ls_outtab INDEX ls_row-index
      TRANSPORTING celltab.
  ENDLOOP.

ENDFORM.                    " EDIT_ROW

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_OUTTAB
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM display_outtab .

  CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
*      I_BUFFER_ACTIVE               =
*      I_BYPASSING_BUFFER            =
*      I_CONSISTENCY_CHECK           =
*      I_STRUCTURE_NAME              =
      is_variant                    = gs_variant
      i_save                        = 'A'
*      I_DEFAULT                     = 'X'
      is_layout                     = gs_layout
*      IS_PRINT                      =
*      IT_SPECIAL_GROUPS             =
*      IT_TOOLBAR_EXCLUDING          =
*      IT_HYPERLINK                  =
*      IT_ALV_GRAPHICS               =
*      IT_EXCEPT_QINFO               =
*      IR_SALV_ADAPTER               =
    CHANGING
      it_outtab                     = gt_outtab
      it_fieldcatalog               = gt_fcat
*      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.

ENDFORM.                    " DISPLAY_OUTTAB

report zuseofhashedtables.
************************************************************************
** Program: ZUseOfHashedTables                                        **
************************************************************************
** Author: Horacio Zapettini                                          **
**                                                                    **
** Versions: 4.6b - 4.6c                                              **
************************************************************************
** Notes:                                                             **
**     this program shows how we can use hashed tables to improve     **
**     the responce time.                                             **
**     It shows,                                                      **
**        1. how to declare hashed tables                             **
**        2. a cache-like technique to improve access to master data  **
**        3. how to collect data using hashed tables                  **
**        4. how to avoid deletions of unwanted data                  **
************************************************************************
** Results: the test we run read about 31000 rows from mkpf, 150000   **
**          rows from mseg, 500 rows from makt and 400 from lfa1.     **
**          it filled ht_lst with 24500 rows and displayed them in    **
**          alv grid format.                                          **
**                                                                    **
**          It took about 65 secodns to perform this task (first time **
**          we run it when all the db buffers are empty.              **
**                                                                    **
**          The same program with standard tables needed 140 seconds  **
**          to run with the same recordset and with buffers filled in **
**                                                                    **
**          A simmilar test over more than a million rows
************************************************************************
** Objetive: show a list that consists of  all the material movements **
**          '101' - '901' for a certain range of dates in mkpf-budat. **
** the columns to be displayed are:                                   **
**          mkpf-budat,                                               **
**          mkpf-mblnr,                                               **
**          mseg-lifnr,                                               **
**          lfa1-name1,                                               **
**          mkpf-xblnr,                                               **
**          mseg-zeile                                                **
**          mseg-charg,                                               **
**          mseg-matnr,                                               **
**          makt-maktx,                                               **
**          mseg-erfmg,                                               **
**          mseg-erfme.                                               **
** or show a sumary list by matnr - menge                             **
**                                                                    **
** You'll have to create a pf-status called vista -                   **
** See form set_pf_status for details                                 **
************************************************************************

** tables used -
tables: mkpf,
        mseg,
        lfa1,
        makt.

** global hashed tables used
*
data: begin of wa_mkpf, "header
      mblnr like mkpf-mblnr,
      mjahr like mkpf-mjahr,
      budat like mkpf-budat,
      xblnr like mkpf-xblnr,
      end of wa_mkpf.
data: ht_mkpf like hashed table of wa_mkpf
      with unique key mblnr mjahr
      with header line.
data: st_mkpf like standard table of wa_mkpf
      with header line.

*
data: begin of wa_mseg, " line items
      mblnr like mseg-mblnr,
      mjahr like mseg-mjahr,
      zeile like mseg-zeile,
      bwart like mseg-bwart,
      charg like mseg-charg,
      matnr like mseg-matnr,
      lifnr like mseg-lifnr,
      erfmg like mseg-erfmg,
      erfme like mseg-erfme,
      end of wa_mseg.
data ht_mseg like hashed table of wa_mseg
      with unique key mblnr mjahr zeile
      with header line.
data st_mseg like standard table of wa_mseg
      with header line.

** cache structure for lfa1 records
data: begin of wa_lfa1,
      lifnr like lfa1-lifnr,
      name1 like lfa1-name1,
      end of wa_lfa1.
data ht_lfa1 like hashed table of wa_lfa1
      with unique key lifnr
      with header line.

** cache structure for material related data
data: begin of wa_material,
      matnr like makt-matnr,
      maktx like makt-maktx,
      end of wa_material.
data: ht_material like hashed table of wa_material
        with unique key matnr
        with header line.

** result table
data: begin of wa_lst, "
      budat like mkpf-budat,
      mblnr like mseg-mblnr,
      lifnr like mseg-lifnr,
      name1 like lfa1-name1,
      xblnr like mkpf-xblnr,
      zeile like mseg-zeile,
      charg like mseg-charg,
      matnr like mseg-matnr,
      maktx like makt-maktx,
      erfmg like mseg-erfmg,
      erfme like mseg-erfme,
      mjahr like mseg-mjahr,
      end of wa_lst.

data: ht_lst like hashed table of wa_lst
        with unique key mblnr mjahr zeile
        with header line.

data: begin of wa_lst1, " sumary by material
      matnr like mseg-matnr,
      maktx like makt-maktx,
      erfmg like mseg-erfmg,
      erfme like mseg-erfme,
      color_line(4) TYPE c,           " Line color
      color_cell    TYPE lvc_t_scol,  " Cell color
      celltab type LVC_T_STYL,
      end of wa_lst1.

data: ht_lst1 like hashed table of wa_lst1
        with unique key matnr
        with header line.

** structures for alv grid display.
** itabs
type-pools: slis.

data: it_lst            like standard table of wa_lst with header line,
      it_fieldcat_lst   type slis_t_fieldcat_alv with header line,
      it_sort_lst       type slis_t_sortinfo_alv,
      it_lst1           like standard table of wa_lst1 with header line,
      it_fieldcat_lst1  type slis_t_fieldcat_alv with header line,
      it_sort_lst1      type slis_t_sortinfo_alv.
** structures
data: wa_sort         type slis_sortinfo_alv,
      ls_layout       type slis_layout_alv.
** color management.
DATA  : wa_color    TYPE lvc_s_scol.
* Internal table for color management.
DATA : it_color    TYPE TABLE          OF lvc_s_scol.

* itab for input enabling.
DATA: lt_celltab TYPE lvc_t_styl. "

** global varialbes

data: g_lines type i.

data: g_repid like sy-repid,
      ok_code       like sy-ucomm.

** selection-screen

"text: Dates:
select-options: so_budat for mkpf-budat default sy-datum.
"text: Material numbers.
select-options: so_matnr for mseg-matnr.
selection-screen uline.
selection-screen skip 1.
"Text: show summary by material.
parameters: gp_bymat as checkbox default ''.
parameters: gp_hier  as checkbox default 'X'.
start-of-selection.
  perform get_data.
  perform show_data.

end-of-selection.

*---------------------------------------------------------------------*
*       FORM get_data                                                 *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
form get_data.
  	select mblnr mjahr budat xblnr
            into table ht_mkpf
           from mkpf
          where budat in so_budat. " make use of std index.
** have we retrieved data from mkpf?
  describe table ht_mkpf lines g_lines.
  if g_lines > 0.
** if true then retrieve all related records from mseg.
** Doing this way we make sure that the access is by primary key
** of mseg.
** The reason is that is faster to filter them in memory
** than to allow the db server to do it.
    select mblnr mjahr zeile bwart charg
             matnr lifnr erfmg erfme
      into table ht_mseg
      from mseg
        for all entries in ht_mkpf
     where mblnr = ht_mkpf-mblnr
       and mjahr = ht_mkpf-mjahr.
  endif.

** fill t_lst or t_lst1 according to user's choice.
  if gp_bymat = ' '.
    perform fill_ht_lst.
  else.
    perform fill_ht_lst1.
  endif.
endform.

form fill_ht_lst.
  refresh ht_lst.
** Example: how to discard unwanted data in an efficient way.
  loop at ht_mseg.
*   filter unwanted data
    check ht_mseg-bwart = '101' or ht_mseg-bwart = '901'.
    check ht_mseg-matnr in so_matnr.
*   read header line.
    read table ht_mkpf with table key mblnr = ht_mseg-mblnr
    mjahr = ht_mseg-mjahr.
    clear ht_lst.
*  * note : this may be faster if you specify field by field.
    move-corresponding ht_mkpf to ht_lst.
    move-corresponding ht_mseg to ht_lst.

    perform read_lfa1 using ht_mseg-lifnr changing ht_lst-name1.
    perform read_material using ht_mseg-matnr changing ht_lst-maktx.
    insert table ht_lst.
  endloop.
endform.

form fill_ht_lst1.
data: colorear.
  refresh ht_lst1.
** Example: how to discard unwanted data in an efficient way.
**          hot to simulate a collect in a faster way
  loop at ht_mseg.
*   filter unwanted data
    check ht_mseg-bwart = '101' or ht_mseg-bwart = '901'.
    check ht_mseg-matnr in so_matnr.
*  * note : this may be faster if you specify field by field.

    read table ht_lst1 with table key matnr = ht_mseg-matnr
    transporting erfmg.
    if sy-subrc <> 0. " if matnr doesn't exist in sumary table
    " insert a new record
      clear ht_lst1.
      ht_lst1-matnr = ht_mseg-matnr.
      perform read_material using ht_mseg-matnr changing ht_lst1-maktx.
      ht_lst1-erfmg = ht_mseg-erfmg.
      ht_lst1-erfme = ht_mseg-erfme.
      if colorear = ''.
        colorear = 'X'.
        refresh it_color.
        ht_lst1-color_cell[] = it_color[].
        MOVE 'C410' TO ht_lst1-color_line.
      else.
        colorear = ' '.
        refresh it_color. clear it_color.
        MOVE 'MATNR' TO wa_color-fname.
        MOVE '6'         TO wa_color-color-col.
        MOVE '1'         TO wa_color-color-int.
        MOVE '1'         TO wa_color-color-inv.
        APPEND wa_color TO it_color.
        MOVE 'MAKTX' TO wa_color-fname.
        MOVE '3'         TO wa_color-color-col.
        MOVE '1'         TO wa_color-color-int.
        MOVE '1'         TO wa_color-color-inv.
        APPEND wa_color TO it_color.

        MOVE 'ERFMG' TO wa_color-fname.
        MOVE '5'         TO wa_color-color-col.
        MOVE '1'         TO wa_color-color-int.
        MOVE '1'         TO wa_color-color-inv.

        APPEND wa_color TO it_color.
        ht_lst1-color_cell[] = it_color[].

        clear ht_lst1-color_line.

      endif.

      insert table ht_lst1.
    else." a record was found.
    " collect erfmg.  To do so, fill in the unique key and add
    " the numeric fields.
      ht_lst1-matnr = ht_mseg-matnr.
      add ht_mseg-erfmg to ht_lst1-erfmg.
      modify table ht_lst1 transporting erfmg.
    endif.
  endloop.
endform.

** implementation of cache for lfa1.
form read_lfa1 using p_lifnr changing p_name1.
  	read table ht_lfa1 with table key lifnr = p_lifnr
        transporting name1.
  if sy-subrc <> 0.
    clear ht_lfa1.
    ht_lfa1-lifnr = p_lifnr.
    select single name1
       into ht_lfa1-name1
      from lfa1
    where lifnr = p_lifnr.
    if sy-subrc <> 0. ht_lfa1-name1 = 'n/a in lfa1'. endif.
    insert table ht_lfa1.
  endif.
  p_name1 = ht_lfa1-name1.
endform.

** implementation of cache for material data
form read_material using p_matnr changing p_maktx.
  read table ht_material with table key matnr = p_matnr
  transporting maktx.
  if sy-subrc <> 0.
    ht_material-matnr = p_matnr.
    select single maktx into  ht_material-maktx
      from makt
     where spras = sy-langu
       and matnr = p_matnr.
    if sy-subrc <> 0. ht_material-maktx = 'n/a in makt'. endif.
    insert table ht_material.
  endif.
  p_maktx = ht_material-maktx.
endform.
form show_data.
  if gp_hier = 'X'. "no anda.
*    perform show_hierarchicalALV.
  else.
    if gp_bymat = ' '.
      perform show_ht_lst.
    else.
      perform show_ht_lst1.
    endif.
  endif.
endform.
form show_hierarchicalALV.
st_mkpf[] = ht_mkpf[].
st_mseg[] = ht_mseg[].
call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
*  exporting
*   I_INTERFACE_CHECK              = ' '
*   I_CALLBACK_PROGRAM             =
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IS_LAYOUT                      =
*   IT_FIELDCAT                    =
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
*   IT_EVENTS                      =
*   IT_EVENT_EXIT                  =
*    i_tabname_header               =
*    i_tabname_item                 =
*   I_STRUCTURE_NAME_HEADER        =
*   I_STRUCTURE_NAME_ITEM          =
*    is_keyinfo                     =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_BUFFER_ACTIVE                =
*   I_BYPASSING_BUFFER             =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
  tables
    t_outtab_header                = st_mkpf
    t_outtab_item                  = st_mseg
* EXCEPTIONS
*   PROGRAM_ERROR                  = 1
*   OTHERS                         = 2
          .
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

endform.
form show_ht_lst.
  "needed because the FM can't use a hashed table.
  it_lst[] = ht_lst[].

  perform fill_layout using 'full display'
                       changing ls_layout.

  perform fill_columns_lst.
*  perform sort_lst.
  g_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program       = g_repid
            i_callback_pf_status_set = 'SET_PF_STATUS'
            is_layout                = ls_layout
            it_fieldcat              = it_fieldcat_lst[]
*            it_sort                  = it_sort_lst
       tables
            t_outtab                 = it_lst
       exceptions
            program_error            = 1
            others                   = 2.

endform.
form show_ht_lst1.
  "needed because the FM can't use a hashed table.
  it_lst1[] = ht_lst1[].

  perform fill_layout using 'Sumary by matnr'
                       changing ls_layout.

  perform fill_columns_lst1.
*  perform sort_lst.
  g_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program       = g_repid
            i_callback_pf_status_set = 'SET_PF_STATUS'
            is_layout                = ls_layout
            it_fieldcat              = it_fieldcat_lst1[]
*            it_sort                  = it_sort_lst
       tables
            t_outtab                 = it_lst1
       exceptions
            program_error            = 1
            others                   = 2.

endform.

form fill_layout using p_window_titlebar
               changing cs_layo type slis_layout_alv.
  clear cs_layo.
  cs_layo-window_titlebar        = p_window_titlebar.
  cs_layo-edit                   = 'X'.
  cs_layo-edit_mode              = space.
  MOVE 'COLOR_LINE' TO cs_layo-info_fieldname.

* Field that identify cell color in inetrnal table
  MOVE 'COLOR_CELL' TO cs_layo-coltab_fieldname.
*  move 'CELLTAB' TO cs_layo-stylefname.

endform.                    " armar_layout_stock

form set_pf_status using rt_extab type slis_t_extab.
** create a new status
** and then select extras -> adjust template -> listviewer
  set pf-status 'VISTA'.
endform.        "set_pf_status
define add_lst.
  clear it_fieldcat_lst.
  it_fieldcat_lst-fieldname     = &1.
  it_fieldcat_lst-outputlen     = &2.
  it_fieldcat_lst-ddictxt       = 'L'.
  it_fieldcat_lst-seltext_l       = &1.
  it_fieldcat_lst-seltext_m       = &1.
  it_fieldcat_lst-seltext_m       = &1.
  if &1 = 'MATNR'.
    it_fieldcat_lst-emphasize = 'C111'.
  endif.
  append it_fieldcat_lst.
end-of-definition.
define add_lst1.
  clear it_fieldcat_lst.
  it_fieldcat_lst1-fieldname     = &1.
  it_fieldcat_lst1-outputlen     = &2.
  it_fieldcat_lst1-ddictxt       = 'L'.
  it_fieldcat_lst1-seltext_l       = &1.
  it_fieldcat_lst1-seltext_m       = &1.
  it_fieldcat_lst1-seltext_m       = &1.
  append it_fieldcat_lst1.
end-of-definition.

form fill_columns_lst.
* set columns for output.

  refresh it_fieldcat_lst.
*
  add_lst 'BUDAT' 10.
  add_lst   'MBLNR' 10.
  add_lst  'LIFNR' 10.
  add_lst  'NAME1' 35.
  add_lst  'XBLNR' 15.
  add_lst    'ZEILE' 5.
  add_lst    'CHARG' 10.
  add_lst   'MATNR' 18.
  add_lst   'MAKTX' 30.
  add_lst   'ERFMG' 17.
  add_lst   'ERFME' 5.
  add_lst   'MJAHR' 4.
endform.
form fill_columns_lst1.
* set columns for output.

  refresh it_fieldcat_lst1.

  add_lst1 'MATNR' 18.
  add_lst1 'MAKTX' 30.
  add_lst1 'ERFMG' 17.
  add_lst1 'ERFME' 5..
endform.

This HOWTO will give the steps you need to find where the data is stored in SAP when you want to create an ABAP query or ABAP report using fields that you can find on transaction screens.

1. The first step is always to find out the table and field name of the screen field. With the cursor in the field you want, press F1 or click on the “?”.
2. The initial help screen will give you descriptions and information about the field.
3. From there press F9 or click on [Technical info].
4. Here you can get names of the table, field and the data element.
5. If you are lucky the system gives you a transparent table name. If you’re not lucky you’ll get a structure name.
6. Doubleclick on the data element and search via the where used of the dictionary.
7. Failing above you can set up the TCODE or a portion of it just before screen where the field exists and then switch on SQL Trace, run the screen, turn off SQL trace and then list the Trace Log following which tables/views were hit. Obviously it is best to turn on and off the trace in the smallest time-window possible to lessen the number of Trace Log entries you have to look through.
8. Another thing to try is : run program RSSDOCTB. This gives you a list with info about the table such as fields, check tables ….
9. Or try Transaction SE84 (Repository Info System)- Select in the tree ABAP Dictionary -> Fields -> Table Fields – Insert in the Select-Option “Field name” the name of the files (E.g. CARRID and CONNID) and execute it – now you will get a list of all tables which have one or both of this fields – it’s easy to identify the tables which contain both fields in the list.
10. Or start an sql trace and look at the tables that are read
11. Last resort, find the program name (click on the triangle icon at botton right t oexpand information and click on the icon right of client number) and look the ABAP code with TCODE SE38

In this example I will show you below selection screen properties

* Adding button on selection screen
* Define radiobuttons
* Define checkboxes
* Add more than one object in per line of selection screen
* Disable an object
* Hide/Show an object
* Display blue colored parameters

REPORT  ZMAVSARTEST.

Tables : Pgmi, Sscrfields.

Data : Begin Of IPgmi Occurs 0,
         Werks Type Pgmi-Werks,
         Prgrp Type Pgmi-Prgrp,
         Nrmit Type Pgmi-Nrmit,
       End Of IPgmi.
Data : WPgmi Like Line Of IPgmi.

Selection-Screen Begin of Block b1 With Frame Title TEXT-T01.
  Select-Options : Prgrp  For Pgmi-Prgrp Default ‘183X366_BTE’ Modif Id OB.
  Parameters     : Werks Like Marc-Werks Default ‘2000′,
                   S1 RadioButton Group G1,
                   S2 RadioButton Group G1,
                   S3 RadioButton Group G1,
                   PSay(3).
Selection-Screen End of Block b1.

Selection-Screen Begin of Block b2 With Frame Title TEXT-T02.
  Parameters     : S4 RadioButton Group G2,
                   S5 RadioButton Group G2.
Selection-Screen End of Block b2.

Selection-Screen Begin of Block b3 With Frame Title TEXT-T03.
  Parameters     : S6 RadioButton Group G3 User-Command Radyo,
                   S7 RadioButton Group G3.
  Selection-Screen begin of line.
    Parameters p_ch1 AS checkbox Modif ID SL.
      Selection-Screen comment 3(20) text-001 Modif ID SL.
    Parameters p_ch2 AS checkbox Modif ID SL.
      Selection-Screen comment 27(20) text-002 Modif ID SL.
    Parameters p_ch3 AS checkbox Modif ID SL.
      Selection-Screen comment 51(20) text-003 Modif ID SL.
  Selection-Screen end of line.
  Selection-Screen begin of line.
    Parameters p_ch4 AS checkbox Modif ID SL.
      Selection-Screen comment 3(20) text-004 Modif ID SL.
    Parameters p_ch5 AS checkbox Modif ID SL.
      Selection-Screen comment 27(20) text-005 Modif ID SL.
    Parameters p_ch6 AS checkbox Modif ID SL.
      Selection-Screen comment 51(20) text-006 Modif ID SL.
  Selection-Screen end of line.
  Selection-Screen begin of line.
    Parameters p_ch7 AS checkbox Modif ID SL.
      Selection-Screen comment 3(20) text-007 Modif ID SL.
    Parameters p_ch8 AS checkbox Modif ID SL.
      Selection-Screen comment 27(20) text-008 Modif ID SL.
    Parameters p_ch9 AS checkbox Modif ID SL.
      Selection-Screen comment 51(20) text-009 Modif ID SL.
  Selection-Screen end of line.
  Selection-Screen begin of line.
    Parameters p_ch10 AS checkbox Modif ID SL.
      Selection-Screen comment 3(20) text-010 Modif ID SL.
    Parameters p_ch11 AS checkbox Modif ID SL.
      Selection-Screen comment 27(20) text-011 Modif ID SL.
    Parameters p_ch12 AS checkbox Modif ID SL.
      Selection-Screen comment 51(20) text-012 Modif ID SL.
  Selection-Screen end of line.
Selection-Screen End of Block b3.

TYPE-POOLS icon.
Data : Functxt TYPE Smp_Dyntxt.

Selection-Screen: Function Key 1,
                  Function Key 2.
Initialization.
  S7 = ‘X’.
  Functxt-icon_id   = ICON_ALARM.
  Functxt-quickinfo = ‘Uç’.
  Functxt-icon_text = ‘Uç’.
  Sscrfields-functxt_01 = functxt.
  Sscrfields-Functxt_02 = ‘Button2′.

At Selection-Screen.
  Case Sscrfields-Ucomm.
    When ‘FC01′.
      Message ‘Uçakla mı uçacaksın?’ Type ‘I’.
    When ‘FC02′.
      Message ‘Button2′ Type ‘I’.
    When Others.
  Endcase.

At Selection-Screen Output.
  Perform CheckRadio.

FORM CheckRadio.
  Loop At Screen.
    If S6 = ‘X’.
      If Screen-Group1 = ‘SL’.
        Screen-Active = 0.
      Endif.
    Elseif S7 = ‘X’.
      If Screen-Group1 = ‘SL’.
        Screen-Active = 1.
      Endif.
    Endif.
    If Screen-Group1 = ‘OB’.
      Screen-Intensified = ‘1′.
    Endif.
    If Screen-Name = ‘S5′.
      Screen-Input = 0.
    Endif.
    Modify Screen.
  Endloop.
ENDFORM.” CheckRadio

Start-Of-Selection.
  Perform GetData.
End-Of-Selection.

Form GetData.
* Get your data in this subroutine
EndForm.                    ” GetData

Selection Screen Without Execute Button 

REPORT  ZMAVSARTEST.

tables: sscrfields.

data:it_exc type table of rsexfcode,
wa_exc type rsexfcode.

parameters: p_carrid type s_carr_id,
p_cityfr type s_from_cit.

selection-screen: function key 1,
function key 2.

initialization.
sscrfields-functxt_01 = ‘ONE’.
sscrfields-functxt_02 = ‘TWO’.
wa_exc-fcode = ‘ONLI’.
append wa_exc to it_exc.

at selection-screen.

case sscrfields-ucomm.
when’FC01′.
p_carrid = ‘ONE’.
p_cityfr = ‘HYD’.
when ‘FC02′.
p_carrid = ‘TWO’.
p_cityfr = ‘KKD’.
endcase.

at selection-screen output.

* SET PF-STATUS ‘ ‘ OF PROGRAM ‘RSSYSTDB’ EXCLUDING WA_EXC-FCODE.

call function ‘RS_SET_SELSCREEN_STATUS’
exporting
p_status = ‘%_00′
p_program = ‘RSSYSTDB’
tables
p_exclude = it_exc.

Dear friends,

Currently I am working an international SAP project. I don’t have enough time for adding new codes. And unfortunately our government blocked worpress.com . I am writing this message another country.

I will write new codes to my blog when I still out of Turkey.

Please feel free to e-mail me (mavsar @!@ gmail @.@ com )

Mehmet

*———————————————————————*
* Report Name : YGECICI
*———————————————————————*
* Author : Mehmet Avşar
* Location : @Altunizade - Uskudar / Istanbul
* Date / Time : 29 Oct 2007
* Subject : Alpha Numeric Number Range Auto Increment
*———————————————————————*

FORM counter_change CHANGING p_counter.
search l_seq for p_counter.
l_pointer = sy-fdpos + 1.
P_counter = l_seq+l_pointer(1).
ENDFORM.