DATA: v_fecha LIKE sy-datum,
dia LIKE scal-indicator,
txt_dia LIKE rnpb2-day_txt.
v_fecha = sy-datum.
CALL FUNCTION 'ISH_GET_DAY_OF_WEEK'
EXPORTING
DATE = v_fecha
IMPORTING
DAY = dia
DAY_TXT = txt_dia.