‎2007 Jul 05 8:08 PM
Hi,
Below cdoe taking the long time to execute the report. Please check the code ..please tell me wheer i am doing the wrorng.
Dont suggest the notes on performnece techniquees. I have lot.
FORM POPULATE_DATA .
DATA: LW_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
FIELD-SYMBOLS <LFS> TYPE ANY.
DATA:LW_CHAR(50).
DATA:LW_LINES TYPE I.
DESCRIBE TABLE IT_DLFILE LINES LW_LINES.
IF LW_LINES > W_HEADER_LINES_EU.
LW_LINES = W_HEADER_LINES_EU + 1.
DELETE IT_DLFILE FROM LW_LINES.
ENDIF.
IF W_P_VARI_EU IS INITIAL.
*--Populate Table Data
LOOP AT IT_ALV_DATA FROM W_LOOP_FROM_EU TO W_LOOP_TO_EU.
CLEAR IT_DLFILE-TABLE.
CONCATENATE IT_DLFILE-TABLE
CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB
INTO IT_DLFILE-TABLE.
DO. "#EC CI_NESTED
ASSIGN COMPONENT SY-INDEX OF
STRUCTURE IT_ALV_DATA TO <LFS>.
IF SY-SUBRC = 0.
IF SY-INDEX IN R_DISP.
LW_CHAR = <LFS>.
CONCATENATE IT_DLFILE-TABLE LW_CHAR INTO IT_DLFILE-TABLE
SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
CONDENSE IT_DLFILE-TABLE NO-GAPS.
ENDIF.
ELSE.
APPEND IT_DLFILE.
CLEAR IT_DLFILE.
EXIT.
ENDIF.
ENDDO.
ENDLOOP.
ELSE.
--Populate Table Data
LOOP AT IT_ALV_DATA FROM W_LOOP_FROM_EU TO W_LOOP_TO_EU.
CLEAR IT_DLFILE-TABLE.
CONCATENATE IT_DLFILE-TABLE
CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB
INTO IT_DLFILE-TABLE.
DO. "#EC CI_NESTED
LOOP AT IT_DBFIELDCAT_EU.
CLEAR LW_FIELDCAT.
READ TABLE IT_FIELDCAT INTO LW_FIELDCAT WITH KEY
FIELDNAME = IT_DBFIELDCAT_EU-KEY1.
IF SY-SUBRC = 0.
ASSIGN COMPONENT SY-TABIX OF
STRUCTURE IT_ALV_DATA TO <LFS>.
IF SY-SUBRC = 0.
IF SY-TABIX IN R_DISP.
LW_CHAR = <LFS>.
CONCATENATE IT_DLFILE-TABLE LW_CHAR INTO IT_DLFILE-TABLE
SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
CONDENSE IT_DLFILE-TABLE NO-GAPS.
ENDIF.
ELSE.
APPEND IT_DLFILE.
CLEAR IT_DLFILE.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDDO.
ENDLOOP.
ENDIF.
ENDFORM. " Populate_data
regards,
Ajay Ram
‎2007 Jul 05 8:20 PM
FIELD-SYMBOLS: <ALV_DATA> TYPE ???
LOOP AT IT_ALV_DATA FROM W_LOOP_FROM_EU TO W_LOOP_TO_EU
ASSIGNING <ALV_DATA>.
Use Field-Symbols to improve performance -;)
Greetings,
Blag.
‎2007 Jul 05 8:20 PM
FIELD-SYMBOLS: <ALV_DATA> TYPE ???
LOOP AT IT_ALV_DATA FROM W_LOOP_FROM_EU TO W_LOOP_TO_EU
ASSIGNING <ALV_DATA>.
Use Field-Symbols to improve performance -;)
Greetings,
Blag.
‎2007 Jul 05 8:31 PM