Give Me Some Tips For doing this report.

Question

hi frd. help me in this report.
parameter : plant,material no,company code,storage location.
display: material no, material desc, UOM, ROL, warehouse, open po, open po qty, open pr no, open pr qty.
Kindly Give me tips for doing this report.
thank u
Pari Vendhan.R

Answer 1

Hi,
Its will not fullfill ur requirement but upto some extent...just have a look.
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,
        mbln LIKE mseg-mblnr,         " Number of Material Document
        zeile LIKE mseg-zeile,         " Item in Material Document
        mjahr LIKE mseg-mjahr,         " Material Document Year
        bwart LIKE mseg-bwart,         " Movement Type
        matnr LIKE mseg-matnr,         " Material Number
        erfmg LIKE mseg-erfmg,         "Quantity in unit of entry
        erfme LIKE mseg-erfme,         "Unit of entry
        werks LIKE mseg-werks,          "Plant
        lgort LIKE mseg-lgort,          "Storage location
        umwrk LIKE mseg-umwrk,          "Receiving plant/issuing plant
        umlgo LIKE mseg-umlgo,      "Receiving/issuing storage location
        bldat LIKE mkpf-bldat,       "Document Date in Document
        budat LIKE mkpf-budat,       "Posting Date in the Document
        maktx LIKE makt-maktx,           "Material description
        name1 LIKE t001w-name1,           "Name
        name2 LIKE t001w-name1,           "Name
        lgobe LIKE t001l-lgobe,         "Description of storage location
        lgobe1 LIKE t001l-lgobe,     "Description of storage location
        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,
       i_events TYPE slis_t_event WITH HEADER LINE ,
       "ls_event TYPE slis_alv_event ,
       w_var TYPE i.
DATA : l_date(10).
DATA : l_date1(20),
       ztabix LIKE sy-tabix.
SELECTION-SCREEN BEGIN OF BLOCK a1 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 NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK a1.
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.
  PERFORM field_cat.
  PERFORM get_data.
*END-OF-SELECTION.
  IF it_mat[] IS INITIAL.
    MESSAGE i000(8i) WITH 'No data Found'(m01).
*    EXIT.
  ELSE.
    PERFORM process_data.
    PERFORM display_data.
  ENDIF.
*&      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 = 'MBLN'.
  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  get_data
*       text
*  -->  p1        text
*  <--  p2        text
FORM get_data .
  SELECT a~mblnr a~zeile a~mjahr a~bwart a~matnr
            a~erfmg a~erfme a~werks a~lgort a~umwrk a~umlgo
            b~budat  b~bldat
            INTO CORRESPONDING FIELDS OF TABLE it_mat
            FROM mseg AS a INNER JOIN mkpf AS b
            ON a~mblnr = b~mblnr
            AND a~mjahr = b~mjahr
            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 EQ 0.
    SELECT matnr maktx
     INTO TABLE it_makt FROM makt
     CLIENT SPECIFIED
     FOR ALL ENTRIES IN it_mat
      WHERE matnr = it_mat-matnr AND mandt EQ sy-mandt.
  ENDIF.
  SELECT werks name1
   INTO TABLE it_t001w FROM t001w
    CLIENT SPECIFIED
   WHERE mandt EQ sy-mandt.
  IF sy-subrc <> 0.
    MESSAGE e000(zmss).
  ENDIF.
  SELECT lgobe INTO TABLE it_t001l FROM t001l
   CLIENT SPECIFIED
WHERE mandt EQ sy-mandt.
  IF sy-subrc <> 0.
    MESSAGE e000(zmss).
  ENDIF.
ENDFORM.                    " get_data
*&      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 .
  REFRESH i_events.
  i_events-form = 'TOP'.
  i_events-name = 'TOP_OF_PAGE'.
  APPEND i_events.
  CLEAR i_events.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = SY-CPROG
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
    i_callback_top_of_page            = 'TOP'
*   i_callback_html_top_of_page       = 'TOP'
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
     i_background_id                   = 'ALV_BACKGROUND'
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         = LS_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                         = i_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                          = 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.
  DATA : idate(10),
           idate1 TYPE sy-datum.
  DATA : ls_line TYPE slis_listheader,
         i_listheader TYPE slis_t_listheader .
  CLEAR ls_line.
  ls_line-typ = 'H'.
  ls_line-info = sy-repid.
  APPEND ls_line TO i_listheader.
  CLEAR ls_line.
  ls_line-typ = 'S'.
  ls_line-info = 'MATERIAL DOCUMENT LIST'.
  APPEND ls_line TO i_listheader.
  CLEAR ls_line.
  idate1 = sy-datum.
  WRITE idate1 TO idate USING EDIT MASK '__/__/____'.
  ls_line-typ = 'S'.
  ls_line-info = idate.
  APPEND ls_line TO i_listheader.
  CLEAR ls_line.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_listheader
      i_logo             = 'LOGO'.
*   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP