sample program I

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.