How to use drill down function from ALV report

[Former Member]

Hi all,

I have a requirement where ALV grid display listing all the trips used for the day . When I click one trip, drill down function listing all the relevant details for that trips.

Hope it is clear.

It would be grateful, if u could provide a sample code.

thanks in advance.

points will be rewarded.

[Former Member]

Hi all,

I have a requirement where ALV grid display listing all the trips used for the day . When I click one trip, drill down function listing all the relevant details for that trips.

Hope it is clear.

It would be grateful, if u could provide a sample code.

thanks in advance.

points will be rewarded.

[Former Member]

sample code

REPORT zalv_dropdowns.

*Type pools declarations for ALV
TYPE-POOLS : slis.

*data declarations for ALV container,ALV grid, Fieldcatalogues & layout
DATA: g_grid  TYPE REF TO cl_gui_alv_grid,
      g_custom_container TYPE REF TO cl_gui_custom_container,
      gt_fieldcat TYPE lvc_t_fcat,
      gs_layout TYPE lvc_s_layo.

*INTERNAL TABLE AND WA DECLARATIONS FOR t517 A table
DATA: gt_outtab TYPE STANDARD TABLE OF t517a INITIAL SIZE 0,
      wa_outtab TYPE t517a.

*initialisation event
INITIALIZATION.

*Start of selection event
START-OF-SELECTION.

*Call to ALV
  CALL SCREEN 600.

*On this statement double click  it takes you to the screen painter SE51.
*Create a Custom container and name it CCONT and OK code as OK_CODE.
*Save check and Activate the screen painter.
*Now a normal screen with number 600 is created which holds the ALV grid.
* PBO of the actual screen , Here we can give a title and customized menus
* Here we also call the subroutine for ALV output.
*---------------------------------------------------------------------*
*       MODULE PBO OUTPUT                                             *
*---------------------------------------------------------------------*
MODULE pbo OUTPUT.
*  set pf-status 'xxx'.
*  set titlebar 'MAIN100'.
* Subroutine to display the output in alv
  PERFORM alv_output.

ENDMODULE.                    "pbo OUTPUT

* PAI module of the screen created. In case we use an interactive ALV or
*for additional functionalities we can create OK codes and
* based on the user command we can do the coding.

*---------------------------------------------------------------------*
*       MODULE PAI INPUT                                              *
*---------------------------------------------------------------------*
MODULE pai INPUT.

ENDMODULE.                    "pai INPUT
*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCAT
*&---------------------------------------------------------------------*

FORM build_fieldcat.

  DATA ls_fcat TYPE lvc_s_fcat.

*Build the field catalogue
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = 'T517A'
    CHANGING
      ct_fieldcat      = gt_fieldcat.

* To assign dropdown in the fieldcataogue
  LOOP AT gt_fieldcat INTO ls_fcat.

    CASE ls_fcat-fieldname.

      WHEN 'SLART'.
*drdn-hndl = '1' is the first list box
        ls_fcat-drdn_hndl = '1'.
        ls_fcat-outputlen = 15.
        MODIFY gt_fieldcat FROM ls_fcat.

*drdn-hndl = '2' is the second list box

      WHEN 'ABART'.

        ls_fcat-drdn_hndl = '2'.
        ls_fcat-outputlen = 15.
        MODIFY gt_fieldcat FROM ls_fcat.

    ENDCASE.

  ENDLOOP.

ENDFORM.                    "build_fieldcat
*&---------------------------------------------------------------------*
*&      Form  ALV_OUTPUT
*&---------------------------------------------------------------------*
FORM alv_output .

*Create object for container
  CREATE OBJECT g_custom_container
         EXPORTING container_name = 'CCONT'.

*create object for grid
  CREATE OBJECT g_grid
         EXPORTING i_parent = g_custom_container.

* Build fieldcat and set column
*Assign a handle for the dropdown listbox.
  PERFORM build_fieldcat.

*Build layout
  PERFORM build_layout.

* Define a drop down table.
  PERFORM dropdown_table.

*fetch values from the T517A table
  SELECT * FROM t517a INTO TABLE gt_outtab.

*Display ALV output
  CALL METHOD g_grid->set_table_for_first_display
    EXPORTING
      is_layout       = gs_layout
    CHANGING
      it_fieldcatalog = gt_fieldcat
      it_outtab       = gt_outtab.

ENDFORM.                               "ALV_OUTPUT

*&---------------------------------------------------------------------*
*&      Form  dropdown_table
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM dropdown_table.

*Declarations for drop down lists in ALV.
  DATA: lt_dropdown TYPE lvc_t_drop,
        ls_dropdown TYPE lvc_s_drop.

