Problem displaying Header in BLOCK ALV

[Former Member]

Dear Experts,

I am facing a problem in displaying the Header in Block ALV.

i searched the this forum and found useful suggestions and changed my report. Still its not able to display the header.

I am displaying 2 blocks in ALV and trying to display header lines for them.

Please have a look at the below code and suggest.

Edited by: LL D on Jun 9, 2009 1:42 PM

[Former Member]

 FORM BATCH_DIS .
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
        EXPORTING
          TEXT = TEXT-012.

DATA:x_layout TYPE slis_layout_alv,
t_field TYPE slis_t_fieldcat_alv,
*--field catalog

x_fldcat LIKE LINE OF t_field,
*--to hold all the events

t_events TYPE slis_t_event,
x_events TYPE slis_alv_event,
t_sort TYPE slis_t_sortinfo_alv,
x_sort LIKE LINE OF t_sort ,

*--Print Layout
x_print_layout TYPE slis_print_alv.
*----Macro to add field catalog.

*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN

DEFINE add_catalog.

clear x_fldcat.
x_fldcat-fieldname = &1.
x_fldcat-seltext_m = &2.
x_fldcat-outputlen = &3.
x_fldcat-tech = &4.
x_fldcat-col_pos = &5.
x_fldcat-no_zero = 'X'.
x_fldcat-datatype = &6.
x_fldcat-ddic_outputlen = &7.
if &6 = 'N'.
x_fldcat-lzero = 'X'.
endif.
*--build field catalog
append x_fldcat to t_field.
END-OF-DEFINITION.

call function 'REUSE_ALV_BLOCK_LIST_INIT'
    exporting
    i_callback_program = v_repid.
*    Block 1:
*    INITIALIZE
    refresh t_field. clear t_field.
*    refresh t_events.
*    field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN


add_catalog:
'VBELN'      'Invoice'                 '20'  ' ' '1'  'C' '18',
'FKDAT'      'Inv date'                '10'  ' ' '2'  'C' '10',
'MONTH'      'Month & Year'            '10'  ' ' '3'  'C' '10',
'FKART'      'Billing Type'            '10'  ' ' '4'  'C' '10',
'VTEXT'      'Billing Name'            '30'  ' ' '5'  'C' '10',
'BZIRK'      'HQ Code'                 '10'  ' ' '6'  'C' '10',
'BZTXT'      'HQ Name'                 '10'  ' ' '7'  'C' '10',
'KUNRG'      'Party Code'              '10'  ' ' '8'  'C' '10',
'NAME1'      'Party Name'              '30'  ' ' '9'  'C' '10',
'NAME3'      'Drug Lic No.1'           '10'  ' ' '10' 'C' '10',
'NAME4'      'Drug Lic No.2'           '10'  ' ' '11' 'C' '10',
'J_1ILSTNO'  'LST/TIN No'              '10'  ' ' '12' 'C' '10',
'J_1ICSTNO'  'CST No'                  '10'  ' ' '13' 'C' '10',
'MATNR'      'Material Code'           '10'  ' ' '14' 'C' '10',
'ARKTX'      'Material Desc'           '30'  ' ' '15' 'C' '10',
'CHARG'      'Batch'                   '10'  ' ' '16' 'C' '10',
'KBETR'      'PTS Rate'                '10'  ' ' '17' 'C' '10',
'PSTYV'      'Item Category'           '10'  ' ' '18' 'C' '10',
'VTEXT1'     'Item Category Name'      '10'  ' ' '19' 'C' '10',
'FKIMG'      'Actual Billing Qty'      '10'  ' ' '20' 'C' '10',
'GROSS'      'Gross amount'            '10'  ' ' '21' 'C' '10',
'DISCOUNT'   'Discount'                '10'  ' ' '22' 'C' '10',
'DIFF'       'Round Off'               '10'  ' ' '23' 'C' '10',
'MWSBP'      'Tax Amt in Doc Currency' '10'  ' ' '24' 'C' '10',
'KTOSL'      'Tax Type'                '10'  ' ' '25' 'C' '10',
'VKGRP'      'Segment'                 '10'  ' ' '26' 'C' '10',
'BEZEI'      'Segment Name'            '30'  ' ' '27' 'C' '10',
'VKBUR'      'Sales Office'            '10'  ' ' '28' 'C' '10',
'VGBEL'      'Delivery Doc No'         '10'  ' ' '29' 'C' '10',
'AUBEL'      'Sales Document'          '10'  ' ' '30' 'C' '10',
'ACC_STATUS' 'Accnt Status'            '10'  ' ' '31' 'C' '10',
'NETWR'      'Net Value of the Bill'   '10'  ' ' '32' 'C' '10'.

