HOW TO KEEP 3 LINES IN SELECTION-SCREEN

hi all,
i have a requirement.
i have to keep one field in selection-screen say v_text whose length is 70 characters .
and i have to display text as follows
<System Date> ': EST STATUS:HUNGARY PROJECT:'
in form of 3 lines by default.
any one can send me the sample code how to do this.
Thanks,
Maheedhar.T

Maheedhar,
try this code..
data: v_text(80).
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(30) v1 FOR FIELD p_monat.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(30) v2 FOR FIELD p_monat.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(10) v3 FOR FIELD p_monat.
PARAMETERS p_monat LIKE bkpf-monat.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
v_text = 'aaaaaaaaaaaaaaaaaaaaaaBBBBBBBBBBBBBB'.
CONCATENATE sy-datum v_text INTO v_text SEPARATED BY space.
v1 = v_text+0(30).
v2 = v_text+31(30).
v3 = v_text+62(10).
-Anu
Message was edited by:
Anupama Reddy
Message was edited by:
Anupama Reddy

Similar Messages

How to get two parameters in the same line of selection screen?

hello
i need to get my selection csreen like bellow.
r1 radiobuttion -some space --p1 parameter
i should not get the parameter in the next line of radiobuttion.
how to get two parameters in the same line of selection screen?

hi....
modify the following code
it will work
SELECTION-SCREEN BEGIN OF BLOCK SL1 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 10(15) TEXT-001
FOR FIELD P1.
SELECTION-SCREEN POSITION POS_LOW.
PARAMETERS : P1 TYPE C USER-COMMAND R2 RADIOBUTTON GROUP R2 DEFAULT 'X',
P2 TYPE SCARR-CARRNAME,
P3 TYPE CHAR1 RADIOBUTTON GROUP R2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK SL1.

HOW TO KEEP PUSHBUTTON IN OUTPUT SCREEN(ALV)

HOW TO KEEP PUSHBUTTON IN OUTPUT SCREEN ( ALV FORMAT)

Hi,
At selection screen use this below code:
Eg:
*SELECTION-SCREEN FUNCTION KEY 1. "Adds button to application toolbar
Declaration of sel screen buttons
selection-screen begin of line.
selection-screen pushbutton (20) w_button user-command but1.
selection-screen pushbutton (25) w_but2 user-command but2.
selection-screen end of line.
Madhu
Pls reward me if it is useful

How i can show the selection screen input field in the top of page in alv

hi ,
          how i can show the selection screen input field in the top of page in alv grid output.
tell me the process

Hi,
excample from my program:
FORM topof_page.
DATA: l_it_header   TYPE TABLE OF slis_listheader WITH HEADER LINE,
        l_info        LIKE l_it_header-info.
DATA: l_it_textpool TYPE TABLE OF textpool WITH HEADER LINE.
DATA: l_key LIKE l_it_textpool-key.
READ TEXTPOOL c_repid INTO l_it_textpool LANGUAGE sy-langu.
DEFINE m_selinfo.
    if not &1 is initial.
      clear l_it_header.
      l_it_header-typ   = 'S'.
      l_key = '&1'.
      translate l_key to upper case.
      read table l_it_textpool with key key = l_key.
      if sy-subrc = 0.
        shift l_it_textpool-entry left deleting leading space.
        l_it_header-key = l_it_textpool-entry .
      endif.
      loop at &1.
        case &1-option.
          when 'EQ'
            or 'BT'
            or 'CP'.
            write &1-low to l_it_header-info.
          when others.
            write &1-low to l_it_header-info.
            concatenate &1-option
                        l_it_header-info
                   into l_it_header-info
                   separated by space.
        endcase.
        if not &1-high is initial.
          write &1-high to l_info left-justified.
          concatenate l_it_header-info
                      l_info
                 into l_it_header-info
                 separated by space.
        endif.
        if &1-sign = 'E'.
          concatenate ']'
                      l_it_header-info
                 into l_it_header-info.
        endif.
        append l_it_header.
        clear: l_it_header-key,
               l_it_header-info.
      endloop.
    endif.
END-OF-DEFINITION.
m_selinfo: s_trmdat,
             s_trmext,
             s_trmint,
             s_fkdat,
             s_delno,
             s_vbeln,
             s_deact,
             s_kdmat.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary = l_it_header[].
ENDFORM.
I hope, this will help you.
Regards
Nicole

How do I add a selection screen parameter to get a application server file

Hi All..
Can you please suggest how can we add a selection screen parameter to get a application server file ?
Thanx in Advance...
Regards,
Deepak

