Total Text Display at the end of the ALV

Question

Hi,
I want to display the text 'TOTAL' in my ALV at the end of my report.I am pasting my code, So please any one help me in this issue.
*& Report  ZFIR0011_O2C_TAX_GL_SUMMARY
REPORT  zfir0011_o2c_tax_gl_summary.
TYPE-POOLS slis.
TABLES: faglflexa.
Column positions to pass to field catalog
CONSTANTS :  c_pos_1      TYPE sy-cucol       VALUE '1',   " position of the columns
             c_pos_2      TYPE sy-cucol       VALUE '2',
             c_pos_3      TYPE sy-cucol       VALUE '3',
             c_pos_4      TYPE sy-cucol       VALUE '4',
             c_pos_5      TYPE sy-cucol       VALUE '5'.
*Field names for Field Catalog
CONSTANTS : c_h           TYPE c              VALUE 'H',
            c_s           TYPE c              VALUE 'S',
            c_slash       TYPE c              VALUE '/',
            c_colon       TYPE c              VALUE ':',
            c_top_of_page TYPE slis_formname  VALUE 'TOP_OF_PAGE',
            c_top_of_page_split TYPE slis_formname  VALUE 'TOP_OF_PAGE_SPLIT',
            c_txjcd       TYPE slis_fieldname VALUE 'TXJCD',     "Tax Jurisdiction
            c_region      TYPE slis_fieldname VALUE 'STATE',     "State
            c_currb       TYPE slis_fieldname VALUE 'CURR_BAL',  "Current Balance
            c_perch       TYPE slis_fieldname VALUE 'PER_CHNG',  "Period Change
            c_prbal       TYPE slis_fieldname VALUE 'PRI_BALA',  "Prior Balance
            c_total       TYPE slis_fieldname VALUE 'TOTAL'.     "Total
CONSTANTS : c_table_name  TYPE slis_tabname   VALUE 'IT_FINAL', "For Field Catalog
            c_spras       TYPE spras          VALUE 'E',        "Language
            c_buzei       TYPE c              VALUE '1',
            c_zp          TYPE bset-mwskz     VALUE 'ZP',
            c_zr          TYPE bset-mwskz     VALUE 'ZR'.
Types Declaration.
TYPES: BEGIN OF ty_faglflexa,
       ryear TYPE gjahr,
       bukrs TYPE bukrs,
       belnr TYPE belnr_d,                  "Document Number
       poper TYPE poper,                    "Posting Period
       budat TYPE budat,                    "Posting Date
       buzei TYPE buzei,                    "Document line item
       racct TYPE racct,                    "G/L Account no.
       END   OF ty_faglflexa,
       ty_t_faglflexa TYPE STANDARD TABLE OF ty_faglflexa.
TYPES: BEGIN OF ty_bset,
       belnr TYPE belnr_d,
       buzei TYPE buzei,
       mwskz TYPE mwskz,                    "Tax code
      hkont TYPE hkont,
       shkzg TYPE shkzg,                    "Debit/Credit Indicator
       txjcd TYPE txjcd,                    "Tax Jurisdiction
       h2ste TYPE h2ste,                    "Tax Amount
       h2bas TYPE h2bas_bses,               "Tax Amount
       END   OF ty_bset,
       ty_t_bset TYPE STANDARD TABLE OF ty_bset.
TYPES: BEGIN OF ty_skat,
       spras TYPE spras,
       ktopl TYPE ktopl,
       saknr TYPE saknr,
       text  TYPE txt20_skat,
       END   OF ty_skat,
       ty_t_skat TYPE STANDARD TABLE OF ty_skat.
TYPES: BEGIN OF ty_custom,
       geo_state    TYPE char2,
       geo_county   TYPE char3,
       country      TYPE char2,
       description  TYPE char40,
       END   OF ty_custom,
       ty_t_custom TYPE STANDARD TABLE OF ty_custom.
TYPES : BEGIN OF ty_budat,
         sign     TYPE char_01,
         option   TYPE char2,
         low      TYPE budat,
         high     TYPE budat,
        END OF ty_budat,
        ty_t_budat TYPE STANDARD TABLE OF ty_budat.
