Fico report

Question

Hi,
I am working on vendorwise age  analysis report & in that i m using LFA1, BSIK, BSAK tables , but now I want to sort the POs  on document type (BSART).
I am not getting how to extract the information.
Thanks.

Answer 1

Hi,
Pls refer the report for Vendor Performance report.
REPORT  YMS_VENDORPERFORMANCE.
TABLES : BSIK, BAPIFVDEXP_VZZBEPP.
DATA : T_BSIK LIKE BSIK OCCURS 0 WITH HEADER LINE,
       T_BSAK LIKE BSAK OCCURS 0 WITH HEADER LINE,
       DAYS LIKE BAPIFVDEXP_VZZBEPP-NUM4.
DATA : BEGIN OF T_LFA1 OCCURS 0,
         LIFNR LIKE LFA1-LIFNR,
         NAME1 LIKE LFA1-NAME1,
         ADRNR LIKE LFA1-ADRNR,
       END OF T_LFA1.
DATA : BEGIN OF T_ADRC OCCURS 0,
         ADRNR LIKE LFA1-ADRNR,
         STREET LIKE ADRC-STREET,
         CITY1 LIKE ADRC-CITY1,
       END OF T_ADRC.
DATA : BEGIN OF T_BSEG OCCURS 0,
         ZFBDT LIKE BSEG-ZFBDT,
         KOART LIKE BSEG-KOART,
         KOSTL LIKE BSEG-KOSTL,
         PROJK LIKE BSEG-PROJK,
       END OF T_BSEG.
DATA : BEGIN OF T_PRPS OCCURS 0,
         POSID LIKE PRPS-POSID,
         OBJNR LIKE PRPS-OBJNR,
      END OF T_PRPS.
DATA : T_KOSTL LIKE BSEG-KOSTL,
       T_PROJK LIKE BSEG-PROJK,
       TEXT(15).
DATA : BEGIN OF T_OUTPUT OCCURS 0,
         LIFNR LIKE LFA1-LIFNR,
         NAME1 LIKE LFA1-NAME1,
         STREET LIKE ADRC-STREET,
         CITY1 LIKE ADRC-CITY1,
         OBJNR LIKE PRPS-OBJNR,
         POSID LIKE PRPS-POSID,
         KOSTL LIKE BSIK-KOSTL, " COST CENTER
         UMSKZ LIKE BSIK-UMSKZ,
         BELNR LIKE BSIK-BELNR,
         BUKRS LIKE BSIK-BUKRS,
         GJAHR LIKE BSIK-GJAHR,
        wrbtr like bsik-wrbtr,
         DMBTR LIKE BSIK-WRBTR,
         HKONT LIKE BSIK-HKONT,
         DIF1  LIKE BSIK-WRBTR,
         DIF2  LIKE BSIK-WRBTR,
         DIF3  LIKE BSIK-WRBTR,
         DIF4  LIKE BSIK-WRBTR,
         DIF5  LIKE BSIK-WRBTR,
         DAYS LIKE BAPIFVDEXP_VZZBEPP-NUM4,
       END OF T_OUTPUT.
Alv data declaration
TYPE-POOLS : SLIS.
DATA :ALV_FIELDCAT            TYPE SLIS_T_FIELDCAT_ALV,
      ALV_FIELDCAT_LINE       LIKE LINE OF ALV_FIELDCAT,
      ALV_SORT                TYPE SLIS_T_SORTINFO_ALV,
      ALV_SORT_LINE           LIKE LINE OF ALV_SORT,
      ALV_LAYOUT              TYPE SLIS_LAYOUT_ALV,
      G_REPID                 LIKE SY-REPID VALUE SY-REPID,
      ALV_STATUS_SET          TYPE SLIS_FORMNAME VALUE 'ALV_STATUS_SET',
      ALV_USER_COMM           TYPE SLIS_FORMNAME VALUE 'ALV_USER_COMM',
      GRID_TITLE              TYPE LVC_TITLE,
      ALV_FIELDCAT_ACTY       TYPE SLIS_T_FIELDCAT_ALV,
      G_SAVE,
      GS_VARIANT                LIKE DISVARIANT,
      G_EXIT_CAUSED_BY_CALLER   TYPE C,
      GS_EXIT_CAUSED_BY_USER    TYPE SLIS_EXIT_BY_USER.
DATA: ALV_FIELDCAT_LINE_ACTY  LIKE LINE OF ALV_FIELDCAT_ACTY,
      ALV_LAYOUT_ACTY         TYPE SLIS_LAYOUT_ALV,
      GT_LIST_TOP_OF_PAGE     TYPE SLIS_T_LISTHEADER,
      GT_EVENTS               TYPE SLIS_T_EVENT,
      MESSAGE                 TYPE STRING,
      R_UCOMM     LIKE SY-UCOMM,
      RS_SELFIELD TYPE SLIS_SELFIELD.