Parameter def :
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 02(30) text-005 FOR FIELD p_xlfil.
PARAMETERS: p_xlfil LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF LINE.
Browse
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_xlfil.
PERFORM ws_get_filename USING p_xlfil.
FORM ws_get_filename USING p_xlfil.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 def_path = 'C:'
 mask = ',Excel,*.xls,All,*.*.'(100)
 mode = 'O'
 title = 'Title'(101)
 IMPORTING
 filename = p_xlfil
 EXCEPTIONS
 inv_winsys = 1
 no_batch = 2
 selection_cancel = 3
 selection_error = 4
 OTHERS = 5.
IF sy-subrc NE 0.
 CLEAR p_xlfil.
ENDIF.
ENDFORM. " WS_GET_FILENAME
Regards
Oops i did not read "application server"
Use FM F4_FILENAME_SERVER and not F4_FILENAME/WS_GET_FILENAME.
Message was edited by:
 Raymond Giuseppi

How to generate a dynamic selection-screen

Hi folks,
I have a itab with all fields and descriptions of a database-table. Now i want to generate a selection screen dynamically. I want to create a select-option for every field of the table.
First I read all fields of a database table into my intern table:
CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
 tabname = 'database_tabname'
TABLES
 dfies_tab = it_tabname_fields.
Then I tried to generate a dynamic selection-screen with a select-options statement per field of the itab, but it doesn't work:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 NO INTERVALS.
LOOP AT it_tabname_fields INTO s_tabname_fields. "should be 14 loops and 14 lines
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (25) s_tabname_fields-SCRTEXT_S FOR FIELD var1. "the name of the field should be set dynamically from the itab
SELECT-OPTIONS var1 FOR tabname-s_tabname_fields-fieldname. "s_tabname_fields-fieldname should be set dynamically for each line
SELECTION-SCREEN END OF LINE.
ENDLOOP.
SELECTION-SCREEN END OF BLOCK b2.
I know that this doesn't work but it should help you to understand what i want to do. It doesn't create more than one select-option (it should be 14 because there are 14 lines in the table) and it doesn't get the values from the table.
I hope you can help me...
Regards,
Sebastian

hi
Firstly, have a look at the following code to see how this can be implemented -
REPORT ZTEST.
perform test.
class test definition.
public section.
 methods: create_screen.
endclass.
class test implementation.
method create_screen.
 data: report_line(72),
 report_source like table of report_line.
 data: err_message(240),
 err_line type i,
 err_word(100).
 report_line = 'REPORT TEST.'.
 append report_line to report_source.
 report_line = 'PARAMETERS: P_TEST TYPE I.'.
 append report_line to report_source.
 report_line = 'START-OF-SELECTION.'.
 append report_line to report_source.
 report_line = 'WRITE : P_TEST.'.
 append report_line to report_source.
 syntax-check for report_source message err_message
 line err_line
 word err_word.
 if err_message is initial.
 INSERT REPORT 'ZZZTESTZZZ' FROM REPORT_SOURCE.
 SUBMIT ZZZTESTZZZ VIA SELECTION-SCREEN AND RETURN.
 endif.
endmethod.
endclass.
form test.
data test type ref to test.
CREATE OBJECT TEST.
call method test->create_screen.
endform.
As you can see, the report is being written dynamically. Once the INSERT REPORT statement is executed, the program is available. you can you external subroutine calls to pass the data between the programs now.
Regards,
ravish
plz dont forget to reward points if helpful

How to disable parameter in selection screen

hi experts,
SELECTION-SCREEN BEGIN OF BLOCK server WITH FRAME TITLE text-009.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_app RADIOBUTTON GROUP csbi.
SELECTION-SCREEN COMMENT 4(35) text-006 FOR FIELD data_app."744242
parameters : p_fname1 like rlgrap-filename default 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' modif id s1.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_frn RADIOBUTTON GROUP csbi DEFAULT 'X'.
SELECTION-SCREEN COMMENT 4(35) text-007 FOR FIELD data_frn."744242
PARAMETERS: p_fname2 LIKE rlgrap-filename DEFAULT 'D:\Documents and Settings\czfnct\Desktop\boma.xls' modif id s2.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END   OF BLOCK server.
my requirement is when data_frm radio button is active p_fname1 should be disabled or disappeared.
and when data_app radio button is active p_fname2 should be disabled or disappeared.
kindly suggest how to acheive it.
regards,
pavan