* First SLART listbox (handle '1').
  ls_dropdown-handle = '1'.
  ls_dropdown-value = '01 Primary school'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.
  ls_dropdown-value = '02 Lower Secondary'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.
  ls_dropdown-value = '03 Upper Secondary'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.
  ls_dropdown-value = '04 Professional School'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.
  ls_dropdown-value = '05 College'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.
  ls_dropdown-value = '06 University'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '1'.
  ls_dropdown-value = '09 Other Establishment'.
  APPEND ls_dropdown TO lt_dropdown.

* Second ABART listbox (handle '2').

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '10 Primary School certificate'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '20 Lower secondary/Junior high'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '30 High school diploma(B-levels)'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '31 Vocational'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '32 Matriculation'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '40 Specialist vocational certificate'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '50 College degree Level1'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '51 College degree Level2'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '52 Masters degree'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '60 Univ Degree level1'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '61 Bachelors degree'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '62 Masters degree'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '63 Licenciate'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '64 Doctors Degree Ph.D'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '89 None'.
  APPEND ls_dropdown TO lt_dropdown.

  ls_dropdown-handle = '2'.
  ls_dropdown-value = '90 Unknown'.
  APPEND ls_dropdown TO lt_dropdown.

*method to display the dropdown in ALV
  CALL METHOD g_grid->set_drop_down_table
    EXPORTING
      it_drop_down = lt_dropdown.

ENDFORM.                               " dropdown_table
*&---------------------------------------------------------------------*
*&      Form  build_layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*layout for ALV output
FORM build_layout .

  gs_layout-cwidth_opt = 'X'.
  gs_layout-grid_title = 'ALV DROPDOWN LISTS'.
  gs_layout-no_toolbar = 'X'.

ENDFORM.                    " build_layout

[Former Member]

Hi Jaya

Hope it will help you. How r u.

Reward if help.

REPORT yfi7g_ing_mic_001 .

*PROGRAM YFI7G_ING_MIC_001.

TABLES: vbak .

TABLES: mara .

TYPES: BEGIN OF tp_vbak ,

vbeln TYPE vbak-vbeln,

erdat TYPE vbak-erdat,

erzet TYPE vbak-erzet,

ernam TYPE vbak-ernam,

vbtyp TYPE vbak-vbtyp,

trvog TYPE vbak-trvog,

auart TYPE vbak-auart,

lifsk TYPE vbak-lifsk,

faksk TYPE vbak-faksk,

waerk TYPE vbak-waerk,

vkorg TYPE vbak-vkorg,

kunnr TYPE vbak-kunnr,

vgbel TYPE vbak-vgbel,

vgtyp TYPE vbak-vgtyp,

END OF tp_vbak .

TYPES: BEGIN OF tp_mara ,

matnr TYPE mara-matnr,

END OF tp_mara .

TYPES: BEGIN OF tp_alv1_data.

INCLUDE TYPE tp_vbak .

TYPES: END OF tp_alv1_data.

TYPES: BEGIN OF tp_alv2_data.

INCLUDE TYPE tp_mara .

TYPES: END OF tp_alv2_data.

TYPE-POOLS: slis.

DATA: gt_vbak TYPE STANDARD TABLE OF tp_vbak WITH HEADER LINE.

DATA: gt_mara TYPE STANDARD TABLE OF tp_mara WITH HEADER LINE.

DATA: gs_variant LIKE disvariant.

DATA: gt_alv1_data TYPE STANDARD TABLE OF tp_alv1_data WITH HEADER LINE.

DATA: gt_alv2_data TYPE STANDARD TABLE OF tp_alv2_data WITH HEADER LINE.

----

---

• SELECTION-SCREEN *

----

---

----

---

• BLOCK b0 *

----

---

SELECTION-SCREEN BEGIN OF BLOCK b0 WITH FRAME.

SELECT-OPTIONS: s_vbeln FOR vbak-vbeln. "<field not defined?>

PARAMETERS: p_matnr LIKE mara-matnr. "<field not defined?>

SELECTION-SCREEN END OF BLOCK b0.

----

---

• BLOCK bvar *

----

---

SELECTION-SCREEN BEGIN OF BLOCK bvar WITH FRAME.

PARAMETERS: p_vari LIKE disvariant-variant.

SELECTION-SCREEN END OF BLOCK bvar.

----

---

• BLOCK bbox *

----

---

SELECTION-SCREEN BEGIN OF BLOCK bbox WITH FRAME.

PARAMETERS: p_box_up RADIOBUTTON GROUP b1,

p_box_do RADIOBUTTON GROUP b1 DEFAULT 'X',

p_box_no RADIOBUTTON GROUP b1.

SELECTION-SCREEN END OF BLOCK bbox.

----

---

• AT SELECTION-SCREEN ON P_VARI *

----

---

AT SELECTION-SCREEN ON p_vari.

PERFORM alv_variant_existence USING p_vari

CHANGING gs_variant.

----

---

• AT SELECTION-SCREEN ON VALUE REQUEST FOR P_VARI *

