Some sampe financial reports developed in abap ?

Question

Hi,
Can some one list or explain some sample custom FI/CO related reports that can be developed using ABAP ? Typically asked in client environment. I want to practise ALV reporting.
thanks

Answer 1

*& Report  ZFI_BUDGET_ACTUAL
REPORT  ZFI_BUDGET_ACTUALS.
TYPE-POOLS : SLIS.
TABLES: BSEG,BKPF,ZREV_BUDGET,CSKU,IFMEISA1,CSKS,COSP.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: HKONT FOR BSEG-HKONT.
PARAMETERS    : GJAHR LIKE BSEG-GJAHR.
SELECT-OPTIONS:PERDE  FOR IFMEISA1-PERDE DEFAULT '01' TO '12' OBLIGATORY,
                KOSTL FOR ZREV_BUDGET-KOSTL.
SELECTION-SCREEN END OF BLOCK B1.
*ALV data declarations
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_SORT      TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
      GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,
      GD_REPID     LIKE SY-REPID.
*For ALV top of page
DATA : IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*For ALV Events
DATA : IT_EVENT1 TYPE SLIS_T_EVENT.
*For ALV Events
DATA : IT_EVENT TYPE SLIS_ALV_EVENT.
*For top of page heading
DATA: IT_LINE TYPE SLIS_LISTHEADER.
DATA: BEGIN OF IT_CSKS OCCURS 0,
       KOKRS LIKE CSKS-KOKRS,
       KOSTL LIKE CSKS-KOSTL,
       BUKRS LIKE CSKS-BUKRS,
       OBJNR LIKE CSKS-OBJNR,
     END OF IT_CSKS.
DATA: BEGIN OF IT_COSP OCCURS 0,
       OBJNR LIKE COSP-OBJNR,
       GJAHR LIKE COSP-GJAHR,
       KSTAR LIKE COSP-KSTAR,
       BEKNZ LIKE COSP-BEKNZ,
       WKG001 LIKE COSP-WKG001,
       WKG002 LIKE COSP-WKG002,
       WKG003 LIKE COSP-WKG003,
       WKG004 LIKE COSP-WKG004,
       WKG005 LIKE COSP-WKG005,
       WKG006 LIKE COSP-WKG006,
       WKG007 LIKE COSP-WKG007,
       WKG008 LIKE COSP-WKG008,
       WKG009 LIKE COSP-WKG009,
       WKG010 LIKE COSP-WKG010,
       WKG011 LIKE COSP-WKG011,
       WKG012 LIKE COSP-WKG012,
     END OF IT_COSP.
DATA: BEGIN OF IT_COSP2 OCCURS 0,
       OBJNR LIKE COSP-OBJNR,
       GJAHR LIKE COSP-GJAHR,
       KSTAR LIKE COSP-KSTAR,
       FIPEX LIKE FMPG-FIPEX,
       TOTAL LIKE COSP-WKG001,
       TOTAL1 LIKE COSP-WKG001,
       OBJNR1 LIKE BPPE-OBJNR,
       POSIT LIKE BPPE-POSIT,
     END OF IT_COSP2.
*DATA : BEGIN OF IT_BUDGET OCCURS 0,
*         GJAHR LIKE ZREV_BUDGET-GJAHR,
*         KOSTL LIKE ZREV_BUDGET-KOSTL,             " COST CENTER
*         KSTAR LIKE ZREV_BUDGET-KSTAR,
*         APR_B LIKE ZREV_BUDGET-APR_B,
*         MAY_B LIKE ZREV_BUDGET-MAY_B,
*         JUN_B LIKE ZREV_BUDGET-JUN_B,
*         JUL_B LIKE ZREV_BUDGET-JUL_B,
*         AUG_B LIKE ZREV_BUDGET-AUG_B,
*         SEP_B LIKE ZREV_BUDGET-SEP_B,
*         OCT_B LIKE ZREV_BUDGET-OCT_B,
*         NOV_B LIKE ZREV_BUDGET-NOV_B,
*         DEC_B LIKE ZREV_BUDGET-DEC_B,
*         JAN_B LIKE ZREV_BUDGET-JAN_B,
*         FEB_B LIKE ZREV_BUDGET-FEB_B,
*         MAR_B LIKE ZREV_BUDGET-MAR_B,
*     END OF IT_BUDGET.
*DATA : BEGIN OF IT_BUDGET1 OCCURS 0,
*         GJAHR LIKE ZREV_BUDGET-GJAHR,
*         KOSTL LIKE ZREV_BUDGET-KOSTL,             " COST CENTER
*         KSTAR LIKE ZREV_BUDGET-KSTAR,
*         TOTAL2 LIKE COSP-WKG001,
*         TOTAL3 LIKE COSP-WKG001,
*       END OF IT_BUDGET1.
DATA: BEGIN OF IT_BPPE OCCURS 0,
        OBJNR LIKE BPPE-OBJNR,
        POSIT LIKE BPPE-POSIT,
        GJAHR LIKE BPPE-GJAHR,
        WLP01 LIKE BPPE-WLP01,
        WLP02 LIKE BPPE-WLP02,
        WLP03 LIKE BPPE-WLP03,
        WLP04 LIKE BPPE-WLP04,
        WLP05 LIKE BPPE-WLP05,
        WLP06 LIKE BPPE-WLP06,
        WLP07 LIKE BPPE-WLP07,
        WLP08 LIKE BPPE-WLP08,
        WLP09 LIKE BPPE-WLP09,
        WLP10 LIKE BPPE-WLP10,
        WLP11 LIKE BPPE-WLP11,
        WLP12 LIKE BPPE-WLP12,
      END OF IT_BPPE.