CONSTANTS:
      GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_BUKRS FOR BSIK-BUKRS,
                 S_GJAHR FOR BSIK-GJAHR,
                 S_LIFNR FOR BSIK-LIFNR,
                 S_UMSKZ FOR BSIK-UMSKZ.
PARAMETERS     : P_AUGDT LIKE BSIK-AUGDT OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS : S_DATE1 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
                 DEFAULT 1 TO 30,
                 S_DATE2 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
                 DEFAULT 30 TO 60,
                 S_DATE3 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
                 DEFAULT 60 TO 90,
                 S_DATE4 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
                 DEFAULT 90 TO 120,
                 S_DATE5 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
                 DEFAULT 120 TO 150.
SELECTION-SCREEN END OF BLOCK B2.
INITIALIZATION.
START-OF-SELECTION.
  PERFORM FETCH_DATA.
  PERFORM DISPLAY.
*&      Form  fetch_data
      text
-->  p1        text
<--  p2        text
FORM FETCH_DATA .
  SELECT *
  INTO TABLE T_BSIK
  FROM BSIK
  WHERE BUKRS IN S_BUKRS
  AND   GJAHR IN S_GJAHR
  AND   LIFNR IN S_LIFNR
  AND   UMSKZ IN S_UMSKZ
  AND   UMSKZ NOT IN ('F','P','L','G').
