arthimatical operation on a dynamic internal table data

Former Member — Wed, 26 Mar 2008 12:24:30 GMT

hi all,

how i perfom some arthimatical operation on a dynamic internal table ,

please guid me by giving an exapmle.

warm regards.

Re: arthimatical operation on a dynamic internal table data

Former Member — Wed, 26 Mar 2008 12:28:00 GMT

Hi ,

use the code. It will give you some picture.

TYPE-POOLS : SLIS.

TABLES : MARC,T001W.

DATA : BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARC-MATNR,

END OF ITAB.

DATA : FIELDSTAB TYPE LVC_T_FCAT,

STAB TYPE LVC_S_FCAT,

T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

S_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

NEW_LINE TYPE REF TO DATA,

NEW_TABLE TYPE REF TO DATA,

INDEX(3) TYPE C,

STR(70),

TEXT(6),

CNT(1),

TEXT1(16),

REPID LIKE SY-REPID.

FIELD-SYMBOLS : <FS> TYPE STANDARD TABLE,

<WA> TYPE ANY.

SELECT-OPTIONS : S_WERKS FOR MARC-WERKS NO INTERVALS,

S_MATNR FOR MARC-MATNR NO INTERVALS.

INITIALIZATION.

REPID = SY-REPID.

START-OF-SELECTION.

SELECT * FROM MARC

INTO CORRESPONDING FIELDS OF TABLE ITAB

WHERE MATNR IN S_MATNR

AND WERKS IN S_WERKS.

SORT ITAB BY MATNR.

DELETE ADJACENT DUPLICATES FROM ITAB COMPARING MATNR.

STAB-FIELDNAME = 'MATNR'.

STAB-DATATYPE = 'CHAR'.

STAB-INTLEN = '18'.

APPEND STAB TO FIELDSTAB.

CLEAR CNT.

LOOP AT S_WERKS.

CLEAR TEXT.

CNT = CNT + 1.

CONCATENATE 'EISLO' CNT INTO TEXT.

STAB-FIELDNAME = TEXT.

STAB-DATATYPE = 'CHAR'.

STAB-INTLEN = '16'.

APPEND STAB TO FIELDSTAB.

CLEAR S_WERKS.

ENDLOOP.

CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE

EXPORTING

IT_FIELDCATALOG = FIELDSTAB

IMPORTING

EP_TABLE = NEW_TABLE.

ASSIGN NEW_TABLE->* TO <FS>.

CREATE DATA NEW_LINE LIKE LINE OF <FS>.

ASSIGN NEW_LINE->* TO <WA>.

PERFORM MOVE_DATA.

CLEAR S_FIELDCAT.

S_FIELDCAT-FIELDNAME = 'MATNR'.

S_FIELDCAT-TABNAME = ITAB.

S_FIELDCAT-SELTEXT_M = 'Part Number'.

S_FIELDCAT-NO_ZERO = 'X'.

S_FIELDCAT-DDICTXT = 'M'.

APPEND S_FIELDCAT TO T_FIELDCAT.

CLEAR CNT.

LOOP AT S_WERKS.

CLEAR T001W.

CNT = CNT + 1.

SELECT SINGLE * FROM T001W WHERE WERKS = S_WERKS-LOW AND SPRAS = SY-LANGU.

CLEAR TEXT.

CONCATENATE 'EISLO' CNT INTO TEXT.

S_FIELDCAT-FIELDNAME = TEXT.

S_FIELDCAT-SELTEXT_M = T001W-NAME2.

S_FIELDCAT-NO_ZERO = 'X'.

S_FIELDCAT-DDICTXT = 'M'.

APPEND S_FIELDCAT TO T_FIELDCAT.

CLEAR S_WERKS.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

IT_FIELDCAT = T_FIELDCAT[]

TABLES

T_OUTTAB = <FS>.

&----

*& Form MOVE_DATA

&----

text

----

FORM MOVE_DATA.

LOOP AT ITAB.

CLEAR STR.

CONCATENATE ITAB-MATNR ' ' INTO STR SEPARATED BY SPACE.

LOOP AT S_WERKS.

CLEAR MARC.

SELECT SINGLE * FROM MARC WHERE MATNR = ITAB-MATNR AND WERKS = S_WERKS-LOW.

IF SY-SUBRC EQ 0.

CLEAR TEXT1.

TEXT1 = MARC-EISLO.

CONCATENATE STR TEXT1 INTO STR SEPARATED BY SPACE.

ELSE.

CONCATENATE STR '0' INTO STR SEPARATED BY SPACE.

ENDIF.

ENDLOOP.

<WA> = STR.

APPEND <WA> TO <FS>.

CLEAR ITAB.

ENDLOOP.

ENDFORM. "MOVE_DATA

Regards,

Sankar.

topic Re: arthimatical operation on a dynamic internal table data in Application Development and Automation Discussions

arthimatical operation on a dynamic internal table data

Re: arthimatical operation on a dynamic internal table data