A Sample Report

Question

Hi All
    Can anyone send me a sample report which covers almost all the main concepts of ABAP which is very useful...like all events involved,many function module used,calculations used,many tables used,ALV...etc etc
Regards
Asha

Answer 1

Hi Asha,
Follow the following report, it will useful for you.
*& Report  ZPA_MM_ALBA_REPORT
REPORT  ZPA_MM_ALBA_REPORT.
TABLES:MVER,MAPR,PROP,PROW.
PARAMETERS: MATNR TYPE MVER-MATNR OBLIGATORY,
            WERKS TYPE MVER-WERKS OBLIGATORY.
SELECT-OPTIONS GJAHR FOR MVER-GJAHR OBLIGATORY.
TYPES: BEGIN OF TY_MVER,
          MATNR TYPE MVER-MATNR,
          WERKS TYPE MVER-WERKS,
          GJAHR TYPE MVER-GJAHR,
          GSV01 TYPE MVER-GSV01,
          GSV02 TYPE MVER-GSV02,
          GSV03 TYPE MVER-GSV03,
          GSV04 TYPE MVER-GSV04,
          GSV05 TYPE MVER-GSV05,
          GSV06 TYPE MVER-GSV06,
          GSV07 TYPE MVER-GSV07,
          GSV08 TYPE MVER-GSV08,
          GSV09 TYPE MVER-GSV09,
          GSV10 TYPE MVER-GSV10,
          GSV11 TYPE MVER-GSV11,
          GSV12 TYPE MVER-GSV12,
          GSV13 TYPE MVER-GSV13,
          MGV01 TYPE MVER-MGV01,
          MGV02 TYPE MVER-MGV02,
          MGV03 TYPE MVER-MGV03,
          MGV04 TYPE MVER-MGV04,
          MGV05 TYPE MVER-MGV05,
          MGV06 TYPE MVER-MGV06,
          MGV07 TYPE MVER-MGV07,
          MGV08 TYPE MVER-MGV08,
          MGV09 TYPE MVER-MGV09,
          MGV10 TYPE MVER-MGV10,
          MGV11 TYPE MVER-MGV11,
          MGV12 TYPE MVER-MGV12,
          MGV13 TYPE MVER-MGV13,
       END OF TY_MVER,
    BEGIN OF TY_MAPR,
          MATNR TYPE MAPR-MATNR,
          WERKS TYPE MAPR-WERKS,
          PNUM1 TYPE MAPR-PNUM1,
     END OF TY_MAPR,
     BEGIN OF TY_PROP,
          PNUM2 TYPE PROP-PNUM2,
    END OF TY_PROP,
     BEGIN OF TY_PROW,
          PNUM2 TYPE PROW-PNUM2,
          ERTAG TYPE PROW-ERTAG,
          PRWRT TYPE PROW-PRWRT,
          KOPRW TYPE PROW-KOPRW,
          FIXKZ TYPE PROW-FIXKZ,
     END OF TY_PROW.
DATA:IT_MVER TYPE STANDARD TABLE OF TY_MVER WITH DEFAULT KEY WITH HEADER LINE,
     IT_MAPR TYPE STANDARD TABLE OF TY_MAPR WITH DEFAULT KEY WITH HEADER LINE,
     IT_PROP TYPE STANDARD TABLE OF TY_PROP WITH DEFAULT KEY WITH HEADER LINE,
     IT_PROW TYPE STANDARD TABLE OF TY_PROW WITH DEFAULT KEY WITH HEADER LINE,
     WA_PROP LIKE LINE OF IT_PROP,
     WA_PROW LIKE LINE OF IT_PROW.
DATA: BEGIN OF IT_FORECAST OCCURS 0,
        YEAR LIKE  PROW-ERTAG,
        MONTH LIKE T009B-POPER,
        PRWRT LIKE PROW-PRWRT,
        KOPRW LIKE PROW-KOPRW,
      END OF IT_FORECAST.
