Dynamic selectionof selection-screen

parameters table1.
parameters input.
i have enter dynamic text into table1
like table1 = vbak.
i like to see instead of input as table1(i.e vbak) on selection-screen
when user dynamically gives value of table1
help me plz

Message was edited by:
shravan ramidi

Hi Shravan
declare like this
PARAMETERS : COMPANY LIKE BSEG-BUKRS.
or you can declare like this
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 25(23) text-002.
SELECT-OPTIONS: S_ebelp FOR eKPO-ebelp.
PARAMETERS:p_lifnr LIKE ekko-lifnr .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
and on the editor goto Text elements then goto change mode and there goto selection texts there u declare your name which you want to display outside for user
Reward all helpfull answers
Regards
Pavan

Similar Messages

Dynamic variables: SELECTION-SCREEN PUSHBUTTON

hi, how I can create 100 buttons on a cycle so dynamic?
example:
SELECTION-SCREEN BEGIN OF LINE.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-001    USER-COMMAND but1.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-002    USER-COMMAND but2.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-003    USER-COMMAND but3.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-004    USER-COMMAND but4.
SELECTION-SCREEN END OF LINE.
.....must be dynamic and they can be 100 and just 10
thanks in advance.
goudden.

It gives you an error cause the macro is wrong. Try like this:
define create_line.
SELECTION-SCREEN BEGIN OF LINE.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-&1    USER-COMMAND b&1.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-&2    USER-COMMAND b&2.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-&3    USER-COMMAND b&3.
   SELECTION-SCREEN PUSHBUTTON (4) TEXT-&4    USER-COMMAND b&4.
SELECTION-SCREEN END OF LINE.
end-of-definition.
selection-screen begin of block b01.
     create_line: 001 002 003 004, 005 006 007 008.
selection-screen end of block b01.

How to create check boxes dynamically in selection screen

Hi Experts,
I have a requirement of creating dynamic check boxes based on the number of records that are retrieved from a database table.
Can you please suggest me how to achieve it.
Regards
RP.

Hey RP,
Try this way.
REPORT ztest_program .
DATA: it_data TYPE TABLE OF t001.
DATA:check    TYPE char3.
DATA:sy_index TYPE char2.
DEFINE checkbox.
parameters:&1 as checkbox.
END-OF-DEFINITION.
CHECKbox:c01,c02,c03,c04,c05,c06,c07,c08,c09,c10,
         c11,c12,c13,c14,c15,c16,c17,c18,c19,c20,
         c21,c22,c23,c24,c25,c26,c27,c28,c29,c30,
         c31,c32,c33,c34,c35,c36,c37,c38,c39,c40.
AT SELECTION-SCREEN OUTPUT.
DESCRIBE TABLE it_data LINES sy-tfill.
sy-tfill = 39. "This will be changed based on the itab records. I just hardcoded the value
sy_index = 1.
LOOP AT SCREEN.
    CONCATENATE 'C' sy_index INTO check.
    IF screen-name = check.
      IF sy_index GT sy-tfill.
        screen-active = '0'.
        MODIFY SCREEN.
        sy_index = sy_index + 1.
        CONTINUE.
      ENDIF.
      sy_index = sy_index + 1.
    ENDIF.
ENDLOOP.
Thanks
Venkat.O

Dynamically calling selection screen in loop

Hi all
Please help me to solve this problem.I need to call a selection screen(like a dialog screen) containing 2 fields depending on the loop counter in a program.
Thank You.
Regards
Giri.

Hi
I will explain indetail.I am displaying a SAPSCIPT throup program.Before displaying it I have to choose groupvalues or individual value.If it is individual then i don't have any problem because I have to display the dialog box which accepts details and current status values of that particular individual only once.But I don't know how to display dailog box which accepts these 2 values dynamically without knowing the number before for groupvalues.Because the group which we select may have 3,4 or any other number of individual values.Please help me.
Thank You.
Regards
Giri.

