topic Re: Modify statement in user exit not working in Application Development and Automation Discussions

Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 07:28:11 GMT

Hello Everyone,

Following is the code i have written in the user exit for the transaction VT01N.

This code is giving run time error after Modify statement .

Please go thro' the code and help me in solving the error.

DATA: g_vendor.

DATA: BEGIN OF ivlkpa OCCURS 0,

g_vendor LIKE vlkpa-kunde,

g_vbeln LIKE vlkpa-vbeln,

tknum like i_xvttp_tab-tknum,

END OF ivlkpa.

IF i_xvttp_tab[] IS NOT INITIAL.

SELECT kunde vbeln INTO TABLE ivlkpa

FROM vlkpa

FOR ALL ENTRIES IN i_xvttp_tab

WHERE vbeln = i_xvttp_tab-vbeln

AND parvw = 'SP'. " Alias for Carrier Partner function(CR) is SP.

ENDIF.

LOOP AT ivlkpa.

READ TABLE i_xvttk_tab with key tknum = ivlkpa-tknum.

read table i_xvttk_tab
with key vbeln = i_xvttp_tab-vbeln.

*read table i_xvttk_tab

*with key tknum = ivlkpa-tknum.

*read table i_xvttk_tab index 1.

i_xvttk_tab-tdlnr = ivlkpa-g_vendor.

*MOVE ivlkpa-g_vendor TO I_XVTTK_TAB-TDLNR.

MODIFY i_xvttk_tab.

ENDLOOP.

The runtime error which i get after debugging is..

you attempted to change,delete or create a line in the internal table :\PROGRAM=SAPMV56A\DATA=XVTTK[]" but no valid cursor exists for the table.

Thanks,

Sonal

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 07:32:32 GMT

write

modify i_xvttk_tab index sy-tabix. "pass index as per ur need

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 07:34:33 GMT

here index command is missing for modify.

LOOP AT ivlkpa.

READ TABLE i_xvttk_tab with key tknum = ivlkpa-tknum.

read table i_xvttk_tab
with key vbeln = i_xvttp_tab-vbeln.

*read table i_xvttk_tab

*with key tknum = ivlkpa-tknum.

*read table i_xvttk_tab index 1.

i_xvttk_tab-tdlnr = ivlkpa-g_vendor.

*MOVE ivlkpa-g_vendor TO I_XVTTK_TAB-TDLNR.

if sy-subrc = 0.

MODIFY i_xvttk_tab index sy-tabix..

endif.

ENDLOOP.

please check whether you can read the table i_xvttk_tab with some certain conditions to get the sy-tabix. i hav uncommented the read statement that you have written there may be it is useful.

regards

shiba dutta

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 07:37:11 GMT

hi,

this is because of not mentioning the index or transporting in modify.

please use transporting if your adding the new values to fields

thanks

Shiva

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 08:38:42 GMT

Thanks Shiba....!!

My code is working now....and i have assign points to u

But still i feel there is problem in my read statement....

can u just see the code which i have written and suggest me whether it is correct...

DATA: g_vendor.

DATA: BEGIN OF ivlkpa OCCURS 0,

g_vendor LIKE vlkpa-kunde,

g_vbeln LIKE vlkpa-vbeln,

tknum like i_xvttp_tab-tknum,

END OF ivlkpa.

IF i_xvttp_tab[] IS NOT INITIAL.

SELECT kunde vbeln INTO TABLE ivlkpa

FROM vlkpa

FOR ALL ENTRIES IN i_xvttp_tab

WHERE vbeln = i_xvttp_tab-vbeln

AND parvw = 'SP'. " Alias for Carrier Partner function(CR) is SP.

ENDIF.

LOOP at ivlkpa.

read table i_xvttk_tab index sy-tabix.

i_xvttk_tab-tdlnr = ivlkpa-g_vendor.

if sy-subrc = 0.

MODIFY i_xvttk_tab index sy-tabix..

endif.

ENDLOOP.

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 08:43:50 GMT

Hi,

DATA: g_vendor.

DATA: BEGIN OF ivlkpa OCCURS 0,

g_vendor LIKE vlkpa-kunde,

g_vbeln LIKE vlkpa-vbeln,

tknum like i_xvttp_tab-tknum,

END OF ivlkpa.

IF i_xvttp_tab[] IS NOT INITIAL.

SELECT kunde vbeln INTO TABLE ivlkpa

FROM vlkpa

FOR ALL ENTRIES IN i_xvttp_tab

WHERE vbeln = i_xvttp_tab-vbeln

AND parvw = 'SP'. " Alias for Carrier Partner function(CR) is SP.

ENDIF.

sort ivlkpa by key field .

LOOP at ivlkpa.

read table i_xvttk_tab where field = ivlkpa-field.

i_xvttk_tab-tdlnr = ivlkpa-g_vendor.

if sy-subrc = 0.

MODIFY i_xvttk_tab index sy-tabix..

endif.

ENDLOOP.

Thanks

Shiva

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 08:48:53 GMT

here in read statement you have used index sy-tabix means it will only read the perticular row no. means at first loop pass it will read first row of table i_xvttk_tab in 2nd it will read 2nd row of i_xvttk_tab like that .

why dont you use

read table i_xvttk_tab with key vbeln = ivlkpa-vbeln.

it will be better one.

regards

shiba dutta

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 08:53:42 GMT

btw there was no diff between Shiba's and my answer so u shud reward all helpfull answers.

make changes as follows -

DATA: g_vendor.

DATA: BEGIN OF ivlkpa OCCURS 0,

g_vendor LIKE vlkpa-kunde,

g_vbeln LIKE vlkpa-vbeln,

tknum like i_xvttp_tab-tknum,

END OF ivlkpa.

IF i_xvttp_tab[] IS NOT INITIAL.

SELECT kunde vbeln INTO TABLE ivlkpa

FROM vlkpa

FOR ALL ENTRIES IN i_xvttp_tab

WHERE vbeln = i_xvttp_tab-vbeln

AND parvw = 'SP'. " Alias for Carrier Partner function(CR) is SP.

ENDIF.

LOOP at ivlkpa.

read table i_xvttk_tab with key field1 = ivlkpa-field1.

if sy-subrc = 0.

i_xvttk_tab-tdlnr = ivlkpa-g_vendor.

MODIFY table i_xvttk_tab from i_xvttk_tab.

endif.

ENDLOOP.

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 09:00:17 GMT

Sonal,

Use below code

MODIFY TABLE i_xvttk_tab FROM ivlkpa Transporting tdlnr .

If you want you can write where condition.

Pls. mark for all useful

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 09:44:07 GMT

yes it tried that ..but unfortunately VTTK does not have vbeln field..

so it is not programming stlye or wht to use

read read table i_xvttk_tab index sy-index.

do reply..

thanks

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 09:47:04 GMT

hello amit,

yes u r right ....

but there is no field common between vttk and vlkpa to use for below option.

read table i_xvttk_tab with key field1 = ivlkpa-field1

reply to this query ...will be helpful...

n yes i have awarded pts to u too...

Re: Modify statement in user exit not working

Former Member — Fri, 12 Jan 2007 09:57:54 GMT

then try this.

if your

data : vtknum like vttk-tknum.

LOOP at ivlkpa.

read table i_xvttp_tab with key vbeln = ivlkpa-vbeln.

if sy-subrc = 0.

read table i_xvttk_tab with key tknum = i_xvttp_tab-tknum.

if sy-subrc = 0.

i_xvttk_tab-tdlnr = ivlkpa-g_vendor.

MODIFY i_xvttk_tab index sy-tabix..

endif.

ENDLOOP.

regards

shiba dutta