sample program1

REPORT  y_exemple.                             

TABLES : ttdtg.

DATA : gv_day           TYPE p,
     gv_day_num(2)    TYPE n,
     gv_name_var(20)          VALUE '%%SAPSCRIPT_DDDD_00'.

* Saisie date
parameters : p_date like sy-datum obligatory.

* Récupération du no du jour de la semaine
CALL FUNCTION 'DAY_IN_WEEK'
EXPORTING
  datum = p_date
IMPORTING
  wotnr = gv_day.

* Tranduction de ce no en jour
* Dans la table TTDTG, on a toutes les chaines de caractères utilisées
* par SAPscript pour traduire les dates, on les utilise pour notre ex
IF sy-subrc = 0.
gv_day_num = gv_day.
gv_name_var+17(2) = gv_day_num.
CLEAR ttdtg.
SELECT SINGLE * FROM ttdtg
  WHERE spras   = sy-langu
  AND   varname = gv_name_var.

WRITE : /'La date du ', p_date, 'correspond à un', ttdtg-varvalue.
ENDIF.