hi,
I tried the same ,but it is taking long time.i have debug it.but it is taking long time .
please suggest me whether i have made some wrong in my code.
*&---------------------------------------------------------------------*
*& Report ZVIEW_FETCHING_DATA_DEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZVIEW_FETCHING_DATA_DEMO.
TYPE-POOLS: slis.
TABLES : TKZSLT,T685,T685T,KONX,T683,T683U,TKKAA,TKKAD,TKKAX,TKKAY,TKB1A,TKB1B.
* DATA DECLARATION *
TYPES : BEGIN OF IT_TKZSL,
ZSCHL TYPE TKZSL-ZSCHL,
* ZTEXT TYPE TKZSL-ZTEXT,
END OF IT_TKZSL.
TYPES : BEGIN OF IT_TKZSLT,
SPRAS TYPE TKZSLT-SPRAS,
ZSCHL TYPE TKZSLT-ZSCHL,
ZTEXT TYPE TKZSLT-ZTEXT,
END OF IT_TKZSLT.
TYPES : BEGIN OF IT_T685,
KSCHL TYPE T685-KSCHL,
KOZGF TYPE T685-KOZGF,
* VTEXT TYPE T685T-VTEXT,
END OF IT_T685.
TYPES : BEGIN OF IT_T685T,
KSCHL TYPE T685T-KSCHL,
VTEXT TYPE T685T-VTEXT,
END OF IT_T685T.
TYPES : BEGIN OF IT_KONX,
DATAB TYPE KONX-DATAB,
DATBI TYPE KONX-DATBI,
KBETR TYPE KONX-KBETR,
KONWA TYPE KONX-KONWA,
END OF IT_KONX.
TYPES : BEGIN OF IT_T683,
KVEWE TYPE T683-KVEWE,
KAPPL TYPE T683-KAPPL,
KALSM TYPE T683-KALSM,
END OF IT_T683.
TYPES : BEGIN OF IT_T683U,
KALSM TYPE T683U-KALSM,
VTEXT TYPE T683U-VTEXT,
END OF IT_T683U.
TYPES : BEGIN OF IT_TKKAA,
ABGSL TYPE TKKAA-ABGSL,
SLERG TYPE TKKAA-SLERG,
TEXTA TYPE TKKAD-TEXTA,
END OF IT_TKKAA.
TYPES : BEGIN OF IT_TKKAD,
ABGSL TYPE TKKAD-ABGSL,
TEXTA TYPE TKKAD-TEXTA,
END OF IT_TKKAD.
TYPES : BEGIN OF IT_TKKAX,
KOKRS TYPE TKKAX-KOKRS,
ZLNID TYPE TKKAX-ZLNID,
IDTEXT TYPE TKKAY-IDTEXT,
END OF IT_TKKAX.
TYPES : BEGIN OF IT_TKKAY,
KOKRS TYPE TKKAX-KOKRS,
IDTEXT TYPE TKKAY-IDTEXT,
END OF IT_TKKAY.
TYPES : BEGIN OF IT_TKB1A,
BLART TYPE TKB1A-BLART,
APROF TYPE TKB1A-APROF,
END OF IT_TKB1A.
TYPES : BEGIN OF IT_TKB1B,
* BLTYP TYPE TKB1A-BLTYP,
APROF TYPE TKB1A-APROF,
PTEXT TYPE TKB1B-PTEXT,
END OF IT_TKB1B.
TYPES : BEGIN OF IT_FINAL,
SPRAS TYPE TKZSLT-SPRAS,
ZSCHL TYPE TKZSLT-ZSCHL,
ZTEXT TYPE TKZSLT-ZTEXT,
KSCHL TYPE T685-KSCHL,
KOZGF TYPE T685-KOZGF,
VTEXT TYPE T683U-VTEXT,
DATAB TYPE KONX-DATAB,
DATBI TYPE KONX-DATBI,
KBETR TYPE KONX-KBETR,
KONWA TYPE KONX-KONWA,
KVEWE TYPE T683-KVEWE,
KAPPL TYPE T683-KAPPL,
KALSM TYPE T683-KALSM,
ABGSL TYPE TKKAA-ABGSL,
SLERG TYPE TKKAA-SLERG,
TEXTA TYPE TKKAD-TEXTA,
KOKRS TYPE TKKAX-KOKRS,
ZLNID TYPE TKKAX-ZLNID,
IDTEXT TYPE TKKAY-IDTEXT,
* BLTYP TYPE TKB1A-BLTYP,
BLART TYPE TKB1A-BLART,
APROF TYPE TKB1A-APROF,
PTEXT TYPE TKB1B-PTEXT,
END OF IT_FINAL.
*INTERNAL TABLE DECLARATION*
DATA: T_fieldcat TYPE slis_t_fieldcat_alv,
T_TKZSL TYPE STANDARD TABLE OF IT_TKZSL ,
T_TKZSLT TYPE STANDARD TABLE OF IT_TKZSLT ,
T_T685 TYPE STANDARD TABLE OF IT_T685 ,
T_T685T TYPE STANDARD TABLE OF IT_T685T ,
T_KONX TYPE STANDARD TABLE OF IT_KONX ,
T_T683 TYPE STANDARD TABLE OF IT_T683 ,
T_T683U TYPE STANDARD TABLE OF IT_T683U ,
T_TKKAD TYPE STANDARD TABLE OF IT_TKKAD,
T_TKKAA TYPE STANDARD TABLE OF IT_TKKAA ,
T_TKKAX TYPE STANDARD TABLE OF IT_TKKAX ,
T_TKKAY TYPE STANDARD TABLE OF IT_TKKAY ,
T_TKB1A TYPE STANDARD TABLE OF IT_TKB1A ,
T_TKB1B TYPE STANDARD TABLE OF IT_TKB1B ,
T_FINAL TYPE STANDARD TABLE OF IT_FINAL ,
*data declaration
wa_fieldcat TYPE slis_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
* WORK-AREA DECLARATION
WA_TKZSL TYPE IT_TKZSL,
WA_TKZSLT TYPE IT_TKZSLT,
WA_T685 TYPE IT_T685,
WA_T685T TYPE IT_T685T ,
WA_KONX TYPE IT_KONX,
WA_T683 TYPE IT_T683,
WA_T683U TYPE IT_T683U,
WA_TKKAA TYPE IT_TKKAA,
WA_TKKAD TYPE IT_TKKAD,
WA_TKKAX TYPE IT_TKKAX,
WA_TKKAY TYPE IT_TKKAY,
WA_TKB1A TYPE IT_TKB1A,
WA_FINAL TYPE IT_FINAL.
* CLEAR WORK-AREA *
CLEAR : WA_TKZSLT,WA_T685,WA_KONX,WA_T683,WA_T683U,WA_TKKAA,WA_TKKAX,WA_TKB1A,WA_FINAL.
* REFRESH WORK-AREA *
REFRESH : T_TKZSLT,T_T685,T_KONX,T_T683,T_T683U,T_TKKAA,T_TKKAX,T_TKB1A,T_FINAL.
START-OF-SELECTION.
PERFORM Read_data.
PERFORM populate_data.
PERFORM build_fcat.
PERFORM build_layout.
PERFORM display_data.
*INCLUDE ZVIEW_FETCHING_DATA_READ_DAF01.
*&---------------------------------------------------------------------*
*& Form Read_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form Read_data .
*SELECT STATEMENT FOR TKZSL AND TKZSLT
* SELECT ZSCHL
* ZTEXT FROM TKZSLT INTO TABLE T_TKZSLT.
* SELECT KSCHL
* VTEXT FROM T685T INTO TABLE T_T685T.
SELECT spras zschl ztext FROM tkzslt INTO table t_tkzslt
WHERE spras EQ sy-langu.
* IF T_T685T IS NOT INITIAL.
*SELECT STATEMENT FOR T685 AND T685T
SELECT KVEWE KAPPL KSCHL KOZGF FROM t685 INTO CORRESPONDING FIELDS OF TABLE t_t685.
IF t_t685 IS NOT INITIAL .
delete ADJACENT DUPLICATES FROM t_t685 COMPARING kschl.
**SELECT STATEMENT FOR KONX AND
SELECT DATAB
DATBI
KSCHL
* VARFLD001
* VARFLD002
* VARFLD003
* VARFLD004
* VARFLD005
KBETR
KONWA FROM konx INTO CORRESPONDING FIELDS OF TABLE t_konx
FOR ALL ENTRIES IN t_t685
WHERE kschl = t_t685-kschl.
ENDIF.
**SELECT STATEMENT FOR T683 AND TKKAA
SELECT KVEWE KAPPL KALSM FROM t683 INTO TABLE t_t683.
IF t_t683 IS NOT INITIAL.
SELECT kalsm vtext FROM T683U INTO TABLE T_T683U FOR ALL ENTRIES IN T_T683
WHERE kalsm = t_t683-kalsm.
ENDIF.
SELECT abgsl slerg FROM tkkaa INTO TABLE t_tkkaa.
**SELECT STATEMENT FOR TKKAX AND TKKAY
SELECT kokrs zlnid FROM tkkax INTO TABLE t_tkkax.
IF t_tkkax IS NOT INITIAL.
SELECT KOKRS IDTEXT FROM tkkay INTO TABLE t_tkkay FOR ALL ENTRIES IN t_tkkax
WHERE spras EQ SY-LANGU AND kokrs = t_tkkax-kokrs.
ENDIF.
**SELECT STATEMENT FOR TKB1A.
SELECT BLART aprof FROM tkb1a INTO TABLE t_tkb1a.
*IF T_TKKAA IS NOT INITIAL.
**SELECT STATEMENT FOR TKKAA AND T
*SELECT ABGSL SLERG FROM TKKAA INTO TABLE T_TKKAA FOR ALL ENTRIES IN T_TKKAA
* WHERE ABGSL = T_TKKAA-ABGSL.
*ENDIF.
*IF T_TKKAA IS NOT INITIAL.
*SELECT ABGSL
* TEXTA FROM TKKAD INTO TABLE T_TKKAD FOR ALL ENTRIES IN T_TKKAA
* WHERE ABGSL = T_TKKAA-ABGSL.
* ENDIF.
**SELECT STATEMENT FOR TKKAX AND TKKAY
* SELECT KOKRS ZLNID FROM TKKAX INTO TABLE T_TKKAX.
* IF T_TKKAX IS NOT INITIAL.
* SELECT KOKRS IDTEXT FROM TKKAY INTO TABLE T_TKKAY FOR ALL ENTRIES IN T_TKKAX
* WHERE KOKRS = T_TKKAX-KOKRS.
* ZLNID = T_TKKAX-ZLNID.
*ENDIF.
**SELECT STATEMENT FOR TKB1A
*SELECT APROF FROM TKB1A INTO TABLE T_TKB1A.
*IF T_TKB1A IS NOT INITIAL.
*SELECT APROF PTEXT FROM TKB1B INTO TABLE T_TKB1B FOR ALL ENTRIES IN T_TKB1B
*WHERE APROF = T_TKB1A-APROF.
*ENDIF.
endform. " Read_data
*&---------------------------------------------------------------------*
*& Form populate_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form populate_data .
LOOP AT:T_TKZSLT INTO WA_TKZSLT.
WA_FINAL = WA_TKZSLT-ZSCHL.
WA_FINAL = WA_TKZSLT-ZTEXT.
APPEND WA_FINAL TO t_final.
CLEAR WA_TKZSLT.
CLEAR WA_FINAL.
* ENDLOOP.
LOOP AT:t_t685 INTO WA_T685.
if WA_T685-KSCHL is not INITIAL.
if WA_T685-kozgf is not INITIAL.
WA_FINAL-KSCHL = WA_T685-KSCHL.
WA_FINAL-KOZGF = WA_T685-KOZGF.
ENDIF.
ENDIF.
APPEND WA_FINAL TO T_FINAL.
CLEAR WA_T685.
CLEAR WA_FINAL.
* ENDLOOP.
LOOP AT:T_T683 INTO WA_T683.
WA_FINAL-KALSM = WA_T683-KALSM.
APPEND WA_FINAL TO T_FINAL.
CLEAR WA_FINAL.
CLEAR WA_T683.
SORT T_T683U BY VTEXT.
DELETE ADJACENT DUPLICATES FROM T_T683U COMPARING VTEXT.
CLEAR WA_T683U.
READ TABLE T_T683U INTO WA_T683U WITH KEY KALSM = WA_T683-KALSM BINARY SEARCH.
IF SY-SUBRC = 0.
WA_FINAL-VTEXT = WA_T683U-VTEXT.
APPEND WA_FINAL TO T_FINAL.
CLEAR WA_FINAL.
ENDIF.
* ENDLOOP.
* LOOP AT:T_KONX INTO WA_KONX.
* WA_FINAL = WA_KONX-DATAB.
* WA_FINAL = WA_KONX-DATB1.
* WA_FINAL = WA_KONX-KBETR.
* WA_FINAL = WA_KONX-KONWA.
* APPEND WA_FINAL TO T_FINAL.
* CLEAR WA_KONX.
* ENDLOOP.
LOOP AT: T_TKKAA INTO WA_TKKAA.
WA_FINAL-ABGSL = WA_TKKAA-ABGSL.
WA_FINAL-SLERG = WA_TKKAA-SLERG.
APPEND WA_FINAL TO T_FINAL.
CLEAR WA_FINAL.
CLEAR WA_TKKAA.
SORT T_TKKAD BY ABGSL.
DELETE ADJACENT DUPLICATES FROM T_TKKAD COMPARING ABGSL.
* CLEAR WA_TKKAD.
READ TABLE T_TKKAD INTO WA_TKKAD WITH KEY ABGSL = WA_TKKAA-ABGSL BINARY SEARCH.
IF SY-SUBRC = 0.
WA_FINAL-TEXTA = WA_TKKAD-TEXTA.
APPEND WA_FINAL TO T_FINAL.
CLEAR WA_FINAL.
ENDIF.
* ENDLOOP.
LOOP AT:T_TKKAX INTO WA_TKKAX .
WA_FINAL-KOKRS = WA_TKKAX-KOKRS.
WA_FINAL-ZLNID = WA_TKKAX-ZLNID.
APPEND WA_FINAL TO T_FINAL.
CLEAR wa_tkkax .
CLEAR WA_FINAL.
SORT T_TKKAY BY KOKRS.
DELETE ADJACENT DUPLICATES FROM T_TKKAY COMPARING KOKRS.
CLEAR WA_TKKAY.
READ TABLE T_TKKAY INTO WA_TKKAY WITH KEY KOKRS = WA_TKKAX-KOKRS BINARY SEARCH.
IF SY-SUBRC = 0.
WA_FINAL = WA_TKKAY-IDTEXT.
APPEND WA_FINAL TO T_FINAL.
CLEAR WA_FINAL.
ENDIF.
* ENDLOOP.
LOOP AT: T_TKB1A INTO WA_TKB1A.
WA_FINAL-APROF = WA_TKB1A-APROF.
APPEND wa_final to t_final.
CLEAR WA_FINAL.
CLEAR WA_TKB1A.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
* ENDIF.
* ENDIF.
* ENDIF.
endform. " populate_data
*&---------------------------------------------------------------------*
*& Form build_fcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form build_fcat .
*Build field catalog
wa_fieldcat-coL_pos = 1.
wa_fieldcat-fieldname = 'ZSCHL'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Overhead key'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-coL_pos = 2.
wa_fieldcat-fieldname = 'ZTEXT'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Description'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 3.
wa_fieldcat-fieldname = 'KSCHL'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Condition Type'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 4.
wa_fieldcat-fieldname = 'KOZGF'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Access sequence'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 5.
wa_fieldcat-fieldname = 'VTEXT'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Description'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 6.
wa_fieldcat-fieldname = 'DATAB'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Validity start date of the condition record'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 7.
wa_fieldcat-fieldname = 'DATBI'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Validity end date of the condition record'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 8.
wa_fieldcat-fieldname = 'KBETR'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'condition amount or percentage'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 9.
wa_fieldcat-fieldname = 'KONWA'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Rate unit '. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 10.
wa_fieldcat-fieldname = 'KALSM'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Procedure'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 11.
wa_fieldcat-fieldname = 'ABGSL'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Results Analysis Key'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 12.
wa_fieldcat-fieldname = 'SLERG'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'esults Analysis Key for Results Analysis '. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 13.
wa_fieldcat-fieldname = 'TEXTA'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Character Field for Text Table '. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 14.
wa_fieldcat-fieldname = 'KOKRS'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Controlling Area '. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 15.
wa_fieldcat-fieldname = 'ZLNID'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Line ID'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 16.
wa_fieldcat-fieldname = 'IDTEXT'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Character Field for Text Table '. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 17.
wa_fieldcat-fieldname = 'APROF'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Settlement profile'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
wa_fieldcat-coL_pos = 18.
wa_fieldcat-fieldname = 'PTEXT'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Text'. " Column description in the output
APPEND wa_fieldcat TO t_fieldcat.
CLEAR wa_fieldcat .
endform. " build_fcat
*&---------------------------------------------------------------------*
*& Form display_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form display_data .
* *Pass data and field catalog to ALV function module to display ALV list
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = T_fieldcat
TABLES
t_outtab = T_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_data
*&---------------------------------------------------------------------*
*& Form build_layout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form build_layout .
wa_layout-colwidth_optimize = 'X'.
CLEAR wa_layout.
endform. " build_layout