DATA: BEGIN OF IT_BPPE1 OCCURS 0,
        OBJNR LIKE BPPE-OBJNR,
        POSIT LIKE BPPE-POSIT,
        GJAHR LIKE BPPE-GJAHR,
        TOTAL2 LIKE BPPE-WLP01,
      END OF IT_BPPE1.
DATA: BEGIN OF IT_FINAL OCCURS 0,
        GJAHR LIKE ZREV_BUDGET-GJAHR,
        KOSTL LIKE ZREV_BUDGET-KOSTL,
        KSTAR LIKE ZREV_BUDGET-KSTAR,
        TOTAL1 LIKE COSP-WKG001,
        TOTAL3 LIKE COSP-WKG001,
        TEXT LIKE CSKU-KTEXT,
        VARIANCE LIKE COSP-WKG001,
        BEZEICH LIKE FMFCTRT-BEZEICH,
      END OF IT_FINAL.
DATA: BEGIN OF IT_FISTL OCCURS 0,
       KOSTL LIKE BSEG-KOSTL,
       BEZEICH LIKE FMFCTRT-BEZEICH,
      END OF IT_FISTL.
DATA: BEGIN OF IT_HKONT OCCURS 0,
       KSTAR LIKE CSKU-KSTAR,
       KTEXT LIKE CSKU-KTEXT,
      END OF IT_HKONT.
DATA: PERIOD1 TYPE I,
      PERIOD2 TYPE I,
      PERIOD3 TYPE I,
      PERIO TYPE I.
DATA: BEZEICH LIKE FMFCTRT-BEZEICH.
CONSTANTS: C_00 TYPE MONAT VALUE '00',
           C_13 TYPE MONAT VALUE '13'.
DATA : IT_RETURN LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
* A T  S E L E C T I O N  S C R E E N
AT SELECTION-SCREEN.
  LOOP AT PERDE.
    IF  PERDE-LOW >= C_13 OR PERDE-HIGH >= C_13 .
      MESSAGE E022(ZA)  WITH 'Enter Period values from 1 to 12'.
      EXIT.
    ENDIF.
  ENDLOOP.
  IF NOT PERDE-LOW IS INITIAL.
    PERIOD1 = PERDE-LOW.
  ENDIF.
  IF NOT PERDE-HIGH IS INITIAL.
    PERIOD2 = PERDE-HIGH.
    PERIOD3 = PERIOD2 - PERIOD1.
    PERIOD3 = PERIOD3 + 1.
  ELSE.
    PERIOD3 = 1.
  ENDIF.
  PERIO = PERIOD1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-LOW.
  SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
  SORT IT_HKONT BY KSTAR.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'HKONT'
      VALUE_ORG  = 'S'
    TABLES
      VALUE_TAB  = IT_HKONT
      RETURN_TAB = IT_RETURN.
  IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO HKONT-LOW.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-HIGH.
  SELECT  KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
  SORT IT_HKONT BY KSTAR.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'HKONT'
      VALUE_ORG  = 'S'
    TABLES
      VALUE_TAB  = IT_HKONT
      RETURN_TAB = IT_RETURN.
  IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO HKONT-HIGH.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-LOW.
  SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
                                           WHERE SPRAS EQ 'EN'
                                           AND   FIKRS IN KOSTL.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'KOSTL'
      VALUE_ORG  = 'S'
    TABLES
      VALUE_TAB  = IT_FISTL
      RETURN_TAB = IT_RETURN.
  IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO KOSTL-LOW.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-HIGH.
  SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
                                           WHERE SPRAS EQ 'EN'
                                           AND   FIKRS IN KOSTL.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'KOSTL'
      VALUE_ORG  = 'S'
    TABLES
      VALUE_TAB  = IT_FISTL
      RETURN_TAB = IT_RETURN.
  IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO KOSTL-HIGH.
  ENDIF.
