How to convert report into alvgrid please hepl

Question

how to convert report into alvgrid please hepl

Answer 1

BALVSD01 check this program u will know r see below code
sample prog
REPORT  ZMAT11                                  .
TYPE-POOLS : slis.
TABLES : mkpf,
         mseg,
         t001w,
         t001l.
TYPES : BEGIN OF ty_t001w,
          werks TYPE t001w-werks,
          name1 TYPE t001w-name1,
        END OF ty_t001w,
        BEGIN OF ty_makt,
          matnr TYPE makt-matnr,
          maktx TYPE makt-maktx,
        END OF ty_makt,
        BEGIN OF ty_t001l,
          lgort TYPE t001l-lgort,
          lgobe TYPE t001l-lgobe,
        END OF ty_t001l.
DATA :  BEGIN OF it_mat OCCURS 0,
        mblnr LIKE mseg-mblnr,
        zeile LIKE mseg-zeile,
        mjahr LIKE mseg-mjahr,
        bldat LIKE mkpf-bldat,
        budat LIKE mkpf-budat,
        bwart LIKE mseg-bwart,
        matnr LIKE mseg-matnr,
        maktx LIKE makt-maktx,
        erfmg LIKE mseg-erfmg,
        erfme LIKE mseg-erfme,
        werks LIKE mseg-werks,
        name1 LIKE t001w-name1,
        lgort LIKE mseg-lgort,
        lgobe LIKE t001l-lgobe,
        umwrk LIKE mseg-umwrk,
        name2 LIKE t001w-name1,
        umlgo LIKE mseg-umlgo,
        lgobe1 LIKE t001l-lgobe,
        END OF it_mat.
DATA : it_t001w TYPE TABLE OF ty_t001w
                 WITH HEADER LINE,
       it_makt TYPE TABLE OF ty_makt
               WITH HEADER LINE,
       it_t001l TYPE TABLE OF ty_t001l
                WITH HEADER LINE.
DATA : ls_layout TYPE slis_layout_alv,
       it_fcat TYPE slis_t_fieldcat_alv ,
       wa_fcat TYPE slis_fieldcat_alv,
       lh TYPE slis_t_listheader,
       ls TYPE slis_listheader,
       it_events TYPE slis_t_event  ,
       ls_event TYPE slis_alv_event ,
       w_var TYPE i.
DATA : l_date(10).
DATA : l_date1(20),
       ztabix LIKE sy-tabix.
DATA : l_repid LIKE trdir-name.
l_repid = 'ZMAT11'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_werks FOR mseg-werks,
                 s_lgort FOR mseg-lgort,
                 s_umwrk FOR mseg-umwrk,
                 s_umlgo FOR mseg-umlgo,
                 s_bwart FOR mseg-bwart,
                 s_budat FOR mkpf-budat,
                 s_mjahr FOR mkpf-mjahr.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN.
  SELECT SINGLE * FROM t001w INTO t001w
                          WHERE werks IN s_werks.
  IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Supplying Plant'.
  ENDIF.
  SELECT SINGLE * FROM t001w INTO t001w
                          WHERE werks IN s_umwrk.
  IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Receiving Plant'.
  ENDIF.
  SELECT SINGLE * FROM t001l INTO t001l
                          WHERE lgort IN s_lgort.
  IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Supplying St.Loc'.
  ENDIF.
  SELECT SINGLE * FROM t001l INTO t001l
                          WHERE lgort IN s_umlgo.
  IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Receiving St.Loc'.
  ENDIF.
START-OF-SELECTION.
  ls-typ = 'H'.
  ls-info = 'Material Document List'.
  APPEND ls TO lh.
  ls-typ = 'S'.
  WRITE: sy-datum TO l_date USING EDIT MASK '__/__/____'.
  CONCATENATE 'DATE :' l_date INTO l_date1 SEPARATED BY space.
  ls-info = l_date1.
  APPEND ls TO lh.
  PERFORM field_cat.
  PERFORM f001_get_data.
