Select -options (fields as mandatory) and alv

Hi all,
i have 5 fields in select options and alv table , based on selection criteria values will display in alv table. now i want to make 2 fields as mandatory in select-options. without entering values in those two fields it should not allow the values to display iin alv table , it should rise a message..
(i have not created node for select-options ,i have directly used data type in wddoinit for select-options and for alv table i have created node)
thanks all

Hi,
In wddoinit while creating select options by ADD_SELECTION_FIELD method ,it has a parameter called I_OBLIGATORY. Set it as X and thus the field becomes mandatory.
Regards
Karthiheyan M

Similar Messages

How to set focus and mark red on certain select option field

hi experts
I embedded a select_option view in my application and tried to use IF_WD_SELECT_OPTIONS->request_focus to set focus on a certain select option field if the logical check failed, and also hope the low field of the select option can be marked red....but things does not happen that way....
could anyone kindly tell me how to implement that requirement?
tkx and regards
sun

What is the problem you are facing in this ?
Requesting focus is easy.
just call the method request focus and pass the id of the parameter whose lower value field you want to focus.
as shown below.
code you might have written in wddoinit
DATA: LT_RANGE_TABLE TYPE REF TO DATA,
        RT_RANGE_TABLE TYPE REF TO DATA,
        READ_ONLY TYPE ABAP_BOOL,
        TYPENAME TYPE STRING.
    DATA: LR_COMPONENTCONTROLLER TYPE REF TO IG_COMPONENTCONTROLLER,
        L_REF_CMP_USAGE TYPE REF TO IF_WD_COMPONENT_USAGE.
*   * create the used component
L_REF_CMP_USAGE = WD_THIS->WD_CPUSE_SELECT_OPTIONS( ).
IF L_REF_CMP_USAGE->HAS_ACTIVE_COMPONENT( ) IS INITIAL.
    L_REF_CMP_USAGE->CREATE_COMPONENT( ).
ENDIF.
    WD_THIS->M_WD_SELECT_OPTIONS = WD_THIS->WD_CPIFC_SELECT_OPTIONS( ).
    WD_THIS->M_HANDLER = WD_THIS->M_WD_SELECT_OPTIONS->INIT_SELECTION_SCREEN( ).
LT_RANGE_TABLE = WD_THIS->M_HANDLER->CREATE_RANGE_TABLE( I_TYPENAME = 'ZDEALERID' ).
* * add a new field to the selection
WD_THIS->M_HANDLER->ADD_SELECTION_FIELD( I_ID = 'ID'
IT_RESULT = LT_RANGE_TABLE I_READ_ONLY = READ_ONLY ).
code for focusing a field.
wd_this->m_handler->request_focus( i_id = 'ID' ).
you must have declared attributes m_handler and m_wd_select_options type reffering to IF_WD_SELECT_OPTIONS and
IWCI_WDR_SELECT_OPTIONS respectively.
and regarding that red color i am not sure it is possible without using message manager.
thanks
sarbjeet

Initializu00EDng select options field with default values and with NO INTERVALS

Dear All,
I have used WDR_SELECT_OPTIONS technology within WD Abap.
I also have added the fields which have to be taken into consideration.
lt_range_table =
wd_this->m_handler->create_range_table(
i_typename = 'PLANT' ).
wd_this->m_handler->add_selection_field(
i_id = 'PLANT'
it_result = lt_range_table
i_read_only = read_only ).
Can I assign two values to this field 'PLANT' whereby the user may take only these values.
I mean kind of pre initializíng of this select options field with default values.
Due to this handling it should be prevented that the user can give other values
except this values.
Additonally it should be fine whether it is possible to disable the second input field
of this select options field like NO INTERVALS .
Regard
sas
Regard
sas

wd_this->m_handler->add_selection_field(
i_id = 'PLANT'
it_result = lt_range_table
I_NO_INTERVALS = 'X'
i_read_only = read_only ).
Pls check 'WDR_TEST_SELECT_OPTIONS' web dynpro component

Call Transaction and fill a select-options field with more than one value?

