通过ABAP程序批量修改合作伙伴

REPORT Y0000SD_KNVP_UPDATE.

TYPE-POOLS: slis.
TYPES: ty_tab TYPE line OCCURS 10.
TYPES: BEGIN OF ty_kunnr,
         kunnr TYPE kunnr,
       END OF ty_kunnr.
DATA: gv_file TYPE string.
DATA: gt_tab  TYPE ty_tab,
      gs_line TYPE line,
      gs_knvp TYPE knvp.
DATA: gt_knvp_update TYPE y0000sd_knvp_upd OCCURS 0,
      gs_knvp_update TYPE y0000sd_knvp_upd.
DATA: gt_knvp_before TYPE y0000sd_knvp_upd OCCURS 0,
      gs_knvp_before TYPE y0000sd_knvp_upd.
DATA: gt_kunnr TYPE ty_kunnr OCCURS 0,
      gs_kunnr TYPE ty_kunnr.
DATA: gt_alv TYPE y0000sd_knvp_upd_alv OCCURS 0,
      gs_alv TYPE y0000sd_knvp_upd_alv.
DATA: gs_layout TYPE slis_layout_alv.

PARAMETER: p_vkorg TYPE vkorg OBLIGATORY DEFAULT '0051',
           p_vtweg TYPE vtweg OBLIGATORY DEFAULT '11',
           p_spart TYPE spart OBLIGATORY DEFAULT '01',
           p_file  TYPE localfile.
PARAMETER: r_del RADIOBUTTON GROUP typ,
           r_ins RADIOBUTTON GROUP typ,
           r_upd RADIOBUTTON GROUP typ.
PARAMETER: p_test AS CHECKBOX DEFAULT 'X'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
      field_name    = ' '