вторник, 3 ноября 2015 г.

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

    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.