子屏幕处理
在主屏幕中,指定子屏幕区域名。
" 子屏幕号码
DATA: gv_subscreen TYPE sy-dynnr VALUE '0101'.
START-OF-SELECTION.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
IF sy-ucomm = 'BACK'.
LEAVE TO SCREEN 0.
ENDIF.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'SWICH'.
" 切换子屏幕
IF gv_subscreen = '0102'.
gv_subscreen = '0101'.
ELSE.
gv_subscreen = '0102'.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDMODULE.