ABAP Program to check for a holiday using factory calendar

REPORT Z_HOLIDAY.

* ABAP Program to check for holidays using the factory calendar

* include zday .

* substitute tdate = 'yyyymmdd'.

* tholiday_found   = 'X'   -> Holiday

TABLES THOCS.

DATA: BEGIN OF INT_THOCS OCCURS 100,

      THOCS LIKE THOCS.

DATA: END OF INT_THOCS.

DATA: TDAY(1),

*      TDATE LIKE SY-DATUM,

      THOLIDAY_ATTRIBUTES,

      THOLIDAY_FOUND(1).

PARAMETERS: P_DATE LIKE SY-DATUM DEFAULT SY-DATUM.

*&------- Selection ------------------------

START-OF-SELECTION.

  PERFORM HOLIDAY.

FORM HOLIDAY.

CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'

     EXPORTING

          DATE                         = P_DATE

          HOLIDAY_CALENDAR_ID          = 'XX'

*         WITH_HOLIDAY_ATTRIBUTES      = ' '

     IMPORTING

          HOLIDAY_FOUND                = THOLIDAY_FOUND

     TABLES

          HOLIDAY_ATTRIBUTES           = INT_THOCS

     EXCEPTIONS

          CALENDAR_BUFFER_NOT_LOADABLE = 1

          DATE_AFTER_RANGE             = 2

          DATE_BEFORE_RANGE            = 3

          DATE_INVALID                 = 4

          HOLIDAY_CALENDAR_ID_MISSING  = 5

          HOLIDAY_CALENDAR_NOT_FOUND   = 6

          OTHERS                       = 7.

CALL FUNCTION 'DATE_COMPUTE_DAY'

     EXPORTING

          DATE    = P_DATE

     IMPORTING

          DAY     = TDAY

     EXCEPTIONS

          OTHERS  = 1.

* For checking.

if tholiday_found = 'X'.

   write: /1 'Holiday ', P_DATE.

else.

   write: /1 'Not Holiday ', P_DATE.

endif.

case sy-subrc.

   when 0.

     write: /1 P_DATE, 'is', tday, 'day of the week.'.

   when others.

     write: /1 'Unknown day ', P_DATE.

endcase.

ENDFORM.