Dynamically calling selection screens with obligatory

TABLES :
******selection-screen: begin of block bal with frame title txt3.
******parameters: RB1 radiobutton group rd1 user-command abc default 'X'.
******parameters: RB2 radiobutton group rd1.
******selection-screen: end of block bal.
******selection-screen: begin of block B1 with frame title txt1.
******SELECT-OPTIONS : s_cust FOR KNA1-kunnr OBLIGATORY MODIF ID r1.
******SELECT-OPTIONS : s_plant FOR plko-werks OBLIGATORY MODIF ID r1 .
******selection-screen: end of block val.
******selection-screen: begin of block upd with frame title txt2.
******SELECT-OPTIONS: s_vend FOR lfa1-lifnr OBLIGATORY modif id r2.
******SELECT-OPTIONS: s_plan FOR plko-werks OBLIGATORY modif id r2.
******selection-screen: end of block upd.
Here i need to call these two selection screens dynamically depends on radio buttion selection.
But
Problem is a arising when when both are obligatory in selection screen ( with out obligatory , it is working fine)
I need to call screens dynamically, ecen though we have obligatory
Let me know procedure , the possibility of same funcationality in tabstips & selection screen.
Madhu

Hi Madhu,
You have to write code in AT SELECTION-SCREEN OUTPUT event.
First of all remove obligatory from select-options declaration. Do it dynamically in AT SELECTION-SCREEN OUTPUT event.
You enable or disable the block depending upon the rediobutton selected. Then in the venet AT SELECTION-SCREEN ON field, you can check whethere user has entered data into that field or not depending upon the radiobutton selected.
TABLES : kna1,
         plko,
         lfa1.
SELECTION-SCREEN: BEGIN OF BLOCK bal WITH FRAME TITLE txt3.
PARAMETERS: rb1 RADIOBUTTON GROUP rd1 USER-COMMAND abc DEFAULT 'X'.
PARAMETERS: rb2 RADIOBUTTON GROUP rd1.
SELECTION-SCREEN: END OF BLOCK bal.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE txt1.
SELECT-OPTIONS : s_cust FOR kna1-kunnr MODIF ID r1.
SELECT-OPTIONS : s_plant FOR plko-werks MODIF ID r1 .
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK upd WITH FRAME TITLE txt2.
SELECT-OPTIONS: s_vend FOR lfa1-lifnr MODIF ID r2.
SELECT-OPTIONS: s_plan FOR plko-werks MODIF ID r2.
SELECTION-SCREEN: END OF BLOCK upd.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF rb1 EQ 'X'.
      IF ( screen-name EQ 'S_CUST-LOW'
        OR screen-name EQ 'S_CUST-HIGH'
        OR screen-name EQ 'S_PLANT-LOW'
        OR screen-name EQ 'S_PLANT-HIGH') .
        screen-active = '1' .
      ENDIF.
      IF ( screen-name EQ 'S_VEND-LOW'
        OR screen-name EQ 'S_VEND-HIGH'
        OR screen-name EQ 'S_PLAN-LOW'
        OR screen-name EQ 'S_PLAN-HIGH') .
        screen-active = '0' .
      ENDIF.
    ELSEIF rb2 EQ 'X'.
      IF ( screen-name EQ 'S_VEND-LOW'
        OR screen-name EQ 'S_VEND-HIGH'
        OR screen-name EQ 'S_PLAN-LOW'
        OR screen-name EQ 'S_PLAN-HIGH') .
        screen-active = '1' .
      ENDIF.
      IF ( screen-name EQ 'S_CUST-LOW'
        OR screen-name EQ 'S_CUST-HIGH'
        OR screen-name EQ 'S_PLANT-LOW'
        OR screen-name EQ 'S_PLANT-HIGH') .
        screen-active = '0' .
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
Regards,
Anil Salekar

Dynamically generating selection screen variants

