Help for asset aqusition report

Question

hi,
here i am sending my code for asset aqusition report but not getting right output ie i am not able to get all the line items for particular asset no.
bcoz an asset has different line items with different doc no.
REPORT  XXXXXX                            .
TABLES : sflight.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
w_repid = sy-repid.
DATA : BEGIN OF it_sflight OCCURS 0,
       checkbox(1),
       carrid LIKE sflight-carrid,
       END OF it_sflight.
*layout
DATA: wa_layout           TYPE slis_layout_alv.
*field catalog
DATA: it_fieldcatalog TYPE slis_t_fieldcat_alv,
      wa_fieldcatalog TYPE slis_fieldcat_alv.
START-OF-SELECTION.
  SELECT carrid FROM sflight INTO CORRESPONDING FIELDS OF TABLE
it_sflight.
END-OF-SELECTION.
  CLEAR it_fieldcatalog.
  REFRESH it_fieldcatalog.
  wa_fieldcatalog-fieldname = 'CHECKBOX'.
  wa_fieldcatalog-outputlen = '3'.
  wa_fieldcatalog-col_pos = '1'.
  wa_fieldcatalog-seltext_m   = 'Chk'.
  wa_fieldcatalog-checkbox = 'X'.
  wa_fieldcatalog-edit = 'X'.
  APPEND  wa_fieldcatalog TO it_fieldcatalog.
  CLEAR  wa_fieldcatalog.
  wa_fieldcatalog-fieldname = 'CARRID'.
  wa_fieldcatalog-outputlen = '10'.
  wa_fieldcatalog-col_pos = '2'.
  wa_fieldcatalog-seltext_m   = 'Carrid'.
  APPEND  wa_fieldcatalog TO it_fieldcatalog.
  CLEAR  wa_fieldcatalog.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = w_repid
      is_layout               = wa_layout
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat           = it_fieldcatalog
    TABLES
      t_outtab                = it_sflight
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
*&      Form  USER_COMMAND
FORM user_command USING p_ucomm TYPE sy-ucomm
                      p_selfld TYPE slis_selfield.
  CASE p_ucomm.
    WHEN '&DATA_SAVE'.
      DATA ref1 TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          e_grid = ref1.
      CALL METHOD ref1->check_changed_data.
      LOOP AT it_sflight WHERE checkbox = 'X'.
        DELETE it_sflight INDEX sy-tabix.
      ENDLOOP.
      p_selfld-refresh = 'X'.
  ENDCASE.
ENDFORM.                    "user_command
Check the following code...
DATA: BEGIN OF itab OCCURS 0,
check,
value(20),
END OF itab.
SET PF-STATUS 'TEST1'.
itab-value = 'ETSAT'.
APPEND itab.
itab-value = 'ETSATADSF'.
APPEND itab.
itab-value = 'ETSAT'.
APPEND itab.
LOOP AT itab.
WRITE: / itab-check AS CHECKBOX,
itab-value.
ENDLOOP.
AT USER-COMMAND.
DATA: wa LIKE itab.
DATA: itab_download LIKE itab OCCURS 0 WITH HEADER LINE.
IF sy-ucomm = 'DOWNLOAD'.
DESCRIBE TABLE itab.
DO sy-tfill TIMES.
READ LINE sy-index FIELD VALUE itab-check.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CHECK itab-check = 'X'.
itab_download-value = itab-value.
APPEND itab_download.
ENDDO.
DOWNLOAD
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
filename = 'C:\TEST.XLS '
TABLES
data_tab = itab_download.
ENDIF.
Thanks
Shobi

Answer 1

Hi,
  One the guy has same report as problem,  ok, my friend Eswar as given the code for that, i will send you that, hope it is helpful
<b>Please check with this code now:
TYPE-POOLS : SLIS.
TABLES : ANLA,                     "ASSET MASTER RECORD-SEGMENT
        ANLZ.                     "time dependent asset allocations
