Skip to Content
0
Former Member
Jan 03, 2008 at 01:03 PM

urgent

65 Views

hi,

following code is the part of the program which i am developing.

data:

i_data type standard table of ty_data,

i_final type standard table of ty_final,

data:

wa_data type ty_data,

wa_final type ty_final,

select-options:

s_rpmax for zupi5t-rpmax obligatory no-extension. "Period

parameters:

p_rbukrs like zupi5t-rbukrs obligatory, "Company code

p_rtcur like zupi5t-rtcur. "obligatory. "Currency Key

select-options:

s_racct for zupi5t-racct obligatory, "Account number

s_rbusa for zupi5t-rbusa, "Business area

s_rzzps for zupi5t-rzzps_posid obligatory no intervals, "WBS Element

s_rzmtit for zupi5t-rzzmtit, "MPM title

s_rzmfor for zupi5t-rzzmfor, "MPM format

s_zmatnr for zupi5t-rzzmatnr, "Material number

s_rzzcou for zupi5t-rzzcou, "Country

s_rkunnr for zupi5t-rzzkunnr, "Customer number

s_rzzfow for zupi5t-rzzfow, "Financial owner

s_rzzoow for zupi5t-rzzoow, "Operational owner

s_rzzcon for zupi5t-rzzcon, "Licence contract

s_raufnr for zupi5t-rzzaufnr, "Order number

s_rzzloc for zupi5t-rzzloc, "Licensor contract

s_blart for zupi5t-blart, "Document type

s_zzrrc for zupi5t-zzrrc, "Return reason code

s_zztsc for zupi5t-zztsc, "Type of sales/Sales channel

s_zzfam for zupi5t-zzfam, "Fame number

s_zzfor for zupi5t-zzfor, "Format

s_zzgen for zupi5t-zzgen, "Movie Genre

s_zzprd for zupi5t-zzprd, "Product Line

s_zzfmt for zupi5t-zzfmt, "Price point

s_zzwin for zupi5t-zzwin, "Window group

s_zzwig for zupi5t-zzwig, "Window

s_kostl for zupi5t-kostl. "Cost center

select ryear rbukrs racct rzzps_posid rzzmtit

rzzmfor rzzmatnr rzzcou rzzfow rzzoow rzzcon

rzzloc kostl

zzfam zzfor zzprd zzwin zzwig

rtcur tsl01 tsl02

tsl03 tsl04 tsl05 tsl06 tsl07 tsl08 tsl09 tsl10 tsl11

tsl12 tsl13 tsl14 tsl15 tsl16 hsl01 hsl02 hsl03 hsl04

hsl05 hsl06 hsl07 hsl08 hsl09 hsl10 hsl11 hsl12 hsl13

hsl14 hsl15 hsl16 ksl01 ksl02 ksl03 ksl04 ksl05 ksl06

ksl07 ksl08 ksl09 ksl10 ksl11 ksl12 ksl13 ksl14 ksl15

ksl16 msl01 msl02 msl03 msl04 msl05 msl06 msl07 msl08

msl09 msl10 msl11 msl12 msl13 msl14 msl15 msl16

from zupi5t

into table i_data

where rldnr = p_rldnr

and rrcty = p_rrcty

and rvers = p_rvers

and ryear = p_ryear

and rpmax in s_rpmax

and rbukrs = p_rbukrs

and racct in s_racct

and rbusa in s_rbusa

and rzzps_posid in s_rzzps

and rzzmtit in s_rzmtit

and rzzmfor in s_rzmfor

and rzzmatnr in s_zmatnr

and rzzcou in s_rzzcou

and rzzkunnr in s_rkunnr

and rzzfow in s_rzzfow

and rzzoow in s_rzzoow

and rzzcon in s_rzzcon

and rzzaufnr in s_raufnr

and rzzcon in s_rzzloc

and blart in s_blart

and zzrrc in s_zzrrc

and zztsc in s_zztsc

and zzfam in s_zzfam

and zzfor in s_zzfor

and zzgen in s_zzgen

and zzprd in s_zzprd

and zzfmt in s_zzfmt

and zzwin in s_zzwin

and zzwig in s_zzwig

