topic Re: Read line and delete line in Application Development and Automation Discussions

Read line and delete line

Former Member — Wed, 22 Apr 2009 03:57:47 GMT

Hi Experts ,

I am doing a report on material history where I need to find out open orders....if suppose a matnr does'nt have Po then also I need to display as it will have open PR.

Now I want to delete the line where ebeln eq space but I can't put the condition as:

delete it_first where ebeln = space as single lines will also get deleted.

My condition should be if a matnr is displayed in more than 1 line and if ebeln eq space

delete it_first.

loop at it_first.                              " I facing problem with this code
  if it_first-wemng GE it_first-menge.
    move '   '  to it_first-ebeln.
    move '   '  to it_first-menge
    move '   '  to it_first-wenge
 modify it_first.
endif.
endloop.

after the above statement my O/P is as below

 werks   ,   matnr   ,     ebeln        ,  menge  , wemng
 UNIT1   ,    ABCD   ,   450025612       ,    256       ,   125
 UNIT1   ,    ABCD   ,   450012345       ,    756       ,   456
 UNIT1   ,    ABCD   ,  --SPACE--         ,   0.00       ,  0.00     "Need to delete this line 
 UNIT1   ,    ABCD   ,  --SPACE--         ,   0.00       ,  0.00     "Need to delete this line 
  
 UNIT2   ,  BEDF     ,   --SPACE--        ,   0.00       ,  0.00    " this needs to be displayed (just 4 matnr)

Please advice

Karthik

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:08:39 GMT

hello,

Try this way


data : g_prev_eblen like it_first-eblen.
loop at it_first.                              " I facing problem with this code
  if it_first-wemng GE it_first-menge.
    move '   '  to it_first-ebeln.
    move '   '  to it_first-menge
    move '   '  to it_first-wenge
if it_First-eblen ne g_prev_ebeln.
 modify it_first.
endif.
g_prev_ebeln = it_first-eblen. "store previosu entry in g_prev_ebeln to compare at next level. if not equal 
" then it wont be apended to table.
endif.
endloop.

Regards,

Mansi.

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:14:12 GMT

Hi,

The following code will work.

loop at it_first.

move matnr to w_matnr.

if matnr = w_matnr and ebeln = ' '.

delete it_first where matnr = w_matnr and eblen = ' '.

modify it_first.

clear w_matnr.

endif.

endloop.

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:17:04 GMT

hi karthik,

You can use a counter. and increment it everytime a entry is found.

loop at it_first.

at new matnr.

clear v_counter.

endat.

if it_first-wemng GE it_first-menge.

move ' ' to it_first-ebeln.

move ' ' to it_first-menge

move ' ' to it_first-wenge

v_counter = v_counter +1.

if v_counter gt 1 and it_first-ebeln is iitial.

delete it_first.

else.

modify it_first.

endif.

endloop.

Hope this helps.

Regards,

Komal

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:18:38 GMT

hi,

use

sort itab by matnr.

delete adjacent duplicates from itab

comparing matnr.

hope it works.

regards,

Lokesh

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:28:01 GMT

Hi Karthik,

I would have do like this in your situation,...


delete it_first where ebeln is initial.
it_first1 = it_first.
Select * from  into it_first 
            for all entries in it_first1
            where matnr ne it_first1-matnr and vbeln eq (initial or null or space or what ever it is)           
loop at it_first.
apend it_first to it_first1.
endloop.
sort it_first1.

Thanks & regards,

Dileep .C

Re: Read line and delete line

awin_prabhu — Wed, 22 Apr 2009 04:29:48 GMT

Try like below.

Report ZTEST.

DATA: BEGIN OF it_first OCCURS 0,

werks TYPE werks,

matnr TYPE matnr,

ebeln TYPE ebeln,

menge TYPE menge,

wemng TYPE wemng,

END OF it_first,

wa LIKE it_first,

v_matnr TYPE matnr,

v1_matnr TYPE matnr,

it_final LIKE it_first OCCURS 0. <----- Final output table

wa-werks = 'UNIT1'.

wa-matnr = 'ABCD'.

wa-ebeln = '450025612'.

wa-menge = '256'.

wa-wemng = '125'.

APPEND wa TO it_first.

wa-werks = 'UNIT1'.

wa-matnr = 'ABCD'.

wa-ebeln = '450012345'.

wa-menge = '756'.

wa-wemng = '456'.

APPEND wa TO it_first.

wa-werks = 'UNIT1'.

wa-matnr = 'ABCD'.

wa-ebeln = ' '.

wa-menge = '0'.

wa-wemng = '0'.

APPEND wa TO it_first.

wa-werks = 'UNIT1'.

wa-matnr = 'ABCD'.

wa-ebeln = ' '.

wa-menge = '0'.

wa-wemng = '0'.

APPEND wa TO it_first.

wa-werks = 'UNIT2'.

wa-matnr = 'BEDF'.

wa-ebeln = ' '.

wa-menge = '0'.

wa-wemng = '0'.

APPEND wa TO it_first.

LOOP AT it_first INTO wa.

v1_matnr = wa-matnr.