hi,
try like this
SELECTION-SCREEN BEGIN OF BLOCK server WITH FRAME TITLE text-010.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_app RADIOBUTTON GROUP csbi DEFAULT 'X' USER-COMMAND ucom.
SELECTION-SCREEN COMMENT 4(35) text-008 FOR FIELD data_app. "744242
PARAMETERS : p_fname1 LIKE rlgrap-filename DEFAULT 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' modif id s1..
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_frn RADIOBUTTON GROUP csbi.
SELECTION-SCREEN COMMENT 4(35) text-009 FOR FIELD data_frn. "744242
PARAMETERS: p_fname2 LIKE rlgrap-filename DEFAULT 'D:\Documents and Settings\czfnct\Desktop\boma.xls' modif id s2. .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK server.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF data_app = 'X'.
      IF screen-name = 'P_FNAME1' .
       p_fname1 = 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' .
        screen-input = 1.
      ENDIF.
      IF screen-name = 'P_FNAME2' .
        screen-input = 0.
        CLEAR p_fname2.
      ENDIF.
      MODIFY SCREEN.
    ELSEIF data_frn = 'X'.
      IF screen-name = 'P_FNAME2' .
       p_fname2 = 'D:\Documents and Settings\czfnct\Desktop\boma.xls' .
        screen-input = 1.
      ENDIF.
      IF screen-name = 'P_FNAME1'.
        screen-input = 0.
        CLEAR p_fname1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
reward if useful...

How to make a dynamic selection screen

Hi
I have been searching the SDN for long time, but couldn't find the answer, so therefor a new post.
I have an internal table with following values:
VBKD-BSARK_E
TVKO-VKORG
By these values I would like to make a new selection-screen whith following:
Parameters: FIELD1 like VBKD-BSARK_E.
Parameters: FIELD2 like TVKO-VKORG.
Next time the internal table can contain
MARA-MATNR
TVKO-VKORG
VBAK-BSTZD
And the parameters should then be:
Parameters: FIELD1 like MARA-MATNR.
Parameters: FIELD2 like TVKO-VKORG.
Parameters: FIELD3 like VBAK-BSTZD.
How do I do that -any suggestions?

Hi,
This piece of code will design selection screen based on radio button selection:
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
    SELECT-OPTIONS : s_date FOR pnpbegps DEFAULT sy-datum .
    SELECTION-SCREEN: END OF BLOCK b1.
    SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
    PARAMETERS:rb1 RADIOBUTTON GROUP rbf DEFAULT 'X'.
    PARAMETERS:rb2 RADIOBUTTON GROUP rbf .
    SELECTION-SCREEN: END OF BLOCK b2.
    SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003 .
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(25) text-006 FOR FIELD px_pdf.
    PARAMETERS: px_pdf AS CHECKBOX USER-COMMAND xxx .
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(15) text-004 FOR FIELD rb_app.
    PARAMETERS:rb_app RADIOBUTTON GROUP gbf DEFAULT 'X' USER-COMMAND uc01.
    PARAMETERS: p_file(128) MODIF ID 001.           " application server
    SELECTION-SCREEN END OF LINE.
Thanks,
Krishna..

How to make Label in selection screen?

Hi friends.. can anybody explain how to make labels in selection screens and how to split the selection screen vertically? plz.. Thanks in advance

Arun kumar,
Check this program. you can put labels like this.
REPORT ZVENKAT_TEST1.
SELECTION-SCREEN BEGIN OF BLOCK block.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text1.
SELECTION-SCREEN POSITION 17.
PARAMETERS :p_pernr type pa0001-pernr.
SELECTION-SCREEN POSITION 26.
SELECTION-SCREEN COMMENT 27(30) text2.
SELECTION-SCREEN end OF LINE.
SELECTION-SCREEN end OF BLOCK block .
at SELECTION-SCREEN OUTPUT.
text1 = 'Personal number'.
SELECT SINGLE ename FROM pa0001 INTO text2 WHERE pernr = p_pernr.
Regards,
Venkat.O

Displaying 2 parameters with descriptions in same line of Selection-Screen

Hi All,
I want to know how can we display 2 parameters with descriptions in same line of Selection-Screen.
Means in selection screen first we will give comment as
Material no then parameter box as MARA-MATNR, In the same line description as Plant then parameter box as T001W-WERKS.
Material No - BOX - Plant - BOX.
Can any body tell me how can we do it.
Thanks in advance.
Thanks & Regards,
Rayeez.

