topic Re: Problem with routine in Application Development and Automation Discussions

Problem with routine

Former Member — Tue, 20 May 2008 11:46:11 GMT

Hi Expert,

I have the following problem. I have in flat file the Column1, and I need write the column2. I need the number 1 with 10 only once, the number 1 with 11 only once, the number 1 with 12 only once, the number 1 with 13 only once, the number 1 with 14 only once......

Column1---- -

Column2

10----

11----

12----

13----

14----

Is there any routine?

Can you help me please?

Thanks

Re: Problem with routine

Former Member — Tue, 20 May 2008 11:48:54 GMT

Hi,

DO this,

sort itab by column1.

loop at itab.

s_itab = itab.

at new of column1.

write s_itab-column2.

endat.

endloop

Cheers.

...Reward if useful.

Re: Problem with routine

prasanth_kasturi — Tue, 20 May 2008 11:51:06 GMT

try like this

after uploading data into your internal table

sort itab by col1.

METHOD 1

loop at itab.

on change of itab-col1.

itab-col2 = 1.

modify itab.

endon.

endloop.

METHOD 2 " take care col 1 must be the first field

loop at itab.

at new col1.

itab-col2 = 1.

modify itab.

endat.

endloop.

reward if helpful

prasanth

Re: Problem with routine

Former Member — Tue, 20 May 2008 11:53:34 GMT

Hi,

i think u can try this,

use AT NEW statement.

AT NEW of column1.

column2 = 1.

ENDAT.

Regards,

kk.

Re: Problem with routine

Former Member — Tue, 20 May 2008 12:06:37 GMT

Hi,

As the number 10 is repeated, I need put 1 only once. If number 10 appear again put 0.

Can you help me please??

Thanks for your answer.

Re: Problem with routine

prasanth_kasturi — Wed, 21 May 2008 04:13:48 GMT

hi,

sort itab by col1.

loop at itab.

on change of itab-col1.

itab-col2 = 1.

modify itab.

else.

itab-col2 = 0.

modify itab.

endon.

endloop.

waiting for your reward

prasanth

Re: Problem with routine

Former Member — Wed, 21 May 2008 04:40:44 GMT

Hi,

REPORT z_example NO STANDARD PAGE HEADING .

data : begin of itab occurs 0,

col1(2) ,

col2(2) ,

end of itab.

itab-col1 = 10.

append itab.

itab-col1 = 10.

append itab.

itab-col1 = 11.

append itab.

itab-col1 = 11.

append itab.

itab-col1 = 12.

append itab.

itab-col1 = 12.

append itab.

itab-col1 = 13.

append itab.

itab-col1 = 13.

append itab.

sort itab by col1.

loop at itab.

on change of itab-col1.

itab-col2 = 1.

modify itab.

else.

itab-col2 = 0.

modify itab.

endon.

endloop.

loop at itab.

write:/ itab-col1,

itab-col2.

endloop.

Plz rewards points if helpful,

Ganesh.