Adding Radio button & regular button to selection-screen without new gui

Hi,
Is there a way to add a radio button & regular button to a selection-screen without having to create a new gui, status and etc?
Thanks,
John

Hi
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 4(30) TEXT-001 FOR FIELD P_1.
SELECTION-SCREEN POSITION 1.
PARAMETERS: P_1 RADIOBUTTON GROUP R1 DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 4(30) TEXT-002 FOR FIELD P_2.
SELECTION-SCREEN POSITION 1.
PARAMETERS: P_2 RADIOBUTTON GROUP R1.
SELECTION-SCREEN END OF LINE.
Where the symbols text TEXT-001 and TEXT-002 have the label for the radiobuttons
Max

Similar Messages

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

Re: About radio button enable by using selection screen

Hi,
   this is suresh babu.i am doing one report on Competency table. About details of the report..
there are four text feilds and 3 radio buttons in main screen.if we select one of the radio button then i want screen to required table..
text feild:
Division:----
personnal area:----
employee group:----
Year:----
select the type of report you wiish to execute.
radio button1: low competency
radio button2: low KPI
radio button3: low competeny and KPI
*this is my main screen of the report.my requirement is when we click any of the radio buttn i have to go for the required table in my program.
so i want how to enable radio buton and how to generate New T-code in ABAP.

HI create program inwhich u hav only 3 radio buttons as parameters
parameters : p1 radiobutton group rg1,
                 p2 radiobutton group rg1,
             p3 radiobutton group rg1.
if p1 = 'X'.
submit Zprogram1 VIA SELECTION-SCREEN .
***Zprogram1 is program to b called for radiobutton 1.
elseif p2 = 'X'.
submit Zprogram2 VIA SELECTION-SCREEN
else if P3 = 'X'.
submit Zprogram3 VIA SELECTION-SCREEN
endif.
goto SE93..
and create new tcode and assign this program name der...

Customised Back button in ALV loses selection screen parameters

Hi,
In my ALV output, the user interacts with the output. I had to program my own back button in the pf-status so that when the user hit back they didnt return to the original alv output. (if that makes sense)
I use LEAVE TO TRANSACTION 'ZZZZ' (user_command form) but the problem is that i lose all the selection parameters that the user has entered.
I have tried everything.........set screen 0, leave screen etc..........and searched the forum but cant find the answer.
Anyone know what i need i do..........
Cheers..........

try submit ...
submit the report of ZZZZ tcode... with the selection parameters of your existing report....
e.g.
SUBMIT zbbp_sc_arch_initial_upload
VIA SELECTION-SCREEN
WITH p_r01    EQ p_r01
WITH p_r02    EQ p_r02
WITH p_mode   EQ p_mode.

Display of F4 help button on the standard selection screen

Hi ,
I have coded for few parameters to appear on my standard selection screen. And they all are of type refering to a Data dictionary structure and for all the fields i have created a explicit search help object and attached to them. Some have foreign key relationships and i have given corresponding value table in the domain also.
Now my understanding is that when i exectue the report prog on all these parameter fields i should get the search helps and button at the end showing it has a f4 help attached to it.
However, no button appears which shows there is a search help attached, however on f4 my search help comes up and it works fine.
My understanding was that the button was to come to any field which has a f4 help avaiable for it..
But the button is not coming up now.. Is there any customizing code to be written in my report prog for the button to appear...
Any info would be helpful...
Thanks in Advance..
Regards,
Naveen M

Hello Aditya,
Thanks a lot.. but u know wat at times i think ABAP editor give some bizarre problems.. I did the modification
parameters: p_abc type <any type > MATCHCODE OBJECT <search help name>
and the button popped up...
i deleted the addition of matchcode object addition and activated my code.. and the buttons now come up without that addition.
As i told before has to come up when the field has search help attached to it.. no modifications actually need to be done i guess.. but somehow it was not comin at first...
Anyway Thanks a lot,
Good day..

Adding a message to the variable selection screen

Hi there
I have been asked to find a way to add a message to the variable selection screen.
It appears that DIVISION needs to be added to the selection screen, as this makes the query run faster. However, they don't actually want the user to enter a division, as this causes other problems.
So, ideally, I would be able to add a message to the variable selection screen that advises users against entering a value for division.
I don't know how to do this.
I create the web template, and I can therefore add messages or anything you like to the template, but I don't believe I have any control over the variable selection screen.
Does anyone know if this is possible?
We are running a 2004s system if that helps.
Cheers,
Andrew