Hello everybody,
how can I fill a select-options field with more than one value.
Here is the code example:
CLEAR: GT_BDCDATA, GS_BDCDATA.
GS_BDCDATA-program = 'RHALEINI'.
GS_BDCDATA-DYNPRO = '1000'.
GS_BDCDATA-DYNBEGIN = 'X'.
APPEND GS_BDCDATA TO GT_BDCDATA.
CLEAR: GS_BDCDATA.
GS_BDCDATA-FNAM = 'PCHOTYPE'.
GS_BDCDATA-FVAL = 'P'.
APPEND GS_BDCDATA TO GT_BDCDATA.
CLEAR: GS_BDCDATA.
LOOP AT gt_hrobjinfty INTO gs_hrobjinfty.
    GS_BDCDATA-FNAM = 'PCHOBJID-LOW'.
    GS_BDCDATA-FVAL = gs_hrobjinfty-objid.
    APPEND GS_BDCDATA TO GT_BDCDATA.
    CLEAR: GS_BDCDATA.
ENDLOOP.
CALL TRANSACTION 'PFAL' USING GT_BDCDATA MODE 'A'
                   MESSAGES INTO GT_MESSAGES.
THX.

Hi,
Please refer the code below:
*Code used to populate 'select-options' & execute report
DATA: seltab type table of rsparams,
      seltab_wa like line of seltab.
seltab_wa-selname = 'PNPPERNR'.
seltab_wa-sign    = 'I'.
seltab_wa-option = 'EQ'.
* load each personnel number accessed from the structure into
* parameters to be used in the report
loop at pnppernr.
    seltab_wa-low = pnppernr-low.
    append seltab_wa to seltab.
endloop.
SUBMIT zreport with selection-table seltab
                                via selection-screen.
Thanks,
Sriram Ponna.

Select option-high as mandatory

Hi,
I have a requirement where both low and high field of select -option should be mandatory.
Code i have written is :
s_vendor for lfa1-lifnr obligatory.
But only the low field is made obligatory.How to make high field as oblogatory too?
Thanks

hi,
use the following code....
tables : sscrfields.
select-options : s_vendor for lfa1-lifnr.
at selection-screen output.
loop at screen.
    if screen-name CS 'S_VENDOR'.
      screen-required = 'X'.
      modify screen.
    endif.
endloop.
at selection-screen.
if sscrfield-ucomm = 'ONLI'.
    if s_vendor-low is initial or s_vendor-high is initial.
      clear sscrfields.
      message 'Fill in all required fields' type 'E'.
    endif.
endif
Regards,
Siddarth

How to hide the select-options fields on radiobutton select in webdynpro

hi
Could you please help how to hide the select-option fields in webdynpro
there are four radio buttons
for every radiobutton there is corresponding the select_option filed is associated to it
user as only provision select one radio button and reset of the select-option fileds should be hidden
which ever the radio button is selected corresponding the select-options fileld should be displayed
please find the attachement below