DATA : BEGIN OF T_ANLA OCCURS 0,
      BUKRS LIKE ANLA-BUKRS,
      ANLN1 LIKE ANLA-ANLN1,
      ANLN2 LIKE ANLA-ANLN2,
      AKTIV LIKE ANLA-AKTIV,
      TXT50 LIKE ANLA-TXT50,
      ZUGDT LIKE ANLA-ZUGDT,
      MENGE LIKE ANLA-MENGE,
      MEINS LIKE ANLA-MEINS,
      END OF T_ANLA.
DATA : BEGIN OF T_ANLZ OCCURS 0,
      BUKRS LIKE ANLZ-BUKRS,
      ANLN1 LIKE ANLZ-ANLN1,
      ANLN2 LIKE ANLZ-ANLN2,
      GSBER LIKE ANLZ-GSBER,
      KOSTL LIKE ANLZ-KOSTL,
      STORT LIKE ANLZ-STORT,
      RAUMN LIKE ANLZ-RAUMN,
      KFZKZ LIKE ANLZ-KFZKZ,
      END OF T_ANLZ.
DATA : BEGIN OF T_ANEK OCCURS 0,
      BUKRS LIKE ANEK-BUKRS,
      ANLN1 LIKE ANEK-ANLN1,
      ANLN2 LIKE ANEK-ANLN2,
      BELNR LIKE ANEK-BELNR,
      BUDAT LIKE ANEK-BUDAT,
      XBLNR LIKE ANEK-XBLNR,
      SGTXT LIKE ANEK-SGTXT,
      END OF T_ANEK.
DATA : BEGIN OF T_ANLC OCCURS 0,
      BUKRS LIKE ANLC-BUKRS,
      ANLN1 LIKE ANLC-ANLN1,
      ANLN2 LIKE ANLC-ANLN2,
      KANSW LIKE ANLC-KANSW,
      KNAFA LIKE ANLC-KNAFA,
      AAFAP LIKE ANLC-AAFAP,
      AFABE LIKE ANLC-AFABE,
      GJAHR LIKE ANLC-GJAHR,
      END OF T_ANLC.
DATA : BEGIN OF IT_FINAL OCCURS 0,
       ANLN1 LIKE ANLA-ANLN1,
       ANLN2 LIKE ANLA-ANLN2,
       AKTIV LIKE ANLA-AKTIV,
       TXT50 LIKE ANLA-TXT50,
       ZUGDT LIKE ANLA-ZUGDT,
       MENGE LIKE ANLA-MENGE,
       MEINS LIKE ANLA-MEINS,
       GSBER LIKE ANLZ-GSBER,
       KOSTL LIKE ANLZ-KOSTL,
       STORT LIKE ANLZ-STORT,
       RAUMN LIKE ANLZ-RAUMN,
       KFZKZ LIKE ANLZ-KFZKZ,
       BELNR LIKE ANEK-BELNR,
       BUDAT LIKE ANEK-BUDAT,
       XBLNR LIKE ANEK-XBLNR,
       SGTXT LIKE ANEK-SGTXT,
       KANSW LIKE ANLC-KANSW,
       KNAFA LIKE ANLC-KNAFA,
       AAFAP LIKE ANLC-AAFAP,
       GJAHR LIKE ANEK-GJAHR,
       END OF IT_FINAL.
DATA : LINE_COLOR(4) TYPE C.
DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN : BEGIN OF BLOCK B_FA WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_BUKRS FOR ANLA-BUKRS DEFAULT 'ML',
                S_ANLN1 FOR ANLA-ANLN1,
                S_ANLN2 FOR ANLA-ANLN2.
                s_gjahr FOR anlc-gjahr.