----

---

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.

PERFORM alv_variant_f4 CHANGING p_vari

gs_variant.

----

---

• INITIALIZATION *

----

---

INITIALIZATION.

----

---

• START-OF-SELECTION *

----

---

START-OF-SELECTION.

PERFORM authority_check.

PERFORM get_control_data.

PERFORM get_transaction_data.

PERFORM process_transaction_data.

----

---

• END-OF-SELECTION *

----

---

END-OF-SELECTION.

PERFORM output_data.

----

---

• F O R M S *

----

---

----

---

• FORM AUTHORITY_CHECK *

----

---

• Perform authority checks for the report *

----

---

FORM authority_check.

• !!! Note: authorisation checks are application-dependent.

• !!! Some common cases are listed below - please select one of them

• !!! or add new authorisation checks.

• !!! If the report is creating batch input session or using LDB

• !!! it may be sufficient to use automatic SAP auth.checks.

• Authorisation for displaying documents in a single company code

• ---------------------------------------------------------------

• authority-check object 'F_BKPF_BUK'

• id 'BUKRS' field p_bukrs

• id 'ACTVT' field '03'.

• if sy-subrc <> 0.

• message e001(z9) with 'No authorisation to display documents'

• 'in company code' p_bukrs.

• endif.

• Displaying documents from a list of company codes (select-options)

• ------------------------------------------------------------------

• call function 'Y_BUKRS_AUTHORITY_CHECK'

• EXPORTING

• ACTVT = '03'

• NOMESSAGE = ' '

• tables

• s_bukrs = s_bukrs.

ENDFORM. " AUTHORITY_CHECK

----

---

• FORM GET_CONTROL_DATA *

----

---

• Read configuration etc. *

----

---

FORM get_control_data.

ENDFORM. " GET_CONTROL_DATA

----

---

• FORM GET_TRANSACTION_DATA *

----

---

• Read documents etc. *

----

---

FORM get_transaction_data.

• !!! Data selection statement below has been generated automatically.

• !!! Please check if it is correct and complete.

• !!! Use table joins or 'SELECT FOR ALL ENTRIES' when selecting data

• !!! from related tables.

SELECT

vbeln

erdat

erzet

ernam

FROM vbak

INTO CORRESPONDING FIELDS OF TABLE gt_vbak

.

CHECK NOT gt_vbak[] IS INITIAL.

SELECT

matnr

FROM mara

INTO CORRESPONDING FIELDS OF TABLE gt_mara

FOR ALL ENTRIES IN gt_vbak

WHERE ernam = gt_vbak-ernam

.

ENDFORM. " GET_TRANSACTION_DATA

----

---

• FORM PROCESS_TRANSACTION_DATA *

----

---

• ........ *

----

---

FORM process_transaction_data.

LOOP AT gt_vbak .

MOVE-CORRESPONDING gt_vbak TO gt_alv1_data .

APPEND gt_alv1_data .

ENDLOOP.

FREE gt_vbak .

LOOP AT gt_mara .

MOVE-CORRESPONDING gt_mara TO gt_alv2_data .

APPEND gt_alv2_data .

ENDLOOP.

FREE gt_mara .

ENDFORM. " PROCESS_TRANSACTION_DATA

----

---

• FORM OUTPUT_DATA *

----

---

• ........ *

----

---

FORM output_data.

PERFORM alv_list_display.

ENDFORM. " OUTPUT_DATA

----

---

• FORM DISPLAY_RECORD *

----

---

• Display object associated with the current ALV line *

----

---

FORM display_record USING is_selfield TYPE slis_selfield.

READ TABLE gt_alv1_data INDEX is_selfield-tabindex.

CHECK sy-subrc = 0.

• !!! SAMPLE IMPLEMENTATION FOR DISPLAYING FI DOCUMENTS:

SET PARAMETER ID 'BUK' FIELD gt_alv1_data-vbeln.

• set parameter id 'BLN' field gt_alv1_data-belnr.

• set parameter id 'GJR' field gt_alv1_data-gjahr.

CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

ENDFORM. " DISPLAY_RECORD

----

---

• FORM ALV_LIST_DISPLAY *

----

---

• Invoke main ALV function to format and show the report *

----

---

FORM alv_list_display.

DATA: ls_layout TYPE slis_layout_alv,

ls_print TYPE slis_print_alv,

ls_keyinfo TYPE slis_keyinfo_alv,

lt_fieldcat TYPE slis_t_fieldcat_alv,

lt_exctab TYPE slis_t_extab,

lt_sorttab TYPE slis_t_sortinfo_alv,

lt_events TYPE slis_t_event.

PERFORM alv_init_report_events TABLES lt_events.

PERFORM alv_init_report_layout TABLES lt_fieldcat

lt_exctab

lt_sorttab

CHANGING ls_layout

ls_print

