Only is the last value is in output instead of all

Question

report zexam.
tables : mara, mbew, mard,t023t.
type-pools:slis.
data : ist_list_topofpage type slis_t_listheader.
data : s_list_topofpage type slis_listheader.
data : i_fieldcat type  slis_t_fieldcat_alv.
data : x_fieldcat type slis_fieldcat_alv.
**************************************selection options***********************
select-options  mat_grp for mara-matkl.
********************selection from mara table*********************************
data : it_mara type table of mara,
       wa_mara type mara.
select matnr matkl from mara into corresponding fields of table it_mara
where  matkl in mat_grp.
loop at it_mara into wa_mara.
endloop.
****************selection from mbew*******************************************
data : it_mbew type table of mbew,
       wa_mbew type mbew.
*if not wa_mara is initial.
select matnr lbkum salk3 from mbew into corresponding fields of  table it_mbew
where matnr = wa_mara-matnr.
*endif.
*loop at it_mbew into wa_mbew.
*endloop.
********************grp desc from table v023***********************************************
data : it_t023t type table of t023t,
       wa_t023t type t023t.
*if not wa_mara is initial.
select matkl wgbez spras from t023t into corresponding fields of table it_t023t
where matkl = wa_mara-matkl and spras = 'EN'.
*endif.
*loop at it_t023t into wa_t023t.
*endloop.
*endloop.
*endloop.
********************************itab for final output******************************************
data : begin of it_final occurs 0,
       matkl like mara-matkl,
       lbkum like mbew-lbkum,
       salk3 like mbew-salk3,
       wgbez like t023t-wgbez,
       end of it_final.
data : wa_final like it_final.
loop at it_mara into wa_mara.
  wa_final-matkl = wa_mara-matkl.
  read table it_mbew into wa_mbew with key matnr = wa_mara-matnr.
  wa_final-lbkum = wa_mbew-lbkum.
  wa_final-salk3 = wa_mbew-salk3.
  read table it_t023t into wa_t023t with key matkl = wa_mara-matkl.
  wa_final-wgbez = wa_t023t-wgbez.
  append wa_final to it_final.
endloop.
**********************to display in ALV format*****************
x_fieldcat-col_pos = 1.
x_fieldcat-fieldname = 'MATKL'.
x_fieldcat-seltext_m = 'MATERIAL GROUP'.
append x_fieldcat to i_fieldcat.
clear x_fieldcat.
x_fieldcat-col_pos = 2.
x_fieldcat-fieldname = 'WGBEZ'.
x_fieldcat-seltext_m = 'MATERIAL GROUP DESC'.
append x_fieldcat to i_fieldcat.
clear x_fieldcat.
x_fieldcat-col_pos = 3.
x_fieldcat-fieldname = 'LBKUM'.
x_fieldcat-seltext_m = 'TOTAL VALUED STOCK'.
x_fieldcat-do_sum  = 'LBKUM' .
append x_fieldcat to i_fieldcat.
clear x_fieldcat.
x_fieldcat-col_pos = 4.
x_fieldcat-fieldname = 'SALK3'.
x_fieldcat-seltext_m = 'VALUE OF STOCK(INR)'.
x_fieldcat-do_sum  = 'SALK3' .
append x_fieldcat to i_fieldcat.
clear x_fieldcat.
call function 'REUSE_ALV_LIST_DISPLAY'
  exporting
    it_fieldcat = i_fieldcat
  tables
    t_outtab    = it_final.
Code Formatted by: Alvaro Tejada Galindo on Jan 7, 2009 12:32 PM

Answer 1

hi,
pass the table name as well
check this code
tables : ekko,ekpo..
type-pools slis.
*data: i_ekko like  ekko occurs 0 with header line.
data: begin of i_tab occurs 0,
      ebeln like ekko-ebeln,
      bukrs like ekko-bukrs,
      aedat like ekko-aedat,
      zterm like ekko-zterm,
      waers like ekko-waers,
      ebelp like ekpo-ebelp,
      TXZ01 like ekpo-txz01,
      menge like ekpo-menge,
      bprme like ekpo-bprme,
      netpr like ekpo-netpr,
      end of i_tab.