SELECTION-SCREEN : END OF BLOCK B_FA.
*SELECT-OPTIONS : s_belnr FOR anek-belnr.
SELECT BUKRS ANLN1 ANLN2 AKTIV TXT50 ZUGDT MENGE MEINS
      FROM ANLA
      INTO CORRESPONDING FIELDS OF TABLE T_ANLA
      WHERE ANLN1 IN S_ANLN1
      AND   ANLN2 IN S_ANLN2
      AND   BUKRS IN S_BUKRS.
CHECK: NOT T_ANLA[] IS INITIAL.
SELECT BUKRS ANLN1 ANLN2 GSBER KOSTL STORT RAUMN KFZKZ
      FROM ANLZ
      INTO CORRESPONDING FIELDS OF TABLE T_ANLZ
      FOR ALL ENTRIES IN T_ANLA
      WHERE ANLN1 = T_ANLA-ANLN1
      AND   ANLN2 = T_ANLA-ANLN2
      AND   BUKRS = T_ANLA-BUKRS.
*IF sy-subrc EQ 0.
SELECT BUKRS ANLN1 ANLN2 BELNR BUDAT XBLNR SGTXT GJAHR
      FROM ANEK
      INTO CORRESPONDING FIELDS OF TABLE T_ANEK
      FOR ALL ENTRIES IN T_ANLA
      WHERE ANLN1 = T_ANLA-ANLN1
      AND   ANLN2 = T_ANLA-ANLN2
      AND   BUKRS = T_ANLA-BUKRS.
      AND   gjahr = t_anek-gjahr.
*ENDIF.
SELECT BUKRS ANLN1 ANLN2 KANSW KNAFA AAFAP AFABE GJAHR
      FROM ANLC
      INTO CORRESPONDING FIELDS OF TABLE T_ANLC
      FOR ALL ENTRIES IN T_ANLA
      WHERE ANLN1 = T_ANLA-ANLN1
      AND   ANLN2 = T_ANLA-ANLN2
      AND   BUKRS = T_ANLA-BUKRS
      AND   GJAHR = T_ANLC-GJAHR.
      AND   afabe = '01'.
LOOP AT T_ANLA.
  MOVE : T_ANLA-ANLN1 TO IT_FINAL-ANLN1,
         T_ANLA-ANLN2 TO IT_FINAL-ANLN2,
         T_ANLA-AKTIV TO IT_FINAL-AKTIV,
         T_ANLA-TXT50 TO IT_FINAL-TXT50,
         T_ANLA-ZUGDT TO IT_FINAL-ZUGDT,
         T_ANLA-MENGE TO IT_FINAL-MENGE,
         T_ANLA-MEINS TO IT_FINAL-MEINS.
  READ TABLE T_ANLZ WITH KEY BUKRS = T_ANLA-BUKRS
                            ANLN1 = T_ANLA-ANLN1
                            ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
  IF SY-SUBRC EQ 0.
    MOVE : T_ANLZ-GSBER TO IT_FINAL-GSBER,
           T_ANLZ-KOSTL TO IT_FINAL-KOSTL,
           T_ANLZ-STORT TO IT_FINAL-STORT,
           T_ANLZ-RAUMN TO IT_FINAL-RAUMN,
           T_ANLZ-KFZKZ TO IT_FINAL-KFZKZ.
  ENDIF.
  READ TABLE T_ANLC WITH KEY BUKRS = T_ANLA-BUKRS
                            ANLN1 = T_ANLA-ANLN1
                            ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
  IF SY-SUBRC EQ 0.
    MOVE : T_ANLC-KANSW TO IT_FINAL-KANSW,
           T_ANLC-KNAFA TO IT_FINAL-KNAFA,
           T_ANLC-AAFAP TO IT_FINAL-AAFAP.
  ENDIF.
*SORT t_anla.
*READ TABLE T_ANEK WITH KEY BUKRS = T_ANLA-BUKRS
                         ANLN1 = T_ANLA-ANLN1
                         ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
