How to transfer the contents of a line of a table control to second screen?

Question

Hi,
I have a table control and I have entered some contents in one line of a table control .
When i click on this line and then click on the detail button on the screen , it should take me to another screen and whatever I have entered in the table control should be transferred to the second screen .
Please could anyone help me out with this .
Regards,
Sushanth H.S.

Answer 1

Hi
U need to get the index of the line of table control by command GET CURSOR:
PROCESS PAI.
LOOP AT ITAB.
   MODULE GET_CURSOR.
   MODULE MODIFY_ITAB.
ENDLOOP.
MODULE USER_COMMAND.
Module to pick up the selected line:
MODULE GET_CURSOR.
  GET CURSOR LINE VN_LINE.
ENDMODULE.
Module to transfer the data from table control to internal table:
MODULE MODIFY_ITAB.
  ITAB-FIELD1 = <FIELD OF TABLE CONTROL>.
  MODIFY ITAB INDEX <TABLE CONTROL>-CURRENT_LINE.
ENDMODULE.
U should considere the variable line has the value of the index of the line of table control, so u need to calculate the number of the corresponding line of internal table:
MODULE USER_COMMAND.
  CASE OK_CODE.
    WHEN 'DETAIL'.
* Calculate the line of internal table:
       VN_LINE = <TABLE CONTROL>-TOP_LINE + VN_LINE - 1.
* Read the data
       READ TABLE ITAB INDEX VN_LINE.
* Transfer the data to the output structure of the new screen
       <STRUCTURE>-FIELD1 = ITAB-FIELD1.
* Call the new screen
       SET SCREEN <NEW SCREEN>.
       LEAVE SCREEN.
Max