Hi,
I have a report for which i have to create a variant. This report will be executed in background. There is a parameter Planning Date on the selection screen of this report. The format of this date is week.year i.e., ww.yyyy. Week should change automatically based on the week it is executed. For example, lets suppose that the current planning date is 19.2007. When you execute this report in the next week, the date should be 20.2007.
Please suggest me on how to do this.
Best Regards,
Phani.

Hi,
Create two variants for the below program say VAR1 and VAR2.
For the variant VAR1 take the default values say 12 and 3.
and for VAR2 take the values 10 and 5.
Now execute the program by selecting the variants VAR1 and VAR2. You can see the difference.
when you select VAR1 the parameters can be seen in disable mode.
parameters: p_num1 type i default 12,
                  p_num2 type i default 3.
at selection-screen output.
if sy-slset = 'VAR1'.
loop at screen.
if screen-name = 'P_NUM1' or
     screen-name = 'P_NUM2'.
     screen-input = 0.
endif.
modify screen.
endloop.
endif.
write:/5 p_num1, 35 p_num2.
Edited by: Velangini Showry Maria Kumar Bandanadham on Apr 14, 2008 12:52 PM

Dynamic variable selection screen

Hi Gurus,
I have a requirement here with the variable in the query. When running the query for the first time the year vaiable will have single selection. but when running the query for multiple times the same variable(year) should show range value to be entered. Please let know if this can be achieved via Query Designer or WAD? If yes how?
Thanks

You can only assign one variable at the time for a specific Characteristic, in this case year.
One thing you could do is to declare that characteristic as "Selection Option"... That way you could use it for any case, whether it is selecting a single value or a range...
Hope this helps.

Dynamic Selection option in the selection screen

Hi ,
I have a requirement like this ....
The user wants some fields to be default available in the selection screen. But they also want to be able to select the data based on additional fields (all the remaining fields ) which they want to see in the dynamic selection .
The basic list for selections should be limited to the fields listed in the specifications provided to me and the remaining fields should be made available through the dynamic selection option.
In the transaction FBL3N , this facility is provided.
Kindly help me with this..
thanks,
Sumit .

Hi Sumit,
To include dynamic selection check this sample code.
TYPE POOLS DECLARATIONS FOR VALUE REQUEST MANAGER AND ICONS
TYPE-POOLS : vrm,
 icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.*GLOBAL DECLARATIONS
DATA : flag TYPE c,
 tablename(10),
 mmtable LIKE dd02l-tabname,
 sdtable LIKE dd02l-tabname,
 hrtable LIKE dd02l-tabname.*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS : pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
 pb RADIOBUTTON GROUP rad MODIF ID rad,
 pc RADIOBUTTON GROUP rad MODIF ID cad.SELECTION-SCREEN SKIP.**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20 MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20 MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.SELECTION-SCREEN END OF BLOCK blk1.*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
 FUNCTION KEY 2,
 FUNCTION KEY 3.**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.*CLICK OF FIRST RADIO BUTTON
IF pa = 'X'.
 sscrfields-functxt_01 = 'Materials Management'.
 WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
 LOOP AT SCREEN.
 IF screen-group1 = 'MOD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'RAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.*CLICK OF SECOND RADIO
IF pb = 'X'.
 sscrfields-functxt_02 = 'Sales And Distribution'.
 WRITE icon_ws_ship AS ICON TO text_001.
 LOOP AT SCREEN.
 IF screen-group1 = 'RAD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'MOD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.*CLICK OF THIRD RADIO
IF pc = 'X'.
 sscrfields-functxt_03 = 'Human Resources'.
 WRITE icon_new_employee AS ICON TO text_001.
 LOOP AT SCREEN.
 IF screen-group1 = 'RAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'MOD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.*CUSTOMISING THE TOOLBARS OF THE SELECTION SCREEN