*IF SY-SUBRC EQ 0.
LOOP AT T_ANEK WHERE BUKRS = T_ANLA-BUKRS AND ANLN1 = T_ANLA-ANLN1 AND
ANLN2 = T_ANLA-ANLN2.
    MOVE : T_ANEK-BELNR TO IT_FINAL-BELNR,
           T_ANEK-BUDAT TO IT_FINAL-BUDAT,
           T_ANEK-XBLNR TO IT_FINAL-XBLNR,
           T_ANEK-SGTXT TO IT_FINAL-SGTXT.
*ENDIF.
    APPEND IT_FINAL.
  ENDLOOP.
ENDLOOP.
*ENDIF.
PERFORM BUILD_FIELDCATALOG.
PERFORM DISPLAY_ALV_REPORT.
PERFORM BUILD_LAYOUT.
      FORM BUILD_FIELDCATALOG                                       *
FORM BUILD_FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ANLN1'.
  FIELDCATALOG-SELTEXT_M = 'ASSET MAIN NO'.
  FIELDCATALOG-COL_POS   = 0.
  FIELDCATALOG-OUTPUTLEN = 14.
  FIELDCATALOG-EMPHASIZE = 'X'.
  FIELDCATALOG-KEY       = 'X'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ANLN2'.
  FIELDCATALOG-SELTEXT_M = 'SUB NO'.
  FIELDCATALOG-COL_POS   = 1.
  FIELDCATALOG-OUTPUTLEN = 7.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'AKTIV'.
  FIELDCATALOG-SELTEXT_M = 'CAP.DATE'.
  FIELDCATALOG-COL_POS   = 2.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'TXT50'.
  FIELDCATALOG-SELTEXT_M = 'NAME'.
  FIELDCATALOG-COL_POS   = 3.
  FIELDCATALOG-OUTPUTLEN = 50.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ZUGDT'.
  FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
  FIELDCATALOG-COL_POS   = 4.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'MENGE'.
  FIELDCATALOG-SELTEXT_M = 'QTY'.
  FIELDCATALOG-COL_POS   = 5.
  FIELDCATALOG-OUTPUTLEN = 13.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'MEINS'.
  FIELDCATALOG-SELTEXT_M = 'UNITS'.
  FIELDCATALOG-COL_POS   = 6.
  FIELDCATALOG-OUTPUTLEN = 3.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'GSBER'.
  FIELDCATALOG-SELTEXT_M = 'BA'.
  FIELDCATALOG-COL_POS   = 7.
  FIELDCATALOG-OUTPUTLEN = 4.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'KOSTL'.
  FIELDCATALOG-SELTEXT_M = 'COST CENTER'.
  FIELDCATALOG-COL_POS   = 8.
  FIELDCATALOG-OUTPUTLEN = 13.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'STORT'.
  FIELDCATALOG-SELTEXT_M = 'LOCATION'.
  FIELDCATALOG-COL_POS   = 9.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'RAUMN'.
  FIELDCATALOG-SELTEXT_M = 'ROOM'.
  FIELDCATALOG-COL_POS   = 10.
  FIELDCATALOG-OUTPUTLEN = 10.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'KFZKZ'.
  FIELDCATALOG-SELTEXT_M = 'LICENSE PLATE NO'.
  FIELDCATALOG-COL_POS   = 11.
  FIELDCATALOG-OUTPUTLEN = 20.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'BELNR'.
  FIELDCATALOG-SELTEXT_M = 'DOC NO'.
  FIELDCATALOG-COL_POS   = 12.
  FIELDCATALOG-OUTPUTLEN = 13.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'BUDAT'.
  FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
  FIELDCATALOG-COL_POS   = 13.
  FIELDCATALOG-OUTPUTLEN = 15.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'XBLNR'.
  FIELDCATALOG-SELTEXT_M = 'REF NO'.
  FIELDCATALOG-COL_POS   = 14.
  FIELDCATALOG-OUTPUTLEN = 25.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'SGTXT'.
  FIELDCATALOG-SELTEXT_M = 'TEXT'.
  FIELDCATALOG-COL_POS   = 15.
  FIELDCATALOG-OUTPUTLEN = 50.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