TYPES: BEGIN OF ty_txjcd,
       geo_state  TYPE char2,
       geo_county TYPE char3,
       END   OF ty_txjcd,
       ty_t_txjcd TYPE STANDARD TABLE OF ty_txjcd.
TYPES: BEGIN OF ty_inter,
       ryear TYPE gjahr,
       bukrs TYPE bukrs,
       txjcd TYPE txjcd,                    "Tax Jurisdiction
       racct TYPE racct,                    "G/L Account no.
       h2ste TYPE h2ste,                    "Tax Amount
       poper TYPE poper,                    "Posting Period
       belnr TYPE belnr_d,                  "Document Number
       shkzg TYPE shkzg,                    "Debit/Credit Indicator
       END   OF ty_inter,
       ty_t_inter TYPE STANDARD TABLE OF ty_inter.
TYPES: BEGIN OF ty_final,
       txjcd    TYPE bset-txjcd,                     "Tax Jurisdiction
       state    TYPE char40,                         "State
       curr_bal TYPE bset-h2ste,                     "Current Balance
       per_chng TYPE bset-h2ste,                     "Period Change
       pri_bala TYPE bset-h2ste,                     "Prior Balance
       END   OF ty_final,
       ty_t_final TYPE STANDARD TABLE OF ty_final.
Internal Tables Declaration.
DATA : it_faglflexa        TYPE ty_t_faglflexa,
       it_bset             TYPE ty_t_bset,
       it_skat             TYPE ty_t_skat,
       it_custom           TYPE ty_t_custom,
       it_txjcd            TYPE ty_t_txjcd,
       it_inter            TYPE ty_t_inter.                 "Intermediate table for storing data
DATA : it_final            TYPE ty_t_final.                 "#EC NEEDED
*Fieldcatalogue Internal Table Declaration
DATA : it_fieldcat         TYPE slis_t_fieldcat_alv,
       wa_fieldcat         TYPE slis_fieldcat_alv,
       it_alv_top_of_page  TYPE slis_t_listheader,
       gs_line             TYPE slis_listheader.
*Field-symbols and Work Area Declarations
FIELD-SYMBOLS : <fs_faglflexa>      TYPE ty_faglflexa,
                <fs_bset>           TYPE ty_bset,
                <fs_inter>          TYPE ty_inter.
DATA : wa_faglflexa     TYPE ty_faglflexa,                  "#EC NEEDED
       wa_bset          TYPE ty_bset,
       wa_skat          TYPE ty_skat,
       wa_custom        TYPE ty_custom,
       wa_txjcd         TYPE ty_txjcd,
       wa_inter         TYPE ty_inter,
       wa_final         TYPE ty_final.                      " #EC NEEDED
Variables Declaration.
DATA : v_current_year TYPE i,
       v_poper        TYPE poper,
       v_saknr        TYPE saknr,                           "#EC NEEDED
       v_ktopl        TYPE ktopl,
       v_konts        TYPE saknr,
       v_bukrs        TYPE bukrs,
       v_buzei(2)     TYPE n VALUE '0',
       v_sum_val      TYPE h2ste,
       v_sum_val1     TYPE h2ste,
       v_sum_val2     TYPE h2ste,
       v_h2ste        TYPE string,
       v_desc         TYPE char40,
       v_title        TYPE char40,
       v_start_date   TYPE char10.             "Temp Added
SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS:     p_bukrs TYPE faglflexa-rbukrs OBLIGATORY,              " Company Code
                p_gjahr TYPE faglflexa-gjahr  OBLIGATORY.              " Fiscal Year
SELECT-OPTIONS: s_budat FOR  faglflexa-budat  OBLIGATORY
                                              NO-EXTENSION
                                              NO INTERVALS.
PARAMETERS:     p_racct TYPE faglflexa-racct  OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN VALIDATIONS.
*Company Code Validation.
AT SELECTION-SCREEN ON p_bukrs.
  SELECT SINGLE bukrs INTO v_bukrs
  FROM t001
  WHERE bukrs = p_bukrs.
  IF sy-subrc NE 0.
    MESSAGE text-002 TYPE 'E'.
  ENDIF.