and kostl in s_kostl.

loop at i_data into wa_data.

wa_final-ryear = wa_data-ryear.

wa_final-rbukrs = wa_data-rbukrs.

wa_final-racct = wa_data-racct.

wa_final-rzzps_posid = wa_data-rzzps_posid.

wa_final-rzzmtit = wa_data-rzzmtit.

wa_final-rzzmfor = wa_data-rzzmfor.

wa_final-rzzmatnr = wa_data-rzzmatnr.

wa_final-rzzcou = wa_data-rzzcou.

wa_final-rzzfow = wa_data-rzzfow.

wa_final-rzzoow = wa_data-rzzoow.

wa_final-rzzcon = wa_data-rzzcon.

wa_final-rzzloc = wa_data-rzzloc.

wa_final-kostl = wa_data-kostl.

wa_final-zzfam = wa_data-zzfam.

wa_final-zzfor = wa_data-zzfor.

wa_final-zzprd = wa_data-zzprd.

wa_final-zzwin = wa_data-zzwin.

wa_final-zzwig = wa_data-zzwig.

wa_final-rtcur = wa_data-rtcur.

wa_final-tsl = wa_data-tsl01 + wa_data-tsl02 + wa_data-tsl03 +

wa_data-tsl04 + wa_data-tsl05 + wa_data-tsl06 +

wa_data-tsl07 + wa_data-tsl08 + wa_data-tsl09 +

wa_data-tsl10 + wa_data-tsl11 + wa_data-tsl12 +

wa_data-tsl13 + wa_data-tsl14 + wa_data-tsl15 +

wa_data-tsl16.

wa_final-hsl = wa_data-hsl01 + wa_data-hsl02 + wa_data-hsl03 +

wa_data-hsl04 + wa_data-hsl05 + wa_data-hsl06 +

wa_data-hsl07 + wa_data-hsl08 + wa_data-hsl09 +

wa_data-hsl10 + wa_data-hsl11 + wa_data-hsl12 +

wa_data-hsl13 + wa_data-hsl14 + wa_data-hsl15 +

wa_data-hsl16.

wa_final-ksl = wa_data-ksl01 + wa_data-ksl02 + wa_data-ksl03 +

wa_data-ksl04 + wa_data-ksl05 + wa_data-ksl06 +

wa_data-ksl07 + wa_data-ksl08 + wa_data-ksl09 +

wa_data-ksl10 + wa_data-ksl11 + wa_data-ksl12 +

wa_data-ksl13 + wa_data-ksl14 + wa_data-ksl15 +

wa_data-ksl16.

wa_final-msl = wa_data-msl01 + wa_data-msl02 + wa_data-msl03 +

wa_data-msl04 + wa_data-msl05 + wa_data-msl06 +

wa_data-msl07 + wa_data-msl08 + wa_data-msl09 +

wa_data-msl10 + wa_data-msl11 + wa_data-msl12 +

wa_data-msl13 + wa_data-msl14 + wa_data-msl15 +

wa_data-msl16.

append wa_final to i_final.

clear : wa_final-ryear,

wa_final-rbukrs, wa_final-racct,

wa_final-rzzps_posid, wa_final-rzzmtit, wa_final-rzzmfor,

wa_final-rzzmatnr, wa_final-rzzcou,

wa_final-rzzfow, wa_final-rzzoow, wa_final-rzzcon,

wa_final-rzzloc,

wa_final-kostl,

wa_final-zzfam,

wa_final-zzfor,

wa_final-zzprd, wa_final-zzwin,

wa_final-zzwig,

wa_final-rtcur,

wa_final-tsl,

wa_final-hsl, wa_final-ksl, wa_final-msl.

endloop.

here they r 4 fields TSL, MSL, KSL, MSL. I am getting the values of these fields by summation of tsl01,tsl02........tsl09 as defined in the table zupi5t) and respectively for other fields also.

Now the requirement is i should add the fields depending upon the range given for the select-option period s_rpmax. suppose if i give the range as 3 to 5 in the selection screen then tsl03, tsl04,tsl05 should get added and should be stored in tsl and this applies for the other fields also ( hsl,ksl,msl).

please help me in resolving this issue. plz.