topic Re: code in Application Development and Automation Discussions

code

Former Member — Wed, 18 Apr 2007 10:15:57 GMT

Hi Experts,

See this code:

LOOP AT T_EDPAR .

CLEAR T_LIKP_LIPS .

READ TABLE T_LIKP_LIPS WITH KEY KUNNR = T_EDPAR-KUNNR

BINARY SEARCH.

IF SY-SUBRC EQ 0 .

MOVE T_EDPAR-KUNNR TO T_LIKP_LIPS-SNDPRN.

MODIFY T_LIKP_LIPS TRANSPORTING SNDPRN .

ENDIF.

ENDLOOP.

Wheni done Extended syntax check for this giving an error (Problematic statement)

like this:

Indirect Index Access to Internal Table T_LIKP_LIPS

Outside a LOOP, this causes a short dump

What may be the problem?

Re: code

Former Member — Wed, 18 Apr 2007 10:19:13 GMT

change modify statement to this

MODIFY TABLE T_LIKP_LIPS TRANSPORTING SNDPRN

Re: code

Former Member — Wed, 18 Apr 2007 10:20:42 GMT

use like this

LOOP AT T_EDPAR .

CLEAR T_LIKP_LIPS .

READ TABLE T_LIKP_LIPS WITH KEY KUNNR = T_EDPAR-KUNNR

BINARY SEARCH.

IF SY-SUBRC EQ 0 .

MOVE T_EDPAR-KUNNR TO T_LIKP_LIPS-SNDPRN.

MODIFY T_LIKP_LIPS INDEX SY-TABIX.

ENDIF.

regards

shiba dutta

Message was edited by:

SHIBA DUTTA

Re: code

Former Member — Wed, 18 Apr 2007 10:21:30 GMT

Aling with chandu's suggestion, you should also make this change to avoid run time dumps:

LOOP AT T_EDPAR .

CLEAR T_LIKP_LIPS .

READ TABLE T_LIKP_LIPS WITH KEY KUNNR = T_EDPAR-KUNNR

BINARY SEARCH.

IF SY-SUBRC EQ 0 .

MOVE T_EDPAR-KUNNR TO T_LIKP_LIPS-SNDPRN.

MODIFY table T_LIKP_LIPS TRANSPORTING SNDPRN index sy-tabix.

ENDIF.

ENDLOOP.

Re: code

kostas_tsioubris — Wed, 18 Apr 2007 10:21:46 GMT

Hi,

try this

data lv_tabix like sy-tabix.
LOOP AT T_EDPAR .
CLEAR T_LIKP_LIPS .
READ TABLE T_LIKP_LIPS WITH KEY KUNNR = T_EDPAR-KUNNR
BINARY SEARCH.
IF SY-SUBRC EQ 0 .
lv_tabix = sy-tabix.
MOVE T_EDPAR-KUNNR TO T_LIKP_LIPS-SNDPRN.
MODIFY table T_LIKP_LIPS index lv_tabix TRANSPORTING SNDPRN .
ENDIF.

ENDLOOP.

Re: code

Former Member — Wed, 18 Apr 2007 10:22:41 GMT

hi,

do this way

data : lv_tabix like sy-tabix.

LOOP AT T_EDPAR .

lv_tabix = sy-tabix.

CLEAR T_LIKP_LIPS .

READ TABLE T_LIKP_LIPS WITH KEY KUNNR = T_EDPAR-KUNNR

BINARY SEARCH.

IF SY-SUBRC EQ 0 .

MOVE T_EDPAR-KUNNR TO T_LIKP_LIPS-SNDPRN.

MODIFY T_LIKP_LIPS client specified index lv_tabix TRANSPORTING SNDPRN .

ENDIF.

Re: code

Former Member — Wed, 18 Apr 2007 10:23:56 GMT

LOOP AT T_EDPAR .

CLEAR T_LIKP_LIPS .

READ TABLE T_LIKP_LIPS WITH KEY KUNNR = T_EDPAR-KUNNR

BINARY SEARCH.

IF SY-SUBRC EQ 0 .

MOVE T_EDPAR-KUNNR TO T_LIKP_LIPS-SNDPRN.

MODIFY table T_LIKP_LIPS index sy-tabix TRANSPORTING SNDPRN .

ENDIF.

ENDLOOP.

Re: code

Former Member — Wed, 18 Apr 2007 10:25:49 GMT

Hi all,

thanks

Re: code

Former Member — Wed, 18 Apr 2007 10:27:06 GMT

Try this :

"U are looping t_EDPAR and modifying T_LIKP_LIPS it is not correct ", chk follwing logic:

loop at T_LIKP_LIPS.

read table T_EDPAR with key kunnr = T_LIKP_LIPS-kunnr binary search.

if sy-subrc ....

." Rest is ok.

endloop.

Reward if Helps.

Jogdand M B

Re: code

Former Member — Wed, 18 Apr 2007 10:27:25 GMT

Hi,

Use TABLE Keyword while Modifying.

The line to be changed is determined by the fact that the content of the table key matches the content of the corresponding components in the wa work area. For tables with a key that is not unique, the first entry that is found is changed.

Or else use

MOVE T_EDPAR-KUNNR TO WA.

MODIFY TABLE Itab from WA TRANSPORTING comp1.

with regards,

Jay