Обработка даты

    DATA:
      l_date TYPE d,
      l_tmp  TYPE string.

    l_tmp = source_fields-laeda .
    CONDENSE l_tmp NO- GAPS.
    IF strlen ( l_tmp ) >= 8.
      l_date = substring( val = l_tmp off = 0 len = 8 ).
    ENDIF .

    CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
      EXPORTING
        date = l_date.

    IF sy- subrc NE 0 .
      l_date = '00000000'.
    ENDIF .

    result = l_date.