Create select-options using internal table

Hello,
I have number of table-fields in one internal table.
I need to create select-options on screen for each of the table field in that internal table.
Can anybody please provide a code for it ?
Thanks.

hi,
you can create in this way :
select-options: <name> for itab-<field name>.
example code:
TABLES: vbak. " standard table
TYPE-POOLS: slis.
*-- Structure to hold data from table
TYPES: BEGIN OF tp_itab1,
 vbeln LIKE vbap-vbeln,
 posnr LIKE vbap-posnr,
 werks LIKE vbap-werks,
 lgort LIKE vbap-lgort,
 END OF tp_itab1.
*-- Data Declaration
DATA: t_itab1 TYPE TABLE OF tp_itab1.
DATA : i_fieldcat TYPE slis_t_fieldcat_alv.
* Selection Screen *
*--Sales document-block
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,
 s_posnr FOR vbap-posnr,
 s_werks FOR vbap-werks,
 s_lgort FOR vbap-lgort.*
SELECTION-SCREEN END OF BLOCK b1.
hope it will help you
regards
Rahul sharma
Edited by: RAHUL SHARMA on Sep 19, 2008 8:25 AM

Similar Messages

Passing SELECT-OPTIONS and Internal Tables to SUBROUTINES

Hi Guys
In the code below my colleague has created her own table types in order to pass a select option and internal tables to her subroutine. Is there an easier way of making them known to the subroutine.
data : v_vbeln type vbeln_vf,
      it_bdoc type table of vbrp,
      it_t006 type table of t006a,
      wa_bdoc type vbrp,
      wa_t006 type t006a,
      it_bdoc2 type table of zsswathi_st_vbeln,
      wa_bdoc2 type zsswathi_st_vbeln
select-options s_vbeln for v_vbeln matchcode object zswathi_vbeln obligatory.
start-of-selection.
perform bdoc using s_vbeln[]
             changing it_bdoc
                      it_bdoc2
                      it_t006.
loop at it_bdoc2 into wa_bdoc2.
form bdoc using f_s_vbeln type ZSWATHI_ST_SELECT_OPTION_TA_TY       " all these are table types. for select options, a structure is created and then a table type for it is created.
        changing f_it_bdoc type zswathi_vbrp_ty_ta
                 f_it_bdoc2 type zswathi_vbeln_ty_ta
                  f_it_t006 type ZSWATHI_T006_TA_TY.
select * from vbrp into table f_it_bdoc where vbeln in f_s_vbeln.
      if f_it_bdoc is not initial.
      select vbeln sum( netwr ) prsdt from vbrp into table f_it_bdoc2 where vbeln in f_s_vbeln group by vbeln prsdt.
      sort f_it_bdoc2 by vbeln.
      "select * from t006a into table it_t006 for all entries in it_bdoc where msehi = it_bdoc-vrkme.
      select * from t006a into table f_it_t006 for all entries in f_it_bdoc where msehi = f_it_bdoc-vrkme.
   endif.
    endform.

Hi Brett,
1. you can use a select-options-range in a FORM subroutine also without passing it as a parameter because parameters and select-option range tables are global fields in their program.
2. If you need a parameter, declare it as type table or type standard table or type any table. You do not need any special table type.
Regards
Clemens

Move the data in select options to internal table

I have the code as in the fillowing
SELECT-OPTION:S_MATNR FOR MARA-MATNR.
DATA:BEGIN OF IT_MATNTR OCCURS 0,
MATNR LIKE MARA-MATNR,
END OF IT-MATNR.
NOW HOW CAN I ADD THE MATNER VALUES IN THE SELECT-OPTIONS IN INTERNAL TABLE