*WITH F8 BUTTON DISABLED APPEND : 'PRIN' TO it_ucomm,
 'SPOS' TO it_ucomm,
 'ONLI' TO it_ucomm. CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
 EXPORTING
 p_status = sy-pfkey
 TABLES
 p_exclude = it_ucomm.
**EVENT ON THE SELECTION
AT SELECTION-SCREEN.* LIST BOX ONE VALUES
CASE one.
 WHEN '1'.
 mmtable = 'MARC'.
 WHEN '2'.
 mmtable = 'MARA'.
 WHEN '3'.
 mmtable = 'MARD'.
 WHEN '4'.
 mmtable = 'MARM'.
ENDCASE.* LIST BOX TWO VALUES
CASE two.
 WHEN '1'.
 sdtable = 'VBAK'.
 WHEN '2'.
 sdtable = 'VBAP'.
 WHEN '3'.
 sdtable = 'VBUK'.
 WHEN '4'.
 sdtable = 'VBUP'.
ENDCASE.* LIST BOX THREE VALUES
CASE three.
 WHEN '1'.
 hrtable = 'PA0001'.
 WHEN '2'.
 hrtable = 'PA0006'.
 WHEN '3'.
 hrtable = 'PA0022'.
 WHEN '4'.
 hrtable = 'PA0008'.
ENDCASE.*VALUES FOR CLICK OF THE PUSHBUTTON ON APP TOOLBAR
*AND ENABLING THE BUTTONS TO PERFORM F8
CASE sscrfields-ucomm.
 WHEN 'FC01'.
 tablename = mmtable.
 sscrfields-ucomm = 'ONLI'.
 WHEN 'FC02'.
 tablename = sdtable.
 sscrfields-ucomm = 'ONLI'.
 WHEN 'FC03'.
 tablename = hrtable.
 sscrfields-ucomm = 'ONLI'.
ENDCASE.*INITIALIZATION EVENT
INITIALIZATION.*VALUES ASSIGNED TO DROPDOWNLISTS IN THE SUBROUTINES
PERFORM f4_value_request_pa.
PERFORM f4_value_request_pb.
PERFORM f4_value_request_pc.*START OF SELECTION EVENT
START-OF-SELECTION.*SUBROUTINE FOR OUTPUT
PERFORM output.*&----------------------------------------------------------------*
*& Form f4_value_request_PA
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST1
FORM f4_value_request_pa. DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'Plant Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'General Material Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Storage Location Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Units of Measure for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'ONE'. CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 EXCEPTIONS
 id_illegal_name = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.ENDFORM. " f4_value_request_tabname*&----------------------------------------------------------------*
*& Form f4_value_request_PB
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST2FORM f4_value_request_pb. DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'Sales Document: Header Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'Sales Document: Item Data'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Sales Document:Header Status'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Sales Document: Item Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'TWO'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 EXCEPTIONS
 id_illegal_name = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_PB*&----------------------------------------------------------------*
*& Form f4_value_request_PC
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST3FORM f4_value_request_pc. DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list. l_value-key = '1'.
l_value-text = 'HR Master :Infotype 0001 (Org. Assignment)'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '2'.
l_value-text = 'Address Infotype 0006'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '3'.
l_value-text = 'Education Infotype 0022'.
APPEND l_value TO li_list.
CLEAR l_value. l_value-key = '4'.
l_value-text = 'Basic Pay Infotype 0008'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'THREE'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 EXCEPTIONS
 id_illegal_name = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_PC
*& Form OUTPUT
* text
* -->P_TABLENAME text
*fINAL OUTPUT
FORM output. DATA p_table(10). p_table = tablename.*popup to display teh selected table and
*Continue button is clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
 EXPORTING
 titel = 'User Selections '
 textline1 = p_table
 textline2 = 'is the Selected table'
 start_column = 25
 start_row = 6.*assigning the table value in p_table to the
