ALV fields coem dynamicaly in header

Question

Hi all,
I desperately need your help in making ALV report.
TYPE-POOLS: SLIS.
DATA: ls_fcat TYPE slis_fieldcat_alv,
      ls_layout   TYPE SLIS_LAYOUT_ALV,
      gt_fcat TYPE slis_t_fieldcat_alv.
data :    gt_fieldcat type slis_t_fieldcat_alv, "catalog for alv
            gt_heading type slis_t_listheader, "list for header1
            gt_sort type slis_t_sortinfo_alv, "Sorting of the
            gt_event type slis_t_event,
            gt_selfield type slis_selfield,
            gv_alv_event type slis_alv_event,
            gv_repname type sy-repid,
            gs_layout type slis_layout_alv,
            gv_save type c.
constants gc_forname_top_of_page type slis_formname value
'TOP-OF-PAGE'.
REFRESH gt_fcat.
TABLES: vbrk.
data: begin of it_vbrk occurs 10,
      vbeln type vbeln,
      end of it_vbrk.
data: begin of it_vbrp occurs 10,
      vbeln type vbeln,
      ntgew type vbrp-ntgew,
      matnr type vbrp-matnr,
      end of it_vbrp.
data: begin of it_final occurs 10,
      vbeln type vbeln,
      ntgew type vbrp-ntgew,
      matnr type vbrp-matnr,
      end of it_final.
SELECT-OPTIONS: PERIOD for VBRK-FKDAT  no-extension.
  SELECT VBELN
         FROM VBRK INTO CORRESPONDING FIELDS OF TABLE IT_VBRK
         WHERE FKDAT IN PERIOD.
SELECT  VBELN
          NTGEW  "Net weight
          MATNR
          FROM VBRP INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
          FOR ALL ENTRIES IN IT_vbrk
          WHERE VBELN = IT_vbrk-VBELN.
loop at it_vbrp.
move it_vbrp-vbeln   to   it_final-vbeln  .
move it_vbrp-matnr   to   it_final-matnr  .
move it_vbrp-ntgew   to   it_final-ntgew  .
append it_final.
endloop.
ls_fcat-col_pos   = 1.
ls_fcat-fieldname = 'VBELN'.
ls_fcat-seltext_l = 'VBELN'.
ls_fcat-outputlen = 10 .
APPEND ls_fcat TO gt_fcat.
DATA: G_REPID TYPE SY-REPID.
g_repid = sy-repid.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program       = g_repid
        I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
        i_callback_top_of_page   = 'TOP_OF_PAGE'
        IS_LAYOUT                = ls_LAYOUT
        it_fieldcat              = gt_fcat
        I_SAVE                   = 'X'
      TABLES
        t_outtab                 = IT_FINAL.
My problem is that i want material number in col_pos 2, 3,4... and so on..
and corresponding weight of that material number comes under that matnr.
Waiting for ur reply.
Thanx a ton,
Puneet

Answer 1

Try this
TYPE-POOLS: SLIS.
DATA: LS_FCAT TYPE SLIS_FIELDCAT_ALV,
LS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "catalog for alv
GT_HEADING TYPE SLIS_T_LISTHEADER, "list for header1
GT_SORT TYPE SLIS_T_SORTINFO_ALV, "Sorting of the
GT_EVENT TYPE SLIS_T_EVENT,
GT_SELFIELD TYPE SLIS_SELFIELD,
GV_ALV_EVENT TYPE SLIS_ALV_EVENT,
GV_REPNAME TYPE SY-REPID,
GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
GV_SAVE TYPE C.
CONSTANTS GC_FORNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP-OF-PAGE'.
REFRESH GT_FCAT.
TABLES: VBRK.
DATA: BEGIN OF IT_VBRK OCCURS 10,
VBELN TYPE VBELN,
END OF IT_VBRK.
DATA: BEGIN OF IT_VBRP OCCURS 10,
VBELN TYPE VBELN,
NTGEW TYPE VBRP-NTGEW,
MATNR TYPE VBRP-MATNR,
END OF IT_VBRP.
DATA: BEGIN OF IT_FINAL OCCURS 10,
VBELN TYPE VBELN,
NTGEW TYPE VBRP-NTGEW,
MATNR TYPE VBRP-MATNR,
END OF IT_FINAL.
SELECT-OPTIONS: PERIOD FOR VBRK-FKDAT NO-EXTENSION.
SELECT VBELN
FROM VBRK INTO CORRESPONDING FIELDS OF TABLE IT_VBRK
WHERE FKDAT IN PERIOD.
SELECT VBELN
NTGEW "Net weight
MATNR
FROM VBRP INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
FOR ALL ENTRIES IN IT_VBRK
WHERE VBELN = IT_VBRK-VBELN.
LOOP AT IT_VBRP.
  MOVE IT_VBRP-VBELN TO IT_FINAL-VBELN .
  MOVE IT_VBRP-MATNR TO IT_FINAL-MATNR .
  MOVE IT_VBRP-NTGEW TO IT_FINAL-NTGEW .
  APPEND IT_FINAL.
ENDLOOP.
LS_FCAT-COL_POS = 1.
LS_FCAT-FIELDNAME = 'VBELN'.
LS_FCAT-SELTEXT_L = 'Billing Document'.
LS_FCAT-OUTPUTLEN = 10 .
APPEND LS_FCAT TO GT_FCAT.
LS_FCAT-COL_POS = 2.
LS_FCAT-FIELDNAME = 'MATNR'.
LS_FCAT-SELTEXT_L = 'Material No.'.
LS_FCAT-OUTPUTLEN = 10 .
APPEND LS_FCAT TO GT_FCAT.
LS_FCAT-COL_POS = 3.
LS_FCAT-FIELDNAME = 'NTGEW'.
LS_FCAT-SELTEXT_L = 'Weight'.
LS_FCAT-OUTPUTLEN = 10 .
APPEND LS_FCAT TO GT_FCAT.
DATA: G_REPID TYPE SY-REPID.
      G_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM       = G_REPID
    I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
    I_CALLBACK_TOP_OF_PAGE   = 'TOP_OF_PAGE'
    IS_LAYOUT                = LS_LAYOUT
    IT_FIELDCAT              = GT_FCAT
    I_SAVE                   = 'X'
  TABLES
    T_OUTTAB                 = IT_FINAL.