tcode 用报表形式,0100是主屏幕(需要画),0101 是子屏幕(自动生成)
*&---------------------------------------------------------------------*
*& Report ZPANJIN01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zpanjin01.
DATA: ok_code LIKE sy-ucomm,
save_ok LIKE ok_code.
START-OF-SELECTION.
CALL SCREEN 0100.
SELECTION-SCREEN BEGIN OF SCREEN 0101 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS:p_1 RADIOBUTTON GROUP gp1.
PARAMETERS:p_2 RADIOBUTTON GROUP gp1.
PARAMETERS:p_3 RADIOBUTTON GROUP gp1.
PARAMETERS:p_4 RADIOBUTTON GROUP gp1.
PARAMETERS:p_5 RADIOBUTTON GROUP gp1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 0101.
*&---------------------------------------------------------------------*
*& Module STATUS_0350 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0350 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
DATA:l_msg(200).
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'BACK' OR 'STOP'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'RUN'.
CASE 'X'.
WHEN p_1.
l_msg = 'p1'.
WHEN p_2.
l_msg = 'p2'.
WHEN p_3.
l_msg = 'p3'.
WHEN p_4.
l_msg = 'p4'.
WHEN p_5.
l_msg = 'p5'.
WHEN OTHERS.
ENDCASE.
MESSAGE l_msg TYPE 'S'.
ENDCASE.
ENDMODULE.
100屏幕里:
PROCESS BEFORE OUTPUT.
MODULE status_0100.
CALL SUBSCREEN sc_0101 INCLUDING sy-repid '0101'.
PROCESS AFTER INPUT.
CALL SUBSCREEN sc_0101.
MODULE user_command_0100.
MODULE exit_0100 AT EXIT-COMMAND.