Fiscal Year Validation. It should not be more than Current.
AT SELECTION-SCREEN ON p_gjahr.
  v_current_year = sy-datum+0(4).
  IF p_gjahr > v_current_year.
    MESSAGE text-003 TYPE 'E'.
  ENDIF.
*G/L Account Validation.
AT SELECTION-SCREEN ON p_racct.
  SELECT SINGLE saknr INTO v_saknr
  FROM skb1
  WHERE saknr EQ p_racct
  AND   bukrs EQ p_bukrs.
  IF sy-subrc EQ 0.
    SELECT SINGLE ktopl FROM t001
    INTO v_ktopl
    WHERE bukrs = p_bukrs.
    SELECT SINGLE konts FROM t030k
    INTO v_konts
    WHERE ktopl = v_ktopl
    AND   konts = v_saknr.
    IF sy-subrc NE 0.
      MESSAGE text-004 TYPE 'E'.
    ENDIF.
  ELSE.
    MESSAGE text-004 TYPE 'E'.
  ENDIF.
START-OF-SELECTION.
  PERFORM get_data USING p_bukrs
                         p_gjahr
                         s_budat[]
                         p_racct  CHANGING it_final.
*Display report in ALV grid
  IF it_final IS NOT INITIAL.
*Build Top of the page table.
    PERFORM comment_build USING it_skat CHANGING it_alv_top_of_page.
*Build Field catalog table for ALV
    PERFORM build_field_catalog CHANGING it_fieldcat.
*Display report
    PERFORM display_alv USING it_final.
  ELSE.
*No data found for the selection criteria/period.
    MESSAGE text-018 TYPE 'I'.
  ENDIF.
*&      Form  GET_DATA
      text
     -->P_P_BUKRS  text
     -->P_P_GJAHR  text
     -->P_P_BUDAT  text
     -->P_P_RACCT  text
     <--P_IT_FINAL  text
FORM get_data  USING    fp_bukrs     TYPE bukrs
                        fp_gjahr     TYPE gjahr
                        fp_budat     TYPE ty_t_budat
                        fp_racct     TYPE racct
               CHANGING fp_it_final  TYPE ty_t_final.
  DATA : v_date(2)  TYPE c VALUE '01',
         v_month(2) TYPE c VALUE '01',
         v_start_date TYPE datum.
*concatenate p_gjahr v_month v_date into v_start_date.  " separated by c_slash.
  SELECT ryear
         rbukrs
         belnr                                "Document Number
         poper                                "Posting Period
         budat                                "Posting Date
         buzei                                "Document line item
         racct                                "G/L Account no.
         INTO TABLE it_faglflexa
         FROM faglflexa
         WHERE rbukrs EQ p_bukrs
         AND   gjahr  EQ p_gjahr
         AND   budat  LE s_budat
         AND   racct  EQ p_racct.
*selecting the Tax Jurisdiction, Tax amount from BSET
  IF it_faglflexa IS NOT INITIAL.
    SELECT belnr
           buzei
           mwskz
           "hkont
           shkzg                                "Debit/Credit Indicator
           txjcd                                "Tax Jurisdicaiton
           h2ste                                "Tax Amount
           h2bas                                "Tax Amount1
           INTO TABLE it_bset
           FROM bset
           FOR ALL ENTRIES IN it_faglflexa
           WHERE belnr EQ it_faglflexa-belnr
           AND   gjahr EQ p_gjahr               "it_faglflexa-ryear
           AND   buzei EQ c_buzei.              "Line item
  ENDIF.
  IF sy-subrc EQ 0.
    SORT it_bset BY txjcd ASCENDING.
  ENDIF.