ENDFORM.                    "BUILD_FIELDCATALOG
      FORM BUILD_LAYOUT                                             *
FORM BUILD_LAYOUT.
  GD_LAYOUT-ZEBRA = 'X'.
  GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
ENDFORM.                    "BUILD_LAYOUT
      FORM DISPLAY_ALV_REPORT                                       *
FORM DISPLAY_ALV_REPORT.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
        I_INTERFACE_CHECK        = ' '
        I_CALLBACK_PROGRAM       = ' '
        I_CALLBACK_PF_STATUS_SET = ' '
        I_CALLBACK_USER_COMMAND  = ' '
        I_STRUCTURE_NAME         =
         IS_LAYOUT                = GD_LAYOUT
           IT_FIELDCAT              = FIELDCATALOG[]
        IT_EXCLUDING             =
        IT_SPECIAL_GROUPS        =
        IT_SORT                  =
        IT_FILTER                =
        IS_SEL_HIDE              =
        I_DEFAULT                = 'X'
        I_SAVE                   = ' '
        IS_VARIANT               = ' '
        IT_EVENTS                =
        IT_EVENT_EXIT            =
        IS_PRINT                 =
        I_SCREEN_START_COLUMN    = 0
        I_SCREEN_START_LINE      = 0
        I_SCREEN_END_COLUMN      = 0
        I_SCREEN_END_LINE        = 0
   IMPORTING
        E_EXIT_CAUSED_BY_CALLER  =
        ES_EXIT_CAUSED_BY_USER   =
       TABLES
            T_OUTTAB                 = IT_FINAL
       EXCEPTIONS
            PROGRAM_ERROR            = 1
            OTHERS                   = 2.
ENDFORM.                    "DISPLAY_ALV_REPORT
Thanks & Regards
Eswar. B
Tel: [phone]
mailto: [email protected]
From: [email protected] [mailto:[email protected]]
Sent: Tuesday, November 28, 2006 7:36 PM
To: Boddeti, Eswar Rao
Subject: Re: need ur help for asset aqusition report
Hai,
   Sorry sorry this is the right Code.
Z_FA_ACQ  NO STANDARD PAGE HEADING
                LINE-SIZE 400
                LINE-COUNT 65(3).
TYPE-POOLS : SLIS.
TABLES : ANLA,                     "ASSET MASTER RECORD-SEGMENT
        ANLZ.                     "time dependent asset allocations
DATA : BEGIN OF T_ANLA OCCURS 0,
      BUKRS LIKE ANLA-BUKRS,
      ANLN1 LIKE ANLA-ANLN1,
      ANLN2 LIKE ANLA-ANLN2,
      AKTIV LIKE ANLA-AKTIV,
      TXT50 LIKE ANLA-TXT50,
      ZUGDT LIKE ANLA-ZUGDT,
      MENGE LIKE ANLA-MENGE,
      MEINS LIKE ANLA-MEINS,
      END OF T_ANLA.
DATA : BEGIN OF T_ANLZ OCCURS 0,
      BUKRS LIKE ANLZ-BUKRS,
      ANLN1 LIKE ANLZ-ANLN1,
      ANLN2 LIKE ANLZ-ANLN2,
      GSBER LIKE ANLZ-GSBER,
      KOSTL LIKE ANLZ-KOSTL,
      STORT LIKE ANLZ-STORT,
      RAUMN LIKE ANLZ-RAUMN,
      KFZKZ LIKE ANLZ-KFZKZ,
      END OF T_ANLZ.
DATA : BEGIN OF T_ANEK OCCURS 0,
      BUKRS LIKE ANEK-BUKRS,
      ANLN1 LIKE ANEK-ANLN1,
      ANLN2 LIKE ANEK-ANLN2,
      BELNR LIKE ANEK-BELNR,
      BUDAT LIKE ANEK-BUDAT,
      XBLNR LIKE ANEK-XBLNR,
      SGTXT LIKE ANEK-SGTXT,
      END OF T_ANEK.
