Date and ISO week

Date and ISO week

Validate a date and display its ISO week number and weekday.

• P_DATE: D; default: 20261014. Internal date in YYYYMMDD format.

REPORT ZED_EXAMPLE_DATE.
PARAMETERS p_date TYPE d DEFAULT '20261014'.
DATA iso_week TYPE n LENGTH 6.
DATA weekday TYPE i.
START-OF-SELECTION.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
  EXPORTING date = p_date.
CALL FUNCTION 'DATE_GET_WEEK'
  EXPORTING date = p_date
  IMPORTING week = iso_week.
CALL FUNCTION 'DATE_COMPUTE_DAY'
  EXPORTING date = p_date
  IMPORTING day = weekday.
WRITE: / 'ISO week:', iso_week.
WRITE: / 'Weekday (Mon=1):', weekday.