* Table in SE16 transaction by explicitly calling
SET PARAMETER ID 'DTB' FIELD p_table.
CALL TRANSACTION 'SE16'.
ENDFORM. "OUTPUT
Regards,
Manoj Kumar P

How can i set dynamice for week on Selection screen..pls help me..Urgent

Hi..All
please Help me .. i am very confused..
i need to set a varient for week which is dynamic on selection screen.
b) Week from current week to current week + 2. (Dynamic selection)how can i set dynamice for week on Selection screen,,
how can i do this..i am alrady set dynamice variant for Date.. there is option for D.. but in case of week there is a no option.
pls help me..urgent
thamks in advance.
mayukh

Hi,
I think the way out is use the dynamic select option while setting up the varinat and use sy-datum to sy-datum+9 which should essentially serve the purpose.
While saving the variant, for that particular date field check the Selection variable checkbox, then Choose D
option and then choose current days + or - option from there.
Rgds,
HR

'SET PF-STATUS EXCLUDING fcode' not working in Selection Screen event

Hi all,
I am trying to set PF-Status dynamically in Selection Screen based on Radio button.
For that i have inserted following code under event --> AT SELECTION-SCREEN OUTPUT
* SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS: s_inc RADIOBUTTON GROUP rad DEFAULT 'X'
                   USER-COMMAND inc MODIF ID mod,
            p_inc(10) MODIF ID m1,
            s_lbr RADIOBUTTON GROUP rad,
            p_lbr(10) MODIF ID m2.
SELECTION-SCREEN END OF BLOCK b1.
* AT SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
REFRESH fcode.
IF s_inc IS INITIAL.
    APPEND 'CRTE' TO fcode.
    APPEND 'CHNG' TO fcode.
    APPEND 'DISP' TO fcode.
    APPEND 'PRNI' TO fcode.
    APPEND 'CRTL' TO fcode.
    SET PF-STATUS 'STATUS_IN' EXCLUDING fcode.
ELSE.
    SET PF-STATUS 'STATUS_IN'.
ENDIF.
Though s_inc is initial, i can see all the buttons from Status 'STATUS_IN' after execution of above code. EXCLUDING statement is not taking any effect which we normally get in Module pool program.
Please tell me what went wrong in above code?

Problem solved ......Thanks Keshav,
Giving code correction -->
* SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS: s_inc RADIOBUTTON GROUP rad DEFAULT 'X'
                   USER-COMMAND inc MODIF ID mod,
            p_inc(10) MODIF ID m1,
            s_lbr RADIOBUTTON GROUP rad,
            p_lbr(10) MODIF ID m2.
SELECTION-SCREEN END OF BLOCK b1.
* AT SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
REFRESH fcode.
IF s_inc IS INITIAL.
    APPEND 'CRTI' TO fcode.
    APPEND 'CHGI' TO fcode.
    APPEND 'DISI' TO fcode.
    APPEND 'DELI' TO fcode.
    APPEND 'PRNI' TO fcode.
    APPEND 'CRTL' TO fcode.
    APPEND 'DATA' TO fcode.
ELSE.
    APPEND 'CHGL' TO fcode.
    APPEND 'DISL' TO fcode.
    APPEND 'PRNL' TO fcode.
ENDIF.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status        = 'STATUS_IN'
      P_PROGRAM       = sy-repid
    TABLES
      p_exclude       = fcode

How to disable a standard selection screen of LDB?

Hi Friends,
My requirement is to disable a standard selection screen of a standard LDB and use my own Selection screen instead.How to go about it?.
Prompt replies would be rewarded.
Regards,
Tamilarasan.

Hi Tamilarasan,
U can hide LDB field, in the following way.
1.In tables statement remove the table name for the fields
you done require.
2.You can modify the screen fields. LOOP AT SCREEN
3.In the program attributes you can choose the SAP defined
selection screen if provided.
Add can add new field, in the following way,
1.If it is Customer program then as normal way like
SELECTION-SCREEN: BEGIN OF BLOCK 1
SELECT-OPTIONS:
SELECTION-SCREEN END OF BLOCK 1.
2. Goto SE36 and modify the selection views by creating 'CUS'.
All LBD will not have dynamic selection. If you want you can copy to Z* version and add the following statement to have dynamic selction
"SELECTION-SCREEN DYNAMIC SELECTIONS FOR TABLE" XXXX
Regards,
Prabhu Rajesh.

