FUNCTION zcrm_day_in_week.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     VALUE(DATUM) TYPE  D OPTIONAL

*"  EXPORTING

*"     VALUE(WOTNR) TYPE  INT4

*"----------------------------------------------------------------------

  DATA: diw_first TYPE d VALUE ''.

  wotnr = ( ( datum - diw_first ) MOD  ) + .

ENDFUNCTION.