Hi shaik,
1. define two TEXT-SYMBOLS :
001 Material
002 Plant
and Activate
2. use this code (just copy paste)
REPORT abc LINE-SIZE 80.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(10) text-001 FOR FIELD p_matnr.
PARAMETERS : p_matnr TYPE mara-matnr.
SELECTION-SCREEN COMMENT 35(10) text-002 FOR FIELD p_werks.
PARAMETERS: p_werks TYPE t001w-werks.
SELECTION-SCREEN END OF LINE.
regards,
amit m.

How to display icons on selection screen ,without using classes.

Hi Experts,
How can we display icons on the selection-screen ..?
one of the methods i heard frm my frnds was to use                   ->cl_gui_picture_viewer
but as a begginer i am not tht comfortable with classes .So is there a way around to display icons on my selection screen without using classes .
Thanx in Advance,
Regards ,
Rajesh .

Hi,
here a short example:
REPORT Z_TEST2.
TABLES: SSCRFIELDS.   "Felder auf Selektionsbildern
INCLUDE .
SELECTION-SCREEN: BEGIN OF BLOCK A01 WITH FRAME TITLE MELDUNG1.
SELECTION-SCREEN: SKIP 2.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 10(04) T_ICON.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 01(34) T_AUFSD.
PARAMETERS:       P_AUFSD AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 01(34) T_AUFCO.
PARAMETERS:       P_AUFCO AS CHECKBOX DEFAULT ' '.
SELECTION-SCREEN: PUSHBUTTON 45(04) PB01 USER-COMMAND SALL.
SELECTION-SCREEN: PUSHBUTTON 50(04) PB02 USER-COMMAND DALL.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 01(34) T_AUFCS.
PARAMETERS:       P_AUFCS AS CHECKBOX DEFAULT ' '.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: COMMENT 01(34) T_AUFPP.
PARAMETERS:       P_AUFPP AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN: PUSHBUTTON 45(15) PB03 USER-COMMAND INIT.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: SKIP 2.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON 45(15) PB04 USER-COMMAND ONLI.
SELECTION-SCREEN: END   OF LINE.
SELECTION-SCREEN: SKIP 2.
SELECTION-SCREEN: END   OF BLOCK A01.
AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'SALL'. "alle selektieren
    P_AUFSD = 'X'.
    P_AUFCO = 'X'.
    P_AUFCS = 'X'.
    P_AUFPP = 'X'.
ENDIF.
IF SSCRFIELDS-UCOMM = 'DALL'. "alle deselektieren
    P_AUFSD = ' '.
    P_AUFCO = ' '.
    P_AUFCS = ' '.
    P_AUFPP = ' '.
ENDIF.
IF SSCRFIELDS-UCOMM = 'INIT'. "initialisiern
    P_AUFSD = 'X'.
    P_AUFCO = ' '.
    P_AUFCS = ' '.
    P_AUFPP = 'X'.
ENDIF.
INITIALIZATION.
MELDUNG1 = 'Datenbankselektion'.
T_ICON   = ICON_PRINT.
T_AUFSD = 'Kundenauftrag'.
T_AUFCO = 'Innenauftrag'.
T_AUFCS = 'Serviceauftrag'.
T_AUFPP = 'Fertingungsauftrag'.
PB01     = ICON_SELECT_ALL.
PB02     = ICON_DESELECT_ALL.
CONCATENATE ICON_REFRESH 'Initial' INTO PB03.
CONCATENATE ICON_EXECUTE_OBJECT 'Ausführen' INTO PB04.
START-OF-SELECTION.
write: / 'Test'.
END-OF-SELECTION.
Regards, Dieter

How to define our own selection screen for logical database in abap-hr?

Hi Friends,
Can u please help me
How to define your own selection screens for logical database.
we use to do like(goto->attributes-HRReportcatagerious ).but How to desin using customer table like t599c, t599f and how to add to my logical database?
Thanks in advance
charan

check out this online help
http://help.sap.com/saphelp_erp2004/helpdata/en/9f/dba65c35c111d1829f0000e829fbfe/frameset.htm
Regards
Raja

How to create a variant selection screen

Hi experts,
Can you tell me " How to create a variant selection screen ".
Please it's urgent.........
Thanks
Basu

Hi ,
Goto your selection screen
Make entries in the fileds od the selection screen
press save button, it will ask you for the mane of the Variant
Give the name of the Variant and save it
Variant is now created for the selection screen.
Reward if useful.
Regards,
Shilpi

How to create a new selection screen IN LOGICAL DATABASE PNPCE

how to create a new selection screen LDBS PNPCE

