FUNCTION hr_biw_extract_is_action.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(P_BEGDA) LIKE  P0000-BEGDA DEFAULT SY-DATUM
*"     VALUE(P_ENDDA) LIKE  P0000-ENDDA DEFAULT SY-DATUM
*"  TABLES
*"      P_PERNR STRUCTURE  HRPERNR
*"      P_HRMS_BIW_IS_ACTION STRUCTURE  HRMS_BIW_IS_ACTION
*"----------------------------------------------------------------------

  DATA: l_gsval LIKE t77s0-gsval.
  DATA: l_massn TYPE massn.

  SELECT SINGLE gsval INTO l_gsval
      FROM  t77s0
         WHERE  grpid  = 'ADMIN'
         AND    semid  = 'EVSUP'.
  IF l_gsval <> '1'.
* get actions of IT0000 only
    SELECT pernr begda AS calday massn massg stat2
           INTO CORRESPONDING FIELDS OF TABLE p_hrms_biw_is_action
           FROM pa0000
           FOR ALL ENTRIES IN p_pernr
           WHERE  pernr      EQ p_pernr-pernr
           AND    sprps      EQ space
           AND    begda      GE p_begda
           AND    begda      LE p_endda.
    LOOP AT p_hrms_biw_is_action WHERE stat2 = '0'.
      SUBTRACT 1 FROM p_hrms_biw_is_action-calday.
      MODIFY p_hrms_biw_is_action INDEX sy-tabix.
    ENDLOOP.
  ELSE.
* get actions of IT302
    SELECT pernr begda AS calday massn massg
           INTO CORRESPONDING FIELDS OF TABLE p_hrms_biw_is_action
           FROM pa0302
           FOR ALL ENTRIES IN p_pernr
           WHERE  pernr      EQ p_pernr-pernr
           AND    sprps      EQ space
           AND    begda      GE p_begda
           AND    begda      LE p_endda.

    LOOP AT p_hrms_biw_is_action.
      SELECT SINGLE stat2 massn INTO
            (p_hrms_biw_is_action-stat2,l_massn)
        FROM pa0000
        WHERE pernr = p_hrms_biw_is_action-pernr
          AND sprps = space
          AND begda <= p_hrms_biw_is_action-calday
          AND endda >= p_hrms_biw_is_action-calday.
      IF p_hrms_biw_is_action-stat2 = '0' AND
         l_massn = p_hrms_biw_is_action-massn.
        SUBTRACT 1 FROM p_hrms_biw_is_action-calday.
      ENDIF.
      MODIFY p_hrms_biw_is_action INDEX sy-tabix.
    ENDLOOP.

  ENDIF.

ENDFUNCTION.
