Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Modify stmt leads dump (urgent)

0 Kudos

PERFORM get_customer TABLES itab_futureorders.

FORM get_customer TABLES p_itab STRUCTURE itab_orders .

DATA: wa_itab LIKE LINE OF itab_orders.

SELECT avbeln aparvw

b~name1

INTO TABLE itab_customer

FROM vbpa AS a

INNER JOIN kna1 AS b ON akunnr = bkunnr

FOR ALL ENTRIES IN p_itab

WHERE vbeln EQ p_itab-soord

AND parvw EQ 'ZE'.

IF sy-subrc EQ 0.

LOOP AT itab_customer INTO wa_customer.

READ TABLE p_itab INTO wa_itab

WITH KEY soord = wa_customer-vbeln.

IF sy-subrc EQ 0.

CLEAR p_itab-name1.

p_itab-name1 = wa_customer-name1.

ELSE.

CLEAR p_itab-name1.

ENDIF.

MODIFY p_itab.

ENDLOOP.

ENDIF.

ENDFORM. " get_customer

I am getting short dump while exec the modify statement. Please let me know the error in this.

Regards,

Cheritha

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hi,

AFter modif write like this...

MODIFY p_itab INDEX idx (Data : idx TYPE sy-tabix.)

Regards

Rams

2 REPLIES 2

Former Member
0 Kudos

Hi,

Check out the errors.

PERFORM get_customer TABLES itab_futureorders.

FORM get_customer TABLES p_itab STRUCTURE itab_orders .

DATA: wa_itab LIKE LINE OF itab_orders.

SELECT avbeln aparvw

b~name1

INTO TABLE itab_customer

FROM vbpa AS a

INNER JOIN kna1 AS b ON akunnr = bkunnr

FOR ALL ENTRIES IN p_itab

WHERE vbeln EQ p_itab-soord

AND parvw EQ 'ZE'.

IF sy-subrc EQ 0.

LOOP AT itab_customer INTO wa_customer.

READ TABLE p_itab INTO wa_itab

WITH KEY soord = wa_customer-vbeln.

IF sy-subrc EQ 0.

CLEAR p_itab-name1.

  • " commentedp_itab-name1 = wa_customer-name1.

wa_itab-name1 = wa_customer-name1.

ELSE.

CLEAR wa_itab-name1.

ENDIF.

MODIFY p_itab from wa_itab..

ENDLOOP.

ENDIF.

ENDFORM. " get_customer

or u can use this logic.

data: lv_ind type i.

loop at p_itab into wa_itab.

lv_ind = sy-tabix.

read table itab_customer into wa_customer

with key vbeln = wa_itab-soord.

if sy-subrc = 0.

wa_itab-name1 = wa_customer-name1.

modify p_itab from wa_itab index lv_ind

transporting name1.

endif.

clear wa_itab.

ENDLOOP.

regards,

Santosh Thorat

Former Member
0 Kudos

Hi,

AFter modif write like this...

MODIFY p_itab INDEX idx (Data : idx TYPE sy-tabix.)

Regards

Rams