*--build table for events.
x_events-form = 'TOP_OF_LIST1'.
x_events-name = slis_ev_top_of_list.
append x_events to t_events.

*TIT_CAT 'H'  ' ' 'Indian Immunologicals Limited' .
*  WA_EVENTS-NAME = 'TOP_OF_PAGE'.
*  WA_EVENTS-FORM = 'TOP_OF_LIST1'.
*  APPEND WA_EVENTS TO IT_EVENTS.

call function 'REUSE_ALV_BLOCK_LIST_APPEND'
exporting
    is_layout = x_layout
    it_fieldcat = t_field
    i_tabname = 't_final'
    it_events = t_events
    it_sort = t_sort
tables
    t_outtab = i_final
    exceptions
program_error = 1
    maximum_of_appends_reached = 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.

*--BLOCK 2(SUMMARY REPORT)
*INITIALIZE
refresh t_field. clear t_field.
*refresh t_events.
*refresh it_events.

*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN
add_catalog:

'SWERKS' 'Supp Plant'               '20'  ' ' '1'  'C' '18',
'RWERKS' 'Receiving Plant'          '10'  ' ' '2'  'C' '10',
'RNAME'  'Rec Plant Name'           '10'  ' ' '3'  'C' '10',
'VBELN'  'Document No'              '10'  ' ' '4'  'C' '10',
'LFDAT'  'Delivery Date'            '10'  ' ' '5'  'C' '10',
'BLDAT'  'Document Date'            '10'  ' ' '6'  'C' '10',
'WADAT'  'Actl Goods Movement Date' '10'  ' ' '7'  'C' '10',
'MATNR'  'Material'                 '10'  ' ' '8'  'C' '10',
'CHARG'  'Batch'                    '10'  ' ' '9'  'C' '10',
'LGORT'  'Storage Location'         '10'  ' ' '10' 'C' '10',
'LFIMG'  'Quantity'                 '10'  ' ' '11' 'C' '10',
'NETPR'  'Price'                    '10'  ' ' '12' 'C' '10',
'NETWR'  'Net Value'                '10'  ' ' '13' 'C' '10',
'VFDAT'  'Exp Date'                 '10'  ' ' '14' 'C' '10',
'MTART'  'Material Type'            '10'  ' ' '15' 'C' '10',
'MATKL'  'Material Group'           '10'  ' ' '16' 'C' '10',
'XBLNR'  'Reference Doc'            '10'  ' ' '17' 'C' '10',
'KUNNR'  'SHIP-TO-PARTY'            '10'  ' ' '18' 'C' '10',
'LFART'  'Delivery Type'            '10'  ' ' '19' 'C' '10',
'VSTEL'  'Shipping Point'           '10'  ' ' '20' 'C' '10',
'BWART'  'Movement Type'            '10'  ' ' '21' 'C' '10'.


*--build table for events.
x_events-form = 'TOP_OF_LIST2'.
x_events-name = slis_ev_top_of_list.
append x_events to t_events.