****Field description for ALV****
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.
DATA: repname LIKE sy-repid.
DATA: fieldtab       TYPE slis_t_fieldcat_alv,
      fieldtab1      TYPE slis_t_fieldcat_alv,
      i_grid_title   TYPE lvc_title,
      heading        TYPE slis_t_listheader,
      f_events       TYPE slis_t_event,
      f1_event       TYPE slis_alv_event,
      gs_layout      TYPE slis_layout_alv.
DATA:gt_sort TYPE slis_t_sortinfo_alv.
DATA:gs_filter TYPE slis_t_filter_alv.
select-options: s_ebeln for ekko-ebeln.
*select EBELN BUKRS AEDAT ZTERM WAERS
*into  corresponding fields of i_ekko from ekko where ebeln in s_ebeln.
*append i_ekko.
*endselect.
start-of-selection.
select a~ebeln a~bukrs a~aedat a~zterm a~waers
       b~ebelp b~txz01 b~txz01 b~menge b~bprme b~netpr
       into corresponding fields of table i_tab
       from ( ekko as a
       inner join ekpo as b on a~ebeln = b~ebeln ).
perform alv_display.
*loop at i_tab.
*write:/ i_tab-ebeln,
*        i_tab-bukrs,
*        i_tab-aedat,
*        i_tab-zterm,
*        i_tab-waers,
*        i_tab-ebelp,
*        i_tab-txz01,
*        i_tab-menge,
*       i_tab-bprme,
*       i_tab-netpr.
*endloop.
*&      Form  alv_display
*       text
*  -->  p1        text
*  <--  p2        text
form alv_display .
perform build_layout.
perform build_fieldcatlog.
PERFORM CALL_ALV.
endform.                    " alv_display
*&      Form  build_fieldcatlog
*       text
*  -->  p1        text
*  <--  p2        text
form build_fieldcatlog .
data l_fieldcat type slis_fieldcat_alv.
CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'EBELN'.
  l_fieldcat-outputlen   = 10.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-010.
  APPEND l_fieldcat TO fieldtab1.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'BUKRS'.
  l_fieldcat-outputlen   = 4.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-011.
  APPEND l_fieldcat TO fieldtab1.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'AEDAT'.
  l_fieldcat-outputlen   = 8.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-012.
  APPEND l_fieldcat TO fieldtab1.
CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'ZTERM'.
  l_fieldcat-outputlen   = 4.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-013.
  APPEND l_fieldcat TO fieldtab1.
CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'WAERS'.
  l_fieldcat-outputlen   = 5.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-014.
  APPEND l_fieldcat TO fieldtab1.
CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'EBELP'.
  l_fieldcat-outputlen   = 5.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-015.
  APPEND l_fieldcat TO fieldtab1.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'TXZ01'.
  l_fieldcat-outputlen   = 40.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-016.
  APPEND l_fieldcat TO fieldtab1.
  CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'MENGE'.
  l_fieldcat-outputlen   = 15.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-017.
  APPEND l_fieldcat TO fieldtab1.
CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'BPRME'.
  l_fieldcat-outputlen   = 3.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-018.
  APPEND l_fieldcat TO fieldtab1.
CLEAR l_fieldcat.
  l_fieldcat-fieldname = 'NETPR'.
  l_fieldcat-outputlen   = 13.
  l_fieldcat-tabname   = 'i_tab'.
  l_fieldcat-no_out    = ' '.
  l_fieldcat-seltext_l = text-019.
  APPEND l_fieldcat TO fieldtab1.
endform.                    " build_fieldcatlog
*&      Form  CALL_ALV
*       text
*  -->  p1        text
*  <--  p2        text
form CALL_ALV .
REPNAME = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = REPNAME
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_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_GRID_SETTINGS                   =
   IS_LAYOUT                         = gd_layout
   IT_FIELDCAT                       = fieldtab1
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
   I_SAVE                            = ' '
*   IS_VARIANT                        =
*  IT_EVENTS                         = f_events
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab                          = i_tab
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.                    " CALL_ALV
*&      Form  build_layout
*       text
*  -->  p1        text
*  <--  p2        text
form build_layout .
gd_layout-zebra = 'X'.
gd_layout-info_fieldname = 'ROWCOLOR'.
endform.                    " build_layout
thanks
Code Formatted by: Alvaro Tejada Galindo on Jan 7, 2009 12:32 PM