ls_keyinfo.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_interface_check = ' '

i_callback_program = sy-cprog

is_layout = ls_layout

it_fieldcat = lt_fieldcat

it_excluding = lt_exctab

• IT_SPECIAL_GROUPS =

it_sort = lt_sorttab

• 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 = 'A'

is_variant = gs_variant

it_events = lt_events

• IT_EVENT_EXIT =

i_tabname_header = 'GT_ALV1_DATA'

i_tabname_item = 'GT_ALV2_DATA'

• I_STRUCTURE_NAME_HEADER =

• I_STRUCTURE_NAME_ITEM =

is_keyinfo = ls_keyinfo

is_print = ls_print

• IS_REPREP_ID =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab_header = gt_alv1_data

t_outtab_item = gt_alv2_data.

• EXCEPTIONS

• PROGRAM_ERROR = 1

• OTHERS = 2

ENDFORM. " ALV_LIST_DISPLAY

----

---

• FORM ALV_INIT_REPORT_LAYOUT *

----

---

• Set up report layout definition for ALV_LIST_DISPLAY *

----

---

• <-- OT_FIELDCAT list of fields *

• <-- OT_EXCTAB excluded menu options *

• <-- OT_SORTTAB sorting/grouping definition *

• <-- OS_LAYOUT global report layout settings *

• <-- OS_PRINT global report printout settings *

• <-- OS_KEYINFO itab key fields (required only for hier.lists) *

----

---

FORM alv_init_report_layout TABLES ot_fieldcat TYPE slis_t_fieldcat_alv

ot_exctab TYPE slis_t_extab

ot_sorttab TYPE slis_t_sortinfo_alv

CHANGING cs_layout TYPE slis_layout_alv

cs_print TYPE slis_print_alv

cs_keyinfo TYPE slis_keyinfo_alv.

• add menu items to be excluded to ot_exctab.

REFRESH ot_exctab.

REFRESH ot_fieldcat.

REFRESH ot_sorttab.

• !!!

• !!! List all ALV data fields for display here:

• !!!

• DD-struct = data dictionary structure name

• DD-field = field of data dictionary structure

• itab = internal table for output data

• itab-field = internal table field name

• key = set to 'X' if key field

• sum = set to 'X' for totals

• hid = set to 'X' if field is initially hidden

• row = list row number (multi-line list if >1)

*

• DD-struct DD-field itab itab-field key sum hid row

• ------------------------------------------------------------------

PERFORM alv_build_fieldcat TABLES ot_fieldcat USING:

'VBAK' 'VBELN' 'GT_ALV1_DATA' 'VBELN' ' ' ' ' ' ' 1 ,

'VBAK' 'ERDAT' 'GT_ALV1_DATA' 'ERDAT' ' ' ' ' ' ' 1 ,

'VBAK' 'ERZET' 'GT_ALV1_DATA' 'ERZET' ' ' ' ' ' ' 1 ,

'VBAK' 'ERNAM' 'GT_ALV1_DATA' 'ERNAM' ' ' ' ' ' ' 1.

PERFORM alv_build_fieldcat TABLES ot_fieldcat USING:

'MARA' 'MATNR' 'GT_ALV2_DATA' 'MATNR' ' ' ' ' ' ' 1 .

• !!!

• !!! List all ALV data fields for sorting/grouping here

• !!!

• itab = internal table for output data

• itab-field = internal table field name

• up = sort ascending

• down = sort descending

• grp = group by

• comp = group initially compressed

• pos = field position in sort sequence

*

• itab field up down grp comp pos

• ---------------------------------------------------------------------

PERFORM alv_build_sorttab TABLES ot_sorttab USING:

'GT_ALV1_DATA' 'VBELN' 'X' ' ' ' ' ' ' 1.

PERFORM alv_build_sorttab TABLES ot_sorttab USING:

'GT_ALV2_DATA' 'MATNR' 'X' ' ' ' ' ' ' 1.

• !!! key definition - required only for hierarchical display (2 itabs)

cs_keyinfo-header01 = 'VBELN' .

cs_keyinfo-item01 = 'MATNR' .

• !!! See the declaration of type SLIS_LAYOUT_ALV and set the fields

• !!! of OS_LAYOUT record to change list-level attributes

• os_layout-no_colhead = 'X'. " no headings

cs_layout-zebra = 'X'. " stripped pattern

• os_layout-no_vline = 'X'. " columns separated by space

• os_layout-totals_only = 'X'. " show only totals

• os_layout-totals_text = 'Total'. " totals line label

• os_layout-subtotals_text = 'Subtotal'. " subtotals line label

• os_layout-subtotals_text = 'Subtotal'. " subtotals line label

• os_layout-key_hotspot = 'X'. " keys as hotspot

• os_layout-expand_all = 'X'. " Expand all positions

• os_layout...

cs_print-no_print_selinfos = 'X'. " Skip selection statistics

