Internal tables & select query for clasical report

Question

hello all,
       i am a novice in ABAP.i need to retrive data from 4 DB tables to do a classical report. i declared internal tables as below and then retrieved the data as per the below select statements. is there any other way in which i can do the same with a comparitively lesser amt of code.
data: begin of i_vbak occurs 0,
      vbeln like vbak-vbeln,
      kunnr like vbak-kunnr,
      waerk like vbak-waerk,
      end of i_vbak.
data: begin of i_vbap occurs 0,
      vbeln like vbap-vbeln,
      kwmeng like vbap-kwmeng,
      posnr like vbap-posnr,
      vrkme like vbap-vrkme,
      netpr like vbap-netpr,
      end of i_vbap.
data: begin of i_lips occurs 0,
      vbeln like lips-vbeln,
      vgpos like lips-vgpos,
      vrkme like lips-vrkme,
      lfimg like lips-lfimg,
      end of i_lips.
data: begin of i_vbep occurs 0,
      vbeln like vbep-vbeln,
      posnr like vbep-posnr,
      edatu like vbep-edatu,
      end of i_vbep.
data: begin of i_out occurs 0,
      kunnr like vbak-kunnr,
      vbeln like vbak-vbeln,
      kwmeng like vbap-kwmeng,
      netpr like vbap-netpr,
      waerk like vbak-waerk,
      vrkme like vbap-vrkme,
      lfimg like lips-lfimg,
      posnr like vbep-posnr,
      edatu like vbep-edatu,
      end of i_out.
      RETRIVING THE DATA INTO INTERNAL TABLE                         *
select vbeln kunnr waerk from vbak into table i_vbak where kunnr in
s_kunnr and vbeln in s_vbeln.
select vbeln kwmeng posnr vrkme netpr from vbap into table i_vbap for
all entries in i_vbak where vbeln = i_vbak-vbeln.
select vbeln vgpos vrkme lfimg from lips into table i_lips for all
entries in i_vbak where vbeln = i_vbak-vbeln and vgpos in s_vgpos.
select vbeln posnr edatu from vbep into table i_vbep for all entries in
i_vbak where vbeln = i_vbak-vbeln.
<b>Points are guaranteed for good answers.</b>
Thanks in advance
seenu

Answer 1

Hi,
If u will use in ALV means  how many tables u want u can put it. After that u can maintain one internal table that's enough. Afterthat  put select queries after that display the internal table fileds.
If u will ALV  report means u have to code same coding for every report slight changes only there.
Herewith i am sending sample ALV REPORT it is useful for u.
REPORT CODING:
REPORT  YMS_COLOURALV NO STANDARD PAGE HEADING.
TYPE-POOLS: SLIS, ICON.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: BEGIN OF IMARA OCCURS 0,
          LIGHT(4) TYPE C,
          MATNR TYPE MARA-MATNR,
          MTART TYPE MARA-MTART,
          MAKTX TYPE MAKT-MAKTX,
          COLOR_LINE(4) TYPE C,
          TCOLOR TYPE SLIS_T_SPECIALCOL_ALV,  "cell
      END OF IMARA.
DATA: XCOLOR TYPE SLIS_SPECIALCOL_ALV.
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM WRITE_REPORT.
Get_Data
FORM GET_DATA.
  WRITE ICON_GREEN_LIGHT AS ICON TO IMARA-LIGHT.
      IMARA-MATNR = 'ABC'.
      IMARA-MTART = 'ZCFG'.
      IMARA-MAKTX = 'This is description for ABC'.
  APPEND IMARA.
  WRITE ICON_YELLOW_LIGHT AS ICON TO IMARA-LIGHT.
      IMARA-MATNR = 'DEF'.
      IMARA-MTART = 'ZCFG'.
      IMARA-MAKTX = 'This is description for DEF'.
  APPEND IMARA.
  WRITE ICON_RED_LIGHT AS ICON TO IMARA-LIGHT.
      IMARA-MATNR = 'GHI'.
      IMARA-MTART = 'ZCFG'.
      IMARA-MAKTX = 'This is description for GHI'.
  APPEND IMARA.
  LOOP AT IMARA.
    IF SY-TABIX = 1.
      IMARA-COLOR_LINE = 'C410'.     " color line
    ENDIF.
    IF SY-TABIX = 2.                "  color CELL
      CLEAR XCOLOR.
      XCOLOR-FIELDNAME = 'MTART'.
      XCOLOR-COLOR-COL = '3'.
      XCOLOR-COLOR-INT = '1'.       " Intensified on/off
      XCOLOR-COLOR-INV = '0'.
      APPEND XCOLOR TO IMARA-TCOLOR.
    ENDIF.
    MODIFY IMARA.
  ENDLOOP.
ENDFORM.                    "get_data
WRITE_REPORT
FORM WRITE_REPORT.
  DATA: LAYOUT TYPE  SLIS_LAYOUT_ALV.
  LAYOUT-COLTAB_FIELDNAME = 'TCOLOR'.
  LAYOUT-INFO_FIELDNAME = 'COLOR_LINE'.
  PERFORM BUILD_FIELD_CATALOG.
CALL ABAP LIST VIEWER (ALV)
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      IS_LAYOUT   = LAYOUT
      IT_FIELDCAT = FIELDCAT
    TABLES
      T_OUTTAB    = IMARA.
ENDFORM.                    "write_report
BUILD_FIELD_CATALOG
FORM BUILD_FIELD_CATALOG.
  DATA: FC_TMP TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
  CLEAR: FIELDCAT. REFRESH: FIELDCAT.
  CLEAR: FC_TMP.
  FC_TMP-REPTEXT_DDIC    = 'Status'.
  FC_TMP-FIELDNAME  = 'LIGHT'.
  FC_TMP-TABNAME   = 'IMARA'.
  FC_TMP-OUTPUTLEN  = '4'.
  FC_TMP-ICON       = 'X'.
  APPEND FC_TMP TO FIELDCAT.
  CLEAR: FC_TMP.
  FC_TMP-REPTEXT_DDIC    = 'Material Number'.
  FC_TMP-FIELDNAME  = 'MATNR'.
  FC_TMP-TABNAME   = 'IMARA'.
  FC_TMP-OUTPUTLEN  = '18'.
  APPEND FC_TMP TO FIELDCAT.
  CLEAR: FC_TMP.
  FC_TMP-REPTEXT_DDIC    = 'Material Type'.
  FC_TMP-FIELDNAME  = 'MTART'.
  FC_TMP-TABNAME   = 'IMARA'.
  FC_TMP-OUTPUTLEN  = '10'.
  APPEND FC_TMP TO FIELDCAT.
  CLEAR: FC_TMP.
  FC_TMP-REPTEXT_DDIC    = 'Material'.
  FC_TMP-FIELDNAME  = 'MAKTX'.
  FC_TMP-TABNAME   = 'IMARA'.
  FC_TMP-OUTPUTLEN  = '40'.
  FC_TMP-EMPHASIZE = 'C610'.   " color column
  APPEND FC_TMP TO FIELDCAT.
ENDFORM.                    "build_field_catalog
Thanks,
Shankar