END-OF-SELECTION.
  IF it_mat[] IS INITIAL.
    MESSAGE i000(8i) WITH 'No data Found'(m01).
    EXIT.
  ENDIF.
  PERFORM process_data.
  PERFORM display_data.
*&      Form  f001_get_data
      text
-->  p1        text
<--  p2        text
FORM f001_get_data .
  SELECT amblnr azeile amjahr abwart a~matnr
           aerfmg aerfme awerks algort aumwrk aumlgo
           b~budat
           b~bldat INTO CORRESPONDING FIELDS OF TABLE it_mat
                   FROM mseg AS a
             INNER JOIN mkpf AS b
                ON amblnr = bmblnr
               AND amjahr = bmjahr
             CLIENT SPECIFIED
          WHERE a~mandt EQ sy-mandt
            AND a~werks IN s_werks
            AND a~lgort IN s_lgort
            AND a~umwrk IN s_umwrk
            AND a~umlgo IN s_umlgo
            AND a~bwart IN s_bwart
            AND b~budat IN s_budat
            AND b~mjahr IN s_mjahr.
  IF sy-subrc = 0.
    SELECT matnr maktx INTO TABLE it_makt FROM makt
    CLIENT SPECIFIED
    FOR ALL ENTRIES IN it_mat
    WHERE mandt EQ sy-mandt
      AND matnr = it_mat-matnr.
  ENDIF.
  SELECT werks name1 INTO TABLE it_t001w FROM t001w
  CLIENT SPECIFIED
  WHERE mandt EQ sy-mandt.
  IF sy-subrc <> 0.
    MESSAGE i000(8i) WITH 'No Plant Found'(m02).
  ENDIF.
  SELECT lgort lgobe INTO TABLE it_t001l FROM t001l
  CLIENT SPECIFIED
  WHERE mandt EQ sy-mandt.
  IF sy-subrc <> 0.
    MESSAGE i000(8i) WITH 'No Storage Location Found'(m03).
  ENDIF.
ENDFORM.                    " f001_get_data
*&      Form  field_cat
      text
-->  p1        text
<--  p2        text
FORM field_cat .
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'MBLNR'.
  wa_fcat-key = 'X'.
  wa_fcat-hotspot = 'X'.
  wa_fcat-ref_fieldname = 'MBLNR'.
  wa_fcat-ref_tabname = 'MSEG'.
  wa_fcat-seltext_m = 'Material Doc'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'ZEILE'.
  wa_fcat-ref_fieldname = 'ZEILE'.
  wa_fcat-ref_tabname = 'MSEG'.
  wa_fcat-seltext_m = 'Item No'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'MJAHR'.
  wa_fcat-ref_fieldname = 'MJAHR'.
  wa_fcat-ref_tabname = 'MSEG'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'BWART'.
  wa_fcat-ref_fieldname = 'BWART'.
  wa_fcat-ref_tabname = 'MSEG'.
  wa_fcat-seltext_m = 'Mvmt Type'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'BLDAT'.
  wa_fcat-ref_fieldname = 'BLDAT'.
  wa_fcat-ref_tabname = 'MKPF'.
  wa_fcat-seltext_m = 'Document Date'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'BUDAT'.
  wa_fcat-ref_fieldname = 'BUDAT'.
  wa_fcat-ref_tabname = 'MKPF'.
  wa_fcat-seltext_m = 'Posting Date'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'MATNR'.
  wa_fcat-ref_fieldname = 'MATNR'.
  wa_fcat-ref_tabname = 'MSEG'.
  wa_fcat-seltext_m = 'Material No'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'MAKTX'.
  wa_fcat-ref_fieldname = 'MAKTX'.
  wa_fcat-ref_tabname = 'MAKT'.
  wa_fcat-seltext_m = 'Material Description'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'ERFMG'.
  wa_fcat-ref_fieldname = 'ERFMG'.
  wa_fcat-ref_tabname = 'MSEG'.
  wa_fcat-seltext_m = 'Quantity'.
  wa_fcat-do_sum = 'X'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'ERFME'.
  wa_fcat-ref_fieldname = 'ERFME'.
  wa_fcat-ref_tabname = 'MSEG'.
  wa_fcat-seltext_m = 'Uom'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'WERKS'.
  wa_fcat-seltext_m = 'Supplying Plant'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'NAME1'.
  wa_fcat-seltext_m = 'S.Plnt Desc.'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'LGORT'.
  wa_fcat-seltext_m = 'Supplying St.Loc'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'LGOBE'.
  wa_fcat-seltext_m = 'Su.St.Loc Desc.'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'UMWRK'.
  wa_fcat-seltext_m = 'Receiving Plant'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'NAME2'.
  wa_fcat-seltext_m = 'R.Plnt Desc.'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'UMLGO'.
  wa_fcat-seltext_m = 'Receiving St.Loc'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
  wa_fcat-col_pos = w_var.
  wa_fcat-tabname = 'IT_MAT'.
  wa_fcat-fieldname = 'LGOBE1'.
  wa_fcat-seltext_m = 'Re.St.Loc Desc.'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.
  ADD 1 TO w_var.
