topic Re: logic needed pls help in Application Development and Automation Discussions

logic needed pls help

Former Member — Mon, 18 Feb 2008 03:29:00 GMT

i need to delete the records inthe following coding. pls help me

LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.

READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.

IF SY-SUBRC = 0.

<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.

else.

delete ?????????

ENDIF.

ENDLOOP.

useful Answers will be reward

Thanks

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 03:36:56 GMT

What do you want to delete?

Records from which table?

Regards,

Atish

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 03:41:23 GMT

i need to delete the records from ITAB_ZFIFN_OP table

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 03:42:49 GMT

Check below code.

data l_index type i.

LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.

l_index = sy-tabix.

READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.

IF SY-SUBRC = 0.

<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.

else.

DELETE ITAB_ZFIFN_OP INDEX l_index.

ENDIF.

ENDLOOP.

Regards,

Atish

Re: logic needed pls help

former_member156446 — Mon, 18 Feb 2008 03:44:48 GMT


LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.
READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.
IF SY-SUBRC = 0.
<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.
else.
delete itab_zfifn index sy-index.
ENDIF.
ENDLOOP.

Re: logic needed pls help

kesavadas_thekkillath — Mon, 18 Feb 2008 03:45:56 GMT

LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.

READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.

IF SY-SUBRC = 0.

<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.

else.

delete ITAB_ZFIFN_OP. "<----

ENDIF.

ENDLOOP.

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 03:49:34 GMT

Hi Atish

how ro declare l_index?

i declare as data : l_index like sy-index.

its going to dump.

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 03:50:45 GMT

Declare l_index as I shown.

DATA l_index type i.

Regards,

Atish

Re: logic needed pls help

former_member156446 — Mon, 18 Feb 2008 03:50:52 GMT

its mandatory to declare it.. you can do as I said in my previous post as well.

Re: logic needed pls help

kesavadas_thekkillath — Mon, 18 Feb 2008 03:53:25 GMT

LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.

READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.

IF SY-SUBRC = 0.

<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.

else.

delete ITAB_ZFIFN_OP index sy-tabix <----include this.

ENDIF.

ENDLOOP.

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 04:12:52 GMT

Hi Keshu

its working fine. Can u tell me how to output the deleted records in WRITE statement

Re: logic needed pls help

Former Member — Mon, 18 Feb 2008 04:21:37 GMT

Hello ,

LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.

READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.

IF SY-SUBRC = 0.

<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.

else.

ITAB_ZFIFN_TMP = ITAB_ZFIFN_OP .

APPEND ITAB_ZFIFN_TMP

delete ITAB_ZFIFN_OP index sy-tabix .

ENDIF.

ENDLOOP.

Deleted Records.

clear : <FS_ZFIFN>..

loop at ITAB_ZFIFN_TMP ASSIGNING <FS_ZFIFN>..

write : ITAB_ZFIFN_TMP.

endloop.

Reward points if it is usefull ..

Girish

Re: logic needed pls help

former_member156446 — Mon, 18 Feb 2008 04:34:22 GMT

LOOP AT ITAB_ZFIFN_OP ASSIGNING <FS_ZFIFN>.
READ TABLE ITAB_TEMKSV WITH KEY OLDKEY = <FS_ZFIFN>-OPBEL.
IF SY-SUBRC = 0.
<FS_ZFIFN>-OPBEL = ITAB_TEMKSV-NEWKEY.
else.
write:/ 'deleted:'<FS_ZFIFN>-f1,<FS_ZFIFN>-f2.... "f1,f2 will be the field you want to display.
delete itab_zfifn index sy-index.
ENDIF.
ENDLOOP.