Help in daynamic select

Question

Hi,
i do FM and i wont to give to user option which field to select
i try to move name field to variable and try to do it all time with change field,how i can do that i try like below and i have error .
Regards
TYPES : BEGIN OF ab,
        dim0calmonth TYPE /bi0/oicalmonth,
        dim0costcenter TYPE /bi0/oicostcenter,
        change_fld TYPE p DECIMALS 2,
        END OF ab.
data: fl_tab type table of ab.
    SELECT  dim0calquarter dim0costcenter  ( key_field )
      FROM /bic/0
      INTO  TABLE fl_tab
      FOR ALL ENTRIES IN leaf_tab
      WHERE dim0costcenter =  leaf_tab-dim0costcenter
      AND dim0calquarter = year_q
      AND dim0curtype = curr_type.

Answer 1

Hi,
Pl. see the code below. May be it will help u.
parameters: cities as checkbox,
carriers as checkbox,
seats as checkbox,
names as checkbox.
data: begin of wa,
carrid type sbook-carrid,
connid type sbook-connid,
fldate type sbook-fldate,
customid type sbook-customid,
cityfrom type spfli-cityfrom,
cityto type spfli-cityto,
carrname type scarr-carrname,
seatsmax type sflight-seatsmax,
seatsocc type sflight-seatsocc,
name type scustom-name,
end of wa,
from type string value u2018sbook as bu2018,
list type string value
u2018bcarrid bconnid bfldate bcustomidu2018.
if cities = 'X'.
concatenate
from u2018 join spfli as p on bcarrid = pcarrid and bconnid = pconnidu2018
into from.
concatenate list u2018 cityfrom citytou2018 into list.
endif.
if carriers = 'X'.
concatenate
from u2018 join scarr as c on bcarrid = ccarridu2018 into from.
concatenate list u2018 c~carrnameu2018 into list.
endif.
if seats = 'X'.
concatenate
from u2018 join sflight as fu2018
u2018 on bcarrid = fcarrid and bconnid = fconnid and bfldate = ffldateu2018
into from.
concatenate list u2018 seatsmax, seatsoccu2018 into list.
endif.
if names = 'X'.
concatenate
from u2018 join scustom as u on bcustomid = uidu2018 into from.
concatenate list u2018 nameu2018 into list.
endif.
select (list) from (from) into corresponding fields of wa. << Without any space
write: / wa-connid, wa-carrid, wa-fldate, wa-customid.
if cities = 'X'.
write: wa-cityfrom, wa-cityto.
endif.
if carriers = 'X'.
write: wa-carrname.
endif.
if seats = 'X'.
write: wa-seatsmax, wa-seatsocc.
endif.
if names = 'X'.
write: wa-name.
endif.
endselect.
Regards,
Joy.
Edited by: Joyjit Ghosh on Jun 17, 2008 3:40 PM