*START-OF-SELECTION
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM PROCESS_DATA.
  PERFORM BUILD_FIELDCATALOG.
  PERFORM BUILD_LAYOUT.
  PERFORM BUILD_EVENTS.
  PERFORM BUILD_SORT.
  PERFORM DISPLAY_ALV_REPORT.
*&      Form  GET_DATA
*       text
*  -->  p1        text
*  <--  p2        text
FORM GET_DATA .
  SELECT KOKRS KOSTL BUKRS OBJNR INTO TABLE IT_CSKS
                                 FROM CSKS
                                 WHERE KOKRS EQ '1000'
                                 AND   KOSTL IN KOSTL
                                 AND   BUKRS EQ 'NFCL'.
  SELECT OBJNR
         GJAHR
         KSTAR
         BEKNZ
         WKG001
         WKG002
         WKG003
         WKG004
         WKG005
         WKG006
         WKG007
         WKG008
         WKG009
         WKG010
         WKG011
         WKG012
         FROM COSP
         INTO TABLE IT_COSP
         FOR ALL ENTRIES IN IT_CSKS
         WHERE OBJNR EQ IT_CSKS-OBJNR
         AND   GJAHR EQ GJAHR
         AND   KSTAR IN HKONT.
  LOOP AT IT_COSP.
    MOVE-CORRESPONDING IT_COSP TO IT_COSP2.
    PERIOD1 = PERIO.
    DO PERIOD3 TIMES.
      CASE PERIOD1.
        WHEN 1.
          IT_COSP2-TOTAL =  IT_COSP2-TOTAL + IT_COSP-WKG001.
        WHEN 2.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG002.
        WHEN 3.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG003.
        WHEN 4.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG004.
        WHEN 5.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG005.
        WHEN 6.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG006.
        WHEN 7.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG007.
        WHEN 8.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG008.
        WHEN 9.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG009.
        WHEN 10.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG010.
        WHEN 11.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG011.
        WHEN 12.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG012.
      ENDCASE.
      IF PERIOD2 >= PERIOD1.
        PERIOD1 = PERIOD1 + 1.
      ENDIF.
    ENDDO.
IT_COSP2-OBJNR1 = IT_COSP2-OBJNR+10(6).
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT  = IT_COSP2-OBJNR1
     IMPORTING
        OUTPUT = IT_COSP2-OBJNR1.
CONCATENATE 'FSNFFM' IT_COSP2-OBJNR1 INTO IT_COSP2-OBJNR1.
IT_COSP2-FIPEX = IT_COSP2-KSTAR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT  = IT_COSP2-FIPEX
     IMPORTING
        OUTPUT = IT_COSP2-FIPEX.
    CALL FUNCTION 'FM_POSIT_GET_FROM_FIPEX'
      EXPORTING
      I_FIKRS                = 'NFFM'
      I_FIPEX                = IT_COSP2-FIPEX
*   I_FLG_BUFFER_ALL       =
   IMPORTING
   E_POSIT                = IT_COSP2-POSIT
* TABLES
*   T_FMPOSIT              =
    EXCEPTIONS
      INPUT_ERROR            = 1
      DATA_NOT_FOUND         = 2
      OTHERS                 = 3
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
CONDENSE IT_COSP2-OBJNR1.
CONDENSE IT_COSP2-POSIT.
    COLLECT IT_COSP2.
    CLEAR PERIOD1.
    CLEAR IT_COSP2.
  ENDLOOP.
