Function to check date

  CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
       EXPORTING
            date                      = vbegda              "#EC *
       EXCEPTIONS
            plausibility_check_failed = 1
            OTHERS                    = 2.
  IF sy-subrc <> 0.
    RAISE wrong_date_format.
  ENDIF.