IF sy-tabix NE 1.

IF v_matnr = v1_matnr.

IF wa-ebeln NE ''.

APPEND wa TO it_final.

ENDIF.

ELSE.

APPEND wa TO it_final.

ENDIF.

ELSE.

APPEND wa TO it_final.

ENDIF.

v_matnr = wa-matnr.

ENDLOOP.

Edited by: Sap Fan on Apr 22, 2009 6:29 AM

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:34:45 GMT

Hi Sap user,

Thank u !!

But the below condition is not satisfying, Please advice.

if it_first-wemng GE it_first-menge.
move '   '  to it_first-ebeln.
move '   '  to it_first-menge.
move '   '  to it_first-wemng.

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:37:12 GMT

hi,

use this code.

loop at it_first. " I facing problem with this code

on change of it_first matnr.

move all values .

else.

if it_first-ebeln eq space

delete it_first.

endif.

endon.

endloop.

modify according u r internal fields . hope it will work.

~linganna

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:38:24 GMT

Hi Komal,

thank u ...but ur logic is not working..

as per ur statement. space is getting moved to ebeln ,menge and * wemng*

but my problem is remaining da same.

Please advice

Karthik

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:54:27 GMT

Check this code.

loop at it_first. " Add conditions in your if.
if it_first-wemng GE it_first-menge or ( it_first-wemng eq it_first-menge and it_first-wemng ne '0' and it_first-menge ne '0' ).
   "   Here you wont get entries with wemng and menge as 0.
    move '   '  to it_first-ebeln.
    move '   '  to it_first-menge
    move '   '  to it_first-wenge
 modify it_first.
endif.
endloop.

Hope this works for you.

Regards,

Lalit Mohan Gupta.

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:58:02 GMT

Hi Karthik,

You can IT_first-ebeln to space instead of initial then instead of checking for initial.

Regards,

Komal

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 04:58:45 GMT

hi Karthik,

Mabbe u get the solution.

loop at it_first. " I facing problem with this code

if it_first-wemng GE it_first-menge.

move ' ' to it_first-ebeln.

move ' ' to it_first-menge

move ' ' to it_first-wenge

modify it_first INDEX sy-tabix transporting ebeln menge wenge.

endif.

endloop.

i think this should work...

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 05:05:52 GMT

Hello,

TRy this. it wil surely work.


data : g_prev_eblen like it_first-eblen.
loop at it_first.                              " I facing problem with this code
  if it_first-wemng GE it_first-menge.
    clear : it_first-ebeln, it_first-menge,it_first-wenge.
if it_First-eblen ne g_prev_ebeln.
 modify it_first.
endif.
g_prev_ebeln = it_first-eblen. "store previosu entry in g_prev_ebeln to compare at next level. if not equal 
" then it wont be apended to table.
endif.
endloop.

Regards,

Mansi.

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 07:02:35 GMT

No !! its not working !!

Please advice

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 07:39:01 GMT

Please give me an idea such that I can get sy-tabix for each repeated matnr

so that I can delete by giving da condition if sy-tabix > 1 and ebeln = ' '.

eg:

SI. No material no:

1. matnr 1

2. matnr 1

3. matnr 1

4. matnr 1

1.matnr 2

2.matnr 2

3.matnr 2

1.matnr 3

1.matnr 4

2.matnr 4.

Thanks

Karthik

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 07:48:27 GMT

Hi Karthik,

Did you try the code I given to you,,,

It was working fine in my system..


delete it_first where ebeln is initial.
it_first1 = it_first.
Select * from  into it_first 
for all entries in it_first1
where matnr ne it_first1-matnr and vbeln eq (initial or null or space or what ever it is) 
loop at it_first.
apend it_first to it_first1.
endloop.
sort it_first1.

Thanks & regards,

Dileep .C

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 07:49:43 GMT

Hi,

Please try the below code.

loop at it_first.

move matnr to w_matnr.

if matnr = w_matnr and ebeln = ' '.

delete it_first where matnr = w_matnr and eblen = ' '.

modify it_first.

clear w_matnr.

endif.

endloop.

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 07:52:56 GMT

Hi Dileep,

Thank u ...4 ur kind help, but u have understood my requirement wrongly !!

In ur code u have mentioned..

Select * from {table} into it_first 
for all entries in it_first1
where matnr ne it_first1-matnr and vbeln eq (initial or null or space or *what ever it is*)

but I don't want to fetch any thing from any table...only problem I facing is in displaying my O/P.

Please refer my first post and help me.

Thanks

Karthik

Re: Read line and delete line

Former Member — Wed, 22 Apr 2009 08:08:43 GMT

loop at it_first. " I facing problem with this code

if it_first-wemng GE it_first-menge.

move ' ' to it_first-ebeln.

move ' ' to it_first-menge

move ' ' to it_first-wenge

*>>>

clear: l_count.

loop at it_first into l_wa_first

where werks = it_first-werks

and matnr = it_first-matnr.

l_count = l_count + 1.

endloop.

if l_count > 1.

delete it_first.

else.

modify it_first.

endif.

*<<<

modify it_first.

endif.

endloop.