start-of-selection.
select * from pa0171
   where pernr in sel_pernr
     and endda ge sel_date 
     and begda le sel_date.
  CALL FUNCTION 'HR_BEN_GET_OFFER'
    EXPORTING
      PERNR             = pa0171-PERNR
      DATUM             = sel_date
      ENROLLMENT_TYPE   = 'O'
      EVENT_DESCRIPTION = W_EVENT
      DESIRED_CURRENCY  = 'USD'
      DESIRED_PERIOD    = '04'
      PROCESS_BEGDA     = sel_date
      PROCESS_ENDDA     = '99991231'
      REACTION          = 'N'
    IMPORTING
      SUBRC             = W_SUBRC
    TABLES
      HEALTH_OFFER      = T_HEALTH
      INSURE_OFFER      = T_INSURE
      SAVING_OFFER      = T_SAVING
      SPENDA_OFFER      = T_SPENDA
      MISCEL_OFFER      = T_MISCEL
      CREDIT_OFFER      = T_CREDIT
      STOCKP_OFFER      = T_STOCKP
      ERROR_TABLE       = T_ERRORS.
  LOOP AT T_HEALTH 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
  LOOP AT T_INSURE 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
  LOOP AT T_SAVING 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
  LOOP AT T_SPENDA 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
  LOOP AT T_MISCEL 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
  LOOP AT T_CREDIT 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
  LOOP AT T_STOCKP 
    WHERE NOT_ELIG EQ 'X'.
*    this enrollment is not allowed
  ENDLOOP.
endselect.