DATA : BEGIN OF T_ANLC OCCURS 0,
      BUKRS LIKE ANLC-BUKRS,
      ANLN1 LIKE ANLC-ANLN1,
      ANLN2 LIKE ANLC-ANLN2,
      KANSW LIKE ANLC-KANSW,
      KNAFA LIKE ANLC-KNAFA,
      AAFAP LIKE ANLC-AAFAP,
      AFABE LIKE ANLC-AFABE,
      GJAHR LIKE ANLC-GJAHR,
      END OF T_ANLC.
DATA : BEGIN OF IT_FINAL OCCURS 0,
       ANLN1 LIKE ANLA-ANLN1,
       ANLN2 LIKE ANLA-ANLN2,
       AKTIV LIKE ANLA-AKTIV,
       TXT50 LIKE ANLA-TXT50,
       ZUGDT LIKE ANLA-ZUGDT,
       MENGE LIKE ANLA-MENGE,
       MEINS LIKE ANLA-MEINS,
       GSBER LIKE ANLZ-GSBER,
       KOSTL LIKE ANLZ-KOSTL,
       STORT LIKE ANLZ-STORT,
       RAUMN LIKE ANLZ-RAUMN,
       KFZKZ LIKE ANLZ-KFZKZ,
       BELNR LIKE ANEK-BELNR,
       BUDAT LIKE ANEK-BUDAT,
       XBLNR LIKE ANEK-XBLNR,
       SGTXT LIKE ANEK-SGTXT,
       KANSW LIKE ANLC-KANSW,
       KNAFA LIKE ANLC-KNAFA,
       AAFAP LIKE ANLC-AAFAP,
       GJAHR LIKE ANEK-GJAHR,
       END OF IT_FINAL.
DATA : LINE_COLOR(4) TYPE C.
DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN : BEGIN OF BLOCK B_FA WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_BUKRS FOR ANLA-BUKRS DEFAULT 'ML',
                S_ANLN1 FOR ANLA-ANLN1,
                S_ANLN2 FOR ANLA-ANLN2.
                s_gjahr FOR anlc-gjahr.
SELECTION-SCREEN : END OF BLOCK B_FA.
*SELECT-OPTIONS : s_belnr FOR anek-belnr.
SELECT BUKRS ANLN1 ANLN2 AKTIV TXT50 ZUGDT MENGE MEINS
      FROM ANLA
      INTO CORRESPONDING FIELDS OF TABLE T_ANLA
      WHERE ANLN1 IN S_ANLN1
      AND   ANLN2 IN S_ANLN2
      AND   BUKRS IN S_BUKRS.
SELECT BUKRS ANLN1 ANLN2 GSBER KOSTL STORT RAUMN KFZKZ
      FROM ANLZ
      INTO CORRESPONDING FIELDS OF TABLE T_ANLZ
      FOR ALL ENTRIES IN T_ANLA
      WHERE ANLN1 = T_ANLA-ANLN1
      AND   ANLN2 = T_ANLA-ANLN2
      AND   BUKRS = T_ANLA-BUKRS.
*IF sy-subrc EQ 0.
SELECT BUKRS ANLN1 ANLN2 BELNR BUDAT XBLNR SGTXT GJAHR
      FROM ANEK
      INTO CORRESPONDING FIELDS OF TABLE T_ANEK
      FOR ALL ENTRIES IN T_ANLA
      WHERE ANLN1 = T_ANLA-ANLN1
      AND   ANLN2 = T_ANLA-ANLN2
      AND   BUKRS = T_ANLA-BUKRS.
      AND   gjahr = t_anek-gjahr.