cs_print-no_print_listinfos = 'X'. " Skip list statistics

• os_print-...

ENDFORM. " INIT_REPORT_LAYOUT

----

---

• FORM ALV_BUILD_FIELDCAT *

----

---

• Format a single line for ALV_INIT_REPORT_LAYOUT *

----

---

FORM alv_build_fieldcat TABLES ot_fieldcat

USING iv_ref_tabname "ref to a table/field

iv_ref_fieldname

iv_tabname "actual table/field name

iv_fieldname

iv_key

iv_do_sum

iv_no_out

iv_row_pos.

• status variables for auto-numbering of field column position

• (column number reset when a new table or row begins)

STATICS: sv_last_tabname TYPE slis_tabname,

sv_last_row_pos TYPE i,

sv_current_col TYPE i.

IF sv_last_tabname <> iv_tabname OR sv_last_row_pos <> iv_row_pos.

sv_current_col = 1.

ELSE.

ADD 1 TO sv_current_col.

ENDIF.

sv_last_tabname = iv_tabname.

sv_last_row_pos = iv_row_pos.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

DATA: lv_fieldname TYPE slis_fieldname.

lv_fieldname = iv_fieldname.

• !!!

• !!! List all the special formatting requirements in cases below

• !!!

• case lv_fieldname.

• when 'WRBTR'. "<-- link with currency required

• ls_fieldcat-cfieldname = 'WAERS'.

• ls_fieldcat-ctabname = iv_tabname.

*

• when 'HKONT'. "<-- change default column header

• ls_fieldcat-seltext_s = 'GL Acc.'.

• ls_fieldcat-ddictxt = 'S'. " (S)hort (M)iddle (L)ong

*

• when 'SOME_NUMBER' "<-- change number formatting

• ls_fieldcat-nosign = 'X'.

• ls_fieldcat-nozero = 'X'.

• ls_fieldcat-just = 'L'. " (L)eft (R)ight (C)enter

• endcase.

ls_fieldcat-ref_tabname = iv_ref_tabname.

ls_fieldcat-ref_fieldname = iv_ref_fieldname.

ls_fieldcat-tabname = iv_tabname.

ls_fieldcat-fieldname = iv_fieldname.

ls_fieldcat-key = iv_key.

ls_fieldcat-do_sum = iv_do_sum.

ls_fieldcat-no_out = iv_no_out.

ls_fieldcat-row_pos = iv_row_pos.

ls_fieldcat-col_pos = sv_current_col.

APPEND ls_fieldcat TO ot_fieldcat.

ENDFORM. " ALV_BUILD_FIELDCAT

----

---

• FORM ALV_BUILD_SORTTAB *

----

---

• Set up sorting information for ALV_INIT_REPORT_LAYOUT *

----

---

FORM alv_build_sorttab TABLES ot_sorttab TYPE slis_t_sortinfo_alv

USING iv_tabname TYPE slis_fieldname

iv_fieldname TYPE slis_fieldname

iv_up TYPE c

iv_down TYPE c

iv_subtot TYPE c

iv_comp TYPE c

iv_spos TYPE n.

ot_sorttab-spos = iv_spos.

ot_sorttab-fieldname = iv_fieldname.

ot_sorttab-tabname = iv_tabname.

ot_sorttab-up = iv_up.

ot_sorttab-down = iv_down.

ot_sorttab-subtot = iv_subtot.

ot_sorttab-comp = iv_comp.

APPEND ot_sorttab.

ENDFORM. " ALV_BUILD_SORTTAB

----

---

• FORM ALV_INIT_REPORT_EVENTS *

----

---

• Set up program events for ALV_LIST_DISPLAY *

----

---

• <-- OT_EVENTS list of events and associated report subroutines *

----

---

FORM alv_init_report_events TABLES ot_events TYPE slis_t_event.

CLEAR ot_events.

REFRESH ot_events.

ot_events-name = slis_ev_user_command.

ot_events-form = 'USER_COMMAND'.

APPEND ot_events.

ot_events-name = slis_ev_pf_status_set.

ot_events-form = ''. "'PF_STATUS_SET'.

APPEND ot_events.

ot_events-name = slis_ev_top_of_list.

ot_events-form = 'TOP_OF_LIST'.

APPEND ot_events.

ot_events-name = slis_ev_end_of_list.

ot_events-form = 'END_OF_LIST'.

APPEND ot_events.

ot_events-name = slis_ev_top_of_page.

ot_events-form = 'TOP_OF_PAGE'.

APPEND ot_events.

ot_events-name = slis_ev_end_of_page.

ot_events-form = 'END_OF_PAGE'.

APPEND ot_events.

ot_events-name = slis_ev_foreign_top_of_page.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_foreign_end_of_page.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_top_of_coverpage.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_end_of_coverpage.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_before_line_output.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_after_line_output.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_caller_exit_at_start.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_list_modify.