SORT IT_COSP2 BY OBJNR KSTAR.
*  SELECT   GJAHR
*           KOSTL
*           KSTAR
*           APR_B
*           MAY_B
*           JUN_B
*           JUL_B
*           AUG_B
*           SEP_B
*           OCT_B
*           NOV_B
*           DEC_B
*           JAN_B
*           FEB_B
*           MAR_B
*           INTO TABLE IT_BUDGET FROM ZREV_BUDGET
*           FOR ALL ENTRIES IN IT_COSP2
*           WHERE GJAHR EQ GJAHR
*           AND   KOSTL IN KOSTL
*           AND KSTAR  EQ IT_COSP2-KSTAR.
*  LOOP AT IT_BUDGET.
*    MOVE-CORRESPONDING IT_BUDGET TO IT_BUDGET1.
*    PERIOD1 = PERIO.
*    DO PERIOD3 TIMES.
*      CASE PERIOD1.
*        WHEN 1.
*          IT_BUDGET1-TOTAL2 =  IT_BUDGET1-TOTAL2 + IT_BUDGET-APR_B.
*        WHEN 2.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-MAY_B.
*        WHEN 3.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-JUN_B.
*        WHEN 4.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-JUL_B.
*        WHEN 5.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-AUG_B.
*        WHEN 6.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-SEP_B.
*        WHEN 7.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-OCT_B.
*        WHEN 8.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-NOV_B.
*        WHEN 9.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-DEC_B.
*        WHEN 10.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-JAN_B.
*        WHEN 11.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-FEB_B.
*        WHEN 12.
*          IT_BUDGET1-TOTAL2 = IT_BUDGET1-TOTAL2 + IT_BUDGET-MAR_B.
*      ENDCASE.
*      IF PERIOD2 >= PERIOD1.
*        PERIOD1 = PERIOD1 + 1.
*      ENDIF.
*    ENDDO.
*    IT_BUDGET1-TOTAL3 = IT_BUDGET1-TOTAL2 * 100000.
*    COLLECT IT_BUDGET1.
*    CLEAR PERIOD1.
*    CLEAR IT_BUDGET1.
*  ENDLOOP.
  SELECT OBJNR
         POSIT
         GJAHR
         WLP01
         WLP02
         WLP03
         WLP04
         WLP05
         WLP06
         WLP07
         WLP08
         WLP09
         WLP10
         WLP11
         WLP12
         INTO TABLE IT_BPPE
         FROM BPPE
         FOR ALL ENTRIES IN IT_COSP2
         WHERE OBJNR EQ IT_COSP2-OBJNR1
         AND   POSIT EQ IT_COSP2-POSIT
         AND   GJAHR EQ GJAHR
         AND   VORGA EQ 'KBFR'.
  LOOP AT IT_BPPE.
    MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
    PERIOD1 = PERIO.
    DO PERIOD3 TIMES.
      CASE PERIOD1.
        WHEN 1.
          IT_BPPE1-TOTAL2 =  IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
        WHEN 2.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
        WHEN 3.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
        WHEN 4.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
        WHEN 5.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
        WHEN 6.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
        WHEN 7.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
        WHEN 8.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
        WHEN 9.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
        WHEN 10.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
        WHEN 11.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
        WHEN 12.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
      ENDCASE.
      IF PERIOD2 >= PERIOD1.
        PERIOD1 = PERIOD1 + 1.
      ENDIF.
    ENDDO.
    COLLECT IT_BPPE1.
    CLEAR PERIOD1.
    CLEAR IT_BPPE1.
  ENDLOOP.
ENDFORM.                    " GET_DATA
*&      Form  PROCESS_DATA
*       text
*  -->  p1        text
*  <--  p2        text
FORM PROCESS_DATA .
  LOOP AT IT_COSP2.
    IT_FINAL-GJAHR = IT_COSP2-GJAHR.
    IT_FINAL-KSTAR = IT_COSP2-KSTAR.
    IT_FINAL-TOTAL1 = IT_COSP2-TOTAL.
    SELECT SINGLE KOSTL FROM CSKS INTO IT_FINAL-KOSTL WHERE KOKRS = '1000'
                                                        AND BUKRS EQ 'NFCL'
                                                        AND OBJNR = IT_COSP2-OBJNR.
    READ TABLE IT_BPPE1 WITH KEY OBJNR = IT_COSP2-OBJNR1 POSIT = IT_COSP2-POSIT.
    IF SY-SUBRC EQ 0.
      IT_FINAL-TOTAL3 = IT_BPPE1-TOTAL2.
    ENDIF.
    SELECT SINGLE KTEXT INTO IT_FINAL-TEXT FROM CSKU WHERE SPRAS EQ 'EN'
                                                      AND  KSTAR EQ  IT_COSP2-KSTAR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT  = IT_FINAL-KOSTL
      IMPORTING
        OUTPUT = IT_FINAL-KOSTL.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT  = IT_FINAL-KSTAR
      IMPORTING
        OUTPUT = IT_FINAL-KSTAR.
    SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
                                                WHERE SPRAS EQ 'EN'
                                                AND   FICTR EQ IT_FINAL-KOSTL.
    IT_FINAL-VARIANCE = IT_FINAL-TOTAL3 - IT_FINAL-TOTAL1.
    APPEND IT_FINAL.
    CLEAR IT_FINAL.
  ENDLOOP.
  SORT IT_FINAL BY KOSTL KSTAR.
  DELETE IT_FINAL WHERE KOSTL IS INITIAL.