* Append table block.
call function 'REUSE_ALV_BLOCK_LIST_APPEND'
exporting
is_layout = x_layout
it_fieldcat = t_field
i_tabname = 'WA_STN'
it_events = t_events
it_sort = t_sort
tables
t_outtab = IT_STN
exceptions
program_error = 1
maximum_of_appends_reached = 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.

*--CALL FM TO DISPLAY THE BLOCK REPORT.
call function 'REUSE_ALV_BLOCK_LIST_DISPLAY'
* exporting
* is_print = x_print_layout
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 TOP_OF_LIST1 .
*  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
*     EXPORTING
*       IT_LIST_COMMENTARY       = TB_COMMENT.
*ENDFORM.                    " pre_event

form TOP_OF_LIST1.
skip 1.
write: 10 'Product Wise Sales Details',
/5 '--------------------'.
skip 1.
format reset.
endform.

form TOP_OF_LIST2.
skip 1.
write: 10 'Sales by STN',
/5 '--------------------'.
skip 1.
format reset.
endform. 

[Former Member]

Hi,

Please pass the event TOP_OF_LIST insetad of TOP_OF_PAGE and check.

Regards,

Ankur Parab

[Former Member]

Hi Ankur,

I am passing TOP_OF_LIST, still its not displaying the header

If i can paste the code, i think u can help me in this.

I'm pasting the code here

FORM BATCH_DIS .
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
        EXPORTING
          TEXT = TEXT-012.

DATA:x_layout TYPE slis_layout_alv,
t_field TYPE slis_t_fieldcat_alv,
*--field catalog

x_fldcat LIKE LINE OF t_field,
*--to hold all the events

t_events TYPE slis_t_event,
x_events TYPE slis_alv_event,
t_sort TYPE slis_t_sortinfo_alv,
x_sort LIKE LINE OF t_sort ,

*--Print Layout
x_print_layout TYPE slis_print_alv.
*----Macro to add field catalog.

*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN

DEFINE add_catalog.

clear x_fldcat.
x_fldcat-fieldname = &1.
x_fldcat-seltext_m = &2.
x_fldcat-outputlen = &3.
x_fldcat-tech = &4.
x_fldcat-col_pos = &5.
x_fldcat-no_zero = 'X'.
x_fldcat-datatype = &6.
x_fldcat-ddic_outputlen = &7.
if &6 = 'N'.
x_fldcat-lzero = 'X'.
endif.
*--build field catalog
append x_fldcat to t_field.
END-OF-DEFINITION.

call function 'REUSE_ALV_BLOCK_LIST_INIT'
    exporting
    i_callback_program = v_repid.
*    Block 1:
*    INITIALIZE
    refresh t_field. clear t_field.
*    refresh t_events.
*    field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN

       

.

2nd part continuing.........

[Former Member]

2nd part.............

