Worked hours code

Question

Hello everyone,
I need some help with an ABAP code:
I have records coming in with Employee ID, Date and Worked hours along with some other fields.
I need to look up the employee id against another table to figure out if the employee depends to a particular region or not and the date is holiday or not from different table.
Also I would like to see if worked hours are more than 8 and put the extra hours into a differemt field for calculating if the total hours in a week exceed 40.
Can you please help with this code?

Answer 1

Sorry. here the Post again (complete )
Hi Raj Coppar,
try this code:
this should be implemented in the End-Routine if you're working with BI 7.0.
first you need to define the internal tables that have same structure as table where comparing information is stored.
Code:
Data: it_table TYPE TABLE OF /n42/YOURTABLE,
         li_table  LIKE LINE OF it_table.
DATA:
           KALENDER      LIKE SCAL-FCALID,
           with_ATTRIBUTE LIKE SCAL-INDICATOR,
           lc_holiday_found    LIKE SCAL-INDICATOR.
DATA: BEGIN OF FEIERTAGE OCCURS 5.
            INCLUDE STRUCTURE THOL.
          DATA: END OF FEIERTAGE.
*Store needed information for comparison
select * from /n42/YOURTABLE into table it_table.
sort it_table by /n42/employeeID.
Loop in the Data_PAckage
LOOP AT SOURCE_PACKAGE ASSIGNING <source_fields>.
*Check if Date is a Holiday
      CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
           EXPORTING  DATE                 = <source_fields>-Date.
                       HOLIDAY_CALENDAR_ID  = KALENDER
           IMPORTING  HOLIDAY_FOUND        = lc_holiday_found
           TABLES     HOLIDAY_ATTRIBUTES   = FEIERTAGE
           EXCEPTIONS HOLIDAY_CALENDAR_ID_MISSING       = 1
                        DATE_AFTER_RANGE                  = 2
                       DATE_BEFORE_RANGE                 = 3
                       DATE_INVALID                       = 4
                       HOLIDAY_CALENDAR_NOT_FOUND        = 5.
*read internal table and make your checks
READ TABLE it_table BINARY SEARCH INTO  li_table
      WITH KEY /n42/employeeID = <source_fields>-/n42/employeeID.
if record was found.
      IF sy-subrc EQ 0.
*if region is.....
         if li_table-/n42/REGION = "Whatever" and
*Date is a Public Holiday
         lc_holiday_found = 'X' .
*Claculate Overtime
             if <source_fields>-Hours > 8.
*write overtime to Overtime Field
              <source_fields>-overtime = <source_fields>-Hours - 8.
             endif.
      ENDIF.
modify Result_Package.
endloop.
hope this helps.
BR,
Younes