Hello Ankit,
Do you want to create a new selection screen in LDB PNPCE, or do you want to create a new selection screen in one of your reports using LDB PNPCE?
For later (which is more common), you can use HR Report Category.
Hope this helps.
Best Regards,
Biraju Rajyaguru

How to disable fields on selection screen?

hi,
i have two fields f1 and f2 on selection screen and two radio buttons r1 and r2.
if i select r1, f1 should be input enable and f2 shuld be disabled.
and if i select r2, f2 should be input enable and f1 shuld be disabled.
i hav code like this
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
PARAMETERS: p_Pfile TYPE rlgrap-filename,      "presentation server input file
            p_afile TYPE rlgrap-filename.      "application server input file
           p_efile TYPE rlgrap-filename.                "error file
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETERS: R_ps TYPE c RADIOBUTTON GROUP rd default 'X', "radio button for presentation server
            R_as TYPE c RADIOBUTTON GROUP rd .            "radio button for application server
SELECTION-SCREEN END OF BLOCK blk2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF R_PS = C_X.
IF SCREEN-NAME = P_PFILE.
   SCREEN-ACTIVE = 0.
   MODIFY SCREEN.
ELSE.                           "IF SCREEN-NAME = P_AFILE.
   SCREEN-ACTIVE = 1.
   SCREEN-INPUT = 1.
    MODIFY SCREEN.
    ENDIF.
ELSEIF R_AS = C_X.
IF SCREEN-NAME = P_PFILE.
   SCREEN-ACTIVE = 0.
   MODIFY SCREEN.
ELSE.                           "IF SCREEN-NAME = P_AFILE.
   SCREEN-ACTIVE = 1.
   SCREEN-INPUT = 1.
    MODIFY SCREEN.
    ENDIF.
ENDIF.
ENDLOOP.
but i could not get that .
plz help me

Hi ,
This is my test code look at "at selection screen output" part you will get it.
data: g_user_has_auth(1) TYPE c,
       v_key LIKE sy-pfkey,
       it_ucomm TYPE TABLE OF sy-ucomm.
CONSTANTS : c_yes TYPE c VALUE '1' ,
            c_no TYPE c VALUE '0' .
INITIALIZATION.
Code to remove standard execute button from selection screen.
v_key = sy-pfkey.
APPEND : 'ONLI' TO it_ucomm.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status = v_key
      p_program = ' '
    TABLES
      p_exclude = it_ucomm.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN SKIP 1.
PARAMETERS:      r_iobj RADIOBUTTON GROUP rb1 USER-COMMAND OP1.
PARAMETERS:      r_ods RADIOBUTTON GROUP rb1.
PARAMETERS:      r_cubes RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02 .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-t02 FOR FIELD p_info MODIF ID OP1.
PARAMETERS: p_info TYPE string MODIF ID OP1.
SELECTION-SCREEN: PUSHBUTTON 68(10) but1 USER-COMMAND cli1 MODIF ID OP1.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t04.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-t02 FOR FIELD p_ods MODIF ID OP2.
PARAMETERS: p_ods TYPE string MODIF ID OP2.
SELECTION-SCREEN: PUSHBUTTON 68(10) ods1 USER-COMMAND cli3 MODIF ID OP2.
SELECTION-SCREEN : END OF LINE.
*SELECTION-SCREEN SKIP 1.
*PARAMETERS:      r_exe RADIOBUTTON GROUP rb2.
*PARAMETERS:      r_st1 RADIOBUTTON GROUP rb2.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN: PUSHBUTTON /1(20) ods_cr USER-COMMAND cli4 MODIF ID OP2.
SELECTION-SCREEN END OF BLOCK b3.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'OP1'.
      IF R_IOBJ = 'X'.
        SCREEN-INVISIBLE = C_NO.
        SCREEN-ACTIVE = C_YES.
        ELSE.
          SCREEN-INVISIBLE = C_YES.
          SCREEN-ACTIVE = C_NO.
          ENDIF.
          MODIFY SCREEN.
          ENDIF.
          IF SCREEN-GROUP1 = 'OP2'.
            IF R_ODS = 'X'.
              SCREEN-INVISIBLE = C_NO.
              SCREEN-ACTIVE = C_YES.
              ELSE.
                SCREEN-INVISIBLE = C_YES.
                SCREEN-ACTIVE = C_NO.
                ENDIF.
                MODIFY SCREEN.
                ENDIF.
                ENDLOOP.

HOW TO KEEP 3 LINES IN SELECTION-SCREEN

Similar Messages

Maybe you are looking for