About selection screen

hi all,
i have 3 radio button and corresponding thier 3 input loist box . i just want to deactivate 2 list box on the click of one radio button.
please give the solution if possible .
Thanks and Regards
priyank dixit

Hi,
Check the following code:
TYPE-POOLS : vrm,
             icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.
*GLOBAL DECLARATIONS
DATA : flag TYPE c,
      tablename(10),
      mmtable LIKE dd02l-tabname,
      sdtable LIKE dd02l-tabname,
      hrtable LIKE dd02l-tabname.
*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.
***********SELECTION-SCREENS*********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS : pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
              pb RADIOBUTTON GROUP rad MODIF ID rad,
              pc RADIOBUTTON GROUP rad MODIF ID cad.SELECTION-SCREEN SKIP.
**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.
*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20 MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20   MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.
SELECTION-SCREEN END OF BLOCK blk1.
*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2,
                  FUNCTION KEY 3.
**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.
*CLICK OF FIRST RADIO BUTTON
IF pa = 'X'.
    sscrfields-functxt_01 = 'Materials Management'.
    WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*CLICK OF SECOND RADIO
IF pb = 'X'.
    sscrfields-functxt_02 = 'Sales And Distribution'.
    WRITE icon_ws_ship AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*CLICK OF THIRD RADIO
IF pc = 'X'.
    sscrfields-functxt_03 = 'Human Resources'.
    WRITE icon_new_employee AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
Regards,
Bhaskar

Selection screen with radio button groups

hi experts,
i have 3 frames in selection screen. in first frame i have two radio buttons. if i select 1st radio button 2nd frame should be in active and 3rd frame should be disable mode. if i select 2nd radio button then 3rd frame should be in active and other 2nd frame should be disable mode. in which event i need to write the code.
can any one help me regarding this and give some sample code.
rgds,
nag.

Here is the example which will explain it completely :
*& Report Z_sscr *
* Published at ****************
*&DYNAMIC Selection screen based on user clicks on the radiobutton*
REPORT zsscr.
*TYPE POOLS DECLARATIONS FOR VALUE REQUEST MANAGER AND ICONS
TYPE-POOLS : vrm,
 icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.
*GLOBAL DECLARATIONS
DATA : flag TYPE c,
 tablename(10),
 mmtable LIKE dd02l-tabname,
 sdtable LIKE dd02l-tabname,
 hrtable LIKE dd02l-tabname.
*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.
***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS : pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
 pb RADIOBUTTON GROUP rad MODIF ID rad,
 pc RADIOBUTTON GROUP rad MODIF ID cad.
SELECTION-SCREEN SKIP.
**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.
*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20 MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20 MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.
SELECTION-SCREEN END OF BLOCK blk1.
*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
 FUNCTION KEY 2,
 FUNCTION KEY 3.
**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.
*CLICK OF FIRST RADIO BUTTON
IF pa = 'X'.
 sscrfields-functxt_01 = 'Materials Management'.
 WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
 LOOP AT SCREEN.
 IF screen-group1 = 'MOD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'RAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.
*CLICK OF SECOND RADIO
IF pb = 'X'.
 sscrfields-functxt_02 = 'Sales And Distribution'.
 WRITE icon_ws_ship AS ICON TO text_001.
 LOOP AT SCREEN.
 IF screen-group1 = 'RAD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'MOD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.