*Selecting the G/L Account Long Text from SKAT
  IF it_faglflexa IS NOT INITIAL.
    SELECT  spras                            " Language key
            ktopl                            " Chart of Accounts
            saknr                            " G/L Account Number
            txt20                            " G/L Account Long Text
         INTO TABLE it_skat
         FROM skat
         FOR ALL ENTRIES IN it_faglflexa
         WHERE spras =  c_spras
         AND   saknr =  it_faglflexa-racct.
  ENDIF.
*Selecting the Description from Custom table
  LOOP AT it_bset ASSIGNING <fs_bset>.
    wa_txjcd-geo_state  = <fs_bset>-txjcd+0(2).
    wa_txjcd-geo_county = <fs_bset>-txjcd+2(3).
    APPEND wa_txjcd TO it_txjcd.
    CLEAR wa_txjcd.
  ENDLOOP.
  IF it_txjcd IS NOT INITIAL.
    SELECT geo_state
           geo_county
           country
           description
    INTO TABLE it_custom
    FROM ztfi_tgl_summary
    FOR ALL ENTRIES IN it_txjcd
    WHERE geo_state  = it_txjcd-geo_state
    AND   geo_county = it_txjcd-geo_county.
  ENDIF.
  LOOP AT it_faglflexa ASSIGNING <fs_faglflexa>.
    MOVE-CORRESPONDING <fs_faglflexa> TO wa_inter.          "#EC ENHOK
*Read Tax Jurisdiction and Tax Amount from BSET Table.
    READ TABLE it_bset INTO wa_bset WITH KEY belnr =  <fs_faglflexa>-belnr.
    IF sy-subrc EQ 0.
      wa_inter-shkzg = wa_bset-shkzg.
      wa_inter-txjcd = wa_bset-txjcd.
    ENDIF.
*If BSET-MWSKZ = ZP or ZR then pick H2BAS as Tax Amount.
    IF wa_bset-mwskz = c_zp.
      wa_inter-h2ste = wa_bset-h2bas.
    ELSEIF wa_bset-mwskz = c_zr.
      wa_inter-h2ste = wa_bset-h2bas.
    ELSE.
      wa_inter-h2ste = wa_bset-h2ste.
    ENDIF.
*Check it is credit entry or debit entry ('H' or 'S').
    IF wa_inter-shkzg EQ 'H'.
      wa_inter-h2ste = wa_inter-h2ste * -1.
    ENDIF.
    APPEND wa_inter TO it_inter.
    CLEAR: wa_inter, wa_bset.
  ENDLOOP.
  IF sy-subrc EQ 0.
    SORT it_inter BY bukrs ryear txjcd ASCENDING.
    DELETE it_inter WHERE txjcd EQ space.
  ENDIF.
  v_poper = s_budat-low+4(2).
  LOOP AT it_inter INTO wa_inter.
*Read the Text maintained in the custom table based on the GEO_STATE = First two digits of TXJCD
*and GEO_COUNTY = Next three digits of TXJCD. If this is blank pick based on First two digits of TXJCD.
    READ TABLE it_custom INTO wa_custom WITH KEY geo_state  = wa_bset-txjcd+0(2)
                                                 geo_county = wa_bset-txjcd+2(3).
    IF sy-subrc NE 0.
      READ TABLE it_custom INTO wa_custom WITH KEY geo_state  = wa_bset-txjcd+0(2).
    ENDIF.
    IF sy-subrc = 0.
      wa_final-state = wa_custom-description.
    ENDIF.
    AT NEW txjcd.
      CLEAR: v_sum_val, v_sum_val1, v_sum_val2.
    ENDAT.
  Period Change
    IF wa_inter-poper EQ v_poper.
      v_sum_val1 = v_sum_val1 + wa_inter-h2ste.
    ENDIF.
  Prior Balance
    IF wa_inter-poper LT v_poper.
      v_sum_val2 = v_sum_val2 + wa_inter-h2ste.
    ENDIF.
    AT END OF txjcd.
      wa_final-txjcd    = wa_inter-txjcd.
      wa_final-per_chng = v_sum_val1.                                     "Period change
      wa_final-pri_bala = v_sum_val2.                                     "Prior Balance
      wa_final-curr_bal = v_sum_val1 + v_sum_val2.                        "Current Balance
      APPEND wa_final TO it_final.
      CLEAR wa_final.
    ENDAT.
  ENDLOOP.
