PUSHBUTTON and AT SELECTION-SCREEN

Hi, I don't understand why I'm not being able to catch the user command in the example below. I tried in the CASE statement sscrfields-ucomm, sscrfields, sy-comm, but none of them work. Is the problem related with displaying a message ? Or am I indeed misunderstanding the use of the USER-COMMAND assigned to the PUSHBUTTON I created ? All I want is to be able to perform any action in the AT SELECTION-SCREEN event, when the button is pushed.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 4(10) but1 USER-COMMAND c1.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
but1 = 'BUTTON 1'.
AT SELECTION-SCREEN.
CASE sy-ucomm.
* CASE sscrfields-ucomm.
* CASE sscrfields.
WHEN 'c1'.
MESSAGE 'You clicked me' TYPE 'I'.
ENDCASE.
Thanks !
Avraham

Hi,
Give C1 in caps
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 4(10) but1 USER-COMMAND c1.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
but1 = 'BUTTON 1'.
AT SELECTION-SCREEN.
CASE sy-ucomm.
CASE sscrfields-ucomm.
CASE sscrfields.
WHEN 'C1'.
MESSAGE 'You clicked me' TYPE 'I'.
ENDCASE.
Cheers
Kothand

Similar Messages

How to disable a pushbutton created in selection screen.

How to disable a pushbutton created in selection screen.

you can make it invisible during runtime.
At the event, AT SELECTION-SCREEN OUTPUT. you can turn attributes on and off for screen elements. In this case, invisible = 1, makes the element invisible, 0 makes is visible.
here is a short sample.
report zrich_0001.
parameters: p_check type c.
selection-screen pushbutton 40(20) gocfg
                     user-command gocfg.
at selection-screen output.
loop at screen.
    if screen-name = 'GOCFG'.
      screen-invisible = '1'.
      modify screen.
    endif.
endloop.
Regards,
Rich Heilman

At selection-screen output and at selection-screen on

Hi Experts,
I had coded in both at selection-screen output for disabling input of certain fields and at selection-screen for validation like this:
AT SELECTION-SCREEN output.
IF p_amt = 'X'.
    LOOP AT SCREEN.
      CASE screen-name.
        WHEN 'P_AMT'.
          screen-input = '1'.
        WHEN 'P_TST'.
          screen-input = '1'.
        WHEN 'P_B4C'.
          screen-input = '1'.
        WHEN 'P_AFC'.
          screen-input = '1'.
        WHEN 'P_COM'.
          screen-input = '1'.
        WHEN 'P_COM1'.
          screen-input = '1'.
        WHEN 'P_COM2'.
          screen-input = '1'.
        WHEN OTHERS.
          screen-input = '0'.
      ENDCASE.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
IF p_amt = 'X'.
    LOOP AT SCREEN.
      CASE screen-name.
        WHEN 'P_AMT'.
          screen-input = '1'.
        WHEN 'P_TST'.
          screen-input = '1'.
        WHEN 'P_B4C'.
          screen-input = '1'.
        WHEN 'P_AFC'.
          screen-input = '1'.
        WHEN 'P_COM'.
          screen-input = '1'.
        WHEN 'P_COM1'.
          screen-input = '1'.
        WHEN 'P_COM2'.
          screen-input = '1'.
        WHEN OTHERS.
          screen-input = '0'.
      ENDCASE.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
IF p_pdf = 'X'.
    LOOP AT SCREEN.
      CASE screen-name.
        WHEN 'P_PDF'.
          screen-input = '1'.
        WHEN 'P_TST'.
          screen-input = '1'.
        WHEN 'P_PATH'.
          screen-input = '1'.
        WHEN OTHERS.
          screen-input = '0'.
      ENDCASE.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
IF p_afc = 'X'.
    LOOP AT SCREEN.
      CASE screen-name.
        WHEN 'P_TST'.
          screen-input = '1'.
        WHEN 'S_FID-LOW' OR 'S_FID-HIGH'.
          screen-input = '0'.
        WHEN 'S_ORG-LOW' OR 'S_ORG-HIGH'.
          screen-input = '0'.
        WHEN 'S_OFF-LOW' OR 'S_OFF-HIGH'.
          screen-input = '0'.
        WHEN 'S_DAT-LOW' OR 'S_DAT-HIGH'.
          screen-input = '0'.
      ENDCASE.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