*ENDIF.
SELECT BUKRS ANLN1 ANLN2 KANSW KNAFA AAFAP AFABE GJAHR
      FROM ANLC
      INTO CORRESPONDING FIELDS OF TABLE T_ANLC
      FOR ALL ENTRIES IN T_ANLA
      WHERE ANLN1 = T_ANLA-ANLN1
      AND   ANLN2 = T_ANLA-ANLN2
      AND   BUKRS = T_ANLA-BUKRS
      AND   GJAHR = T_ANLC-GJAHR.
      AND   afabe = '01'.
LOOP AT T_ANLA.
MOVE : T_ANLA-ANLN1 TO IT_FINAL-ANLN1,
        T_ANLA-ANLN2 TO IT_FINAL-ANLN2,
        T_ANLA-AKTIV TO IT_FINAL-AKTIV,
        T_ANLA-TXT50 TO IT_FINAL-TXT50,
        T_ANLA-ZUGDT TO IT_FINAL-ZUGDT,
        T_ANLA-MENGE TO IT_FINAL-MENGE,
        T_ANLA-MEINS TO IT_FINAL-MEINS.
READ TABLE T_ANLZ WITH KEY BUKRS = T_ANLA-BUKRS
                          ANLN1 = T_ANLA-ANLN1
                          ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE : T_ANLZ-GSBER TO IT_FINAL-GSBER,
       T_ANLZ-KOSTL TO IT_FINAL-KOSTL,
       T_ANLZ-STORT TO IT_FINAL-STORT,
       T_ANLZ-RAUMN TO IT_FINAL-RAUMN,
       T_ANLZ-KFZKZ TO IT_FINAL-KFZKZ.
ENDIF.
READ TABLE T_ANLC WITH KEY BUKRS = T_ANLA-BUKRS
                          ANLN1 = T_ANLA-ANLN1
                          ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE : T_ANLC-KANSW TO IT_FINAL-KANSW,
       T_ANLC-KNAFA TO IT_FINAL-KNAFA,
       T_ANLC-AAFAP TO IT_FINAL-AAFAP.
ENDIF.
*SORT t_anla.
READ TABLE T_ANEK WITH KEY BUKRS = T_ANLA-BUKRS
                          ANLN1 = T_ANLA-ANLN1
                          ANLN2 = T_ANLA-ANLN2 BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE : T_ANEK-BELNR TO IT_FINAL-BELNR,
       T_ANEK-BUDAT TO IT_FINAL-BUDAT,
       T_ANEK-XBLNR TO IT_FINAL-XBLNR,
       T_ANEK-SGTXT TO IT_FINAL-SGTXT.
ENDIF.
APPEND IT_FINAL.
*ENDLOOP.
ENDLOOP.
*ENDIF.
PERFORM BUILD_FIELDCATALOG.
PERFORM DISPLAY_ALV_REPORT.
PERFORM BUILD_LAYOUT.
      FORM BUILD_FIELDCATALOG                                       *
