***INCLUDE ZBCTCBL1.
TABLES: ZZSYSUSR, ZZSYSMES.
SUPPRESS DIALOG.
LEAVE TO LIST-PROCESSING.
SET PF-STATUS 'NOCO'.
SY-TITLE = 'Systemadministrator messages'.
DETAIL.

* Delete the old messages
DELETE FROM ZZSYSUSR where zzendda LT sy-datum.

* Select the user's messages
SELECT * FROM ZZSYSUSR WHERE BNAME EQ SY-UNAME AND
                             ZZENDDA GT SY-DATUM OR
                             ( BNAME EQ SY-UNAME AND
                               ZZENDDA GE SY-DATUM AND
                               ZZENDZE GE SY-UZEIT ) .
  SELECT * FROM ZZSYSMES WHERE ZZINDEX EQ ZZSYSUSR-ZZINDEX.
    IF ZZSYSMES-ZZNUM EQ '1'.
      WRITE: / ZZSYSMES-TEXT INTENSIFIED.

    ELSE.
      WRITE: / ZZSYSMES-TEXT.
    ENDIF.
  ENDSELECT.
  DELETE ZZSYSUSR.
ENDSELECT.

* Display the 'express mail' message as well, if needed.
IF SY-DBCNT NE 0.
CALL FUNCTION 'SO_INBOX_ENTRIES_COUNT'
     EXPORTING
          SAPNAME               = SY-UNAME
     IMPORTING
          COUNTER_EXPRESS       = COUNTER_EXPRESS
          COUNTER_READ          = COUNTER_READ
          COUNTER_RESUB         = COUNTER_RESUB
     EXCEPTIONS
          COMMUNICATION_FAILURE = 71
          SYSTEM_FAILURE        = 72
          OTHERS                = 1.

IF SY-SUBRC EQ 0 AND
 COUNTER_EXPRESS NE 0.
  WRITE: / TEXT-201.
  WRITE: / TEXT-202.
  SET PF-STATUS 'EXPR'.
  SET TITLEBAR '002'.

ENDIF.
EXIT.
ENDIF.