AT selection-screen on block b5.
if p_tst is initial.
message text-016 type 'E'.
endif.
AT selection-screen on block b2.
if p_amt ne 'X' and p_pdf ne 'X'.
if s_fid is initial and s_org is initial.
message text-000 type 'E'.
endif.
if s_dat is initial.
message text-000 type 'E'.
endif.
endif.
when i comment out at selection-screen validations the input is disabled for the screen fields as set, else the validations are executed first.
Any solution for this???
Thanks in advance.

AT SELECTION-SCREEN
Syntax
AT SELECTION-SCREEN selscreen_event.
Effect
This statement defines event blocks for different events selscreen_event that are triggered by the ABAP runtime environment during selection screen processing.
Selection screen events occur immediately before sending a selection screen and after certain user actions on a displayed selection screen. They assist in selection screen processing in the ABAP program.
AT SELECTION-SCREEN is triggered at least twice during actions on selection screens that are linked into another selection screen as a subscreen - first for the linked selection screen itself, and then for the linking selection screens.
Note
The event blocks after AT SELECTION-SCREEN are implemented internally as procedures. Declarative statments in these event blocks create local data.

Download and upload selection screen texts

hello,
       My requirement is to upoad and download selection screen texts from one system to another..
       How do download the selection screen texts from program to the application server and then upload them on another system. I am writing a bdc to carry out this process...
      Please help me out with this..
Thank you,

