The PAI Event Code to search for a record in Table Control

Question

Logic
1. I have a position button and entry text field (search content) for a table control in my screen. Position button has the function code 'PBUT'.
2. Content of table control will be in an internal table. The entry text field  is to be used for positioning.
3. I enter the search (key) field in text field & Click the position button.
4. The PAI event of button click (Module user_command) of that screen is as under.
Case sy_ucomm.
When 'PBUT'.
What will be the code to bring the row as selected in table control, that I have to write here, for this case-value.
Endcase.
Regards,

Answer 1

Hi Alok,
Excuse me, couldn`t catch u yesterday. Ok i`ve the code which will set the cursor on the selected entry.
Reward points if convinced.
*& Report  Y131_TC_TEST                                                *
REPORT  y131_tc_test NO STANDARD PAGE HEADING.
TABLES: vbak.
DATA : BEGIN OF str_tc,
       vbeln LIKE vbak-vbeln,
       erdat LIKE vbak-erdat,
       END OF str_tc,
       it_tc LIKE TABLE OF str_tc WITH HEADER LINE,
       loopc LIKE sy-loopc,
       flag,
       lin TYPE i.
CONTROLS : my_tc TYPE TABLEVIEW USING SCREEN 9000.
CALL SCREEN 9000.
*&      Module  STATUS_9000  OUTPUT
*       text
MODULE status_9000 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
  IF it_tc[] IS INITIAL.
    SELECT vbeln erdat INTO TABLE it_tc UP TO 10
    ROWS FROM vbak.
    DESCRIBE TABLE it_tc LINES lin.
    my_tc-top_line = loopc.
  ENDIF.
ENDMODULE.                 " STATUS_9000  OUTPUT
*&      Module  USER_COMMAND_9000  INPUT
*       text
MODULE user_command_9000 INPUT.
  CASE sy-ucomm.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
   <b> WHEN 'PBUT'.</b>
**** Now this event is triggerred when the user uses the ****Position Push button to locate the field value.
      CALL SCREEN 9001 STARTING AT 10 15.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&      Module  USER_COMMAND_9001  INPUT
*       text
MODULE user_command_9001 INPUT.
  CASE sy-ucomm.
    WHEN 'OKAY' OR ' ' or 'EXIT'.
<b>**** When the user selects values from the search help on **** position button, the itab is read and index is *****assigned</b>
      READ TABLE it_tc WITH KEY vbeln = vbak-vbeln.
      IF sy-subrc = 0.
        loopc = sy-tabix.
        flag = 'X'.
**** the cursor is set here
       <b> my_tc-top_line = loopc.</b>
         SET SCREEN 0.
      LEAVE SCREEN.
      ENDIF.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9001  INPUT
*&      Module  STATUS_9001  OUTPUT
*       text
MODULE status_9001 OUTPUT.
  SET PF-STATUS 'MODAL'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9001  OUTPUT
Regards