add_catalog:
'VBELN'      'Invoice'                 '20'  ' ' '1'  'C' '18',
'FKDAT'      'Inv date'                '10'  ' ' '2'  'C' '10',
'MONTH'      'Month & Year'            '10'  ' ' '3'  'C' '10',
'FKART'      'Billing Type'            '10'  ' ' '4'  'C' '10',
'VTEXT'      'Billing Name'            '30'  ' ' '5'  'C' '10',
'BZIRK'      'HQ Code'                 '10'  ' ' '6'  'C' '10',
'BZTXT'      'HQ Name'                 '10'  ' ' '7'  'C' '10',
'KUNRG'      'Party Code'              '10'  ' ' '8'  'C' '10',
'NAME1'      'Party Name'              '30'  ' ' '9'  'C' '10',
'NAME3'      'Drug Lic No.1'           '10'  ' ' '10' 'C' '10',
'NAME4'      'Drug Lic No.2'           '10'  ' ' '11' 'C' '10',
'J_1ILSTNO'  'LST/TIN No'              '10'  ' ' '12' 'C' '10',
'J_1ICSTNO'  'CST No'                  '10'  ' ' '13' 'C' '10',
'MATNR'      'Material Code'           '10'  ' ' '14' 'C' '10',
'ARKTX'      'Material Desc'           '30'  ' ' '15' 'C' '10',
'CHARG'      'Batch'                   '10'  ' ' '16' 'C' '10',
'KBETR'      'PTS Rate'                '10'  ' ' '17' 'C' '10',
'PSTYV'      'Item Category'           '10'  ' ' '18' 'C' '10',
'VTEXT1'     'Item Category Name'      '10'  ' ' '19' 'C' '10',
'FKIMG'      'Actual Billing Qty'      '10'  ' ' '20' 'C' '10',
'GROSS'      'Gross amount'            '10'  ' ' '21' 'C' '10',
'DISCOUNT'   'Discount'                '10'  ' ' '22' 'C' '10',
'DIFF'       'Round Off'               '10'  ' ' '23' 'C' '10',
'MWSBP'      'Tax Amt in Doc Currency' '10'  ' ' '24' 'C' '10',
'KTOSL'      'Tax Type'                '10'  ' ' '25' 'C' '10',
'VKGRP'      'Segment'                 '10'  ' ' '26' 'C' '10',
'BEZEI'      'Segment Name'            '30'  ' ' '27' 'C' '10',
'VKBUR'      'Sales Office'            '10'  ' ' '28' 'C' '10',
'VGBEL'      'Delivery Doc No'         '10'  ' ' '29' 'C' '10',
'AUBEL'      'Sales Document'          '10'  ' ' '30' 'C' '10',
'ACC_STATUS' 'Accnt Status'            '10'  ' ' '31' 'C' '10',
'NETWR'      'Net Value of the Bill'   '10'  ' ' '32' 'C' '10'.

*--build table for events.
x_events-form = 'TOP_OF_LIST1'.
x_events-name = slis_ev_top_of_list.
append x_events to t_events.

.

continuing.......

Edited by: LL D on Jun 10, 2009 5:48 AM

[Former Member]

3rd part.....

call function 'REUSE_ALV_BLOCK_LIST_APPEND'
exporting
    is_layout = x_layout
    it_fieldcat = t_field
    i_tabname = 't_final'
    it_events = t_events
    it_sort = t_sort
tables
    t_outtab = i_final
    exceptions
program_error = 1
    maximum_of_appends_reached = 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.

*--BLOCK 2(SUMMARY REPORT)
*INITIALIZE
refresh t_field. clear t_field.

add_catalog:

'SWERKS' 'Supp Plant'               '20'  ' ' '1'  'C' '18',
'RWERKS' 'Receiving Plant'          '10'  ' ' '2'  'C' '10',
'RNAME'  'Rec Plant Name'           '10'  ' ' '3'  'C' '10',
'VBELN'  'Document No'              '10'  ' ' '4'  'C' '10',
*----continuing-------------------------------------------------------

*--build table for events.
x_events-form = 'TOP_OF_LIST2'.
x_events-name = slis_ev_top_of_list.
append x_events to t_events.

* Append table block.
call function 'REUSE_ALV_BLOCK_LIST_APPEND'
exporting
is_layout = x_layout
it_fieldcat = t_field
i_tabname = 'WA_STN'
it_events = t_events
it_sort = t_sort
tables
t_outtab = IT_STN
exceptions
program_error = 1
maximum_of_appends_reached = 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.

form TOP_OF_LIST1.
skip 1.
write: 10 'Product Wise Sales Details',
/5 '--------------------'.
skip 1.
format reset.
endform.

form TOP_OF_LIST2.
skip 1.
write: 10 'Sales by STN',
/5 '--------------------'.
skip 1.
format reset.
endform.

Regards

Lalit

[Former Member]

PART -I

REPORT ZBLOCK_ALV.
CONSTANTS :
  c_x VALUE 'X'.
