Menu Painter
Here is the use of Menu Painter
*&---------------------------------------------------------------------*
*& Report ZMENU *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZMENU .
START-OF-SELECTION.
WRITE:/ 'MENU APPLICATION'.
SET PF-STATUS 'MENU'.
SET TITLEBAR 'TL1' WITH SY-UNAME 'Executing progra' SY-REPID.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'CALL'.
SUBMIT ZCLASSICAL_REPORT VIA SELECTION-SCREEN AND RETURN.
WHEN 'EXIT' OR 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
*&---------------------------------------------------------------------*
*& Report ZMENU *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZMENU .
START-OF-SELECTION.
WRITE:/ 'MENU APPLICATION'.
SET PF-STATUS 'MENU'.
SET TITLEBAR 'TL1' WITH SY-UNAME 'Executing progra' SY-REPID.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'CALL'.
SUBMIT ZCLASSICAL_REPORT VIA SELECTION-SCREEN AND RETURN.
WHEN 'EXIT' OR 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.