Hi Vamsikrishna,
Yes. You can move the values from S_MATNR to IT_MATNR.
you can try either it_matnr[] = s_matnr[].
if not then you can loop in to the select-options as follows.
Define LS_MATNR as a structure type of s_matnr.
Define LS_IT_MATNR as a structure type of it_matnr.
LOOP S_MATNR INTO LS_MATNR.
MOVE LS_MATNR to LS_IT_MATNR.
APPEND LS_IT_MATNR to IT_MATNR.
CLEAR: LS_MATNR, LS_IT_MATNR.
ENDLOOP.
Reward points for helpful answers.
Best Regards,
Ram.

SELECT-OPTION to internal table

Hi,
I need to convert the select-option values into an internal table.
For example, if there is a select-option S_WERKS... i need all the values entered for S_WERKS into the internal table. The internal table structure contains only WERKS.
My actual requirement is, for the given plant values as select-option, i need to fetch all details of the plants. And I should not use any SELECT statements at any stage. Only through function module/ BAPI/BADI/Class methods.
I found one function module T001W_READ, but i need to pass the plant for that.
Please suggest.
Thanks in advance.
kishore

Hi Kishore
Why can't you use any SELECTs? If it is so required why not writing your own FM to select them? You can pass your select-option via a generic parameter and assign it to a range at the beginning of your FM. Or you can assign it to a select-option-like table (you can find structure names of similar type from DDIC)
e.g.
TABLES t001w .
RANGES s_werks for t001w-werks .
DATA: BEGIN OF lt_werks ,
 werks LIKE t001w-werks ,
 END OF lt_werks .
s_werks[] = it_werks_so[] .
SELECT werks FROM t001w
 INTO lt_werks
 WHERE werks IN s_werks .
As another thing, let me introduce you the SDN Forums pointing system: You can assign points to posts which you find helpful while solving your problem. You can reward points by pressing the yellow star icon at header of each post. You can assign;
- one 10 points (solved)
- two 6 points (very helpful answer)
- many 2 points (helpful answer)
*--Serdar

Select options to internal table

i have selected some values in the range say 100 to 200 using select options....is there any way to get these values in an internal table?
also does select option work with alpha numeric values
eg : if i want to select between a100 and b200?

>
VR ARVIND wrote:
> i mean to say if i have 100 to 200.. i need 101 102 103 etc..continuosly till 200
Select-options are really only useful for selecting data that matches the select-options from some other dataset. They don "expand out" into a set of values.
If you are always specifying a range in the selection screen, use two parameters - p_low, p_high.
You then will need to build your itab entry by entry. So
l_count = p_low.
WHILE l_count LE p_high.
INSERT l_count INTO t_itab.
ADD 1 to l_count.
ENDWHILE.
For a100 to a200, you'd have to do some string slicing and concatenation to get the desired result.

Select options and internal table

Hi,
I have requirement for which I was coding...
On the selction screen, I have an object field... say I have multiple values like 101, 102, 103
select-options: s_3 for hrp1000-objid.
i_1001 type standard table of HRP1001 with header line
i_temp_1001 type standard table of HRP1001 occurs 0.
Need to create an hrp1001 record for these based on a template record available in hrp1001.
I need to read all the records of the template record (say 100) from hrp1001 and need to create the same set for the objects 101, 102 and 103. How to do that? ofcourse I need to replace the object id 100 with 101, 102 and so on for the complte set..
How can I accomplish without using nested loops.
tried something like this..
select * from HRP1001 into corresponding fields of i_1001 where otype = '51' and objid = '100' and endda = '99991231'.
if sy-subrc = 0.
    clear i_hrp1000-objid.
    append i_1001.
endselect.
loop at s_3.
   loop at i_1001.
    move-corresponding i_1001 to i_temp_1001.
endloop.
i_temp_1001-objid = s_brd3-low.
append i_temp_1001.
endloop..
Looking to avoid nested loops... Any thoughts?
Thanks,
VG

Moderator message -
When closing old threads, there is no need to add a comment. Adding a pasted answer like "Resolved myself " only brings old threads to the top of the forum list and pushes current ones down. If you do add a comment, please indicate just how the problem was resolved.
And please use code tags to format code.
Rob

