data: datas like sy-datum value '20070101',
datal like sy-datum.
data: x(3) type n.
While x < 256.
call function 'WSAF_GET_LAST_DAY_OF_MONTH'
EXPORTING
i_datum = datas
IMPORTING
e_last_day_month = datal.
x = x + datal+6(2).
datas+4(2) = datas+4(2) + 1.
Endwhile.

If x = 256.
Write: /,'День программиста -',datal,'!'.
else.
x = x - datal+6(2).
datal+6(2) = 0 - ( x - 256 ).
Write: /, 'День программиста -',datal,'!'.
If datal eq sy-datum.
format color 3 on.
Write: / 'Да сегодня же День Программиста!'.
format color off.
Endif.
Endif.

DATA great_date TYPE sy-datum.
great_date = sy-datum.
great_date+4(4) = '0101'.
ADD 255 TO great_date.
WRITE: / 'День программиста -', great_date, '!'.
IF great_date = sy-datum.
WRITE: / 'Да сегодня же День Программиста!'.
ENDI.