Hello,
Well i think if you make the variable used for division not ready for input it would not be available for the users to input anything.
you can find the checkbox for this in the properties of the variable in query designer.
Hope this matches your requirement.
Regds,
Shashank

Adding functionality to the pushbuttons in selection screen

Hi,
Where to add the logic to the pushbutton in the selection screen.In the PBO or PAI of that screen.If possible can anyone send an example for that?

Hey!
Check out this sample code.
REPORT z_prog.
DATA:
BEGIN OF fs_spfli,
    carrid   LIKE spfli-carrid,        " Airline Code
    connid   LIKE spfli-connid,        " Flight Connection Number
    airpfrom LIKE spfli-airpfrom,      " Departure airport
    airpto   LIKE spfli-airpto,        " Destination airport
    deptime LIKE spfli-deptime,       " Departure time
    arrtime LIKE spfli-arrtime,       " Arrival time
END OF fs_spfli,
BEGIN OF fs_sflight,
    carrid   LIKE sflight-carrid,       " Airline Code
    connid   LIKE sflight-connid,       " Flight Connection Number
    fldate   LIKE sflight-fldate,       " Flight date
    seatsmax LIKE sflight-seatsmax,     " Maximum seats in economy class
    seatsocc LIKE sflight-seatsocc,     " Occupied seats in economyclass
END OF fs_sflight,
w_checkbox TYPE c,                    " Variable for checkbox
w_currentline TYPE i,                 " Variable to display current
                                        " line
w_lines TYPE i,
w_read TYPE c .
* Internal Table to hold flight schedule information                  *
DATA:
t_spfli LIKE
    TABLE OF
          fs_spfli.
* Internal Table to hold flight information                           *
DATA:
t_sflight LIKE
      TABLE OF
            fs_sflight,
t_sflight1 LIKE t_sflight.
*    START-OF-SELECTION Event                                         *
START-OF-SELECTION.
PERFORM get_data_spfli.
*    END-OF-SELECTION Event                                           *
END-OF-SELECTION.
SET PF-STATUS 'MENU'.
PERFORM display_data_spfli.
*    TOP-OF-PAGE Event                                                *
TOP-OF-PAGE.
PERFORM header_table_spfli.
*    AT LINE-SELECTION EVENT                                          *
AT LINE-SELECTION.
SET PF-STATUS space.
IF sy-lsind EQ 1 AND sy-lilli GE 4.
    PERFORM get_data_sflight.
    PERFORM display_data_sflight.
    PERFORM flag_line.
ENDIF.                               " IF sy-lsind EQ 1..
*    AT USER-COMMAND                                                  *
AT USER-COMMAND.
IF sy-lsind EQ 1.
    SET PF-STATUS space.
    CASE sy-ucomm.
      WHEN 'DISPLAY'.
        PERFORM get_data_sflight1.
        PERFORM display_data_sflight.
      WHEN 'SELECTALL'.
        PERFORM select_all.
        PERFORM flag_line.
      WHEN 'DESELECTAL'.
        PERFORM deselect_all.
        PERFORM flag_line.
    ENDCASE.                           " CASE sy-ucomm
ENDIF.                               " IF sy-lsind EQ 1
*    TOP-OF-PAGE DURING LINE-SELECTION                                *
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM sec_list_heading.
*&      Form get_data_spfli
* This subroutine fetches the data from SPFLI
* This subroutine does not have parameters to pass
FORM get_data_spfli .
SELECT carrid                        " Airline Code
         connid                        " Flight Connection Number
         airpfrom                      " Departure airport
         airpto                        " Destination airport
         deptime                       " Departure time
         arrtime                       " Arrival time
    FROM spfli
    INTO TABLE t_spfli.
ENDFORM.                               " GET_DATA_SPFLI
*&      Form display_data_spfli
* This subroutine displays the data of SPFLI
* This subroutine does not have parameters to pass
FORM display_data_spfli .
LOOP AT t_spfli INTO fs_spfli.
    WRITE: /02 w_checkbox AS CHECKBOX,
            05 w_read,
               fs_spfli-carrid UNDER text-001,
               fs_spfli-connid UNDER text-002,
               fs_spfli-airpfrom UNDER text-003,
               fs_spfli-airpto UNDER text-004,
               fs_spfli-deptime UNDER text-005,
               fs_spfli-arrtime UNDER text-006.
    HIDE:
      fs_spfli-carrid,
      fs_spfli-connid.