AND   zfbdt <= P_augdt.
  IF SY-SUBRC = 0.
    SELECT *
    INTO TABLE T_BSAK
    FROM BSAK
    WHERE BUKRS IN S_BUKRS
    AND   GJAHR IN S_GJAHR
    AND   LIFNR IN S_LIFNR
    AND   UMSKZ IN S_UMSKZ
    AND   UMSKZ NOT IN ('F','P','L','G')
    AND   AUGDT > P_AUGDT.
    LOOP AT T_BSAK.
      MOVE-CORRESPONDING T_BSAK TO T_BSIK.
      APPEND T_BSIK.
    ENDLOOP.
    LOOP AT T_BSIK.
     if t_bsik-zfbdt is initial.
       t_bsik-zfbdt = t_bsik-bldat.
      modify t_bsik transporting zfbdt.
     endif.
      IF T_BSIK-BUDAT > P_AUGDT.
        DELETE T_BSIK.
      ENDIF.
     if t_bsik-umskz > P_augdt.
    ENDLOOP.
    SELECT LIFNR
           NAME1
           ADRNR
    INTO TABLE T_LFA1
    FROM LFA1
    FOR ALL ENTRIES IN T_BSIK
    WHERE LIFNR = T_BSIK-LIFNR.
    IF SY-SUBRC = 0.
      SELECT ADDRNUMBER AS ADRNR
             STREET
             CITY1
      INTO TABLE T_ADRC
      FROM ADRC
      FOR ALL ENTRIES IN T_LFA1
      WHERE ADDRNUMBER = T_LFA1-ADRNR.
    ENDIF.
  ENDIF.
  LOOP AT T_BSIK.
    IF T_BSIK-SHKZG = 'S'.
     t_bsik-WRBTR = t_bsik-WRBTR * -1.
      T_BSIK-DMBTR = T_BSIK-DMBTR * -1.
    ENDIF.
    REFRESH T_BSEG.
    CLEAR : T_KOSTL, T_PROJK, T_OUTPUT.
    IF T_BSIK-REBZG IS NOT INITIAL.
      SELECT ZFBDT
             KOART
             KOSTL
             PROJK
      INTO TABLE T_BSEG "t_bsik-ZFBDT
      FROM BSEG
      WHERE BUKRS = T_BSIK-BUKRS
      AND   BELNR = T_BSIK-REBZG
      AND   GJAHR = T_BSIK-REBZJ
      AND   KOART IN ('K','S').
      LOOP AT T_BSEG.
        IF T_BSEG-KOART = 'K' AND T_BSEG-ZFBDT IS NOT INITIAL.
          T_BSIK-BUDAT = T_BSEG-ZFBDT.
          MODIFY T_BSIK TRANSPORTING BUDAT.
        ELSEIF T_BSEG-KOART = 'S'.
          T_KOSTL = T_BSEG-KOSTL.
          T_PROJK = T_BSEG-PROJK.
        ENDIF.
      ENDLOOP.
    ELSE.
      SELECT SINGLE KOSTL PROJK
      INTO (T_KOSTL, T_PROJK)
      FROM BSEG
      WHERE BUKRS = T_BSIK-BUKRS
      AND   BELNR = T_BSIK-BELNR
      AND   GJAHR = T_BSIK-GJAHR
      AND   KOART = 'S'.
    ENDIF.
    MOVE-CORRESPONDING T_BSIK TO T_OUTPUT.
    T_OUTPUT-KOSTL = T_KOSTL.
    CONCATENATE 'PR' T_PROJK INTO T_OUTPUT-OBJNR.
   days = P_augdt - t_bsik-ZFBDT.
    DAYS = P_AUGDT - T_BSIK-BUDAT.
    READ TABLE T_LFA1 WITH KEY LIFNR = T_OUTPUT-LIFNR.
    IF SY-SUBRC = 0.
      T_OUTPUT-NAME1 = T_LFA1-NAME1.
      READ TABLE T_ADRC WITH KEY ADRNR = T_LFA1-ADRNR.
      IF SY-SUBRC = 0.
        T_OUTPUT-STREET = T_ADRC-STREET.
        T_OUTPUT-CITY1 = T_ADRC-CITY1.
      ENDIF.
    ENDIF.
    T_OUTPUT-DAYS = DAYS.
    IF DAYS >= S_DATE1-LOW AND DAYS < S_DATE1-HIGH.
     t_output-dif1 = t_bsik-wrbtr. " days.
      T_OUTPUT-DIF1 = T_BSIK-DMBTR. " days.
    ELSEIF DAYS >= S_DATE2-LOW AND DAYS < S_DATE2-HIGH.
     t_output-dif2 = t_bsik-wrbtr. "days.
      T_OUTPUT-DIF2 = T_BSIK-DMBTR. " days.
    ELSEIF DAYS >= S_DATE3-LOW AND DAYS < S_DATE3-HIGH.
     t_output-dif3 = t_bsik-wrbtr. "days.
      T_OUTPUT-DIF3 = T_BSIK-DMBTR. " days.
    ELSEIF DAYS >= S_DATE4-LOW AND DAYS < S_DATE4-HIGH.
     t_output-dif4 = t_bsik-wrbtr. "days.
      T_OUTPUT-DIF4 = T_BSIK-DMBTR. " days.
    ELSEIF DAYS >= S_DATE5-LOW AND DAYS < S_DATE5-HIGH.
     t_output-dif5 = t_bsik-wrbtr. "days.
      T_OUTPUT-DIF5 = T_BSIK-DMBTR. " days.
    ENDIF.
    APPEND T_OUTPUT.
  ENDLOOP.
  IF T_OUTPUT[] IS NOT INITIAL.
    SELECT POSID
           OBJNR
    INTO TABLE T_PRPS
    FROM PRPS
    FOR ALL ENTRIES IN T_OUTPUT
    WHERE OBJNR = T_OUTPUT-OBJNR.
  ENDIF.
  LOOP AT T_OUTPUT.
    READ TABLE T_PRPS WITH KEY OBJNR = T_OUTPUT-OBJNR.
    IF SY-SUBRC = 0.
      T_OUTPUT-POSID = T_PRPS-POSID.
      MODIFY T_OUTPUT TRANSPORTING POSID.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " fetch_data
*&      Form  display
      text
-->  p1        text
<--  p2        text
FORM DISPLAY .
  PERFORM BUILD_ALV_LAYOUT.
  PERFORM S_SORT_BUILD USING ALV_SORT[].
  PERFORM BUILD_FIELD_CATALOGS.
  PERFORM EVENTTAB_BUILD CHANGING GT_EVENTS.
  SORT t_output BY .
  G_SAVE = 'A'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = G_REPID
      I_CALLBACK_PF_STATUS_SET = ALV_STATUS_SET
      I_CALLBACK_USER_COMMAND  = ALV_USER_COMM
      I_GRID_TITLE             = GRID_TITLE
      I_SAVE                   = G_SAVE
      IS_VARIANT               = GS_VARIANT
      IS_LAYOUT                = ALV_LAYOUT
      IT_FIELDCAT              = ALV_FIELDCAT[]
      IT_EVENTS                = GT_EVENTS[]
      IT_SORT                  = ALV_SORT[]
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER  = G_EXIT_CAUSED_BY_CALLER
      ES_EXIT_CAUSED_BY_USER   = GS_EXIT_CAUSED_BY_USER
    TABLES
      T_OUTTAB                 = T_OUTPUT.
  PERFORM ALV_USER_COMM USING R_UCOMM
                              RS_SELFIELD.
  IF SY-SUBRC = 0.
    IF G_EXIT_CAUSED_BY_CALLER = 'X'.
    ELSE.
      IF GS_EXIT_CAUSED_BY_USER-BACK = 'X'.                 " F3
      ELSE.
        IF GS_EXIT_CAUSED_BY_USER-EXIT = 'X'.               " F15
        ELSE.
          IF GS_EXIT_CAUSED_BY_USER-CANCEL = 'X'.           " F12
          ELSE.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
