Hi,
You can create module pool program.
Design screen accodring to ur requirement and handle the accordingly.
Eg:
&----
*& Module pool ZMSV5_MOD *
*& *
&----
*& *
*& *
&----
PROGRAM zmsv5_mod .
TABLES: kna1, knbk.
DATA: v_check TYPE c.
DATA: v_kunnr LIKE kna1-kunnr,
v_name1 LIKE kna1-name1.
DATA: BEGIN OF it_tab OCCURS 0,
it_banks LIKE knbk-banks,
it_bankl LIKE knbk-bankl,
it_bankn LIKE knbk-bankn,
it_bkont LIKE knbk-bkont,
it_koinh LIKE knbk-koinh,
check TYPE c,
END OF it_tab.
CONTROLS: tc1 TYPE TABLEVIEW USING SCREEN '0200'.
&----
*& Module USER_COMMAND_0100 INPUT
&----
----
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'DISP' OR 'CHAN'.
IF sy-subrc NE 0.
MESSAGE e000(zz) WITH 'Customer No not valid '.
ENDIF.
LEAVE TO SCREEN 200.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
&----
*& Module valid INPUT
&----
----
MODULE valid INPUT.
SELECT SINGLE kunnr name1 FROM kna1 INTO (v_kunnr,v_name1)
WHERE kunnr = v_kunnr.
SELECT banks bankl bankn bkont koinh
FROM knbk INTO
TABLE it_tab
WHERE kunnr = v_kunnr.
ENDMODULE. " valid INPUT
&----
*& Module STATUS_0200 OUTPUT
&----
----
MODULE status_0200 OUTPUT.
SET PF-STATUS 'MM2'.
SET TITLEBAR 'TC'.
ENDMODULE. " STATUS_0200 OUTPUT
&----
*& Module STATUS_0100 OUTPUT
&----
----
MODULE status_0100 OUTPUT.
SET PF-STATUS 'MM2'.
SET TITLEBAR 'MM'.
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Module valid1 OUTPUT
&----
----
MODULE valid1 OUTPUT.
BREAK-POINT.
ENDMODULE. " valid1 OUTPUT
**&----
**
**& Module delete INPUT
**&----
**
**----
**
*module delete input.
*endmodule. " delete INPUT
&----
*& Module save INPUT
&----
----
MODULE save INPUT.
IF v_check = 'X'.
it_tab-check = 'X'.
ELSE.
it_tab-check = ' '.
ENDIF.
*
CASE sy-ucomm.
WHEN 'SAVE'.
IF v_check = 'X'.
it_tab-check = 'X'.
MODIFY it_tab INDEX tc1-current_line.
ENDIF.
else.
clear it_tab-check.
ENDMODULE. " save INPUT
&----
*& Module USER_COMMAND_0200 INPUT
&----
----
MODULE user_command_0200 INPUT.
CASE sy-ucomm.
WHEN 'DELT'.
DELETE it_tab WHERE check = 'X'.
DESCRIBE TABLE it_tab LINES tc1-lines.
WHEN 'INST'.
tc1-lines = tc1-lines + 1.
CLEAR it_tab.
APPEND it_tab.
WHEN 'LIST'.
LEAVE TO LIST-PROCESSING.
SET PF-STATUS 'MM2'.
SET TITLEBAR 'MM3'.
LOOP AT it_tab.
WRITE:/1(50) sy-uline.
WRITE:/ sy-vline ,3 it_tab-it_banks,
sy-vline,10 it_tab-it_bankl,
sy-vline,18 it_tab-it_bankn,
sy-vline,28 it_tab-it_bkont,
sy-vline, 35 it_tab-it_koinh,
50 sy-vline.
ENDLOOP .
WRITE:/1(50) sy-uline.
ENDCASE.
CLEAR sy-ucomm.
ENDMODULE. " USER_COMMAND_0200 INPUT
&----
*& Module modify_tab OUTPUT
&----
----
MODULE modify_tab OUTPUT.
CASE sy-ucomm.
WHEN 'DISP'.
LOOP AT SCREEN.
IF screen-group1 = 'G2'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN 'CHAN'.
LOOP AT SCREEN.
IF screen-group1 = 'G1'.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
*
*
endif.
modify screen.
endloop.
ENDCASE.
ENDMODULE. " modify_tab OUTPUT
&----
*& Module EX1 INPUT
&----
----
MODULE ex1 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 100.
WHEN 'EXIT'.
CALL TRANSACTION 'SE51'.
ENDCASE.
ENDMODULE. " EX1 INPUT
Regards,
Sreevani
Bluesky