ENDLOOP.                             " LOOP AT t_spfli..
ENDFORM.                               " DISPLAY_DATA_SPFLI
*&      Form header_table_spfli
* This subroutine diplays the headings of table spfli
* This subroutine does not have parameters to pass
FORM header_table_spfli .
WRITE: /10 text-001 COLOR 4,
          25 text-002 COLOR 4,
          40 text-003 COLOR 4,
          55 text-004 COLOR 4,
          70 text-005 COLOR 4,
          85 text-006 COLOR 4.
ENDFORM.                               " HEADER_TABLE
*&      Form get_data_sflight
* This subroutine fetches the data from SFLIGHT
* This subroutine does not have interface parameters to pass
FORM get_data_sflight .
SELECT carrid                        " Airline Code
         connid                        " Flight Connection Number
         fldate                        " Flight date
         seatsmax                      " Maximum seats in economy class
         seatsocc                      " Occupied seats in economyclass
    FROM sflight
    INTO TABLE t_sflight
   WHERE carrid EQ fs_spfli-carrid
     AND connid EQ fs_spfli-connid.
ENDFORM.                               " GET_DATA_SFLIGHT
*&      Form display_data_sflight
* This subroutine displays the SFLIGHT data
* This subroutine does not have interface parameters to pass
FORM display_data_sflight .
LOOP AT t_sflight INTO fs_sflight.
    WRITE: / fs_sflight-carrid UNDER text-001,
             fs_sflight-connid UNDER text-002,
             fs_sflight-fldate UNDER text-007,
             fs_sflight-seatsmax UNDER text-008 LEFT-JUSTIFIED,
             fs_sflight-seatsocc UNDER text-009 LEFT-JUSTIFIED.
ENDLOOP.
    CLEAR: fs_sflight.
ENDFORM.                               " DISPLAY_DATA_sflight
*&      Form sec_list_heading
* This subroutine diplays the headings of table spfli
* This subroutine does not have interface parameters to pass
FORM sec_list_heading .
WRITE: /2 text-001 COLOR 4,
         15 text-002 COLOR 4,
         33 text-007 COLOR 4,
         45 text-008 COLOR 4,
         60 text-009 COLOR 4.
ENDFORM.                               " SEC_LIST_HEADING
*&      Form get_data_sflight1
* This subroutine displays the data from SFLIGHT according to checkbox
* clicked.
* This subroutine does not have interface parameters to pass
FORM get_data_sflight1 .
DATA:
    lw_checkbox TYPE c.
DESCRIBE TABLE t_spfli LINES w_lines.
DO w_lines TIMES.
    w_currentline = 3 + sy-index.
    CLEAR:
      w_checkbox,
      fs_spfli.
    READ LINE w_currentline FIELD VALUE
      w_checkbox INTO lw_checkbox
      fs_spfli-carrid INTO fs_spfli-carrid
      fs_spfli-connid INTO fs_spfli-connid.
    IF sy-subrc EQ 0.
      IF lw_checkbox EQ 'X'.
        SELECT carrid                  " Airline Code
               connid                  " Flight Connection Number
               fldate                  " Flight Date
               seatsmax                " Max Seats
               seatsocc                " Occupied Seats
          FROM sflight
          INTO TABLE t_sflight1
         WHERE carrid EQ fs_spfli-carrid
           AND connid EQ fs_spfli-connid.
        IF sy-subrc EQ 0.
          APPEND LINES OF t_sflight1 TO t_sflight.
        ENDIF.                         " IF sy-subrc EQ 0.
      ENDIF.                           " IF lw_checkbox EQ 'X'
    ENDIF.                             " IF sy-subrc EQ 0.
ENDDO.                               " DO w_lines TIMES
ENDFORM.                               " GET_DATA_SFLIGHT1
*&      Form select_all
* This subroutine selects all the records of SPFLI
* This subroutine does not have interface parameters to pass
FORM select_all .
DESCRIBE TABLE t_spfli LINES w_lines.
DO w_lines TIMES.
    w_currentline = sy-index + 3.
    READ LINE w_currentline FIELD VALUE
    w_checkbox INTO w_checkbox.
    IF sy-subrc = 0.
      MODIFY LINE w_currentline FIELD VALUE
      w_checkbox FROM 'X'.
    ENDIF.                             " IF sy-subrc = 0.