*CLICK OF THIRD RADIO
IF pc = 'X'.
 sscrfields-functxt_03 = 'Human Resources'.
 WRITE icon_new_employee AS ICON TO text_001.
 LOOP AT SCREEN.
 IF screen-group1 = 'RAD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'MOD'.
 screen-intensified = '0'.
 screen-active = 0.
 screen-display_3d = '0'.
 MODIFY SCREEN.
 ENDIF.
 IF screen-group1 = 'CAD'.
 screen-intensified = '1'.
 screen-active = 1.
 screen-display_3d = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.
*CUSTOMISING THE TOOLBARS OF THE SELECTION SCREEN
*WITH F8 BUTTON DISABLED
APPEND : 'PRIN' TO it_ucomm,
 'SPOS' TO it_ucomm,
 'ONLI' TO it_ucomm.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
 EXPORTING
 p_status = sy-pfkey
 TABLES
 p_exclude = it_ucomm.
**EVENT ON THE SELECTION
AT SELECTION-SCREEN.
* LIST BOX ONE VALUES
CASE one.
 WHEN '1'.
 mmtable = 'MARC'.
 WHEN '2'.
 mmtable = 'MARA'.
 WHEN '3'.
 mmtable = 'MARD'.
 WHEN '4'.
 mmtable = 'MARM'.
ENDCASE.
* LIST BOX TWO VALUES
CASE two.
 WHEN '1'.
 sdtable = 'VBAK'.
 WHEN '2'.
 sdtable = 'VBAP'.
 WHEN '3'.
 sdtable = 'VBUK'.
 WHEN '4'.
 sdtable = 'VBUP'.
ENDCASE.
* LIST BOX THREE VALUES
CASE three.
 WHEN '1'.
 hrtable = 'PA0001'.
 WHEN '2'.
 hrtable = 'PA0006'.
 WHEN '3'.
 hrtable = 'PA0022'.
 WHEN '4'.
 hrtable = 'PA0008'.
ENDCASE.
*VALUES FOR CLICK OF THE PUSHBUTTON ON APP TOOLBAR
*AND ENABLING THE BUTTONS TO PERFORM F8
CASE sscrfields-ucomm.
 WHEN 'FC01'.
 tablename = mmtable.
 sscrfields-ucomm = 'ONLI'.
 WHEN 'FC02'.
 tablename = sdtable.
 sscrfields-ucomm = 'ONLI'.
 WHEN 'FC03'.
 tablename = hrtable.
 sscrfields-ucomm = 'ONLI'.
ENDCASE.
*INITIALIZATION EVENT
INITIALIZATION.
*VALUES ASSIGNED TO DROPDOWNLISTS IN THE SUBROUTINES
PERFORM f4_value_request_pa.
PERFORM f4_value_request_pb.
PERFORM f4_value_request_pc.
*START OF SELECTION EVENT
START-OF-SELECTION.
*SUBROUTINE FOR OUTPUT
PERFORM output.
*& Form f4_value_request_PA
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST1
FORM f4_value_request_pa.
DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'Plant Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '2'.
l_value-text = 'General Material Data'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '3'.
l_value-text = 'Storage Location Data for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '4'.
l_value-text = 'Units of Measure for Material'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'ONE'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 EXCEPTIONS
 id_illegal_name = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_tabname
*& Form f4_value_request_PB
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST2
FORM f4_value_request_pb.
DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'Sales Document: Header Data'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '2'.
l_value-text = 'Sales Document: Item Data'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '3'.
l_value-text = 'Sales Document:Header Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '4'.
l_value-text = 'Sales Document: Item Status'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'TWO'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 EXCEPTIONS
 id_illegal_name = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_PB
*& Form f4_value_request_PC
* text
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST3
FORM f4_value_request_pc.
DATA: l_name TYPE vrm_id,
 li_list TYPE vrm_values,
 l_value LIKE LINE OF li_list.