ENDFORM.                    " GET_DATA
*&      Form  COMMENT_BUILD
      text
     -->P_IT_SKAT  text
     <--P_IT_ALV_TOP_OF_PAGE  text
FORM comment_build  USING    fp_it_skat            TYPE ty_t_skat
                    CHANGING fp_it_alv_top_of_page TYPE slis_t_listheader.
  DATA: v_budat_low  TYPE c LENGTH 10,
        v_budat_high TYPE c LENGTH 10,
        v_butxt      TYPE butxt.
  CLEAR gs_line.
*Report Title
  CONCATENATE text-005 p_bukrs INTO v_title SEPARATED BY space.
  gs_line-typ = c_h.
  gs_line-key = ' '.
  gs_line-info = v_title.
  APPEND gs_line TO fp_it_alv_top_of_page.
  CLEAR gs_line.
*Account Number
  gs_line-typ = c_s.
  gs_line-key = text-006.
  gs_line-info = p_racct.
  APPEND gs_line TO fp_it_alv_top_of_page.
  CLEAR gs_line.
*G/L Account Description
  READ TABLE it_skat INTO wa_skat WITH KEY ktopl = v_ktopl.
  IF sy-subrc EQ 0.
    v_desc = wa_skat-text.
  ENDIF.
  gs_line-typ = c_s.
  gs_line-key = text-007.
  gs_line-info = v_desc.
  APPEND gs_line TO fp_it_alv_top_of_page.
  CLEAR gs_line.
*Fiscal Year from selection
  IF NOT p_gjahr IS INITIAL.
    gs_line-info = p_gjahr.
    gs_line-typ   = c_s.
    gs_line-key  = text-008.                                              "Fiscal Year
    APPEND gs_line TO fp_it_alv_top_of_page.
    CLEAR gs_line.
  ENDIF.
*Posting Date
  CONCATENATE s_budat-low4(2) s_budat-low6(2) s_budat-low+0(4) INTO gs_line-info SEPARATED BY c_slash.
  gs_line-typ   = c_s.
  gs_line-key  = text-009.                                               "Posting Date
  APPEND gs_line TO fp_it_alv_top_of_page.
  CLEAR gs_line.
*Company Code Description from selection
  IF NOT p_bukrs IS INITIAL.
    SELECT SINGLE butxt FROM t001
    INTO v_butxt WHERE bukrs EQ p_bukrs.
    gs_line-info = v_butxt.
    gs_line-typ  = c_s.
    gs_line-key  = text-010.                                              "Company Code Description
    APPEND gs_line TO fp_it_alv_top_of_page.
    CLEAR gs_line.
  ENDIF.
Printed Date
  gs_line-typ = c_s.
  gs_line-key = text-011.                                                 "Printed Date
  CONCATENATE  sy-datum+4(2)
               sy-datum+6(2)
               sy-datum(4) INTO gs_line-info SEPARATED BY c_slash.        "todays date
  APPEND gs_line TO fp_it_alv_top_of_page.
  CLEAR: gs_line.
Printing Time
  gs_line-typ = c_s.
  gs_line-key = text-012.                                                 "Printing Time
  gs_line-info = sy-uzeit.
  CONCATENATE  sy-uzeit(2)
               sy-uzeit+2(2)
               sy-uzeit+4(2) INTO gs_line-info SEPARATED BY c_colon.      "current time
  APPEND gs_line TO fp_it_alv_top_of_page.
  CLEAR: gs_line.
ENDFORM.                    " COMMENT_BUILD
*&      Form  BUILD_FIELD_CATALOG
      text
     <--P_IT_FIELDCAT  text
FORM build_field_catalog  CHANGING fp_it_fieldcat TYPE slis_t_fieldcat_alv.
TAX JURISDICTION
  wa_fieldcat-col_pos      = c_pos_1.
  wa_fieldcat-reptext_ddic = text-013.                                    "TAX JURISDICTION
  wa_fieldcat-fieldname    = c_txjcd.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-outputlen    = '15'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
