This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*&---------------------------------------------------------------------* | |
*& Report ZSUBSCREENS_DEMO | |
*& | |
*&---------------------------------------------------------------------* | |
*& | |
*& | |
*&---------------------------------------------------------------------* | |
REPORT zsubscreens_demo. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
PROCESS BEFORE OUTPUT. | |
MODULE status_2000. | |
CALL SUBSCREEN subarea INCLUDING sy-repid g_subscreen_number. | |
PROCESS AFTER INPUT. | |
CALL SUBSCREEN subarea. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*&---------------------------------------------------------------------* | |
*& Include ZSUBSCREENS_DEMO_TOP | |
*&---------------------------------------------------------------------* | |
DATA: g_subscreen1 TYPE c LENGTH 1, | |
g_subscreen2 TYPE c LENGTH 1. | |
DATA g_subscreen_number TYPE sydynnr. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*&---------------------------------------------------------------------* | |
*& Report ZSUBSCREENS_DEMO | |
*& | |
*&---------------------------------------------------------------------* | |
*& | |
*& | |
*&---------------------------------------------------------------------* | |
REPORT zsubscreens_demo. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
PROCESS BEFORE OUTPUT. | |
CALL SUBSCREEN <subarea> INCLUDING <program_name> <dynpro_number>. | |
PROCESS AFTER INPUT. | |
CALL SUBSCREEN <subarea>. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module STATUS_2000 output. | |
SET PF-STATUS 'STATUS_2000'. | |
SET TITLEBAR 'TITLE_2000'. | |
endmodule. " STATUS_2000 OUTPUT |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module STATUS_2000 output. | |
* SET PF-STATUS 'xxxxxxxx'. | |
* SET TITLEBAR 'xxx'. | |
endmodule. " STATUS_2000 OUTPUT |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
PROCESS BEFORE OUTPUT. | |
MODULE STATUS_2000. | |
PROCESS AFTER INPUT. | |
MODULE USER_COMMAND_2000. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*&---------------------------------------------------------------------* | |
*& Include ZSTATUS_DEMO_PAI | |
*&---------------------------------------------------------------------* | |
*&---------------------------------------------------------------------* | |
*& Module USER_COMMAND_2000 INPUT | |
*&---------------------------------------------------------------------* | |
* text | |
*----------------------------------------------------------------------* | |
MODULE user_command_2000 INPUT. |