ot_events-form = ''.

APPEND ot_events.

ot_events-name = slis_ev_subtotal_text.

ot_events-form = ''.

APPEND ot_events.

ENDFORM. " ALV_INIT_REPORT_EVENTS

----

---

• FORM USER_COMMAND *

----

---

• Subroutine attached as callback form to ABAP List Viewer *

• --> UCOMM - user command code passed from ALV *

• --> SELFIELD - information record describing current line/field *

----

---

FORM user_command USING value(iv_ucomm) LIKE sy-ucomm

is_selfield TYPE slis_selfield.

CASE iv_ucomm.

WHEN '&IC1'. "ALV record selection

PERFORM display_record USING is_selfield.

• when ...

• ...

ENDCASE.

ENDFORM. " USER_COMMAND

----

---

• FORM PF_STATUS_SET *

----

---

• Subroutine attached as callback form to ABAP List Viewer, *

• allows setting alternative menu. If necessary: *

• 1. Copy 'STANDARD' menu from SAPLKKBL and modify as required, *

• 2. Activate callback *

----

---

FORM pf_status_set USING it_exctab TYPE slis_t_extab.

• set pf-status 'STANDARD' excluding it_exctab.

ENDFORM. " PF_STATUS_SET

----

---

• FORM TOP_OF_LIST *

----

---

• Subroutine attached as callback form to ABAP List Viewer, *

• executed once at the start of list output. *

----

---

FORM top_of_list.

DATA: lt_seltab TYPE STANDARD TABLE OF rsparams WITH HEADER LINE.

DATA: lv_report LIKE sy-repid.

lv_report = sy-repid. "do not pass sy-repid to function!

IF p_box_up = 'X'. "display select options at report start

CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'

EXPORTING

curr_report = lv_report

TABLES

selection_table = lt_seltab.

• remove 'technical' parameters with 'DELETE LT_SELTAB WHERE...'

• before display, if necessary

CALL FUNCTION 'RS_LIST_SELECTION_TABLE'

EXPORTING

report = lv_report

seltext = 'X'

• dyn_range =

newpage = ' '

• screennr = 1000

TABLES

sel_tab = lt_seltab

EXCEPTIONS

sel_tab_empty = 1.

ENDIF. "p_box_up = 'X'

ENDFORM. " TOP_OF_LIST

----

---

• FORM END_OF_LIST *

----

---

• Subroutine attached as callback form to ABAP List Viewer *

• executed once at the end of list output. *

----

---

FORM end_of_list.

DATA: lt_seltab TYPE STANDARD TABLE OF rsparams WITH HEADER LINE.

DATA: lv_report LIKE sy-repid.

lv_report = sy-repid. "do not pass sy-repid to function!

IF p_box_do = 'X'. "display select options at report end

CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'

EXPORTING

curr_report = lv_report

TABLES

selection_table = lt_seltab.

• remove 'technical' parameters with 'DELETE LT_SELTAB WHERE...'

• before display, if necessary

CALL FUNCTION 'RS_LIST_SELECTION_TABLE'

EXPORTING

report = lv_report

seltext = 'X'

• dyn_range =

newpage = ' '

• screennr = 1000

TABLES

sel_tab = lt_seltab

EXCEPTIONS

sel_tab_empty = 1.

ENDIF. "p_box_do = 'X'

ENDFORM. " END_OF_LIST

----

---

• FORM TOP_OF_PAGE *

----

---

• Subroutine attached as callback form to ABAP List Viewer *

----

---

FORM top_of_page.

• standard Ingram Micro report page heading

DATA: lv_coco_pos TYPE i, "CurPos of 'Company confidential'

lv_title_pos TYPE i, "CurPos of report title

lv_title(70) TYPE c, "Truncated report title

lv_page_pos TYPE i, "CurPos of page number

lv_date_pos TYPE i, "CurPos of date and time

lv_page_no(10) TYPE c,

lv_date(25) TYPE c,

lv_time(20) TYPE c,

lv_page(10) TYPE c.

• We may need to truncate title if the line size is < 81.

IF sy-linsz < 81.

lv_title = sy-title+0(50).

ELSE.

lv_title = sy-title.

ENDIF.

• Decide on positioning of text depending on width of page

lv_title_pos = ( sy-linsz / 2 ) - ( STRLEN( lv_title ) / 2 ).

lv_coco_pos = sy-linsz - 20.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE: / 'Ingram Micro',

AT lv_title_pos lv_title,

AT lv_coco_pos 'Company Confidential'.

• Setup data correctly in the correct format for the display fields.

lv_page = sy-pagno.

SHIFT lv_page LEFT DELETING LEADING ' '.

CONCATENATE sy-datum6(2) sy-datum4(2) sy-datum+0(4)

INTO lv_date SEPARATED BY '.'.