*  DELETE IT_FINAL WHERE TOTAL3 IS INITIAL.
ENDFORM.                    " PROCESS_DATA
*&      Form  BUILD_FIELDCATALOG
*       text
*  -->  p1        text
*  <--  p2        text
FORM BUILD_FIELDCATALOG .
  FIELDCATALOG-FIELDNAME   = 'KOSTL'.
  FIELDCATALOG-SELTEXT_M   = 'Cost Center'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'BEZEICH'.
  FIELDCATALOG-SELTEXT_M   = 'Cost Center Description'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'KSTAR'.
  FIELDCATALOG-SELTEXT_M   = 'G/L Account'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'TEXT'.
  FIELDCATALOG-SELTEXT_M   = 'G/L Account Description'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'TOTAL3'.
  FIELDCATALOG-SELTEXT_M   = 'Planned amount'.
  FIELDCATALOG-DO_SUM      = 'X'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'TOTAL1'.
  FIELDCATALOG-SELTEXT_M   = 'Actuals'.
  FIELDCATALOG-DO_SUM      = 'X'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'VARIANCE'.
  FIELDCATALOG-SELTEXT_M   = 'Variance'.
  FIELDCATALOG-DO_SUM      = 'X'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form  BUILD_LAYOUT
*       text
*  -->  p1        text
*  <--  p2        text
FORM BUILD_LAYOUT .
  GD_LAYOUT-NO_INPUT          = 'X'.
  GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form  BUILD_EVENTS
*       text
*  -->  p1        text
*  <--  p2        text
FORM BUILD_EVENTS .
  IT_EVENT-NAME = 'TOP_OF_PAGE'.
  IT_EVENT-FORM = 'TOP_OF_PAGE'.
  APPEND IT_EVENT TO IT_EVENT1.
ENDFORM.                    " BUILD_EVENTS
*&      Form  BUILD_SORT
*       text
*  -->  p1        text
*  <--  p2        text
FORM BUILD_SORT .
  DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
  GT_SORT-UP = 'X'.
  GT_SORT-FIELDNAME = 'KOSTL'.
  GT_SORT-TABNAME  = 'IT_FINAL'.
  GT_SORT-SUBTOT  = 'X'.
  APPEND GT_SORT TO GD_SORT.
  CLEAR GT_SORT.
  GT_SORT-UP = 'X'.
  GT_SORT-FIELDNAME = 'BEZEICH'.
  GT_SORT-TABNAME  = 'IT_FINAL'.
  APPEND GT_SORT TO GD_SORT.
  CLEAR GT_SORT.
ENDFORM.                    " BUILD_SORT
*&      Form  DISPLAY_ALV_REPORT
*       text
*  -->  p1        text
*  <--  p2        text
FORM DISPLAY_ALV_REPORT .
  GD_REPID = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = GD_REPID
      IS_LAYOUT          = GD_LAYOUT
      IT_EVENTS              = IT_EVENT1[]
      IT_FIELDCAT        = FIELDCATALOG[]
      IT_SORT            = GD_SORT[]
*      I_SAVE             = 'X'
    TABLES
      T_OUTTAB           = IT_FINAL
    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 TOP_OF_PAGE
*       ALV TOP-OF-PAGE
FORM TOP_OF_PAGE.                                           "#EC CALLED
  REFRESH : IT_LIST_TOP_OF_PAGE.
  CLEAR : IT_LINE.
  IT_LINE-TYP  = 'H'.
  IT_LINE-INFO = TEXT-001.
  APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.
  CLEAR IT_LINE.
ENDFORM.                    "DISPLAY_ALV_REPORT