*&---------------------------------------------------------------------*
*& Report  Z_02_CHECKDATE                                              *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT Z_02_CHECKDATE
WRITE 'Check Date'.
SKIP.
WRITE: 'Today is ',
    SY-DATUM,
    / 'My User ID is',
    SY-UNAME.