Hi Nine,
To hide select options you should use interface method REMOVE_SELECTION_SCREEN_ITEM of IF_WD_SELECT_OPTIONS.
Sample code :
Write the below code in the Event handler of Radio Button.
DATA lv_r_helper_class TYPE REF TO if_wd_select_options.
lv_r_helper_class = lo_interfacecontroller->init_selection_screen(
lv_r_helper_Class->REMOVE_SELECTION_SCREEN_ITEM(exporting i_id = 'Select_option1_id1').
This will hide first select option of your screen.Similarly pass select_option_id2 to hide it and so on.
Regards,
Ravikiran.k

Default Current year in select option field on selection Screen

Dear Experts,
I want to set current year as default value in fiscal year select-options field on selection screen.
for this, i hv written following code
DATA:VAR_DATE TYPE SY-DATUM.
DATA VAR(4) TYPE C.
VAR_DATE = SY-DATUM.
VAR = VAR_DATE+0(4).
this retrieves current year .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS I11 FOR ANLC-GJAHR DEFAULT VAR TO VAR..                            "Fiscal Year
SELECTION-SCREEN END OF BLOCK B1.
Now when i am executing program pop-up is raised describing "Specify the range Limits". Please help.
Regards,
Apoorv Sharma

>
Ganga Bhavani R wrote:
> Use below lines.
>
> SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
> SELECT-OPTIONS I11 FOR ANLC-GJAHR DEFAULT SY-DATUM+0(4). "Fiscal Year
> SELECTION-SCREEN END OF BLOCK B1.
Hi, Ganga,
I think it will not working properly that way, Please test the bellow Sample Code.
TABLES: anlc.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS i11 FOR anlc-gjahr .
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
IF i11[] IS INITIAL.
    i11-low = sy-datum+0(4).
    APPEND i11.
ENDIF.
Thanks and Regards,
Faisal

Disable the Select-options field in the viewcontainer

Hi,
I have two select option fields(Date,Number) in a viewcontainer .
Now i need to disable one of the select-option field(Date) in the view container based on the condition.If I give Enability for the view container then both the select options will get diasbled.Is there any way to disable only Date select-option field in the view container.
Thanks in Advance.
Regards,
bala.

Hi,
I just tested this solution and it is working for me....Following on Thomas's suggestion...I did the following....
I just had one select-option on my scr...but it can be done with two too...
step1:
created three attributes at component level under the attribute tab ( as suggested by Thomas )
ENABLE_PRI_SELECTOPTION type WDY_BOOLEAN
M_HANDLER type ref to     IF_WD_SELECT_OPTIONS
M_WD_SELECT_OPTIONS type ref to     IWCI_WDR_SELECT_OPTIONS
Note: all are with public check box checked....so that all your views can see these attributes
I created a method at componenet controller leverl: create_select_option....in this method i have following code:
DATA:
lt_range_table TYPE REF TO data,
* rt_range_table TYPE REF TO data,
read_only TYPE abap_bool,
typename TYPE string.
DATA:
lr_componentcontroller TYPE REF TO ig_componentcontroller,
l_ref_cmp_usage TYPE REF TO if_wd_component_usage.
* create the used component
l_ref_cmp_usage = wd_this->wd_cpuse_select_options( ).
IF l_ref_cmp_usage->has_active_component( ) IS INITIAL.
    l_ref_cmp_usage->create_component( ).
ENDIF.
* get a pointer to the interface controller of the select options
*component
wd_this->m_wd_select_options = wd_this->wd_cpifc_select_options( ).
* init the select screen
wd_this->m_handler = wd_this->m_wd_select_options->init_selection_screen( ).
* create a range table that consists of this new data element
lt_range_table = wd_this->m_handler->create_range_table(
i_typename = 'PERSNO' ).
* add a new field to the selection
wd_this->m_handler->add_selection_field(
i_id = 'PERSNO'
I_VALUE_HELP_TYPE = if_wd_value_help_handler=>CO_PREFIX_SEARCHHELP
I_VALUE_HELP_ID = 'ZHELP_WDA_PERNR'
I_NO_INTERVALS = abap_true
it_result = lt_range_table
i_read_only = wd_this->ENABLE_PRI_SELECTOPTION ).   <-----pls see here how i am controlling the read only property
I assume you know this much...already....but i am just putting everything down....
step2:
in my view where i want to display the select-options....i added this code under my wddoinit method
DATA lo_componentcontroller TYPE REF TO ig_componentcontroller .
lo_componentcontroller =   wd_this->get_componentcontroller_ctr( ).
lo_componentcontroller->ENABLE_PRI_SELECTOPTION = abap_false.    <--pls see initially we want this field to be open
lo_componentcontroller->create_select_option(
step3:
i did not have much logic to control the select option field so i added a button which if user presses the field become disable...
under that button action method i added the following code:
DATA lo_componentcontroller TYPE REF TO ig_componentcontroller .
lo_componentcontroller =   wd_this->get_componentcontroller_ctr( ).
lo_componentcontroller->ENABLE_PRI_SELECTOPTION = abap_true.
   "<---pls see here how i am changing the global *attribute which Thomas has suggested for controlling the "read only" attibute for the select-option field....you can put this under *your "if" statement....
"this step is very important if you do not remove the field you will get the dump...since it will try to add the same field again
"which produces dump from system....
lo_componentcontroller->m_handler->REMOVE_SELECTION_SCREEN_ITEM(
i_id = 'PERSNO' ).
"now call the same method which we created at component level to create the select_options...
lo_componentcontroller->create_select_option(
that is all....it works great for me.....let us know if still have any questions....
Thanks...
AS...

How can i used pai in screen 1000 to change the select-options field?

hi,all.
I want used pai to change the select-options field,but it can't works.
the mainly code is:
REPORT ZTEST99.
TABLES :MARA,MAKT,MARC.
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE TITLE0 .
select-options:s_matnr for mara-matnr,
               s_werks for marc-werks MODIF ID ID1.
SELECTION-SCREEN END OF BLOCK B0.
parameters:p_flag as checkbox.
at selection-screen OUTPUT.
   LOOP AT SCREEN.
   IF P_FLAG = 'X' .
   IF screen-group1 = 'ID1'.
         screen-input = '0'.
    ELSE.
      screen-input = '1'.
    ENDIF.
    MODIFY SCREEN.
ENDIF.
    ENDLOOP.
START-OF-SELECTION.
CALL SCREEN 1000.
when i click p_flag,then i want to change s_werks from OBLIGATORY to no OBLIGATORY.
how can i realized?
Thanks for all.
Sun

Hi ,
change your code like this.
Change in your code:
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECT-OPTIONS : s_matnr for mara-matnr,
s_werks for marc-werks MODIF ID ID1.
SELECTION-SCREEN END OF SCREEN 100 .
At selection-screen.
if sy-dynnr = '100'.
IF P_FLAG = 'X' .
LOOP AT SCREEN.
IF screen-group1 = 'ID1'.
screen-required = '0'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
else.
LOOP AT SCREEN.
IF screen-group1 = 'ID1'.
screen-required = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
my code :
REPORT Z50871_SELECTOPS_DYNAMIC.
PARAMETERS : CH_EBELN AS CHECKBOX,
             CH_VBELN AS CHECKBOX.
DATA: V_EBELN TYPE EKKO-EBELN,
      V_VBELN TYPE VBAK-VBELN.
SELECTION-SCREEN BEGIN OF SCREEN 100.
SELECT-OPTIONS : EBELN FOR V_EBELN MODIF ID G1,
                 VBELN FOR V_VBELN MODIF ID G2.
SELECTION-SCREEN END OF SCREEN 100 .
AT SELECTION-SCREEN OUTPUT.
IF SY-DYNNR = 100.
    IF CH_EBELN = 'X' AND
       CH_VBELN = ''.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'G1'.
          SCREEN-ACTIVE = '1'.
        ELSE.
          SCREEN-ACTIVE = '0'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ELSEIF CH_VBELN = 'X' AND
       CH_EBELN = '' .
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'G2'.
          SCREEN-ACTIVE = '1'.
        ELSE.
          SCREEN-ACTIVE = '0'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ELSEIF CH_EBELN = 'X' AND CH_VBELN = 'X'.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 EQ 'G1'
           OR SCREEN-GROUP1 EQ 'G2' .
          SCREEN-ACTIVE = '1'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ENDIF.
ENDIF.
AT SELECTION-SCREEN.
IF SY-DYNNR = 1000.
IF CH_EBELN = 'X' OR CH_VBELN = 'X'.
    CALL SELECTION-SCREEN 100.
ELSE.
    MESSAGE I000(Z50871MSG) WITH 'Please select atleast one checkbox'.
ENDIF.
ENDIF.
regards
Sandeep Reddy

Is there a command for setting the selection option to be mandatory

hi,
i have a 4 select-option in my program, and i would set that, either one select option must be fill to execute the program. which mean, at least one field ( any select option) have to be enter, or else it will not run. is there a command to restrict on this?
please help. thanks

Check this sample
TABLES : vbap.
SELECT-OPTIONS : so_vbeln FOR vbap-vbeln,
                 so_posnr FOR vbap-posnr.
AT SELECTION-SCREEN.
IF NOT so_vbeln[] IS INITIAL OR
     NOT so_posnr[] IS INITIAL.
ELSE.
    MESSAGE e000(ztest_gopi) WITH 'Atleast one shd be filled'.
ENDIF.
" OR You can do it this way also
TABLES : vbap.
SELECT-OPTIONS : so_vbeln FOR vbap-vbeln,
                 so_posnr FOR vbap-posnr.
AT SELECTION-SCREEN.
IF so_vbeln[] IS INITIAL AND
     so_posnr[] IS INITIAL.
    MESSAGE e000(ztest_gopi) WITH 'Atleast one shd be filled'.
ENDIF.
Regards
Gopi

Select options fields at FuBa

How can I define select options fields as import paramter at Function Modules ?
Because I intend to pass select options fields to a FM in order to implement the below shown
code .
FUNCTION xyz
importing
ID
DESCRIPTION
CHANGING
   REFERENCE(ZSC_INFO) TYPE SC_INFO
select * from SC_INFO into corresponding fields of table ZSC_INFO
where
ID                       in    so_id      and
DESCRIPTION    in    so_des      and
ENDFUNCTION

Hi,
The question is not completely clear to me but if you want to use the value of the select option and use it as an import parameter in a function module then some tips can be:
1. The value of the select option can be singles values or a range. Need to pick up the right values.
2. The import parameter and the variable you want to use must be of the same type.
DATA: tp_id TYPE <data type from the import parameter of the FM TEST>.
tp_id = so_vkorg-low "select option vkorg, you can use so_vkorg-high also for single values
CALL FM 'TEST'
IMPORT
    ID = tp_id
EXPORT
    DESCRIPTION = tp_description.
I hope that this is what you are looking for.
Best regards,
Guido Koopmann

Select Options field width?

Hello,
In my WD view i have many Select Options fields which are grouped into various blocks. Now when i see the output all the Select Option fields within its block look good with equal widths between the text and field, but between various block levels the width isn't the same. Is there anyway i can control the width for Select Option field elements? Thanks.
Regards,
Vasu

Hi Vasu.
AFAIK you do not have any chance to configure the layout of the select options.
You can only use blocks as you already did.
So why you do not use blocks for all your select options to avaoid this issue?
Cheers,
Sascha

Select options field is giving type conflict when calling a class.

hai guys,
i have a field SALESORD in subscreen as a SELECT-OPTIONS field for vbeln.
Now i created a class,with SALESDETAILS of type TABLE as a parameter of a method.
when i call the method(after creating an object) the SALESDETAILS parameter is supposed to take the SALESORD field.
but it gives me a type conflict error.
i wonder why..coz both fileds have same type..
how to resolve the issue..
helpful answers will be rewarded.
thank you.

Hi Shravan,
Pass the select-options vbeln values into a temporary table and pass this table into the method.
<b>Reward for helpful answers</b>
Satish

How to validate a select-option field on the selection- screen

Hi,
   I need to validate a selection-option field in the selection-screen.
Requirement is : i need to read each of customer number one by one and validateCan you please me in achieving this.
Best Regards
Mamatha.B

hi,
chk this sample code.
SELECT-OPTIONS : s_kunnr for kna1-kunnr.
AT SELECTION-SCREEN.
     if 'S_KUNNR-HIGH' = "condition
    "put your required validation here
     endif.
rgds
Anver
Message was edited by:
        Anversha s

Disable select options field

Hi,,
I need to disable one of the select option field s_date in my selection screen.
I need to it to have the values that are populated in the initialization event and disable it for further entries.
Can someone please let me know how to do this.
Thanks in advance.

Use the following FM for that purpose:
SELECT_OPTIONS_RESTRICT
Refer the code:
* Include type pool SSCR
TYPE-POOLS SSCR.
* Define the object to be passed to the RESTRICTION parameter
DATA RESTRICT TYPE SSCR_RESTRICT.
* Auxiliary objects for filling RESTRICT
DATA OPT_LIST TYPE SSCR_OPT_LIST.
DATA ***      TYPE SSCR_***.
* Define the selection screen objects
* First block: 3 SELECT-OPTIONS
SELECTION-SCREEN BEGIN OF BLOCK BLOCK_0 WITH FRAME TITLE TEXT-BL0.
SELECT-OPTIONS SEL_0_0 FOR SY-TVAR0.
SELECT-OPTIONS SEL_0_1 FOR SY-TVAR1.
SELECT-OPTIONS SEL_0_2 FOR SY-TVAR2.
SELECT-OPTIONS SEL_0_3 FOR SY-TVAR3.
SELECTION-SCREEN END   OF BLOCK BLOCK_0.
* Second block: 2 SELECT-OPTIONS
SELECTION-SCREEN BEGIN OF BLOCK BLOCK_1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS SEL_1_0 FOR SY-SUBRC.
SELECT-OPTIONS SEL_1_1 FOR SY-REPID.
SELECTION-SCREEN END   OF BLOCK BLOCK_1.
INITIALIZATION.
* Define the option list
* ALL: All options allowed
MOVE 'ALL'        TO OPT_LIST-NAME.
MOVE 'X' TO: OPT_LIST-OPTIONS-BT,
               OPT_LIST-OPTIONS-CP,
               OPT_LIST-OPTIONS-EQ,
               OPT_LIST-OPTIONS-GE,
               OPT_LIST-OPTIONS-GT,
               OPT_LIST-OPTIONS-LE,
               OPT_LIST-OPTIONS-LT,
               OPT_LIST-OPTIONS-NB,
               OPT_LIST-OPTIONS-NE,
               OPT_LIST-OPTIONS-NP.
APPEND OPT_LIST TO RESTRICT-OPT_LIST_TAB.
* NOPATTERN: CP and NP not allowed
CLEAR OPT_LIST.
MOVE 'NOPATTERN' TO OPT_LIST-NAME.
MOVE 'X' TO: OPT_LIST-OPTIONS-BT,
               OPT_LIST-OPTIONS-EQ,
               OPT_LIST-OPTIONS-GE,
               OPT_LIST-OPTIONS-GT,
               OPT_LIST-OPTIONS-LE,
               OPT_LIST-OPTIONS-LT,
               OPT_LIST-OPTIONS-NB,
               OPT_LIST-OPTIONS-NE.
APPEND OPT_LIST TO RESTRICT-OPT_LIST_TAB.
* NOINTERVLS: BT and NB not allowed
CLEAR OPT_LIST.
MOVE 'NOINTERVLS' TO OPT_LIST-NAME.
MOVE 'X' TO: OPT_LIST-OPTIONS-CP,
               OPT_LIST-OPTIONS-EQ,
               OPT_LIST-OPTIONS-GE,
               OPT_LIST-OPTIONS-GT,
               OPT_LIST-OPTIONS-LE,
               OPT_LIST-OPTIONS-LT,
               OPT_LIST-OPTIONS-NE,
               OPT_LIST-OPTIONS-NP.
APPEND OPT_LIST TO RESTRICT-OPT_LIST_TAB.
* EQ_AND_CP: only EQ and CP allowed
CLEAR OPT_LIST.
MOVE 'EQ_AND_CP' TO OPT_LIST-NAME.
MOVE 'X' TO: OPT_LIST-OPTIONS-CP,
               OPT_LIST-OPTIONS-EQ.
APPEND OPT_LIST TO RESTRICT-OPT_LIST_TAB.
* JUST_EQ: Only EQ allowed
CLEAR OPT_LIST.
MOVE 'JUST_EQ' TO OPT_LIST-NAME.
MOVE 'X' TO OPT_LIST-OPTIONS-EQ.
APPEND OPT_LIST TO RESTRICT-OPT_LIST_TAB.
* Assign selection screen objects to option list and sign
* KIND = 'A': applies to all SELECT-OPTIONS
MOVE: 'A'          TO ***-KIND,
        '*'          TO ***-SG_MAIN,
        'NOPATTERN' TO ***-OP_MAIN,
        'NOINTERVLS' TO ***-OP_ADDY.
APPEND *** TO RESTRICT-***_TAB.
* KIND = 'B': applies to all SELECT-OPTIONS in block BLOCK_0,
*             that is, SEL_0_0, SEL_0_1, SEL_0_2
CLEAR ***.
MOVE: 'B'          TO ***-KIND,
        'BLOCK_0'    TO ***-NAME,
        'I'          TO ***-SG_MAIN,
        '*'          TO ***-SG_ADDY,
        'NOINTERVLS' TO ***-OP_MAIN.
APPEND *** TO RESTRICT-***_TAB.
* KIND = 'S': applies to SELECT-OPTION SEL-0-2
CLEAR ***.
MOVE: 'S'          TO ***-KIND,
        'SEL_0_2'    TO ***-NAME,
        'I'          TO ***-SG_MAIN,
        '*'          TO ***-SG_ADDY,
        'EQ_AND_CP' TO ***-OP_MAIN,
        'ALL'        TO ***-OP_ADDY.
APPEND *** TO RESTRICT-***_TAB.
* KIND = 'S': Applies to SELECT-OPTION SEL_0_3
CLEAR ***.
MOVE: 'S'        TO ***-KIND,
        'SEL_0_3' TO ***-NAME,
        'I'        TO ***-SG_MAIN,
        'N'        TO ***-SG_ADDY,
        'JUST_EQ' TO ***-OP_MAIN.
APPEND *** TO RESTRICT-***_TAB.
* Call function module
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
       EXPORTING
             RESTRICTION                = RESTRICT
*           DB                          = ' '
       EXCEPTIONS
             TOO_LATE                   = 1
             REPEATED                   = 2
             NOT_DURING_SUBMIT          = 3
            DB_CALL_AFTER_REPORT_CALL = 4
            SELOPT_WITHOUT_OPTIONS     = 5
             SELOPT_WITHOUT_SIGNS       = 6
             INVALID_SIGN               = 7
            REPORT_CALL_AFTER_DB_ERROR = 8
              EMPTY_OPTION_LIST          = 9
             INVALID_KIND               = 10
             REPEATED_KIND_A            = 11
             OTHERS                     = 12.
* Exception handling
IF SY-SUBRC NE 0.
ENDIF.

Select -options (fields as mandatory) and alv

Similar Messages

Maybe you are looking for