WHEN '&IC1'. CASE SELFIELD-SEL_TAB_FIELD. READ TABLE GT_EXCEL INTO DATA(LS_EXCEL) INDEX SELFIELD-TABINDEX . IF SELFIELD-FIELDNAME = 'BELNR2'. SET PARAMETER ID 'BLN' FIELD GS_OUT-BELNR. SET PARAMETER ID 'BUK' FIELD GS_OUT-BUKRS. SET PARAMETER ID 'GJR' FIELD LV_GJAHR. CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN . ENDIF.