topic Re: help in code in Application Development and Automation Discussions

help in code

Former Member — Sun, 26 Aug 2007 12:02:35 GMT

hallow

i have two tables that i wont to move the data((price) to third table itab

i wont to now how i can do that?

i give ex.

INTAB_A132[]

resrc date key

0000123456 20070101 0000014834

0000123456 20070601 0000014835

2) intab_konp

key price

0000014834 20000.00

0000014834 250000.00

this is what i wont

itab

1 0000123456 012007 20000.00

2 0000123456 022007 20000.00

3 0000123456 032007 20000.00

4 0000123456 042007 20000.00

5 0000123456 052007 20000.00

6 0000123456 062007 250000.00

7 0000123456 072007 250000.00

8 0000123456 082007 250000.00

9 0000123456 092007 250000.00

10 0000123456 102007 250000.00

11 0000123456 112007 250000.00

12 0000123456 122007 250000.00

13 0000123456 012008 250000.00

i reward kindly

Regards

Re: help in code

Former Member — Sun, 26 Aug 2007 13:19:11 GMT

hi shnya tal,

here the below code helps you.

if you hav internal tables it1 with fld1, fld2, fld3

it2 with fld1 fld2

it3 with fld1, fld2, fld3.

as you given in your example.

the below code will compare it1-fld3 and it2-fld1.

and made changes as you need and append in it3.

loop at It1.

loop at it2.
if it1-fld3 = it2-fld1.
  it3-fld1 = it1-fld1.
  CONCATENATE it1-fld2+4(2) it1-fld2(4) into s.
  it3-fld2 = s.
  it3-fld3 = it2-fld2.
    append it3.
  endif.
  ENDLOOP.
  ENDLOOP.

thanks and regards

Vijaykumar Reddy. S

Re: help in code

Former Member — Sun, 26 Aug 2007 13:37:22 GMT

Hi,

You can avoid loop with in loop. Use read statment instead.

like this.

loop at itab1.

read table itab2 with key fields field1 = itab1-field3.

if sy-subrc eq 0.

CONCATENATE itab1-field2+4(2) itab1-fild2(4) into l_date.

itab3-field2 = l_date.

itab3-field3 = itab2-fld2.

append itab3.

endif.

Regards,

Niyaz

endloop.

Re: help in code

Former Member — Sun, 26 Aug 2007 13:53:33 GMT

hi vijaykumar reddy

i try your suggstion but its not working .

for what u do the concatnte?

regards

Re: help in code

Former Member — Sun, 26 Aug 2007 13:55:01 GMT

Since you want the output in format 012007 , we are concatenating

else no need to concatenate

Re: help in code

Former Member — Sun, 26 Aug 2007 13:58:44 GMT

hi niyaz

in my table itab i have already fields with date and i need to modify table itab with price .

thankes

Re: help in code

Former Member — Sun, 26 Aug 2007 14:05:27 GMT

hi,

Please see the output which you have given. its

itab

1 0000123456 012007 20000.00

2 0000123456 022007 20000.00

Note the date format, its 012007. but in the input table you have given as

0000123456 20070101 0000014834

Thats y we are concatenating.

Did you try my code? i hope it will be working.

Regards,

Niyaz

Re: help in code

Former Member — Sun, 26 Aug 2007 14:20:39 GMT

hi niyaz

i try your code and its not working.

this what i have in itab(table 3)

0000123456 012007

and i wont to add 20000.00 to the thired colman modify

and its not working.

Thankes for your time

Regards

Re: help in code

Former Member — Sun, 26 Aug 2007 14:27:54 GMT

Try this

types: begin of ty_itab3,

field1 type ..

field2 type ...

field3 type ...

end of ty_itab3.

data itab3 type table of ty_itab3 with header line.

loop at itab1.

read table itab2 with key fields field1 = itab1-field3.

if sy-subrc eq 0.

itab3-field1 = itab1-field1

CONCATENATE itab1-field2+4(2) itab1-fild2(4) into l_date.

itab3-field2 = l_date.

itab3-field3 = itab2-fld2.

append itab3.

endif.

endloop.

