Filter holidays by ABAP.

Question

Filter holidays for calculation days in SQ01.
Does ABAP have any functions?

Answer 1

Hi,
use the code as below :
data : date1 type sy-datum,
       date2 type sy-datum.
data : w_day(3),
       nw_day(3).
date1 = '20070701'.
date2 = '20070731'.
types : begin of ty_holiday,
        holiday type sy-datum,
        end of ty_holiday.
data : ls_holiday type ty_holiday.
data : it_holiday type table of ty_holiday.
data : days type VTBBEWE-ATAGE, years type VTBBEWE-ATAGE, months type VTBBEWE-ATAGE.
data : a_new type sy-datum, b_new type sy-datum.
CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
  EXPORTING
   i_date_from          = date1
   I_KEY_DAY_FROM       = '00'
    i_date_to            = date2
   I_KEY_DAY_TO         =  '00'
   I_FLG_SEPARATE       = ' '
IMPORTING
   E_DAYS               = days
   E_MONTHS             = months
   E_YEARS              = years.
days = days + 1.
do days times.
CALL FUNCTION 'DATE_CHECK_WORKINGDAY'
EXPORTING
DATE = date1
FACTORY_CALENDAR_ID = '01'
MESSAGE_TYPE = 'E'
EXCEPTIONS
DATE_AFTER_RANGE = 1
DATE_BEFORE_RANGE = 2
DATE_INVALID = 3
DATE_NO_WORKINGDAY = 4
FACTORY_CALENDAR_NOT_FOUND = 5
MESSAGE_TYPE_INVALID = 6
OTHERS = 7.
IF
SY-SUBRC = 0.
w_day = w_day + 1.
ELSE.
nw_day = nw_day + 1.
ls_holiday-holiday = date1.
append ls_holiday to it_holiday.
ENDIF.
clear ls_holiday.
date1 = date1 + '00000001'.
enddo.
WRITE : / 'Working Days :', w_day.
WRITE : / 'Non-working Days:', nw_day.
write : / 'the list of holiday is as below :'.
loop at it_holiday into ls_holiday.
write : / ls_holiday-holiday.
endloop.
Reward points, if helpful,
Sandeep Kaushik