ENDFORM.                    " field_cat
*&      Form  process_data
      text
-->  p1        text
<--  p2        text
FORM process_data .
  LOOP AT it_mat.
    ztabix = sy-tabix.
    READ TABLE it_makt WITH KEY matnr = it_mat-matnr.
    IF sy-subrc = 0.
      it_mat-maktx = it_makt-maktx.
    ENDIF.
    IF it_mat-bwart+2(1) = '2'.
      it_mat-erfmg = - ( it_mat-erfmg ).
    ENDIF.
    READ TABLE it_t001w WITH KEY werks = it_mat-werks.
    IF sy-subrc = 0.
      it_mat-name1 = it_t001w-name1.
    ENDIF.
    READ TABLE it_t001w WITH KEY werks = it_mat-umwrk.
    IF sy-subrc = 0.
      it_mat-name2 = it_t001w-name1.
    ENDIF.
    READ TABLE it_t001l WITH KEY lgort = it_mat-lgort.
    IF sy-subrc = 0.
      it_mat-lgobe = it_t001l-lgobe.
    ENDIF.
    READ TABLE it_t001l WITH KEY lgort = it_mat-umlgo.
    IF sy-subrc = 0.
      it_mat-lgobe1 = it_t001l-lgobe.
    ENDIF.
    MODIFY it_mat INDEX ztabix .
  ENDLOOP.
ENDFORM.                    " process_data
*&      Form  display_data
      text
-->  p1        text
<--  p2        text
FORM display_data .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
          I_INTERFACE_CHECK                 = ' '
          I_BYPASSING_BUFFER                = ' '
          I_BUFFER_ACTIVE                   = ' '
           i_callback_program                = l_repid
          I_CALLBACK_PF_STATUS_SET          = ' '
           i_callback_user_command           = 'LINE'
           i_callback_top_of_page            = 'TOP'
          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                         =
           it_fieldcat                       = it_fcat
          IT_EXCLUDING                      =
          IT_SPECIAL_GROUPS                 =
          IT_SORT                           =
          IT_FILTER                         =
          IS_SEL_HIDE                       =
          I_DEFAULT                         = 'X'
          I_SAVE                            = ' '
          IS_VARIANT                        =
          it_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
          IT_ALV_GRAPHICS                   =
          IT_HYPERLINK                      =
          IT_ADD_FIELDCAT                   =
          IT_EXCEPT_QINFO                   =
          I_HTML_HEIGHT_TOP                 =
          I_HTML_HEIGHT_END                 =
        IMPORTING
          E_EXIT_CAUSED_BY_CALLER           =
          ES_EXIT_CAUSED_BY_USER            =
          TABLES
            t_outtab                          = it_mat
        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_data
*&      Form  TOP
      text
FORM top.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = lh
  I_LOGO                   =
  I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP