Calculate the number of days in a year excluding Saturday and Sunday

Question

Hi All,
I need to get the number of days in a year excluding Saturday and Sunday for HR module and then subtract the public holidays.
Can some let me know how this needs to be done while loading data from one infocube to another.
Is there any Function module for the same so that i can write any start routines.
And also is there any table available for Tcode-SCAL with which i can write any start routines.
Kindly help me as soon as possible.
Regards,
Kumar

Answer 1

Hi Harish
Refer to the screenshot for Import and Export parameters
Code
FUNCTION ZBI_FM_GET_HOLIDAYS .
*"*"Local Interface:
*"  IMPORTING
*"    VALUE(DATE_FROM) TYPE  SCAL-DATE DEFAULT SY-DATUM
*"    VALUE(DATE_TO) TYPE  SCAL-DATE DEFAULT SY-DATUM
*"    VALUE(FACT_CAL) TYPE  SCAL-FCALID DEFAULT SPACE
*"    VALUE(ONLYFACT_DAYS) TYPE  CHAR1 OPTIONAL
*"  EXPORTING
*"    REFERENCE(HOLIDAYS) TYPE  I
*"  TABLES
*"      DAY_ATTRIBUTES STRUCTURE  CASDAYATTR
*"  EXCEPTIONS
*"      FACTORY_CALENDAR_NOT_FOUND
*"      HOLIDAY_CALENDAR_NOT_FOUND
*"      DATE_HAS_INVALID_FORMAT
*"      DATE_INCONSISTENCY
DATA: LT_DAY_ATTRIBUTES TYPE TABLE OF  CASDAYATTR WITH HEADER LINE.
DATA: LV_LINES TYPE SY-SUBRC.
DATA: DATE1 LIKE DATE_FROM,
DATE2 LIKE DATE_TO.
*if from date is gt to date then interchange the dates and multiply the result with -1.
IF DATE_FROM GT DATE_TO.
DATE2 = DATE_FROM.
DATE1 = DATE_TO.
ELSE.
DATE1 = DATE_FROM.
DATE2 = DATE_TO.
ENDIF.
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
FACTORY_CALENDAR                = FACT_CAL
*  HOLIDAY_CALENDAR                = ' '
DATE_FROM                        = DATE1
DATE_TO                          = DATE2
LANGUAGE                        = SY-LANGU
* IMPORTING
*  YEAR_OF_VALID_FROM              =
*  YEAR_OF_VALID_TO                =
*  RETURNCODE                      =
TABLES
DAY_ATTRIBUTES                  = LT_DAY_ATTRIBUTES
EXCEPTIONS
FACTORY_CALENDAR_NOT_FOUND      = 1
HOLIDAY_CALENDAR_NOT_FOUND      = 2
DATE_HAS_INVALID_FORMAT          = 3
DATE_INCONSISTENCY              = 4
OTHERS                          = 5 .
IF SY-SUBRC = 0.
IF ONLYFACT_DAYS = 'X'.
DELETE LT_DAY_ATTRIBUTES WHERE FREEDAY EQ SPACE.
ELSE.
DELETE LT_DAY_ATTRIBUTES WHERE WEEKDAY LT 6.
ENDIF.
DESCRIBE TABLE LT_DAY_ATTRIBUTES LINES LV_LINES.
HOLIDAYS =  LV_LINES.
*    IF DATE_FROM GT DATE_TO.
*      HOLIDAYS = HOLIDAYS * -1.
*    ENDIF.
ELSEIF SY-SUBRC = 1.
RAISE FACTORY_CALENDAR_NOT_FOUND.
ELSEIF SY-SUBRC = 2.
RAISE HOLIDAY_CALENDAR_NOT_FOUND.
ELSEIF SY-SUBRC = 3.
RAISE DATE_HAS_INVALID_FORMAT.
ELSEIF SY-SUBRC = 4.
RAISE DATE_INCONSISTENCY.
ENDIF.
ENDFUNCTION.