How to get all values in the range of select option into internal table?

Hi,
I need to capture all entries coming in the range of select option into one internal table.
How to do get that?
For E.g
select-options: matnr for mara-matnr.(select option)
IF I enter G0100013507892 as lower value of matnr and G0100014873947 as higher value
and if there are 10,000 materials in the above range, then I want to capture all theses 10000 materails in one internal table. How to do that?
Regards,
Mrunal

Hello Mrunal Mhaskar ,
What i understand you can do one thing go in debug mode
Try this code : -
LOOP AT s_matnr_ex.
IF s_matnr_ex-low IS NOT INITIAL.
    i_matnr-matnr = s_matnr_ex-low.
    i_matnr-option = s_matnr_ex-option.
    APPEND i_matnr.
    CLEAR : i_matnr.
ENDIF.
ENDLOOP.
LOOP AT s_matnr_ex.
IF s_matnr_ex-high IS NOT INITIAL.
    i_matnr-matnr = s_matnr_ex-high.
    i_matnr-option = s_matnr_ex-option.
    APPEND i_matnr.
    CLEAR : i_matnr.
ENDIF.
ENDLOOP.
In the i_matnr table high and low values are there.
Regards,
Vandana.

Is there any other option for using internal table in badi

hi
i know we cannot use internal table in badi
but is der any other option
plz write in d codez too
with Regards
Rohan Shetty
Edited by: Rohan Shetty on May 6, 2008 2:14 PM

of course you can use internal table in BAdi, do like this.
data: itab type table of ....
data: wa type ...
Example:
data: itab type (standard, sorted, hashed) table of mara.
data: wa type mara.
Or create your own type within the badi.
types: begin of ty_xxx,
            fielda type c,
            fieldb type n,
            fieldc type d.
types: end   of ty_xxx
data: itab type table of ty_xxx.
data: wa type ty_xxx.
Edited by: Micky Oestreich on May 6, 2008 2:16 PM

Selecting records from DB table with out using internal tables

hi,
i need to retrieve values from a database table based on few fields and date as well. however, i need to check whether the date is less or equal to the current date and along with that i should get the appropriate record. how can i do that with out using internal table.
field1-----date---
11111----
20070219
11111--20070214 <---
11111----
20070205
in the above scenario i should get the second record
Regards,
Kranthi.

Try:
REPORT ztest MESSAGE-ID 00.
TABLES bkpf.
SELECT * FROM bkpf
UP TO 1 ROWS
WHERE budat <= sy-datum
ORDER BY budat DESCENDING.
ENDSELECT.
Rob

How will use Select-Options in Read table Concept.

Hi All,
 How will use Select-Options in Read table. For example,
 Select-Options : test for bseg-prctr.
 Select * from bseg into table ITAB.
Read table ITAB with key prctr in test.
Last line is showing error. If any way to read ITAB as conditions given per select options.
Thankx Advance,,,

HI,
you cannot use " IN " with read statement , read statement is used as:
READ TABLE it_collect ASSIGNING <fs_collect>
 WITH KEY rbpl = <fs_wkdet>-arbpl
 ufnr = <fs_wkdet>-aufnr.
anyways you can use loop at statement before read to use " into " statement as:
LOOP AT it_master INTO l_master
 WHERE werks = l_werks
hope it will help you
regards
rahul
Edited by: RAHUL SHARMA on Dec 30, 2008 9:14 AM

How to creat select-option on module pool screen???

Hi All,
please tell me how to creat select-option on module pool screen???
Regards
Deepak

