MODULE user_command_1000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'UP' OR 'CANC'.
LEAVE PROGRAM.
WHEN 'FND'.
CALL SCREEN 1001 STARTING AT 37 5 ENDING AT 87 22.
ENDCASE.
ENDMODULE. " user_command_1000 INPUT
and on other screen's user_command module
MODULE user_command_1001 INPUT.
CASE sy-ucomm.
WHEN 'OK'.
CALL SCREEN 1000. " call first screen again
ENDCASE.
ENDMODULE. " USER_COMMAND_1001 INPUT
here is my module of PBO in which i am fetching value for table control
MODULE fetch_data OUTPUT.
SELECT matnr matkl INTO CORRESPONDING FIELDS OF TABLE itab
FROM mara
WHERE matnr BETWEEN '000000000000000101' AND '000000000000000115'.
IF strin IS NOT INITIAL.
wa_itab-mark = 'X'.
LOOP AT itab.
IF itab-matnr = strin.
line1 = sy-tabix.
EXIT.
ENDIF.
ENDLOOP.
IF line1 0.
MODIFY itab INDEX line1 FROM wa_itab TRANSPORTING mark.
SET CURSOR LINE line1.
tab1-top_line = line1.
ENDIF.
ENDIF.
ENDMODULE. " fetch_data OUTPUT
here on screen 1001( second screen to enter search term) i have taken one i/o field named strin
Bluesky