Hi,
Why don't you just transport it? If it is linked you can asked basis to set the transport part and link it. If it is not you can download the transport and import it on another system.
If you still need a program to do that. You can use SAPlink on [http://wiki.sdn.sap.com/wiki/display/ABAP/SAPlink]. SDN provided such code already just download it and implement it on both of your system then you can copy a program with selection screen.
Cheers,
Chaiphon

How to call subscreen and provide selection screen in subscreen

Hi experts,
please anybody suggest me how to call subscreen in module pool screen and provide selection screen in that sub screen.
please tell me how to design this subscreen in module pool screen.
adevanced
thank you
regards
vijay krishna

Hi,
If you need to have select-options in module pool then follow these steps:-
To implement select-options in module pool, first design two input/output fields (textboxes) for the low and high value of the field and name it as <field_name>-low and <field_name>-high.
Create a button next the high value textbox and keep its sutaible function code.
Now, to call the pop-up on this button click, we have to call the same pop-up as in standard      select-options. For this we have to use the function module COMPLEX_SELECTIONS_DIALOG.
For this FM we have to pass the table name, field name and the range for the field whose range needs to fill when using the popup screen.
To pass the table name and field name details into the FM, we have to declare as:
DATA : tab TYPE rstabfield.
This structure comprises of table name and field name.
Pass these details in program as:-
u2003
*-- clear table and field details
CLEAR tab.
*-- append for range depending on the button clicked
*   either for sales order or line item
CASE sy-ucomm.
    WHEN 'VBELN'.
      tab-tablename = 'VBAP'.
      tab-fieldname = 'VBELN'.
*--To call the popup screen for the field use code:-
CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
    EXPORTING
      title             = text-002 u201Ctitle text
      text              = ' '
      signed            = 'X'
      search_help       = v_shelp u201Csearch help if required
      tab_and_field     = tab u201Ctable and field name details
    TABLES
      range             = r_vbeln u201Crange for the associated field
    EXCEPTIONS
      no_range_tab      = 1
      cancelled         = 2
      internal_error    = 3
      invalid_fieldname = 4
      OTHERS            = 5.
Hope this helps you.
Regards,
Tarun

Difference between At selection-screen and At selection-screen field

I need to know the difference between
Difference between At selection-screen and At selection-screen field
Regards
Shashi

Hi,
AT SELECTION-SCREEN is the event triggered in the PAI of the selection screen.
AT SELECTION-SCREEN on field field_name is the event specific to the field and is triggered when u press enter in that field.
AT SELECTION-SCREEN selscreen_event.
Effect
This statement defines event blocks for different events selscreen_event that are triggered by the ABAP runtime environment during selection screen processing.
Selection screen events occur immediately before sending a selection screen and after certain user actions on a displayed selection screen. They assist in selection screen processing in the ABAP program.
AT SELECTION-SCREEN is triggered at least twice during actions on selection screens that are linked into another selection screen as a subscreen - first for the linked selection screen itself, and then for the linking selection screens.
SELECTION-SCREEN FIELD SELECTION
FOR {NODE|TABLE} node [ID id].
Effect
This statement defines a node node in the structure of the logical database for field selection. If a node belongs to type T, you can use the TABLE addition instead of NODE. The statement cannot be used for type C nodes. .
If a node is defined for field selection, you can use an executable program linked to the logical database in the GET statement to control which fields in the node are to be read by the logical database. If you use the function module LDB_PROCESS, the FIELD_SELECTION parameter must be specified accordingly.
for more details check this link...
http://help.sap.com/saphelp_46c/helpdata/en/9f/db9a2e35c111d1829f0000e829fbfe/frameset.htm
Regards,
Priyanka.

Table control and a selection screen

Hi,
I have a requirement where I am supposed to be designing a screen that has a table control with fields
w/selection column       label 1(non-editable)          i/o field(from)        i/o field(to)
w/selection column       label 2(non-editable)          i/o field(from)        i/o field(to)
On searching the forum threads, I found related threads as to how to implement a selection screen (as the I/O fields are similar to select-options) in module pool programming. But mine requires the use of table control and a kind of selection screen embedded into it. Please guide me through this requirement.

Hi
If you need to implement a table control on selection screen u need to use a tabstrip as graphic element supports the table control.
So
1 - Step: define a tabstrip with 1 tab only:
SELECTION-SCREEN BEGIN OF BLOCK 3.
SELECTION-SCREEN BEGIN OF TABBED BLOCK MAX FOR 22 LINES.
SELECTION-SCREEN TAB (25) TABS1 USER-COMMAND UCOMM1
         DEFAULT SCREEN 100.
SELECTION-SCREEN END OF BLOCK MAX.
SELECTION-SCREEN END OF BLOCK 3.
2 - Step design the subscreen (in my sample the dynrpo 100) and insert the table control there:
PROCESS BEFORE OUTPUT.
MODULE INIT_CTRL.
LOOP WITH CONTROL T_CTRL.
    MODULE DISPLAY_DATA.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP WITH CONTROL T_CTRL.
      MODULE UPDATE_DATA.
ENDLOOP.
In the module DISPLAY_DATA and UPDATE_DATA u need to implement the code to transfer the data from internal table to table control and from table control to internal table, in order to display and update the data.
Max

Using LDB's in program and supressing Selection screen

Hi ,
I am using LDB in report program and dont want its corresponding selection screen but want my slection screen which i declared in program.
Experst how should i supress the LDB 's corresponding sletcion screen .
Regards
Poornima

hi Surya
I am displaying a BW report(3.5 version) in my 2004 portal by specifying INFOCUBE=Z_XYZ&QUERY=Z_ABC_XYZ_001.
When I execute the iView it straight away display the results of it with out showing the selection screen. When we execute the same in BeX, we get a selection screen. Can you please advice how we can display the BW report with selection screen in the iView.
The same problem i am facing here in my scenario could share your Exp on this .
Thanks in advance
Deepika

ITS Mobile - how to prefill and skip selection screen

Hi there,
I am struggling with requirement for ITS mobile service:
I need to fill the input fields on selection screen with values from url and automaticaly jump to the second screen.
I know this is possible with ITS as described [here|http://wiki.sdn.sap.com/wiki/pages/viewpage.action?pageId=22375].
Can I use similar approach for ITS mobile? How could I parse url parameters into input fields?
If this is not possible, what are my other options?
Thanks,
Igor

Hi Rajashiva,
that is not an option - the ITS mobile service will be called from an external system providing some parameters in URL.
Thanks anyway,
Igor

Dashboard and the selection screen on same page?

Hi WAD Experts,
How do I assemble selection screen for a Web based bashboard template on the same page. In otherwords, the user wants to see the report and selection screen on same web page. Let me welcome your ideas. So that when they select for example calender year, the graphs below should change based on variable selection.
Thanks
Sudhakar

Hi Sudhakar,
A way around this would be to employ dropdown boxes for all the chars that the users need to change filters for. This way on the top of the screen you have the different dropdown boxes and below this is your table/chart.
Hope this helps...

VL10 and new selection-screen fields

Hi experts.
My requirement is to add new selection-screen field to second tab in VL10.
After analyse many topics the solution was to copy VL10 to ZVL10.
Also V50R_USEREXIT_TRANSF was copyed and there was added specific code.
Furthemore note:524424 was implemented (header in form definition in V50R_USEREXIT_TRANSF ), and the SHP_VL10_SELECT_OPTIONS was enhanced. As I understood from this stage we have selection-criteria in repeort.
The problem is that I don't know how to transfer this data to ALV.
Any tips ?
Thanks .
Daniel.

hi
how did you do that. i have to add select options in coois tcode in header and operational level.but only using badi. using screen enhancement it is possible bt how to do that using bagi "workorder_infosystem"..
please help me out..

Activating and deactivating selection screen box.

Hi all,
In my program on selection screen there are two selection box.
Each has different function .
I want, when i use any one selection box then other one should be deactivated.
can any one me guide me in this regard.
Thanks
Chetan.

Hi,
I hope follwing code will solve your problem.
LOOP AT screen.
IF first_selection_box = 'X' AND screen-name = 'second_selection_box in upper case'.
screen-input = 0.
ENDIF.
IF second_selection_box = 'X' AND screen-name = 'first_selection_box in upper case'.
screen-input = 0.
ENDIF.
MODIFY screen.
ENDLOOP.
Reward points if the answer is helpful.
Megards,
Mukul

Problems in at selection-screen output - setting pushbutton invisible

Hello,
I hope I can get some help here
I have a problem with setting a pushbutton invisible
i have a field (long-text) in my screen - and behind this a pushbutton for calling the editor
if in a variant the parameters field is set invisible i also want to set the pushbutton invisible
i have no idea why in the at selection-screen output event screen-invisible is always 0 - but in the variant the field is set invisible.
i need to know if the parameters field is invisible to set the pushbutton the same
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) S_TXB_L1.
PARAMETERS S_TXT_L1 TYPE ZHR_FC_STRING.
SELECTION-SCREEN PUSHBUTTON 79(15) P_LTX_1 USER-COMMAND YLTXT1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) S_TXB_L2.
PARAMETERS S_TXT_L2 TYPE ZHR_FC_STRING.
SELECTION-SCREEN PUSHBUTTON 79(15) P_LTX_2 USER-COMMAND YLTXT2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) S_TXB_L3.
PARAMETERS S_TXT_L3 TYPE ZHR_FC_STRING.
SELECTION-SCREEN PUSHBUTTON 79(15) P_LTX_3 USER-COMMAND YLTXT3.
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF SCREEN-NAME(7) = 'S_TXT_L'.
      MERK_INVISIBLE = SCREEN-INVISIBLE.
    ENDIF.
    IF SCREEN-NAME(6) = 'P_LTX_'.
     SCREEN-INVISIBLE = MERK_INVISIBLE.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