l_value-key = '1'.
l_value-text = 'HR Master :Infotype 0001 (Org. Assignment)'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '2'.
l_value-text = 'Address Infotype 0006'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '3'.
l_value-text = 'Education Infotype 0022'.
APPEND l_value TO li_list.
CLEAR l_value.
l_value-key = '4'.
l_value-text = 'Basic Pay Infotype 0008'.
APPEND l_value TO li_list.
CLEAR l_value.
l_name = 'THREE'.
CALL FUNCTION 'VRM_SET_VALUES'
 EXPORTING
 id = l_name
 values = li_list
 EXCEPTIONS
 id_illegal_name = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " f4_value_request_PC
*& Form OUTPUT
* text
* -->P_TABLENAME text
*fINAL OUTPUT
FORM output.
DATA p_table(10).
p_table = tablename.
*popup to display teh selected table and
*Continue button is clicked
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
 EXPORTING
 titel = 'User Selections '
 textline1 = p_table
 textline2 = 'is the Selected table'
 start_column = 25
 start_row = 6.
*assigning the table value in p_table to the
* Table in SE16 transaction by explicitly calling
SET PARAMETER ID 'DTB' FIELD p_table.
CALL TRANSACTION 'SE16'.
ENDFORM. "OUTPUT
Reward If found Helpful.

How to create the selection screen dynamically

Hi,
I have a requirement to create the selection screen Dynamically. All the fields that should appear on the selection screen will be available in a custom table. So, based on the entries available in the Z tables, the selection screen should be built. Eg. If there are 10 records available in the Z table, the selection screen should consist of 10 fields. If there are 100 entries, the Selection screen should contain 100 fields. and the logic to build this selection screen should be carried out dynamically in the program.
Could anyone of you please share the valuable inputs on this. If anyone has the sample code to do this, please share.
Thanks in advance.
Regards,
Paddu.

Hi,
Kindly go through this sample program below:
DEMO_LIST_FORMAT_INPUT *and
check this function module:
FREE_SELECTIONS_DIALOG *.
Hope it helps
Regards
Mansi

How to deal with dynamic selection screen elements when macros are used?

Hello experts,
This is regarding the dynamic selection screen elements. Actually the requirement is to modify the existing standard report program RFUMSV00 by copying it into a Z report, adding a few selection screen elements and new fields in the output. I actually did everything required except for the one thing that is going out of my reach.
There are a certain fields which are coming when they are not supposed to get displayed. I don't understand the code because of its obsoleteness. Neither can I debug it because it is just data declaration.
This is the code where there is a fault. If I copy the entire code into a new Z report, I'm getting new fields like Entry Date, Document Type, Reference Transaction, Reference key, Logical system.
DEFINE selection_screen_line.
selection-screen: begin of line.
parameters &3 like &4 default 'X' modif id mc4.
selection-screen: comment (30) &1 for field &3 modif id mc4.
selection-screen: comment pos_low(10) text-019
                    for field &2 modif id mc4. "neu
parameters &2 like rfums_alv-variante modif id mc4.
selection-screen:
      position pos_high.
selection-screen: pushbutton (15) text-028
                    user-command &5 modif id mc4.
selection-screen end of line.
END-OF-DEFINITION.
Kindly, suggest me the right solution.

In the program attributes ( SE38 > RFUMSV00 > GOTO > Properties ), you will find a logical database BRF declared. The include DBBRFSEL is part of the selection screen of this logical database.
The selection screen is actually the selection screen of this logical database.
Under the Logical Database field, there is a Selection screen field where you can input which selection screen of the logical database to be used.
But, this is just to change the selection screen that is displayed. To completely suppress it you need to remove logical database declaration from the properties of the program and call it inside your program through function module.
You cannot just remove it from the declaration because many of its variables are used in the program.
So call it using function module as the first step in INITIALIZATION section of the program.
The syntax and function module to call it in your program can be found in the following thread :
How to hide the selection screen of a Logical datebase?
Regards,
Ashish

Dynamic selectionof selection-screen

Similar Messages

Maybe you are looking for