CONCATENATE sy-uzeit0(2) ':' sy-uzeit2(2) INTO lv_time.

CONCATENATE lv_date lv_time INTO lv_date SEPARATED BY ' '.

CONCATENATE 'Page' lv_page INTO lv_page_no SEPARATED BY ' '.

• Decide on positioning of text depending on width of page.

lv_page_pos = sy-linsz - ( STRLEN( lv_page_no ) ).

WRITE: / lv_date,

AT lv_page_pos lv_page_no.

ULINE.

ENDFORM. " TOP_OF_PAGE

----

---

• FORM END_OF_PAGE *

----

---

• Subroutine attached as callback form to ABAP List Viewer *

----

---

FORM end_of_page.

ENDFORM. " END_OF_PAGE

*----

---

• Form ALV_VARIANT_EXISTENCE

*----

---

• Reads ALV variant definition

*----

---

FORM alv_variant_existence USING iv_variant LIKE disvariant-variant

CHANGING os_variant LIKE disvariant.

CHECK NOT iv_variant IS INITIAL.

os_variant-report = sy-repid.

os_variant-variant = iv_variant.

IF iv_variant CP '/*'. "user-specific variants begin with slash

os_variant-username = sy-uname.

ENDIF.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

i_save = 'A'

CHANGING

cs_variant = os_variant

EXCEPTIONS

wrong_input = 1

not_found = 2

program_error = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE e001(z9) WITH 'Please select a valid display variant.'.

ENDIF.

ENDFORM. " ALV_VARIANT_EXISTENCE

----

---

• FORM ALV_VARIANT_F4 *

----

---

• Display list of layout variants on report selection screen *

----

---

FORM alv_variant_f4 CHANGING cv_varname LIKE disvariant-variant

cs_variant LIKE disvariant.

DATA: lv_exit(1) TYPE c.

cs_variant-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = cs_variant

i_save = 'A'

• it_default_fieldcat =

IMPORTING

e_exit = lv_exit

es_variant = cs_variant

EXCEPTIONS

not_found = 2.

IF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

IF lv_exit = space.

cv_varname = cs_variant-variant.

ENDIF.

ENDIF.

here in output. if you will click on material. you can go to other transaction.

also for drill down you can refer one standard program.

DEMO_DYNPRO_DROPDOWN_LISTBOX

[Former Member]

Hi Friend

Hope so this will help full to u,

&----

---

*& Report ZZ_22038_22098_002 *

*& *

&----

---

*& This is an Interactive ALV report, where on line slection we can see

*& the secondry list

*&

*& *

&----

---

REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650

MESSAGE-ID ZZ_9838 .

TYPE-POOLS: SLIS.

*type declaration for values from ekko

TYPES: BEGIN OF I_EKKO,

EBELN LIKE EKKO-EBELN,

AEDAT LIKE EKKO-AEDAT,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

LIFNR LIKE EKKO-LIFNR,

END OF I_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,

WA_EKKO TYPE I_EKKO.

*type declaration for values from ekpo

TYPES: BEGIN OF I_EKPO,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,

WA_EKPO TYPE I_EKPO .

*variable for Report ID

DATA: V_REPID LIKE SY-REPID .

*declaration for fieldcatalog

DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

• declaration for events table where user comand or set PF status will

• be defined

DATA: V_EVENTS TYPE SLIS_T_EVENT,

WA_EVENT TYPE SLIS_ALV_EVENT.

• declartion for layout

DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.

• declaration for variant(type of display we want)

DATA: I_VARIANT TYPE DISVARIANT,

I_VARIANT1 TYPE DISVARIANT,

I_SAVE(1) TYPE C.

*PARAMETERS : p_var TYPE disvariant-variant.

*Title displayed when the alv list is displayed

DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.

DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.

INITIALIZATION.

V_REPID = SY-REPID.

PERFORM BUILD_FIELDCATLOG.

PERFORM EVENT_CALL.

PERFORM POPULATE_EVENT.

START-OF-SELECTION.

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_REPORT.

&----

---

*& Form BUILD_FIELDCATLOG

&----

---

• Fieldcatalog has all the field details from ekko

----

---

FORM BUILD_FIELDCATLOG.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_M = 'PO NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'AEDAT'.

WA_FIELDCAT-SELTEXT_M = 'DATE.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'BUKRS'.

WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'BUKRS'.

WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKKO'.

WA_FIELDCAT-FIELDNAME = 'LIFNR'.

WA_FIELDCAT-NO_OUT = 'X'.

WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. "BUILD_FIELDCATLOG

&----

---

*& Form EVENT_CALL

&----

---

• we get all events - TOP OF PAGE or USER COMMAND in table v_events

----

---

FORM EVENT_CALL.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = V_EVENTS

• EXCEPTIONS

• LIST_TYPE_WRONG = 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. "EVENT_CALL