DEFINE m_fieldcat.
  ls_fieldcat-fieldname = &1.
  ls_fieldcat-ref_tabname = &2.
  ls_fieldcat-tabname = &3.
  append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DEFINE m_sort.
  ls_sort-fieldname = &1.
  ls_sort-up        = c_x.
  append ls_sort to lt_sort.
END-OF-DEFINITION.
TYPE-POOLS: slis.                      " ALV Global types
TYPES:
  BEGIN OF ty_kna1,
    kunnr TYPE kna1-kunnr,             " Customer number
    ernam TYPE kna1-ernam,             " Name of Person who Created
    erdat TYPE kna1-erdat,             " Creation date
    name1 TYPE kna1-name1,             " Name 1                    .
  END OF ty_kna1,
  BEGIN OF ty_mara,
    matnr TYPE mara-matnr,             " Material number
    ernam TYPE mara-ernam,             " Name of Person who Created
    ersda TYPE mara-ersda,             " Creation date
    mtart TYPE mara-mtart,             " Material type
    matkl TYPE mara-matkl,             " Material group
  END OF ty_mara,
 BEGIN OF ty_vbak,
    vbeln TYPE vbak-vbeln,             " Sales document
    vkorg TYPE vbak-vkorg,             " Sales organization
    vtweg TYPE vbak-vtweg,             " Distribution channel
    kunnr TYPE vbak-kunnr,             " Sold-to party
    erdat TYPE vbak-erdat,             " Creation date
  END OF ty_vbak.
DATA:
  gs_layout TYPE slis_layout_alv,
  gt_kna1 TYPE TABLE OF ty_kna1,
  gt_mara TYPE TABLE OF ty_mara,
  gt_vbak TYPE TABLE OF ty_vbak.
SELECTION-SCREEN :
  SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max.    "#EC NEEDED
PARAMETERS p_max(2) TYPE n DEFAULT '02' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
  v_1 = 'Maximum of records to read'.
START-OF-SELECTION.
  SELECT kunnr ernam erdat name1
    FROM kna1
   UP TO p_max ROWS
    INTO TABLE gt_kna1.
  SELECT matnr ernam ersda mtart matkl
    FROM mara
   UP TO p_max ROWS
    INTO TABLE gt_mara.
  SELECT vbeln vkorg vtweg kunnr erdat
    FROM vbak
   UP TO p_max ROWS
    INTO TABLE gt_vbak.
END-OF-SELECTION.
  PERFORM f_display_data.

[Former Member]

PART-II

FORM user_command USING u_ucomm     TYPE sy-ucomm
                        us_selfield TYPE slis_selfield.     "#EC CALLED
 DATA:
    ls_vbak TYPE ty_vbak.
  CASE u_ucomm.
    WHEN '&IC1'.                       " Pick
      CASE us_selfield-tabname.
        WHEN 'GT_MARA'.
        WHEN 'GT_KNA1'.
        WHEN 'GT_VBAK'.
          READ TABLE gt_vbak INDEX us_selfield-tabindex INTO ls_vbak.
          IF sy-subrc EQ 0.
            SET PARAMETER ID 'AUN' FIELD ls_vbak-vbeln.
            CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
          ENDIF.
      ENDCASE.
  ENDCASE.
