Date get Week

DATA: lv_loading_date  TYPE sydatum,
      lv_loading_week  TYPE /bi0/oicalweek,
      lv_loading_month TYPE /bi0/oicalmonth.

lv_loading_date = sy-datum.

CALL FUNCTION 'DATE_GET_WEEK'
  EXPORTING
    date         = lv_loading_date
  IMPORTING
    week         = lv_loading_week
  EXCEPTIONS
    date_invalid = 1
  OTHERS       = 2.

  IF sy-subrc <> 0.
*    Implement suitable error handling here*
  ENDIF.