FORM BUILD_FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ANLN1'.
FIELDCATALOG-SELTEXT_M = 'ASSET MAIN NO'.
FIELDCATALOG-COL_POS   = 0.
FIELDCATALOG-OUTPUTLEN = 14.
FIELDCATALOG-EMPHASIZE = 'X'.
FIELDCATALOG-KEY       = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ANLN2'.
FIELDCATALOG-SELTEXT_M = 'SUB NO'.
FIELDCATALOG-COL_POS   = 1.
FIELDCATALOG-OUTPUTLEN = 7.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'AKTIV'.
FIELDCATALOG-SELTEXT_M = 'CAP.DATE'.
FIELDCATALOG-COL_POS   = 2.
FIELDCATALOG-OUTPUTLEN = 10.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TXT50'.
FIELDCATALOG-SELTEXT_M = 'NAME'.
FIELDCATALOG-COL_POS   = 3.
FIELDCATALOG-OUTPUTLEN = 50.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ZUGDT'.
FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
FIELDCATALOG-COL_POS   = 4.
FIELDCATALOG-OUTPUTLEN = 10.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'MENGE'.
FIELDCATALOG-SELTEXT_M = 'QTY'.
FIELDCATALOG-COL_POS   = 5.
FIELDCATALOG-OUTPUTLEN = 13.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'MEINS'.
FIELDCATALOG-SELTEXT_M = 'UNITS'.
FIELDCATALOG-COL_POS   = 6.
FIELDCATALOG-OUTPUTLEN = 3.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'GSBER'.
FIELDCATALOG-SELTEXT_M = 'BA'.
FIELDCATALOG-COL_POS   = 7.
FIELDCATALOG-OUTPUTLEN = 4.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'KOSTL'.
FIELDCATALOG-SELTEXT_M = 'COST CENTER'.
FIELDCATALOG-COL_POS   = 8.
FIELDCATALOG-OUTPUTLEN = 13.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'STORT'.
FIELDCATALOG-SELTEXT_M = 'LOCATION'.
FIELDCATALOG-COL_POS   = 9.
FIELDCATALOG-OUTPUTLEN = 10.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'RAUMN'.
FIELDCATALOG-SELTEXT_M = 'ROOM'.
FIELDCATALOG-COL_POS   = 10.
FIELDCATALOG-OUTPUTLEN = 10.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'KFZKZ'.
FIELDCATALOG-SELTEXT_M = 'LICENSE PLATE NO'.
FIELDCATALOG-COL_POS   = 11.
FIELDCATALOG-OUTPUTLEN = 20.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BELNR'.
FIELDCATALOG-SELTEXT_M = 'DOC NO'.
FIELDCATALOG-COL_POS   = 12.
FIELDCATALOG-OUTPUTLEN = 13.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'BUDAT'.
  FIELDCATALOG-SELTEXT_M = 'POSTING DATE'.
  FIELDCATALOG-COL_POS   = 13.
  FIELDCATALOG-OUTPUTLEN = 15.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'XBLNR'.
  FIELDCATALOG-SELTEXT_M = 'REF NO'.
  FIELDCATALOG-COL_POS   = 14.
  FIELDCATALOG-OUTPUTLEN = 25.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'SGTXT'.
  FIELDCATALOG-SELTEXT_M = 'TEXT'.
  FIELDCATALOG-COL_POS   = 15.
  FIELDCATALOG-OUTPUTLEN = 50.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
ENDFORM.
      FORM BUILD_LAYOUT                                             *
FORM BUILD_LAYOUT.
GD_LAYOUT-ZEBRA = 'X'.
GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
ENDFORM.
      FORM DISPLAY_ALV_REPORT                                       *
FORM DISPLAY_ALV_REPORT.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
        I_INTERFACE_CHECK        = ' '
        I_CALLBACK_PROGRAM       = ' '
        I_CALLBACK_PF_STATUS_SET = ' '
        I_CALLBACK_USER_COMMAND  = ' '
        I_STRUCTURE_NAME         =
        IS_LAYOUT                = GD_LAYOUT
          IT_FIELDCAT              = FIELDCATALOG[]
        IT_EXCLUDING             =
        IT_SPECIAL_GROUPS        =
        IT_SORT                  =
        IT_FILTER                =
        IS_SEL_HIDE              =
        I_DEFAULT                = 'X'
        I_SAVE                   = ' '
        IS_VARIANT               = ' '
        IT_EVENTS                =
        IT_EVENT_EXIT            =
        IS_PRINT                 =
        I_SCREEN_START_COLUMN    = 0
        I_SCREEN_START_LINE      = 0
        I_SCREEN_END_COLUMN      = 0
        I_SCREEN_END_LINE        = 0
   IMPORTING
        E_EXIT_CAUSED_BY_CALLER  =
        ES_EXIT_CAUSED_BY_USER   =
      TABLES
           T_OUTTAB                 = IT_FINAL
      EXCEPTIONS
           PROGRAM_ERROR            = 1
           OTHERS                   = 2.
ENDFORM.
Thanks
manju