ENDFORM.                               " USER_COMMAND
FORM f_display_data.
  DATA :
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
    ls_sort     TYPE slis_sortinfo_alv,
    lt_sort     TYPE slis_t_sortinfo_alv, " Sort table
    lt_events   TYPE slis_t_event,
    ls_event    TYPE slis_alv_event.
  gs_layout-group_change_edit = c_x.
  gs_layout-colwidth_optimize = c_x.
  gs_layout-zebra             = c_x.
  gs_layout-detail_popup      = c_x.
  gs_layout-get_selinfos      = c_x.
  m_fieldcat  'KUNNR' 'KNA1' 'GT_KNA1'.
  m_fieldcat  'ERNAM' 'KNA1' 'GT_KNA1'.
  m_fieldcat  'ERDAT' 'KNA1' 'GT_KNA1'.
  m_fieldcat  'NAME1' 'KNA1' 'GT_KNA1'.
  m_sort  'KUNNR'.
  MOVE        'TOP_OF_PAGE'        TO ls_event-name.
  MOVE        'TOP_OF_PAGE'        TO ls_event-form.
  APPEND ls_event TO lt_events.
  MOVE        'END_OF_LIST'        TO ls_event-name.
  MOVE        'END_OF_LIST'        TO ls_event-form.
  APPEND ls_event TO lt_events.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program      = sy-cprog
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat             = lt_fieldcat
      is_layout               = gs_layout
      it_events               = lt_events
      it_sort                 = lt_sort
      i_save                  = 'A'
    TABLES
      t_outtab                = gt_kna1.
ENDFORM.                               " F_DISPLAY_DATA

[Former Member]

PART-III

FORM top_of_page.                                           "#EC CALLED
  ULINE.
  WRITE : sy-uname, sy-title(56) CENTERED, sy-datum.
  ULINE.
ENDFORM.                               " TOP_OF_PAGE
FORM end_of_list.                                           "#EC CALLED
  DATA :
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
    ls_sort     TYPE slis_sortinfo_alv,
    lt_sort     TYPE slis_t_sortinfo_alv, " Sort table
    lt_events   TYPE slis_t_event,
    ls_event    TYPE slis_alv_event.
  m_fieldcat 'MATNR' 'MARA' 'GT_MARA'.
  m_fieldcat 'ERNAM' 'MARA' 'GT_MARA'.
  m_fieldcat 'ERSDA' 'MARA' 'GT_MARA'.
  m_fieldcat 'MTART' 'MARA' 'GT_MARA'.
  m_fieldcat 'MATKL' 'MARA' 'GT_MARA'.
  m_sort 'MATNR'.
  MOVE 'END_OF_LIST'   TO ls_event-name.
  MOVE 'END_OF_LIST_2' TO ls_event-form.
  APPEND ls_event TO lt_events.
  gs_layout-list_append = c_x.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = sy-cprog
      it_fieldcat        = lt_fieldcat
      is_layout          = gs_layout
      it_sort            = lt_sort
      it_events          = lt_events
      i_save             = 'A'
    TABLES
      t_outtab           = gt_mara.
ENDFORM.                               " END_OF_LIST
FORM end_of_list_2.                                         "#EC CALLED
  DATA :
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
    ls_sort     TYPE slis_sortinfo_alv,
    lt_sort     TYPE slis_t_sortinfo_alv, " Sort table
    lt_events   TYPE slis_t_event,
    ls_event    TYPE slis_alv_event.
  m_fieldcat 'VBELN' 'VBAK' 'GT_VBAK'.
  m_fieldcat 'VKORG' 'VBAK' 'GT_VBAK'.
  m_fieldcat 'VTWEG' 'VBAK' 'GT_VBAK'.
  m_fieldcat 'KUNNR' 'VBAK' 'GT_VBAK'.
  m_fieldcat 'ERDAT' 'VBAK' 'GT_VBAK'.
  m_sort 'VBELN'.
  MOVE 'TOP_OF_PAGE' TO ls_event-name.
  MOVE 'TOP_OF_PAGE' TO ls_event-form.
  APPEND ls_event TO lt_events.
  gs_layout-list_append = c_x.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = sy-cprog
      it_fieldcat        = lt_fieldcat
      is_layout          = gs_layout
      it_sort            = lt_sort
      it_events          = lt_events
      i_save             = 'A'
    TABLES
      t_outtab           = gt_vbak.
ENDFORM.                               " END_OF_LIST_2

[Former Member]

Thanks krupa jani,

That solved my problem. Closing threads and rewarding.

Regards

Lalit