Hi Deepak Kumar Sharma,
There are Two ways to achieve it...
1) How to create a select-options in a module pool screen.
Method 1
a) Create a subscreen area in your screen layout where you want to create the select options.
b) In the top include of your module pool program declare a selection screen as a subscreen e.g.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
select-options s_matnr for mara-matnr.
SELECTION-SCREEN END OF SCREEN.
c) In the PBO and PAI of the main screen where the select options needs to be created do a call subscreen of the above screen (100).
CALL SUBCREEN sub_area INCLUDING <program> <screen>
This call subscreen statement is necessary for transport of values between screen and program.
Note: All validations of the selection screen fields e.g. the s_matnr field created above should be done in selection screen events like AT SELECTION-SCREEN etc and not in PAI. These selection screen validations etc should be done in the top include only.
Method 2
a) Create 2 separate fields in your screen layout - one for the low value and one for the high value. Insert an icon beside the high value which will call the multiple selections popup screen on user command. Use function module COMPLEX_SELECTIONS_DIALOG to achieve this.
struc_tab_and_field-fieldname = con_cust. " 'KUNNR'
struc_tab_and_field-tablename = con_kna1. " 'KNA1'.
CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
EXPORTING
TITLE = ' '
text = g_titl1 " 'Customers'
tab_and_field = struc_tab_and_field
TABLES
RANGE = rng_kunnr
EXCEPTIONS
NO_RANGE_TAB = 1
CANCELLED = 2
INTERNAL_ERROR = 3
INVALID_FIELDNAME = 4
OTHERS = 5.
IF NOT rng_kunnr[] IS INITIAL.
Read the very first entry of the range table and pass it to
dynpro screen field
READ TABLE rng_kunnr INDEX 1.
IF sy-subrc = 0.
g_cust = rng_kunnr-low.
ENDIF.
You can use the return table rng_kunnr to populate your own internal range table with the values entered by the user. Basically here you are just simulating the work of a select-options parameter by module pool screen elements.
Also have a look on below threads
how to make select option in module pool
select option in module pool program
Hope it will solve your problem..
Thanks & Regards
ilesh 24x7

Select Options use in ALV Report in ABAP Webdynpro

Hello Experts,
I Already Done ALV Report In webdynpro with use of view Container UI element.But i do not know ALV report with help of select option.so
Kindly Give Me simple Example of Use in select Option In ALV.
Reply ASAP.
Regards,
Ameya Karadkhedkar

First you need to add the component WDR_SELECT_OPTIONS to the tab "Used components" of your Web Dynpro component and then also in the properties tab of your view. In the layout you need to create another view container and embed the view WND_SELECTION_SCREEN of the new used component to it.
Then in the WDDOINIT method of your view you can write this code (where SEL_OPT is the given name for the used component) in order to set the select option (This example is a select option for a date):
DATA: lo_cmp_usage TYPE REF TO if_wd_component_usage,
 lo_interfacecontroller TYPE REF TO iwci_wdr_select_options,
 lo_r_helper_class TYPE REF TO if_wd_select_options,
 rt_range_date TYPE REF TO data.