Not: Please keep a break point and watch the code.

Re: help in code

Former Member — Sun, 26 Aug 2007 15:38:16 GMT

Hello Shnya,

You can write simple logic :

INTAB_A132[] -> this is one internal table

resrc date key

0000123456 20070101 0000014834

0000123456 20070601 0000014835

2) intab_konp -> this is second internal table

key price

0000014834 20000.00

0000014834 250000.00

this is what i wont

itab -> this is final internal table

1 0000123456 012007 20000.00

2 0000123456 022007 20000.00

3 0000123456 032007 20000.00

4 0000123456 042007 20000.00

5 0000123456 052007 20000.00

6 0000123456 062007 250000.00

7 0000123456 072007 250000.00

8 0000123456 082007 250000.00

9 0000123456 092007 250000.00

10 0000123456 102007 250000.00

11 0000123456 112007 250000.00

12 0000123456 122007 250000.00

13 0000123456 012008 250000.00

Logic :

loop at INTAB_A132.

read table intab_konp with key key = intab_a132-key.

if sy-subrc eq 0.

here move the values to itab -> this is your final internal table

itab-price = intab_konp-price.

itab-resrc = intab_a132-resrc.

itab-date = intab_a132-date.

append itab.

endif.

clear : itab,

intab_a132,

intab_konp.

endloop.

the above logic should work.

Thanks

Seshu

Re: help in code

Former Member — Sun, 26 Aug 2007 16:35:16 GMT

hi Seshu Maramreddy

i try it but its not working

Thankes anyay.

Regards

Re: help in code

Former Member — Sun, 26 Aug 2007 17:11:45 GMT

Okay ,please check the below code and i hardcoded values to internal table

REPORT ZJOINS message-id z01. .

Internal table intab_a132

data : begin of intab_a132 occurs 0,

resrc(10) type c,

date(8) type c,

key(10) type c,

end of intab_a132.

Internal table intab_konp

data : begin of intab_konp occurs 0,

key(10) type c,

price like konp-kbetr,

end of intab_konp.

internal table ITAB

data : begin of itab occurs 0,

resrc(10) type c,

date(8) type c,

price like konp-kbetr,

end of itab.

start-of-selection.

filling values to ITAB_A132

1st record

intab_a132-resrc = '0000123456'.

intab_a132-date = '012007'.

intab_a132-key = '0000014834'.

append intab_a132.

clear intab_a132.

2nd record

intab_a132-resrc = '0000123456'.

intab_a132-date = '022007'.

intab_a132-key = '0000014834'.

append intab_a132.

clear intab_a132.

*3rd Record

intab_a132-resrc = '0000123456'.

intab_a132-date = '032007'.

intab_a132-key = '0000014834'.

append intab_a132.

clear intab_a132.

4th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '042007'.

intab_a132-key = '0000014834'.

append intab_a132.

clear intab_a132.

5th Record

intab_a132-resrc = '0000123456'.

intab_a132-date = '052007'.

intab_a132-key = '0000014834'.

append intab_a132.

clear intab_a132.

6th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '062007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

7th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '072007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

8th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '082007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

9th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '092007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

10th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '102007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

11th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '112007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

12th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '122007'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

13th record

intab_a132-resrc = '0000123456'.

intab_a132-date = '012008'.

intab_a132-key = '0000014835'.

append intab_a132.

clear intab_a132.

Fill values to intab_konp

intab_konp-key = '0000014834'.

intab_konp-price = '20000.00'.

append intab_konp.

clear intab_konp.

intab_konp-key = '0000014835'.

intab_konp-price = '25000.00'.

append intab_konp.

clear intab_konp.

loop at intab_a132.

read table intab_konp with key key = intab_a132-key.

if sy-subrc eq 0.

itab-price = intab_konp-price.

itab-resrc = intab_a132-resrc.

itab-date = intab_a132-date.

append itab.

endif.

clear : intab_a132,

intab_konp.

endloop.

loop at itab.

write:/ itab-resrc,itab-date,itab-price.

endloop.

Thanks

Seshu

Re: help in code