DATA: BEGIN OF IT_SFINAL OCCURS 0,
        GJAHR LIKE MVER-GJAHR,
        MONTH LIKE T009B-POPER,
        GSVRR LIKE MVER-GSV01,
        MGVRR LIKE MVER-MGV01,
      END OF IT_SFINAL.
DATA: BEGIN OF IT_FINAL OCCURS 0,
        YEAR LIKE MVER-GJAHR,
        MONTH LIKE T009B-POPER,
        GSVRR LIKE IT_MVER-GSV01,
        MGVRR LIKE IT_MVER-MGV01,
        PRWRT LIKE IT_PROW-PRWRT,
        KOPRW LIKE IT_PROW-KOPRW,
      END OF IT_FINAL,
      WA_FINAL LIKE LINE OF IT_FINAL.
DATA : YEAR TYPE T009B-BDATJ,
       MONTH TYPE T009B-POPER,
       A TYPE I VALUE 2.
PERFORM SELECTION_DATA.
PERFORM OPERATION_DATA.
PERFORM DISPLAY_DATA.
FORM SELECTION_DATA.
SELECT MATNR WERKS GJAHR GSV01 GSV02 GSV03 GSV04
                         GSV05 GSV06 GSV07 GSV08
                         GSV09 GSV10 GSV11 GSV12
                         GSV13 MGV01 MGV02 MGV03
                         MGV04 MGV05 MGV06 MGV07
                         MGV08 MGV09 MGV10 MGV11
                         MGV12 MGV13
  FROM MVER INTO TABLE IT_MVER
  WHERE
  MATNR = MATNR AND
  WERKS = WERKS AND
  GJAHR IN GJAHR.
IF SY-SUBRC <> 0.
  write:/ 'no record found'.
endif.
SELECT MATNR WERKS PNUM1 FROM MAPR
INTO TABLE IT_MAPR
WHERE
MATNR = MATNR AND
WERKS = WERKS.
IF SY-SUBRC <> 0.
  write:/ 'no record found'.
endif.
SELECT PNUM2 FROM PROP
INTO TABLE IT_PROP
FOR ALL ENTRIES IN IT_MAPR
WHERE
PNUM1 = IT_MAPR-PNUM1.
IF SY-SUBRC <> 0.
  write:/ 'no record found'.
endif.
SELECT PNUM2 ERTAG PRWRT KOPRW FIXKZ FROM PROW
INTO TABLE IT_PROW
FOR ALL ENTRIES IN IT_PROP
WHERE
PNUM2 = IT_PROP-PNUM2.
IF SY-SUBRC <> 0.
  write:/ 'no record found'.
endif.
ENDFORM.
FORM OPERATION_DATA.
LOOP AT IT_PROW.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
  EXPORTING
    I_DATE               = IT_PROW-ERTAG
    I_PERIV              = 'K4'
IMPORTING
   E_BUPER              =  MONTH
   E_GJAHR              =  YEAR
EXCEPTIONS
   INPUT_FALSE          = 1
   T009_NOTFOUND        = 2
   T009B_NOTFOUND       = 3.
IF SY-SUBRC <> 0.
  write:/ 'no record found'.
ENDIF.
    IT_FORECAST-YEAR = YEAR.
    IT_FORECAST-MONTH = MONTH.
    IT_FORECAST-PRWRT = IT_PROW-PRWRT.
    IT_FORECAST-KOPRW = IT_PROW-KOPRW.
    APPEND IT_FORECAST.
    CLEAR IT_FORECAST.