ENDDO.                               " DO lw_line TIMES.
ENDFORM.                               " SELECT_ALL
*&      Form deselect_all
* This subroutine deselects all the records of SPFLI
* This subroutine does not have interface parameters to pass
FORM deselect_all .
DESCRIBE TABLE t_spfli LINES w_lines.
DO w_lines TIMES.
    w_currentline = sy-index + 3.
    READ LINE w_currentline FIELD VALUE
    w_checkbox INTO w_checkbox.
    IF sy-subrc = 0.
      MODIFY LINE w_currentline FIELD VALUE
      w_checkbox FROM ' '.
    ENDIF.                             " IF sy-subrc = 0.
ENDDO.                               " DO lw_line TIMES.
ENDFORM.                               " DESELECT_ALL
*&      Form flag_line
* This subroutine flags the line which has been read
* This subroutine does not have interface parameters to pass
FORM flag_line .
DESCRIBE TABLE t_spfli LINES w_lines.
DO w_lines TIMES.
    w_checkbox = 'X'.
    READ LINE sy-lilli FIELD VALUE
      w_read INTO w_read
      w_checkbox INTO w_checkbox.
    IF sy-subrc EQ 0.
      MODIFY CURRENT LINE
      FIELD FORMAT w_checkbox INPUT OFF
      FIELD VALUE w_read FROM '*'.
    ENDIF.                             " IF sy-subrc EQ 0
ENDDO.                               " DO w_lines TIMES
ENDFORM.                               " FLAG_LINE
Regards
Abhijeet
Edited by: Abhijeet Kulshreshtha on Jul 11, 2008 9:10 AM

How to replace the existing selection screen with new selection screen

Hi,
I have first selection screen with parametre as a table name, then I have created dynamic selection screen as 2nd selection screen with different fields of that table as select options. This is done using genaration of dynamic report. Now If I click on button on this 2nd selction screen , then I want to replace this 2nd dynamic selection screen , with the other selection screen fields.
Can anybody guide me, How to do replace one slection screen with different selection screen.
and one imp thing is this selction screen is populating with dynamic fields on it.
Regards,
Mrunal

As I can understand you want to make some of the screen field to disable or visible on screen depending upon the interaction of user with screen 1.
You may use this example code in PBO of screen 2.
LOOP AT SCREEN.
    " action has been taken to modify the area office screen as per the option chosen at screen 99.
    CASE ACTION.
        " if the user has taken up the option of UPLOAD
      WHEN 'UP'.     " screen processing while we upload the plan
        " during upload we will make dates as output fields only
        IF SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_TO' OR SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_FRM'.
          SCREEN-INPUT = 0.
          MODIFY SCREEN.
        ENDIF.
        " also make 2 buttons disabled
        IF SCREEN-NAME = 'AO_DO' OR SCREEN-NAME = 'AO_VE'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
      WHEN 'DN'.      " screen processing while we upload the approved plan
        " during upload we will make dates as output fields only
        IF SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_TO' OR SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_FRM'.
          SCREEN-INPUT = 0.
          MODIFY SCREEN.
        ENDIF.
        " also make 2 buttons disabled
        IF SCREEN-NAME = 'AO_UP' OR SCREEN-NAME = 'AO_VE'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
      WHEN 'VW'.      " screen processing while we view the plan
        " during upload we will make dates as output fields only
        IF SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_TO' OR SCREEN-NAME = 'ZSDTPLANVRSIO-DAT_FRM'.
          SCREEN-INPUT = 0.
          MODIFY SCREEN.
        ENDIF.
        " also make 2 buttons disabled
        IF SCREEN-NAME = 'RLGRAP-FILENAME' OR SCREEN-NAME = 'FNAME'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
        " and hide the file input field
        IF SCREEN-NAME = 'AO_DO' OR SCREEN-NAME = 'AO_UP'.
          SCREEN-ACTIVE = 0.
          MODIFY SCREEN.
        ENDIF.
    ENDCASE.
ENDLOOP.

Multiple selection screens with status gui

