ZCRM_DAY_IN_WEEK

FUNCTION zcrm_day_in_week.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(DATUM) TYPE  D OPTIONAL
*"  EXPORTING
*"     VALUE(WOTNR) TYPE  INT4
*"----------------------------------------------------------------------

  DATA: diw_first TYPE d VALUE '19790101'.
  wotnr = ( ( datum - diw_first ) MOD 7 ) + 1.

ENDFUNCTION.