* Instantiate used component WDR_SELECT_OPTIONS (SEL_OPT)
lo_cmp_usage = wd_this->wd_cpuse_sel_opt( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
lo_cmp_usage->create_component( ).
ENDIF.
* Call method in used controller
lo_interfacecontroller = wd_this->wd_cpifc_sel_opt( ).
lo_r_helper_class = lo_interfacecontroller->init_selection_screen( ).
* Create select option for the date
CALL METHOD lo_r_helper_class->create_range_table
EXPORTING
 i_typename = 'DATS'
RECEIVING
 rt_range_table = rt_range_date.
CALL METHOD lo_r_helper_class->add_selection_field
EXPORTING
 i_id = 'DATS'
 it_result = rt_range_date
 i_read_only = ABAP_FALSE.
* Hide unnecessary buttons
CALL METHOD lo_r_helper_class->set_global_options
EXPORTING
 i_display_btn_cancel = abap_false
 i_display_btn_check = abap_false
 i_display_btn_reset = abap_false
 i_display_btn_execute = abap_false.
Finally you need to write the following code in the action of the button in order to fetch the range table selected by the user.
DATA: lo_cmp_usage TYPE REF TO if_wd_component_usage,
 lo_interfacecontroller TYPE REF TO iwci_wdr_select_options,
 lo_r_helper_class TYPE REF TO if_wd_select_options,
 rt_date TYPE REF TO data.
FIELD-SYMBOLS: <fs_date> TYPE table.
* Instantiate used component WDR_SELECT_OPTIONS (SEL_OPT)
lo_cmp_usage = wd_this->wd_cpuse_sel_opt( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
lo_cmp_usage->create_component( ).
ENDIF.
* Call method in used controller
lo_interfacecontroller = wd_this->wd_cpifc_sel_opt( ).
lo_r_helper_class = lo_interfacecontroller->init_selection_screen( ).
* get selected range of inspections date
CALL METHOD lo_r_helper_class->get_range_table_of_sel_field
EXPORTING
 i_id = 'DATS'
RECEIVING
 rt_range_table = rt_date.
ASSIGN rt_date->* TO <fs_date>.
Then you can use the value that is assigned to the field symbol <fs_date> to continue with your ALV.

How to create select-options for 3 fields out of 5 by FREE_SELECTIONS_INIT

Hi Experts,
I am using the Function Modules FREE_SELECTIONS_INIT and FREE_SELECTIONS_DIALOG to create the select-options dynamically on the selection screen.
My problem is that I am passing a field list of 10 fields in the FIELDS_TAB of the function.
Now it creates the select-options for all 10 fields. I want to create select-options for only 5 fields initially and let the user select out of the remaining 5 fields to create the select-options.
How to achieve this.?
I tried by passing the 5 fields in FIELDS_NOT_SELECTED table but they get hidden and once hidden I am not able to get them back in my field list.
Please help me out.
Useful answers will be suitably rewarded.
Thanks in advance.
Regards,
Himanshu

Hi Experts,
I am using the Function Modules FREE_SELECTIONS_INIT and FREE_SELECTIONS_DIALOG to create the select-options dynamically on the selection screen.
My problem is that I am passing a field list of 10 fields in the FIELDS_TAB of the function.
Now it creates the select-options for all 10 fields. I want to create select-options for only 5 fields initially and let the user select out of the remaining 5 fields to create the select-options.
How to achieve this.?
I tried by passing the 5 fields in FIELDS_NOT_SELECTED table but they get hidden and once hidden I am not able to get them back in my field list.
Please help me out.
Useful answers will be suitably rewarded.
Thanks in advance.
Regards,
Himanshu

Dynamic select-options using parameter

Hi experts,
It the user selects one value from dropdown list, it should generate one select-option using that name. Is it possible?
for example, (pls see my code).
If user selects 'Malek' from parameter, and press 'ENTER'
select-option should display with that name like
Malek malek-low malek-high
And if user selects some other like 'Amran'. It should generate(and append)
Malek malek-low malek-high
amran amran-low amran-high
and so on....
report c.
data: t_return like ddshretval occurs 0 with header line.
data: begin of t_names occurs 0,
 name like usr01-bname,
 end of t_names.
parameters : i_inspec like usr01-bname.
at selection-screen on value-request for i_inspec.
perform get_names.
form get_names.
t_names-name = 'Malek'.
append t_names.
t_names-name = 'Amran'.
append t_names.
t_names-name = 'Ow CC'.
append t_names.
t_names-name = 'titbit'.
append t_names.
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
 retfield = 'T_NAMES-NAME'
 dynpprog = sy-cprog
 dynpnr = sy-dynnr
 dynprofield = 'I_INSPEC'
 value_org = 'S'
 tables
 value_tab = t_names.
if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno with
 sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
read table t_return index 1.
endform. "GET_NAMES
Reward guaranteed,
thanks
kaki

Use At selection-screen output,use screen internal table..
User Dynamic Selection
at selection-screen output.
select single * from t000md.
loop at screen.
 case screen-group1.
 when 'REL'.
 if not p_old is initial.
 screen-input = '0'.
 screen-required = '0'.
 screen-invisible = '1'.
 endif.
 modify screen.
 when 'BEL'.
 if not p_new is initial.
 screen-input = '0'.
 screen-required = '0'.
 screen-invisible = '1'.
 endif.
 modify screen.
 when 'ARB'.
 if p_new is initial.
 screen-input = '0'.
 screen-required = '0'.
 screen-invisible = '1'.
 endif.
 modify screen.
 when 'MTA'.
 if p_new is initial.
 screen-input = '0'.
 screen-required = '0'.
 screen-invisible = '1'.
 endif.
 modify screen.
 endcase.
endloop.

Abap Logic for performance tuning not working when using Internal tables

Hi,
I wrote this piece of code that is working correctly that is select SUM of cost from DSO where Plant is the same for Sales Items.
LOOP AT RESULT_PACKAGE INTO rp.
SELECT SUM( /N/S_STRDCOST ) FROM /N/ADSP_DPIT00 INTO
rp-/N/S_STRDCOST
WHERE /N42/S_SALESITEM = rp-/N42/S_ITEMID AND /N42/S_PLPLANT EQ
rp-/N42/S_SOURCE.
MODIFY RESULT_PACKAGE FROM rp.
Clear rp.
ENDLOOP.
Now I try to rewrite it for performance tunning using internal table but I am getting 0 values. can't figure out whats the problem and been struggling fixing it.
TYPES : begin of ty_DSO_TABLE,
 /N42/S_STRDCOST TYPE /N/ADSP_DSPC00-/N/S_STRDCOST,
 /N42/S_ITEMID TYPE /N/ADSP_DSPC00-/N/S_ITEMID,
 end of ty_DSO_TABLE.
DATA: it_DSO_TABLE type hashed table of ty_DSO_TABLE with unique key
/N/S_ITEMID,
 wa_DSO_TABLE type ty_DSO_TABLE.
Field-symbols: <rp> TYPE tys_TG_1.
LOOP AT RESULT_PACKAGE assigning <rp>.
clear wa_DSO_TABLE.
Read table IT_DSO_TABLE into wa_DSO_TABLE with table key /N/S_ITEMID
= <rp>-/N/S_ITEMID.
if sy-subrc ne 0.
 select SUM( /N/S_STRDCOST ) into CORRESPONDING
 FIELDS OF wa_DSO_TABLE from
 /N/ADSP_DPIT00 WHERE /N/S_SALESITEM = <rp>-/N/S_ITEMID AND
 /N/S_PLPLANT EQ <rp>-/N/S_SOURCE.
 if sy-subrc eq 0.
 <rp>-/N/S_STRDCOST = wa_DSO_TABLE-/N/S_STRDCOST.
 endif.
endif.
ENDLOOP.
Any idea whats wrong with the code
thanks

Hi Vaidya,
According to the code which you have written, there is no value in table IT_DSO_TABLE when you are trying to read the values.And after the read statement you have given a condition for sy-subrc. Hence the select statement is actually not even getting executed. *Also you have not assigned the final value back to the ResultPackage.*_
So Kindly correct your code as follows:
Data: wa_dso type ty_DSO_TABLE.
LOOP AT RESULT_PACKAGE assigning <rp>.
clear wa_DSO_TABLE.
select SUM( /N/S_STRDCOST ) into CORRESPONDING
FIELDS OF wa_DSO_TABLE from
/N/ADSP_DPIT00 WHERE /N/S_SALESITEM = <rp>-/N/S_ITEMID AND
/N/S_PLPLANT EQ <rp>-/N/S_SOURCE.
if sy-subrc eq 0.
<rp>-/N/S_STRDCOST = wa_DSO_TABLE-/N/S_STRDCOST.
MODIFY RESULT_PACKAGE FROM <rp>.
endif.
ENDLOOP.
Hope this helps you.
Regards,
Satyam

Create select-options using internal table

Similar Messages

Maybe you are looking for