STATE
  wa_fieldcat-col_pos      = c_pos_2.
  wa_fieldcat-reptext_ddic = text-014.                                    "STATE
  wa_fieldcat-fieldname    = c_region.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-outputlen    = '40'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
CURRENT BALANCE
  wa_fieldcat-col_pos      = c_pos_3.
  wa_fieldcat-reptext_ddic = text-015.                                    "CURRENT BALANCE
  wa_fieldcat-fieldname    = c_currb.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-do_sum       = 'X'.
  wa_fieldcat-datatype     = 'CURR'.
  wa_fieldcat-outputlen    = '17'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
PERIOD CHANGE
  wa_fieldcat-col_pos      = c_pos_4.
  wa_fieldcat-reptext_ddic = text-016.                                    "PERIOD CHANGE
  wa_fieldcat-fieldname    = c_perch.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-do_sum       = 'X'.
  wa_fieldcat-datatype     = 'CURR'.
  wa_fieldcat-outputlen    = '17'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
PRIOR BALANCE
  wa_fieldcat-col_pos      = c_pos_5.
  wa_fieldcat-reptext_ddic = text-017.                                    "PRIOR BALANCE
  wa_fieldcat-fieldname    = c_prbal.
  wa_fieldcat-tabname      = c_table_name.
  wa_fieldcat-do_sum       = 'X'.
  wa_fieldcat-datatype     = 'CURR'.
  wa_fieldcat-outputlen    = '17'.
  APPEND  wa_fieldcat TO fp_it_fieldcat.
  CLEAR : wa_fieldcat.
ENDFORM.                    " BUILD_FIELD_CATALOG
*&      Form  DISPLAY_ALV
      text
     -->P_IT_FINAL  text
FORM display_alv  USING    fp_it_final TYPE ty_t_final.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = sy-repid
  I_CALLBACK_PF_STATUS_SET          = ' '
  I_CALLBACK_USER_COMMAND           = ' '
  i_callback_top_of_page            = c_top_of_page
   i_callback_html_top_of_page       = c_top_of_page_split
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
  IS_LAYOUT                         =
     it_fieldcat                       = it_fieldcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
     i_save                            = 'A'
  IS_VARIANT                        =
  IT_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                          = fp_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
*&      Form  top_of_page
      Top of the page for ALV
FORM top_of_page.                                           "#EC CALLED
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = it_alv_top_of_page
  I_LOGO                   =
  I_END_OF_LIST_GRID       =
  I_ALV_FORM               =
ENDFORM. "top_of_page
*&      Form  top_of_page_split
      text
FORM top_of_page_split USING r_top TYPE REF TO cl_dd_document."#EC *
  TYPES: BEGIN  OF ty_text,
         text   TYPE sdydo_text_element,
         END    OF ty_text.
  TYPES: BEGIN  OF ty_text1,                        "AAAAAAAA
         text1  TYPE sdydo_text_element,
         END    OF ty_text1.
  DATA: s_tab          TYPE sdydo_text_table,
        c_area         TYPE REF TO cl_dd_area,
        text           TYPE sdydo_text_element,
        c_area1        TYPE REF TO cl_dd_area,             "AAAAAAA
        text1          TYPE sdydo_text_element,
        s_tab1         TYPE sdydo_text_table.
  DATA: it_text        TYPE TABLE OF ty_text,
        wa_text        TYPE ty_text.
  DATA: it_text1       TYPE TABLE OF ty_text1,
        wa_text1       TYPE ty_text1.
  DATA: v_title        TYPE string,
        v_accts_desc   TYPE string,
        v_year         TYPE string,
        v_comp_code    TYPE string,
        v_desc         TYPE char40,
        v_budat        TYPE char10,
        v_budat1       TYPE char10,
        v_butxt        TYPE butxt,
        v_time         TYPE char10,
        v_comma        TYPE c VALUE ','.
  CALL METHOD r_top->initialize_document.
  CALL METHOD r_top->vertical_split
    EXPORTING
      split_area  = r_top
      split_width = '31%'
    IMPORTING
      right_area  = c_area.
  IF sy-subrc EQ 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*G/L Account Description
  READ TABLE it_skat INTO wa_skat WITH KEY ktopl = v_ktopl.
  IF sy-subrc EQ 0.
    v_desc = wa_skat-text.
  ENDIF.