*" Fatal error calling ALV
  ENDIF.
ENDFORM.                    " display
*&      Form  build_alv_layout
FORM BUILD_ALV_LAYOUT.
  CLEAR ALV_LAYOUT.
  ALV_LAYOUT-COLWIDTH_OPTIMIZE  = 'X'. "always display full columns
alv_layout-box_fieldname      = 'CHK'.
alv_layout-box_tabname        = 'T_OUTPUT'.
  ALV_LAYOUT-INFO_FIELDNAME     = 'COLOR'. "color a line
  ALV_LAYOUT-DETAIL_POPUP       = 'X'.
  ALV_LAYOUT-ZEBRA              = 'X'. "Zebra output
ENDFORM.                    " build_alv_layout
      FORM s_sort_build                                             *
-->  LT_SORT                                                       *
FORM S_SORT_BUILD USING LT_SORT TYPE SLIS_T_SORTINFO_ALV.
  DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
  CLEAR  LS_SORT.
  LS_SORT-SPOS      =  1.
  LS_SORT-FIELDNAME =  'LIFNR'.
  LS_SORT-UP        =  'X'.
  LS_SORT-GROUP     =  'UL'.
  LS_SORT-SUBTOT       =  'X'.
  APPEND LS_SORT TO LT_SORT.
  CLEAR  LS_SORT.
  LS_SORT-SPOS      =  2.
  LS_SORT-FIELDNAME =  'BELNR'.
  LS_SORT-UP        =  'X'.
  LS_SORT-SUBTOT       =  'X'.
  LS_SORT-GROUP     =  'UL'.
  APPEND LS_SORT TO LT_SORT.
  CLEAR  LS_SORT.
ENDFORM.                    "s_sort_build
*&      Form  eventtab_build
FORM EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT.
  FIELD-SYMBOLS: <LT_EVENTS> LIKE LINE OF LT_EVENTS.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = LT_EVENTS
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
Define TOP_OF_PAGE event
  READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
       ASSIGNING <LT_EVENTS>.
  IF SY-SUBRC EQ 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO <LT_EVENTS>-FORM.
  ENDIF.
ENDFORM.                    " eventtab_build
*&      Form  TOP_OF_PAGE
FORM TOP_OF_PAGE.
  REFRESH GT_LIST_TOP_OF_PAGE.
  CLEAR GT_LIST_TOP_OF_PAGE.
  PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE.
Output GSPC logo on report header
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE
      I_LOGO             = 'GSPC_LOGO'.
ENDFORM.                    "top_of_page
*&      Form  COMMENT_BUILD
Build comments at top of page
FORM COMMENT_BUILD CHANGING GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
  DATA: GS_LINE TYPE SLIS_LISTHEADER.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'H'.
  GS_LINE-INFO = 'Vendor Ageing'.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'S'.
  GS_LINE-KEY  = 'Report ID:'.
  GS_LINE-INFO = SY-REPID.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'S'.
  GS_LINE-KEY  = 'User:'.
  GS_LINE-INFO = SY-UNAME.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'S'.
  GS_LINE-KEY  = 'Date:'.
  WRITE SY-DATUM TO GS_LINE-INFO MM/DD/YYYY.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'S'.
  GS_LINE-KEY  = 'Time:'.
  WRITE SY-UZEIT TO GS_LINE-INFO USING EDIT MASK '__:__:__'.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
  CLEAR GS_LINE.
  GS_LINE-TYP  = 'S'.
  GS_LINE-KEY  = ''.
  WRITE ' '.
  APPEND GS_LINE TO GT_TOP_OF_PAGE.
Output data from selection screen
ENDFORM.                    "comment_build
*Build ALV Summary field catalog
*&      Form  build_field_catalogs
FORM BUILD_FIELD_CATALOGS.
  CLEAR: ALV_FIELDCAT.
  REFRESH: ALV_FIELDCAT.
Vendor Number
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Vendor Number'.
  alv_fieldcat_line-hotspot = 'X'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'LIFNR'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