Thanks very much...
Helmut

I agree - there seems to be some confusion here. In the variant the field can only be "hidden" while in the code it is possible to make the field completely invisible. 'Hiding' the field in the variant merely hides it by default and adds a 'plus' button to the toolbar, by clicking which the hidden elements can be exposed.
As far as changing the screen fields goes, I find it usefull to use MODIF ID. Perhaps this blog could be helpful:
http://friendlyabaper.blogspot.com/2009/07/my-super-awesome-selection-screen.html
P.S. Please use the code tags for the code, per Forum Rules.

Logical Database selection screen pushbutton

Hello All,
I need to create a pushbutton on a selection screen of a logical database. Basically this pushbutton when clicked will either display or suppress some fields on the screen. I have tried to use the SSCRFIELDS option to create a pushbutton, however that never displays for me. Logical Database DDF has an example of a pushbutton that I am looking to create, however the functionality will be different. I am not sure what I am missing, can anyone help? Thanks.
John

Hello All,
Thanks for your replies. However, there is something that is causing these options not to work. For some reason when using SSCRFIELDS nothing displays. For the SELECTION-SCREEN PUSHBUTTON command, we see the push button however our code for some reason is not working. I have another developer working this with me and we are both stumped. We are mirroring that DDF Logical Database and are not having any luck so far. Does anyone have any further suggestions?
John

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

PUSHBUTTON and AT SELECTION-SCREEN

Similar Messages

Maybe you are looking for