|
Check for a holiday using factory calendar |
|
|
|
|
Written by Anon.
|
|
Saturday, 20 January 2007 |
ABAP Program to check for holidays using the 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.
|
|
Last Updated ( Wednesday, 14 February 2007 )
|
