Exit the loop of screen in Module pool

Question

Hi,
My requirement is : in my screen i have Table control. When i select any line (the value of select coloum will be 'X' ) and click on one button (Detail is button in my screen) the loop - endloop should exit at that line.
for example : if i select 5th line of table control then the data of 5th line will be in the header of internal table and the value of select coloum will be 'X'. i want to exit at that point itself. i dont want internal table to loop in PAI.
my code is :
PROCESS AFTER INPUT.
LOOP AT IT_ZINVH.
  MODULE EXIT_LOOP.
ENDLOOP.
MODULE EXIT_LOOP INPUT.
IF IT_ZINVH-SEL = 'X'.
EXIT .
ENDIF.
ENDMODULE.  but here if i use EXIT it is only comming out of IF-ENDIF contidion.
Thanks & Regards

Answer 1

Hi,
Try this way.
<li>Code PAI like below
PROCESS AFTER INPUT.
  LOOP AT it_zinvh.
    MODULE read_table_control.
  ENDLOOP.
  MODULE user_command_1001.
<li>Module read_table_Control should be like below.
*&      Module  READ_TABLE_CONTROL  INPUT
MODULE read_table_control INPUT.
  MODIFY it_nfal INDEX tchkbox-current_line.
  "The above Modify statement modifies the table for the column SEL = 'X'.
ENDMODULE.                 " READ_TABLE_CONTROL  INPUT
<li>Write action when you click on DETAIL button. Lets say DETAIL is the function code for Details screen button.
*&      Module  USER_COMMAND_1001  INPUT
MODULE user_command_1001 INPUT.
  CLEAR ok_code.
  ok_code = sy-ucomm.
  CASE ok_code.
    WHEN 'DETAIL'.
      LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
      LOOP AT it_zinhv WHERE sel = 'X'.
        WRITE:it_zinhv.
        EXIT.
      ENDLOOP.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_1001  INPUT
Thanks
Venkat.O