Application Development and Automation 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: 
Read only

Logic needed .

Former Member
0 Likes
422

I have internal table called <b>edidd_table</b>. It contains values like below :

I have to insert record (Just before next <b>E1IDPU1 or E1IDLU5</b> ) called

0000000000000000

000000

E1EDP02

000000

00

When ever internal table <b>edidd_table </b> have a occurrence of SEGNAM = E1IDPU1 .

<b>edidd_table internal table :</b> DOCNUM SEGNUM SEGNAM PSGNUM HLEVEL

15 |0000000000000000|000000|E1IDPU1 |000000|00 |

16 |0000000000000000|000000|E1IDPU5 |000000|00 |

17 |0000000000000000|000000|E1IDPU3 |000000|00 |

18 |0000000000000000|000000|E1IDPU1 |000000|00 |

19 |0000000000000000|000000|E1IDPU5 |000000|00 |

20 |0000000000000000|000000|E1IDPU2 |000000|00 |

21 |0000000000000000|000000|E1IDPU1 |000000|00 |

22 |0000000000000000|000000|E1IDPU5 |000000|00 |

23 |0000000000000000|000000|E1IDPU5 |000000|00 |

24 |0000000000000000|000000|E1IDLU5 |000000|00 |

My logic:

wa_edidd_table-segnam = 'E1EDP02'.

wa_edidd_table-sdata = '013'.

INSERT wa_edidd_table INTO edidd_table INDEX lv_tabix.

How to achieve ? please let me know if you want me to write more clearly.

Help me.

2 REPLIES 2
Read only

Former Member
0 Likes
373

Loop at edidd_table.

ltabix = sy-tabix.

if edidd_table-segnam = 'E1IDPU1' or

edidd_table-segnam = 'E1IDPU5'.

wa_edidd_table-segnam = 'E1EDP02'.

wa_edidd_table-sdata = '013'.

ltabix = ltabix + 1.

INSERT wa_edidd_table INTO edidd_table INDEX ltabix.

endif.

ENDLOOP.

Message was edited by: Anurag Bankley

Read only

anversha_s
Active Contributor
0 Likes
373

hi,

do this.

sort edidd_table by SEGNAM.

read table edidd_table with key SEGNAM = E1IDPU1.

if sy-subrc = 0.

wa_edidd_table-segnam = 'E1EDP02'.

wa_edidd_table-sdata = '013'.

INSERT wa_edidd_table INTO edidd_table INDEX sy-tabix.

clear wa_edidd_table.

endif.

rgds

anver

if helped mark points