Regarding dropdown box on selection screen

Question

Hi Abapers,
I am facing a problem in handling dropdown box. please suggest . My Problem description below.
There is one Text field and other is one dropdown box on the selection screen.
Now When user enter the Prod Order number and press enter then automatically all the serial number will get appended into the dropdown box which are related to the Prod Order.
Now suppose if the user only Press F8 not Enter Button then that case It doesn't contain the serial number information.
<b>Now I want to handle it in selection screen.. Please suggest how to check the dropdown box if the dropdown box is not selected then Return to the selection screen..</b>
Please suggest me...........Very urgent.

Answer 1

Hello,
*& Report  DEMO_DROPDOWN_LIST_BOX                                      *
REPORT demo_dropdown_list_box.
*& Global Declarations                                                 *
* Screen Interfaces
TABLES sdyn_conn.
DATA   ok_code TYPE sy-ucomm.
* Global data
TYPES: BEGIN OF type_carrid,
         carrid type spfli-carrid,
         carrname type scarr-carrname,
       END OF type_carrid.
DATA itab_carrid TYPE STANDARD TABLE OF type_carrid.
*& Processing Blocks called by the Runtime Environment                 *
* Event Block START-OF-SELECTION
START-OF-SELECTION.
  CALL SCREEN 100.
* Dialog Module PBO
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN_100'.
ENDMODULE.
* Dialog Modules PAI
MODULE cancel INPUT.
  LEAVE PROGRAM.
ENDMODULE.
MODULE user_command_0100 INPUT.
  CASE ok_code.
    WHEN 'SELECTED'.
      MESSAGE i888(sabapdocu) WITH sdyn_conn-carrid.
  ENDCASE.
ENDMODULE.
* Dialog Module POV
MODULE create_dropdown_box INPUT.
  SELECT carrid carrname
                FROM scarr
                INTO CORRESPONDING FIELDS OF TABLE itab_carrid.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield        = 'CARRID'
            value_org       = 'S'
       TABLES
            value_tab       = itab_carrid
       EXCEPTIONS
            parameter_error = 1
            no_values_found = 2
            OTHERS          = 3.
  IF sy-subrc <> 0.
  ENDIF.
ENDMODULE.
Regards,
Deepu.K