Former Member — Sun, 26 Aug 2007 17:17:36 GMT

Dear Shnya Tal,

It seems to me that previous codes does not capture your requirement,

that is to display active price for all period 'between' the data in A132 ,

and I think there is a miss in your requirement,

that is how come the output stops in 012008 if there is no limitation in the table ?

Herewith I assume the 012008 as your preset value from selection screen.

The code below should works, please reward as well ^_^

START OF PROGRAM

REPORT ZTEST002R .

DATA : Begin of INTAB_A132 occurs 3,

resrc(10) type N,

date type d,

key(10) type N,

end of intab_a132,

begin of intab_konp occurs 3,

key(10) type N,

price like vbap-netwr,

end of intab_konp ,

begin of itab occurs 0,

no type i,

resrc(10) type N,

period(6) type N,

price like vbap-netwr,

end of itab,

tmp_a132 like intab_a132 occurs 0 with header line,

tmp_period1(6) type N,

tmp_period2(6) type N,

tmp_month(2) type N,

tmp_year(4) type N,

cntr type i,

indx1 like sy-tabix,

indx2 like sy-tabix,

last type i.

SELECTION SCREEN

parameters : p_edate like sy-datum default '20080101'.

EVENTS

initialization.

intab_a132-resrc = '0000123456'.

intab_a132-date = '20070101'.

intab_a132-key = '0000014834'.

append intab_a132.

intab_a132-resrc = '0000123456'.

intab_a132-date = '20070601'.

intab_a132-key = '0000014835'.

append intab_a132.

tmp_a132[] = intab_a132[].

intab_konp-key = '0000014834'.

intab_konp-price = 200000.

append intab_konp.

intab_konp-key = '0000014835'.

intab_konp-price = 250000.

append intab_konp.

MAIN PROGRAM

Start-of-selection.

clear cntr.

describe table intab_a132 lines last.

loop at intab_a132.

clear : tmp_month, tmp_a132.

indx1 = sy-tabix.

indx2 = sy-tabix + 1.

tmp_month = intab_a132-date+4(2) .

tmp_year = intab_a132-date(4).

concatenate tmp_year tmp_month

into tmp_period2 .

read table tmp_a132 index indx2.

if sy-subrc = 0 or indx1 = last.

read table intab_konp with key key = intab_a132-key.

if sy-subrc = 0.

while ( tmp_period2 <= p_edate(6) ) .

if tmp_period2 >= tmp_a132-date(6)

and not tmp_a132-date is initial .

exit.

endif.

" For output purpose

cntr = cntr + 1.

concatenate tmp_month tmp_year into tmp_period1 .

itab-no = cntr.

itab-resrc = intab_a132-resrc.

itab-price = intab_konp-price.

itab-period = tmp_period1.

append itab.

" For period comparison purpose

if tmp_month <= 11.

tmp_month = tmp_month + 1.

else.

tmp_month = 1.

tmp_year = tmp_year + 1.

endif.

concatenate tmp_year tmp_month into tmp_period2 .

endwhile.

endif. " intab_konp

endif. " tmp_a132

endloop. " intab_a132

write:/1(3) 'no', (10) 'resrc', (6) 'period', (10) 'price'.

loop at itab.

write:/1(3) itab-no, (10) itab-resrc,

(6) itab-period, (10) itab-price.

endloop.

END of PROGRAM

Output :

no resrc period price

1 0000123456 012007 200000,00

2 0000123456 022007 200000,00

3 0000123456 032007 200000,00

4 0000123456 042007 200000,00

5 0000123456 052007 200000,00

6 0000123456 062007 250000,00

7 0000123456 072007 250000,00

8 0000123456 082007 250000,00

9 0000123456 092007 250000,00

10 0000123456 102007 250000,00

11 0000123456 112007 250000,00

12 0000123456 122007 250000,00

13 0000123456 012008 250000,00

Regards,

TS WINEDYA

Message was edited by:

TUWUHSIH WINEDYA

Re: help in code

Former Member — Sun, 26 Aug 2007 17:30:02 GMT

thankes seshu for your time

i am not in office but itry it tomarow

Best Regards