*Company code Description
  IF NOT p_bukrs IS INITIAL.
    SELECT SINGLE butxt FROM t001
    INTO v_butxt WHERE bukrs EQ p_bukrs.
  ENDIF.
  CONCATENATE text-005 p_bukrs INTO v_title SEPARATED BY space.
  wa_text1-text1 = v_title.
  APPEND wa_text1 TO it_text1.
  s_tab1 = it_text1.
  CALL METHOD c_area->add_text
    EXPORTING
      text_table   = s_tab1
      fix_lines    = 'X'
      sap_fontsize = cl_dd_document=>large
      sap_emphasis = cl_dd_document=>strong.                           "AAAAAA
  CONCATENATE text-006 p_racct v_comma text-007 v_desc INTO v_accts_desc SEPARATED BY space.
  CONCATENATE s_budat-low4(2) s_budat-low6(2) s_budat-low+0(4) INTO v_budat SEPARATED BY c_slash.
  CONCATENATE text-008 p_gjahr v_comma text-009 v_budat INTO v_year SEPARATED BY space.
  CONCATENATE text-010 v_butxt INTO v_comp_code SEPARATED BY space.
wa_text-text = v_title.
APPEND wa_text TO it_text.
  wa_text-text = v_accts_desc.
  APPEND wa_text TO it_text.
  wa_text-text = v_year.
  APPEND wa_text TO it_text.
  wa_text-text = v_comp_code.
  APPEND wa_text TO it_text.
  s_tab = it_text.
  CALL METHOD c_area->add_text
    EXPORTING
      text_table   = s_tab
      fix_lines    = 'X'
      sap_fontsize = cl_dd_document=>medium
      sap_emphasis = cl_dd_document=>medium.
  CALL METHOD r_top->new_line.
  CALL METHOD r_top->new_line.
  CALL METHOD r_top->new_line.
  CALL METHOD r_top->add_gap
    EXPORTING
      width = 0.
  CONCATENATE sy-datum4(2) sy-datum6(2) sy-datum+0(4) INTO v_budat1 SEPARATED BY c_slash.
  CALL METHOD r_top->add_text
    EXPORTING
      text         = text-011
      sap_emphasis = 'STRONG'.
  CALL METHOD r_top->add_gap
    EXPORTING
      width = 1.
  text = v_budat1.
  CALL METHOD r_top->add_text
    EXPORTING
      text = text.
     sap_style = 'KEY'.
  CALL METHOD r_top->new_line.
  CALL METHOD r_top->add_text
    EXPORTING
      text         = text-012
      sap_emphasis = 'STRONG'.
  CALL METHOD r_top->add_gap
    EXPORTING
      width = 1.
  CONCATENATE  sy-uzeit(2)
               sy-uzeit+2(2)
               sy-uzeit+4(2) INTO v_time SEPARATED BY c_colon.   "current time
  text = v_time.
  CALL METHOD r_top->add_text
    EXPORTING
      text = text.
     sap_style = 'KEY'.
ENDFORM.                    "top_of_page_split
Thanks & Regards,
Ramana

Answer 1

Hi,
try to declare alv layout and in that
FORM t_layout  USING    i_layout TYPE slis_layout_alv.
i_layout-colwidth_optimize = 'X'.
  i_layout-zebra  = 'X'.
p_i_layout-totals_text = 'GRAND TOTAL ='.
p_i_layout-subtotals_text = 'Sub Total'.
p_i_layout-DEF_STATUS  = ' '.
p_i_layout-info_fieldname = 'LINE_COLOR'.
ENDFORM.                    " T_LAYOUT
hope this helps you.
Thanks & Regards,
Y.R.Prem Kumar