REPORT Y_BEN_UPDATE_ELECTIONS
           MESSAGE-ID YHR
           LINE-SIZE 120
           LINE-COUNT 65. 
TABLES: PA0171, 
        Z_PLAN_MAP,
        T5UB6,      " health defaults
        T58B7,      " insure defaults
        T74FM,      " saving defaults
        T74FP,      " miscel defaults
        T74FN,      " spenda defaults
        T74FO,      " credit defaults
        T74FQ.      " stockp defaults
DATA: T_HEALTH   LIKE RPBEN_OA 
        OCCURS 0 WITH HEADER LINE,
      T_INSURE   LIKE RPBEN_OB 
        OCCURS 0 WITH HEADER LINE,
      T_SAVING   LIKE RPBEN_OC 
        OCCURS 0 WITH HEADER LINE,
      T_SPENDA   LIKE RPBEN_OD 
        OCCURS 0 WITH HEADER LINE,
      T_CREDIT   LIKE RPBEN_O1 
        OCCURS 0 WITH HEADER LINE,
      T_STOCKP   LIKE RPBEN_OF 
        OCCURS 0 WITH HEADER LINE,
      T_MISCEL   LIKE RPBEN_OE 
        OCCURS 0 WITH HEADER LINE,
      T_ERRORS   LIKE RPBENERR 
        OCCURS 0 WITH HEADER LINE,
      W_NEW_PLAN LIKE T5UBA-BPLAN,
      W_NEW_BOPTI LIKE T5UBB-BOPTI,
      W_NEW_DEPCV LIKE T5UBB-DEPCV,
      W_EVENT LIKE RPBENEVENT,
      W_SUBRC LIKE SY-SUBRC,
      TVAL(132).


* data definitions for bdc
DATA:   bdcdata LIKE bdcdata    
         OCCURS 0 WITH HEADER LINE.
DATA:   messtab LIKE bdcmsgcoll 
         OCCURS 0 WITH HEADER LINE.

* selection screen
SELECTION-SCREEN BEGIN OF BLOCK ABC WITH FRAME TITLE TEXT-001.
PARAMETERS: SEL_DATE LIKE SY-DATUM.
SELECT-OPTIONS:
  SEL_PERNR FOR P0171-PERNR.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) comment1 FOR FIELD rb_list.
PARAMETERS : rb_list RADIOBUTTON GROUP r2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) comment4 FOR FIELD rb_upd.
PARAMETERS : rb_upd RADIOBUTTON GROUP r2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF BLOCK ABC.

*Initialization
INITIALIZATION.
  SEL_DATE = SY-DATUM.
  SEL_DATE(4) = SEL_DATE(4) + 1.
  SEL_DATE+4(4) = '0101'.
 
START-OF-SELECTION.
  CALL FUNCTION 'BDC_OPEN_GROUP'
       EXPORTING
            client = sy-mandt
            group  = 'MYGROUP'
            user   = sy-uname.
…