Hi,
I want to make a report with two selection screens and i should create a status gui for these two.
So, I've tried to do, the following:
* FIRST SCREEN
SELECTION-SCREEN BEGIN OF BLOCK bk WITH FRAME.
PARAMETERS: pa(200) TYPE c.
SELECT-OPTIONS: so FOR sflight-carrid.
SELECTION-SCREEN END OF BLOCK bk.
* /FIRST SCREEN
* SECOND SCREEN
SELECTION-SCREEN BEGIN OF SCREEN 2000.
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME.
PARAMETERS: pa2(200) TYPE c.
SELECTION-SCREEN END OF BLOCK bk1.
SELECTION-SCREEN END OF SCREEN 2000.
* /SECOND SCREEN
AT SELECTION-SCREEN OUTPUT.
SET PF-STATUS 'Z_STAT'.
SET TITLEBAR 'COISO'.
AT SELECTION-SCREEN.
IF sy-dynnr EQ '1000'.
    CASE sy-ucomm.
      WHEN 'BACK' OR 'EXIT' OR 'CANC'.
        LEAVE TO SCREEN 0.
      WHEN 'EXECUTAR'.
        CALL SELECTION-SCREEN 2000.
        IF sy-subrc <> 0.
          LEAVE TO SCREEN 1000.
        ENDIF.
    ENDCASE.
The problem is that on the first selection screen i have the status gui that I've created, but when i use CALL SELECTION-SCREEN 2000
the status gui (Z_STAT) is not assigned with the screen 2000.
Is this possible? If yes how, and how can i capture which button on status gui of screen 2000 was clicked, because the field sy-ucomm after the call selection-screen 2000 is not updated?
Regards,
Pedro Bessa

harsh bhalla,
its the same report. with two selection-screens. Can't i have status gui for both of them?
Gurpreet Singh,
I have a selection screen. Not a screen. Can a have a pbo for a selection-screen? or one for each selection-screen?
The table SSCRFIELDS and the field sy-ucomm stays with the value from the first selection-screen.
Regards,
Pedro Bessa

SUBMIT via selection screen and return gives dump

Hi Guys,
When i have used SUBMIT via SELECTION SCREEN and RETURN, it gave me the selection screen and subsequent report is executed properly without an error and when i pressed back button, it went to selection screen without any issues but the problem is when i press back from the selection screen it gives me a dump. Could you guys think of what would be the probelm.
Thanks in Advance.
Santosh.

Hi Santhosh,
What is the dump u r getting? I tried like this and is working file.
Report1
REPORT Z75694TEST1.
PARAMETERS po_1 TYPE c.
WRITE po_1.
SUBMIT Z75694_TEST VIA SELECTION-SCREEN AND RETURN.
Report2
REPORT Z75694_TEST .
PARAMETERS: po_2 TYPE c.
WRITE po_2.
Thanks,
Vinod.

Radio Buttons on Selection Screen

Hi,
I have four radio buttons on selection screen in a frame, all belonging to the same group.
When the program is called using transaction 1, first two radio buttons are displayed. When the program is called using transaction 2, bottom two radio must be displayed.
I am doing this using the following code.
The problem is : When last two are displayed, there is empty space left on the top and first two are displayed there is empty space left in the bottom of the frame. How can this be taken care of such there are no empty spaces in the box frame?
Code:
Radio Buttons for Table Name
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-005.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_ot   RADIOBUTTON GROUP grp1 MODIF ID one.
SELECTION-SCREEN COMMENT 5(31) text-001 FOR FIELD p_ot.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_exp   RADIOBUTTON GROUP grp1 MODIF ID one.
SELECTION-SCREEN COMMENT 5(31) text-002 FOR FIELD p_exp.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_cost   RADIOBUTTON GROUP grp1 MODIF ID two.
SELECTION-SCREEN COMMENT 5(31) text-003 FOR FIELD p_cost.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_att   RADIOBUTTON GROUP grp1 MODIF ID two.
SELECTION-SCREEN COMMENT 5(31) text-004 FOR FIELD p_att.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END OF BLOCK bl1.
Initialization
INITIALIZATION.
Display Table Names depending on transaction calling the program
PERFORM display_table_names.
FORM display_table_names.
DATA : l_mod_id(3) TYPE c.
IF sy-tcode EQ 'ZVTEST1'.
    l_mod_id = 'ONE'.
ELSEIF sy-tcode EQ 'ZVTEST2'.
    l_mod_id = 'TWO'.
ENDIF.
LOOP AT SCREEN.
    IF screen-group1 EQ l_mod_id.
      screen-invisible   = '1'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
ENDFORM.                    " display_table_names

Hi,
REPORT Z_SALES MESSAGE-ID ZZ                          .
*                             Variables                                *
DATA: IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
      IT_MSGS LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA: V_FILE TYPE STRING.
