I want a report

Question

I want report for this data :
  these are the tables marc,mard,mara,makt.
these r the fields matnr,meins from mara,
                         matnr,werks from marc,
                         matnr,werks,lgort,labst from mard,
                         matnr,maktx from makt.
input fields   : matnr,werks,lgort.
output fields : matnr,maktx,lgort,labst,meins .

Answer 1

<b>Here is your   program    just  cut & paste ....</b>
<b>input fields : matnr,werks,lgort.
output fields : matnr,maktx,lgort,labst,meins</b>
*& Report  ZDEMO_ALVGRID                                               *
*& Example of a simple ALV Grid Report                                 *
*& The basic requirement for this demo is to display a number of       *
*& fields from the Mara table.                                         *
REPORT  zdemo_alvgrid                 .
TABLES:   mara , mard , makt .
type-pools: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_Mara,
matnr   like   mara-matnr  ,
meins   like  mara-meins,
werks   like mard-werks  ,
lgort   like mard-lgort ,
labst   like mard-labst ,
maktx  like makt-maktx ,
END OF t_Mara.
DATA: it_Mara TYPE STANDARD TABLE OF t_Mara INITIAL SIZE 0,
      wa_Mara TYPE t_Mara.
*ALV data declarations
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.
select-options  : p_mat  for  mara-matnr   ,
p_werks  for   mard-werks ,
p_lgort  for  mard-lgort.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*&      Form  BUILD_FIELDCATALOG
*       Build Fieldcatalog for ALV Report
form build_fieldcatalog.
  fieldcatalog-fieldname   = 'MATNR'.
  fieldcatalog-seltext_m   = 'Material Number'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 10.
  fieldcatalog-emphasize   = 'X'.
  fieldcatalog-key         = 'X'.
*  fieldcatalog-do_sum      = 'X'.
*  fieldcatalog-no_zero     = 'X'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'MATKX'.
  fieldcatalog-seltext_m   = 'Materail Text'.
  fieldcatalog-col_pos     = 1.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'WERKS'.
  fieldcatalog-seltext_m   = 'Plant'.
  fieldcatalog-col_pos     = 1.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'LGORT'.
  fieldcatalog-seltext_m   = 'Storage Location'.
  fieldcatalog-col_pos     = 2.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'LABST'.
  fieldcatalog-seltext_m   = 'Valuated Unrestricted-Use Stock'.
  fieldcatalog-col_pos     = 3.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
  fieldcatalog-fieldname   = 'MEINS'.
  fieldcatalog-seltext_m   = 'Base Unit of Measure'.
  fieldcatalog-col_pos     = 4.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
endform.                    " build_fieldcatalog
*&      Form  BUILD_LAYOUT
*       Build layout for ALV grid report
form build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
*  gd_layout-totals_only        = 'X'.
*  gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
*                                         "click(press f2)
*  gd_layout-zebra             = 'X'.
*  gd_layout-group_change_edit = 'X'.
*  gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
*&      Form  DISPLAY_ALV_REPORT
*       Display report using ALV grid
form display_alv_report.
  gd_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
*            i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
*            i_callback_user_command = 'USER_COMMAND'
*            i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
*            it_special_groups       = gd_tabgroup
*            IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
*            is_variant              = z_template
       tables
            t_outtab                = it_Mara
       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_ALV_REPORT
*&      Form  DATA_RETRIEVAL
*       Retrieve data form EKPO table and populate itab it_Mara
form data_retrieval.
select mara~matnr mara~meins  mard~werks mard~lgort  mard~labst  makt~maktx  into  corresponding fields of  table  it_Mara
  from ( ( mara  join  mard  on   mard~matnr  =  mara~matnr   ) join
       makt  on   makt~matnr  =  mard~matnr )  where  mara~matnr in  p_mat
       and  mard~werks  in  p_werks
       and  mard~lgort  in p_lgort  .
endform.                    " DATA_RETRIEVAL
reward  points if it is usefull ...
Girish