Skip to content

Instantly share code, notes, and snippets.

*&---------------------------------------------------------------------*
*& Report ZSUBSCREENS_DEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zsubscreens_demo.
MODULE status_2000 OUTPUT.
SET PF-STATUS 'STATUS_2000'.
SET TITLEBAR 'TITLE_2000'.
IF g_subscreen2 IS INITIAL.
g_subscreen_number = 2100.
ELSE.
g_subscreen_number = 2200.
ENDIF.
PROCESS BEFORE OUTPUT.
MODULE status_2000.
CALL SUBSCREEN subarea INCLUDING sy-repid g_subscreen_number.
PROCESS AFTER INPUT.
CALL SUBSCREEN subarea.
*&---------------------------------------------------------------------*
*& Include ZSUBSCREENS_DEMO_TOP
*&---------------------------------------------------------------------*
DATA: g_subscreen1 TYPE c LENGTH 1,
g_subscreen2 TYPE c LENGTH 1.
DATA g_subscreen_number TYPE sydynnr.
*&---------------------------------------------------------------------*
*& Report ZSUBSCREENS_DEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zsubscreens_demo.
PROCESS BEFORE OUTPUT.
CALL SUBSCREEN <subarea> INCLUDING <program_name> <dynpro_number>.
PROCESS AFTER INPUT.
CALL SUBSCREEN <subarea>.
module STATUS_2000 output.
SET PF-STATUS 'STATUS_2000'.
SET TITLEBAR 'TITLE_2000'.
endmodule. " STATUS_2000 OUTPUT
module STATUS_2000 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
endmodule. " STATUS_2000 OUTPUT
PROCESS BEFORE OUTPUT.
MODULE STATUS_2000.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_2000.
*&---------------------------------------------------------------------*
*& Include ZSTATUS_DEMO_PAI
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.