*                         Internal Tables                              *
DATA: BEGIN OF IT_SALES OCCURS 0,
        AUART,
        VKORG,
        VTWEG,
        BSTKD,
        KUNNR_KUNAG,
        KUNNR_KUNWE,
        KETDAT,
        KPRGBZ,
        PRSDT,
        BSTKD_1,
        KUNNR_KUNAG1,
        KUNNR_KUNWE1,
        KETDAT_1,
        KPRGBZ_1,
        PRSDT_1,
        ZTERM_1,
        INCO1,
        INCO2,
        MABNR,
        KWMENG,
        BSTKD_2,
        KUNNR_KUNAG2,
        KUNNR_KUNWE2,
        KETDAT_2,
        KPRGBZ_2,
        PRSDT_2,
        ZTERM_2,
        INCO1_1,
        INCO2_2,
        KSCHL,
        KBETR,
      END OF IT_SALES.
*                       Selection-Screen                               *
*Selection Screen 1
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_FILE(25) TYPE C,
             O_FILE(25) TYPE C.
SELECTION-SCREEN END OF BLOCK B1.
*Selection Screen 2
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS: CAL_TRA RADIOBUTTON GROUP G1 USER-COMMAND FLAG,
            SESSION RADIOBUTTON GROUP G1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK B2.
*Selection Screen 3
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS: MODE DEFAULT 'X' MODIF ID BL1,
            UPDATE DEFAULT 'X' MODIF ID BL1.
SELECTION-SCREEN END OF BLOCK B3.
*Selection Screen 4
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-003.
PARAMETERS: SES_NAM(25) MODIF ID BL2,
            KEP_TRAS TYPE C DEFAULT 'X' MODIF ID BL2,
            LOC_DATE TYPE SY-DATUM MODIF ID BL2,
            USER TYPE SY-UNAME DEFAULT SY-UNAME MODIF ID BL2.
SELECTION-SCREEN END OF BLOCK B4.
*                     At Selection-Screen Output                      *
AT SELECTION-SCREEN OUTPUT.
IF CAL_TRA = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'BL1'.
        SCREEN-ACTIVE = '1'.
      ENDIF.
      IF SCREEN-GROUP1 = 'BL2'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
IF SESSION = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'BL1'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      IF SCREEN-GROUP1 = 'BL2'.
        SCREEN-ACTIVE = '1'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
*                     At Selection-Screen                             *
AT SELECTION-SCREEN.
PERFORM VALIDATE_MANDATORY_FIELDS.
*****************            INITIALIZATION         ********************
INITIALIZATION.
LOC_DATE = SY-DATUM - 1.
*                       Start of Selection                             *
START-OF-SELECTION.
V_FILE = P_FILE.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                = V_FILE
      FILETYPE                = 'ASC'
      HAS_FIELD_SEPARATOR     = ' '
    TABLES
      DATA_TAB                = IT_SALES
    EXCEPTIONS
      FILE_OPEN_ERROR         = 1
      FILE_READ_ERROR         = 2
      NO_BATCH                = 3
      GUI_REFUSE_FILETRANSFER = 4
      INVALID_TYPE            = 5
      NO_AUTHORITY            = 6
      UNKNOWN_ERROR           = 7
      BAD_DATA_FORMAT         = 8
      HEADER_NOT_ALLOWED      = 9
      SEPARATOR_NOT_ALLOWED   = 10
      HEADER_TOO_LONG         = 11
      UNKNOWN_DP_ERROR        = 12
      ACCESS_DENIED           = 13
      DP_OUT_OF_MEMORY        = 14
      DISK_FULL               = 15
      DP_TIMEOUT              = 16
      OTHERS                  = 17.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*&      Form VALIDATE_MANDATORY_FIELDS
*       text
FORM VALIDATE_MANDATORY_FIELDS.
IF P_FILE IS INITIAL OR O_FILE IS INITIAL.
    MESSAGE E000 WITH 'ENTER BOTH THE FILE NAMES'.
ENDIF.
IF CAL_TRA = 'X'.
    IF MODE IS INITIAL OR UPDATE IS INITIAL.
      MESSAGE E000 WITH 'ENTER BOTH THE OPTIONS'.
    ENDIF.
    IF SY-SUBRC <> 0.
      IF MODE <> 'A' OR MODE <> 'E' OR MODE <> 'N'
      OR MODE <> 'a' OR MODE <> 'e' OR MODE <> 'n'.
        MESSAGE E000 WITH 'Mode should be either A, E or N'.
      ENDIF.
      IF UPDATE <> 'S' OR UPDATE <> 'A'
      OR UPDATE <> 's' OR UPDATE <> 'a'.
        MESSAGE E000 WITH 'Mode should be either S or A'.
      ENDIF.
    ENDIF.
