SET PF-STATUS UND SY-UCOMM und SE80/SE51 Layout Editor

Bsp. für die Verwendung von PF-Status und damit SY-UCOMM

*&---------------------------------------------------------------------*
*& Report  ZTEST36
*&
*&---------------------------------------------------------------------*
*&
*& Demonstration of PF-STATUS und SY-UCOMM
*&
*&---------------------------------------------------------------------*
program ZTEST36.
"PROGRAM demo_dynpro_gui_status.
"SE80/SE51 Layout Dynpro Screen 100 erstellen mit Feld OUTPUT.
"SE80 GUI-Status STATUS_100 Anlegen oder Kopieren
"SE80 GUI-Titel Anlegen
"F5 und F6 anlegen

DATA: ok_code TYPE sy-ucomm,
      save_ok LIKE ok_code,
      output  LIKE ok_code.

CALL SCREEN 100.

MODULE init_screen_0100 OUTPUT.
  SET PF-STATUS 'STATUS_100'.
  SET TITLEBAR '100'.
ENDMODULE.

MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      LEAVE PROGRAM.
    WHEN OTHERS.
      output = save_ok.
  ENDCASE.
ENDMODULE.