ENDLOOP.
LOOP AT IT_MVER.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 1.
          IT_SFINAL-GSVRR = IT_MVER-GSV01.
          IT_SFINAL-MGVRR = IT_MVER-MGV01.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 2.
          IT_SFINAL-GSVRR = IT_MVER-GSV02.
          IT_SFINAL-MGVRR = IT_MVER-MGV02.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 3.
          IT_SFINAL-GSVRR = IT_MVER-GSV03.
          IT_SFINAL-MGVRR = IT_MVER-MGV03.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 4.
          IT_SFINAL-GSVRR = IT_MVER-GSV04.
          IT_SFINAL-MGVRR = IT_MVER-MGV04.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 5.
          IT_SFINAL-GSVRR = IT_MVER-GSV05.
          IT_SFINAL-MGVRR = IT_MVER-MGV05.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 6.
          IT_SFINAL-GSVRR = IT_MVER-GSV06.
          IT_SFINAL-MGVRR = IT_MVER-MGV06.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 7.
          IT_SFINAL-GSVRR = IT_MVER-GSV07.
          IT_SFINAL-MGVRR = IT_MVER-MGV07.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 8.
          IT_SFINAL-GSVRR = IT_MVER-GSV08.
          IT_SFINAL-MGVRR = IT_MVER-MGV08.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 9.
          IT_SFINAL-GSVRR = IT_MVER-GSV09.
          IT_SFINAL-MGVRR = IT_MVER-MGV09.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 10.
          IT_SFINAL-GSVRR = IT_MVER-GSV10.
          IT_SFINAL-MGVRR = IT_MVER-MGV10.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 11.
          IT_SFINAL-GSVRR = IT_MVER-GSV11.
          IT_SFINAL-MGVRR = IT_MVER-MGV11.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 12.
          IT_SFINAL-GSVRR = IT_MVER-GSV12.
          IT_SFINAL-MGVRR = IT_MVER-MGV12.
          APPEND IT_SFINAL.
          IT_SFINAL-GJAHR = IT_MVER-GJAHR.
          IT_SFINAL-MONTH = 13.
          IT_SFINAL-GSVRR = IT_MVER-GSV13.
          IT_SFINAL-MGVRR = IT_MVER-MGV13.
          APPEND IT_SFINAL.
ENDLOOP.
LOOP AT IT_SFINAL.
    IT_FINAL-YEAR = IT_SFINAL-GJAHR.
    IT_FINAL-MONTH = IT_SFINAL-MONTH.
    IT_FINAL-GSVRR = IT_SFINAL-GSVRR.
    IT_FINAL-MGVRR = IT_SFINAL-MGVRR.
   READ TABLE IT_FORECAST WITH KEY YEAR = IT_SFINAL-GJAHR MONTH = IT_SFINAL-MONTH.
    IT_FINAL-PRWRT = IT_FORECAST-PRWRT.
    IT_FINAL-KOPRW = IT_FORECAST-KOPRW.
    APPEND IT_FINAL.
    CLEAR IT_FINAL.
    CLEAR IT_FORECAST.
ENDLOOP.
LOOP AT IT_FORECAST.
    READ TABLE IT_FINAL WITH KEY YEAR = IT_FORECAST-YEAR MONTH = IT_FORECAST-MONTH.
   IF SY-SUBRC <> 0.
        IT_FINAL-YEAR = IT_FORECAST-YEAR.
        IT_FINAL-MONTH = IT_FORECAST-MONTH.
        IT_FINAL-GSVRR = ' '.
        IT_FINAL-MGVRR = ' '.
        IT_FINAL-PRWRT = IT_FORECAST-PRWRT.
        IT_FINAL-KOPRW = IT_FORECAST-KOPRW.
        APPEND IT_FINAL.
        CLEAR IT_FORECAST.
    ENDIF.
ENDLOOP.
ENDFORM.
FORM DISPLAY_DATA.
LOOP AT IT_FINAL INTO WA_FINAL.
  IF A = 1.
    FORMAT COLOR 4.
  ELSE.
    FORMAT COLOR 7.
    A = 0.
  ENDIF.
  AT NEW YEAR.
    WRITE: / sy-uline.
  endat.
  WRITE:/5 WA_FINAL-YEAR,
            SY-VLINE,
         25 WA_FINAL-MONTH,
            SY-VLINE,
         35 WA_FINAL-GSVRR,
            SY-VLINE,
          WA_FINAL-MGVRR,
             SY-VLINE,
          WA_FINAL-PRWRT,
             SY-VLINE,
          WA_FINAL-KOPRW,
             sy-vline.
  A = A + 1.
ENDLOOP.
ENDFORM.
Regards,
DS