ENDIF.
IF SESSION = 'x'.
    IF SES_NAM   IS INITIAL
    OR KEP_TRAS IS INITIAL
    OR LOC_DATE IS INITIAL
    OR USER      IS INITIAL.
      MESSAGE E000 WITH 'ENTER ALL THE FIELDS'.
    ENDIF.
ENDIF.
ENDFORM.                    "VALIDATE_MANDATORY_FIELDS
Regards
vijay

Push buttons are not triggering on the selection screen

selection-screen begin of block a with frame title text-001.
selection-screen skip.
parameters:z like vbap-vbeln.
selection-screen skip.
selection-screen begin of block b with frame title text-002.
selection-screen skip.
parameters:sales radiobutton group g default 'X',
           trans radiobutton group g.
selection-screen end of block b.
selection-screen skip.
selection-screen pushbutton 10(12) pu_text user-command CANC.
selection-screen pushbutton 30(12) qu_text user-command STAT.
selection-screen end of block a.
Initialization.
pu_text = 'Cancel Order'.
qu_text = 'Status'.
TABLES SSCRFIELDS.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
WHEN 'CANC'.
WRITE 'CANCEL'.
WHEN 'STAT'.
WRITE 'STATUS'.
ENDCASE.

hi,
in your program declare SSCRFIELDS table before defining selection-screen with push-buttons.
To create a pushbutton on the selection screen, you use:
<b>SELECTION SCREEN PUSHBUTTON [/]<pos(len)> <push>
                            USER-COMMAND <ucom> [MODIF ID <key>].</b>
The [/]<pos(len)> parameters and the MODIF IF addition have the same function as for the formatting options for underlines and comments.
<b>follow this sample program.</b>
REPORT DEMO.
TABLES SSCRFIELDS.
DATA FLAG.
SELECTION-SCREEN:
BEGIN OF SCREEN 500 AS WINDOW TITLE TIT,
    BEGIN OF LINE,
      PUSHBUTTON 2(10) BUT1 USER-COMMAND CLI1,
      PUSHBUTTON 12(10) TEXT-020 USER-COMMAND CLI2,
    END OF LINE,
    BEGIN OF LINE,
      PUSHBUTTON 2(10) BUT3 USER-COMMAND CLI3,
      PUSHBUTTON 12(10) TEXT-040 USER-COMMAND CLI4,
    END OF LINE,
END OF SCREEN 500.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
    WHEN 'CLI1'.
      FLAG = '1'.
    WHEN 'CLI2'.
      FLAG = '2'.
    WHEN 'CLI3'.
      FLAG = '3'.
    WHEN 'CLI4'.
      FLAG = '4'.
ENDCASE.
START-OF-SELECTION.
TIT = 'Four Buttons'.
BUT1 = 'Button 1'.
BUT3 = 'Button 3'.
CALL SELECTION-SCREEN 500 STARTING AT 10 10.
CASE FLAG.
    WHEN '1'.
      WRITE / 'Button 1 was clicked'.
    WHEN '2'.
      WRITE / 'Button 2 was clicked'.
    WHEN '3'.
      WRITE / 'Button 3 was clicked'.
    WHEN '4'.
      WRITE / 'Button 4 was clicked'.
    WHEN OTHERS.
      WRITE / 'No Button was clicked'.
ENDCASE.
regards,
Ashok Reddy

Button on standard selection screen

HI experts , can any budy tell me , that, can we put a button on the standard selection screen , means on screen no 1000, PLease suggest ur ans, i have a requirement to create a button on the first selection screen by selection the check box on the standard selection screen , a button should be appear on the standard selection screen.
THanks in advance,
Rahul

Hello,
What do you mean by "but ur second concept is wrong we can set our own pf-status then how can u say that set the status".
Read again what I wrote! I said that the solution for your problem is to create a PF status of your own and that one will substitute the STANDARD one. This is the reason for having to insert the Execute (F8) button on it. Otherwise, if you don't insert it, you wont be able to execute your report.
Also, plz reply if u know the exect ans? this is not nice to say, specialy when the answer is correct. I've inserted buttons in standard selections screen lot's of times.
Regards.
Valter Oliveira.

Buttons in Selection Screen