&----

---

*& Form POPULATE_EVENT

&----

---

• Events populated for TOP OF PAGE & USER COMAND

----

---

FORM POPULATE_EVENT.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-FORM.

ENDIF.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'USER_COMMAND'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-NAME.

ENDIF.

ENDFORM. "POPULATE_EVENT

&----

---

*& Form data_retrieval

&----

---

• retreiving values from the database table ekko

----

---

FORM DATA_RETRIEVAL.

SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.

ENDFORM. "data_retrieval

&----

---

*& Form bUild_listheader

&----

---

• text

----

---

• -->I_LISTHEADEtext

----

---

FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA HLINE TYPE SLIS_LISTHEADER.

HLINE-INFO = 'this is my first alv pgm'.

HLINE-TYP = 'H'.

ENDFORM. "build_listheader

&----

---

*& Form display_alv_report

&----

---

• text

----

---

FORM DISPLAY_ALV_REPORT.

V_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = V_REPID

• I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = I_TITLE_EKKO

• I_GRID_SETTINGS =

• IS_LAYOUT = ALV_LAYOUT

IT_FIELDCAT = I_FIELDCAT[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• i_default = 'ZLAY1'

I_SAVE = 'A'

• is_variant = i_variant

IT_EVENTS = V_EVENTS

TABLES

T_OUTTAB = IT_EKKO

• 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. "display_alv_report

&----

---

*& Form TOP_OF_PAGE

&----

---

• text

----

---

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

• i_logo =

• I_END_OF_LIST_GRID =

.

ENDFORM. "TOP_OF_PAGE

&----

---

*& Form USER_COMMAND

&----

---

• text

----

---

• -->R_UCOMM text

• -->, text

• -->RS_SLEFIELDtext

----

---

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.

PERFORM BUILD_FIELDCATLOG_EKPO.

PERFORM EVENT_CALL_EKPO.

PERFORM POPULATE_EVENT_EKPO.

PERFORM DATA_RETRIEVAL_EKPO.

PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.

PERFORM DISPLAY_ALV_EKPO.

ENDCASE.

ENDFORM. "user_command

&----

---

*& Form BUILD_FIELDCATLOG_EKPO

&----

---

• text

----

---

FORM BUILD_FIELDCATLOG_EKPO.

WA_FIELDCAT-TABNAME = 'IT_EKPO'.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_M = 'PO NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'IT_EKPO'.

WA_FIELDCAT-FIELDNAME = 'EBELP'.

WA_FIELDCAT-SELTEXT_M = 'LINE NO'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MATNR'.

WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MENGE'.

WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'MEINS'.

WA_FIELDCAT-SELTEXT_M = 'UOM'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-TABNAME = 'I_EKPO'.

WA_FIELDCAT-FIELDNAME = 'NETPR'.

WA_FIELDCAT-SELTEXT_M = 'PRICE'.

APPEND WA_FIELDCAT TO I_FIELDCAT.

CLEAR WA_FIELDCAT.

ENDFORM. "BUILD_FIELDCATLOG_EKPO

&----

---

*& Form event_call_ekpo

&----

---

• we get all events - TOP OF PAGE or USER COMMAND in table v_events

----

---

FORM EVENT_CALL_EKPO.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = V_EVENTS

• EXCEPTIONS

• LIST_TYPE_WRONG = 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. "event_call_ekpo

&----

---

*& Form POPULATE_EVENT

&----

---

• Events populated for TOP OF PAGE & USER COMAND

----

---

FORM POPULATE_EVENT_EKPO.

READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

WA_EVENT-FORM = 'TOP_OF_PAGE'.

MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =

WA_EVENT-FORM.

ENDIF.

ENDFORM. "POPULATE_EVENT

&----

---

*& Form TOP_OF_PAGE

&----

---

• text

----

---

FORM F_TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

• i_logo =

• I_END_OF_LIST_GRID =

.

ENDFORM. "TOP_OF_PAGE

&----

---

*& Form USER_COMMAND

&----

---

• text

----

---

• -->R_UCOMM text

• -->, text

• -->RS_SLEFIELDtext

----

---

*retreiving values from the database table ekko

FORM DATA_RETRIEVAL_EKPO.

SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.

ENDFORM.

FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.

DATA: HLINE1 TYPE SLIS_LISTHEADER.

HLINE1-TYP = 'H'.

HLINE1-INFO = 'CHECKING PGM'.

ENDFORM.

FORM DISPLAY_ALV_EKPO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

I_GRID_TITLE = I_TITLE_EKPO

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = I_FIELDCAT[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT =

I_SAVE = 'A'

• IS_VARIANT =

IT_EVENTS = V_EVENTS

TABLES

T_OUTTAB = IT_EKPO

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.

Reward points if helpfull

[Former Member]

Thanks a lot for your support.

thanks

jai