Variable in Dynpro Feld anzeigen

Code: Alles auswählen.

DATA x TYPE int1.
DATA okcode TYPE sy-ucomm.
x = 1.
CALL SCREEN 100.
WRITE: x.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS '100'.
  SET TITLEBAR '100'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE okcode.
    WHEN 'BACK'
      OR 'EXIT'
      OR 'CANC'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.