Vendor Name
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Vendor Name'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'NAME1'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
Vendor Address
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Vendor Address'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'STREET'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
City
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'City'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'CITY1'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
Object number #
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'object #'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'OBJNR'.
  ALV_FIELDCAT_LINE-NO_OUT  = 'X'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
WBS Element
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'WBS Element'.
  ALV_FIELDCAT_LINE-FIELDNAME = 'POSID'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
Cost Center
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Cost Center'.
  ALV_FIELDCAT_LINE-FIELDNAME = 'KOSTL'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
GL Indicator
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'GL Indicator'.
  ALV_FIELDCAT_LINE-FIELDNAME = 'UMSKZ'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
General Ledger Account
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'General Ledger Account'.
  ALV_FIELDCAT_LINE-FIELDNAME = 'HKONT'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
Document No.
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-HOTSPOT = 'X'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Document No.'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'BELNR'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
Amount
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Amount'.
  alv_fieldcat_line-fieldname  = 'WRBTR'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'DMBTR'.
  ALV_FIELDCAT_LINE-NO_OUT  = 'X'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
dif1
  CLEAR TEXT.
  READ TABLE S_DATE1 INDEX 1.
  CONCATENATE 'DAYS ' S_DATE1-LOW '-' S_DATE1-HIGH INTO TEXT.
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = TEXT.
  ALV_FIELDCAT_LINE-FIELDNAME = 'DIF1'.
  ALV_FIELDCAT_LINE-DO_SUM = 'X'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
dif2
  CLEAR TEXT.
  READ TABLE S_DATE2 INDEX 1.
  CONCATENATE 'DAYS ' S_DATE2-LOW '-' S_DATE2-HIGH INTO TEXT.
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = TEXT.
  alv_fieldcat_line-no_out = 'X'.
  ALV_FIELDCAT_LINE-FIELDNAME = 'DIF2'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
dif3
  CLEAR TEXT.
  READ TABLE S_DATE3 INDEX 1.
  CONCATENATE 'DAYS ' S_DATE3-LOW '-' S_DATE3-HIGH INTO TEXT.
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = TEXT.
  ALV_FIELDCAT_LINE-FIELDNAME = 'DIF3'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
  CLEAR ALV_FIELDCAT_LINE.
dif4
  CLEAR TEXT.
  READ TABLE S_DATE4 INDEX 1.
  CONCATENATE 'DAYS ' S_DATE4-LOW '-' S_DATE4-HIGH INTO TEXT.
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = TEXT.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'DIF4'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
dif5
  CLEAR TEXT.
  READ TABLE S_DATE5 INDEX 1.
  CONCATENATE 'DAYS ' S_DATE5-LOW '-' S_DATE5-HIGH INTO TEXT.
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = TEXT.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'DIF5'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
Days
  ALV_FIELDCAT_LINE-TABNAME    = 'T_OUTPUT'.
  ALV_FIELDCAT_LINE-SELTEXT_L = 'Days'.
  ALV_FIELDCAT_LINE-FIELDNAME  = 'DAYS'.
  alv_fieldcat_line-no_out  = 'X'.
  APPEND ALV_FIELDCAT_LINE TO ALV_FIELDCAT.
ENDFORM.                    " build_field_catalogs
*&      Form  ALV_USER_COMM
Process User Status
FORM ALV_USER_COMM USING R_UCOMM     LIKE SY-UCOMM
                         RS_SELFIELD TYPE SLIS_SELFIELD.
*Determine the main component beign viewed
  READ TABLE T_OUTPUT INDEX RS_SELFIELD-TABINDEX.
  CASE R_UCOMM.
    WHEN '&IC1'.       " single / double click
      CASE RS_SELFIELD-FIELDNAME.
Display FI document
        WHEN 'BELNR'.
          SET PARAMETER ID 'BLN' FIELD T_OUTPUT-BELNR.
          SET PARAMETER ID 'BUK' FIELD T_OUTPUT-BUKRS.
          SET PARAMETER ID 'GJR' FIELD T_OUTPUT-GJAHR.
          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
      ENDCASE.
    WHEN 'FMB58'.
      SET PARAMETER ID 'MAT' FIELD prtab-matnr.
      CALL TRANSACTION 'MB58' AND SKIP FIRST SCREEN.
    WHEN 'CHK'.
      MOVE 'X' TO prtab-chk.
      MODIFY prtab INDEX rs_selfield-tabindex.
  ENDCASE.
ENDFORM.                    "alv_user_comm
*&      Form  ALV_STATUS_SET
Set the status for the ALV screen
FORM ALV_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STANDARD' EXCLUDING RT_EXTAB.
ENDFORM.                    "alv_status_set
Thanks,
<b>Sankar M</b>