Hi,
In my module pool program, if I click a button, am calling a selection screen using following statement.
CALL SELECTION-SCREEN 0105 STARTING AT 10 10 ENDING AT 95 16.
also, in TOP include, I have designed the selection screen as follows
SELECTION-SCREEN BEGIN OF SCREEN 0105.
SELECTION-SCREEN BEGIN OF BLOCK proj_def WITH FRAME TITLE text-100.
SELECT-OPTIONS pspid FOR proj-pspid.
SELECTION-SCREEN END OF BLOCK proj_def.
SELECTION-SCREEN END OF SCREEN 0105.
when I execute, there are some default buttons are coming. But I want to include my own buttons and I have to write code for that. Is it possible? How can I do that?
Regards,
SAP Lover.

Hi,
Proceed as follows to achieve your requirement.
1. Click on the button
2. According to your logic you'll get a Selection Screen as POP-UP
3. Now select F1 on that input field
4. Go with Technical Information Option
5. You'll get the necessary info and here you can notice GUI DATA
6. Here you can see the program name as RSSYSTDB and Status as %_CSP
7. Double click on this status.
8. It will lead you to that status. Click on Display <-> Change / CTRL + F1.
9. It will ask for the access key. get the access key from BASIS and then here you go to change according to your requirement.
Hope this helps. Reward if useful.
Thanks and Regards,
Maddineni Bharath.

How to Add Push Button On Selection Screen

Hi Experts,
How to add Push button on Selection Screen.
Points will b rewarded for useful help.
Bohra.

Hi,
To create a pushbutton on the selection screen, you use:
SELECTION SCREEN PUSHBUTTON [/]<pos(len)> <push>
USER-COMMAND <ucom> [MODIF ID <key>].
The [/]<pos(len)> parameters and the MODIF IF addition have the same function as for the formatting options for underlines and comments.
<push> determines the pushbutton text. For <push>, you can specify a text symbol or a field name with a maximum length of eight characters. This character field must not be declared with the DATA statement, but is generated automatically with length <len>. The field must be filled before the selection screen is called.
For <ucom>, you must specify a code of up to four characters. When the user clicks the pushbutton on the selection screen, <ucom> is entered in the UCOMM of the SSCRFIELDS interface work area. You must use the TABLES statement to declare the SSCRFIELDS structure. The contents of the SSCRFIELDS-UCOMM field can be processed during the AT SELECTION-SCREENevent.
Ex.
REPORT DEMO.
TABLES SSCRFIELDS.
DATA FLAG.
SELECTION-SCREEN:
BEGIN OF SCREEN 500 AS WINDOW TITLE TIT,
BEGIN OF LINE,
PUSHBUTTON 2(10) BUT1 USER-COMMAND CLI1,
PUSHBUTTON 12(10) TEXT-020 USER-COMMAND CLI2,
END OF LINE,
BEGIN OF LINE,
PUSHBUTTON 2(10) BUT3 USER-COMMAND CLI3,
PUSHBUTTON 12(10) TEXT-040 USER-COMMAND CLI4,
END OF LINE,
END OF SCREEN 500.
AT SELECTION-SCREEN.
CASE SSCRFIELDS.
WHEN 'CLI1'.
FLAG = '1'.
WHEN 'CLI2'.
FLAG = '2'.
WHEN 'CLI3'.
FLAG = '3'.
WHEN 'CLI4'.
FLAG = '4'.
ENDCASE.
START-OF-SELECTION.
TIT = 'Four Buttons'.
BUT1 = 'Button 1'.
BUT3 = 'Button 3'.
CALL SELECTION-SCREEN 500 STARTING AT 10 10.
CASE FLAG.
WHEN '1'.
WRITE / 'Button 1 was clicked'.
WHEN '2'.
WRITE / 'Button 2 was clicked'.
WHEN '3'.
WRITE / 'Button 3 was clicked'.
WHEN '4'.
WRITE / 'Button 4 was clicked'.
WHEN OTHERS.
WRITE / 'No Button was clicked'.
ENDCASE.
This example defines four pushbuttons on a selection screen that is displayed as a
dialog box. The selection screen is defined in a statement chain for keyword
SELECTION-SCREEN.
If the text symbols TEXT-020 and TEXT-040 are defined as 'Button 2' and 'Button 4',
the four pushbuttons appear as follows on the selection screen displayed as a dialog box.
Regards,
Bhaskar

Adding Radio button & regular button to selection-screen without new gui

Similar Messages

Maybe you are looking for