批量修改物料的产品层次，ABAP代码

REPORT ZMMR024.
tables:MARA,T179T.
*定义ALV变量
TYPE-POOLS: SLIS.
DATA: FIELDCATALOG   TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_TAB_GROUP   TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT      TYPE SLIS_LAYOUT_ALV,
      GD_REPID       LIKE SY-REPID,
      GT_EVENTS      TYPE SLIS_T_EVENT,
      GD_PRNTPARAMS  TYPE SLIS_PRINT_ALV,
      GT_SORT        TYPE SLIS_T_SORTINFO_ALV,
      GS_SORT        TYPE SLIS_SORTINFO_ALV,
      G_TITLE        TYPE LVC_TITLE.

DATA: BEGIN OF HEADDATA OCCURS 10.
        INCLUDE STRUCTURE BAPIMATHEAD.
DATA: END OF HEADDATA.

DATA: BEGIN OF CLIENTDATA OCCURS 10.
        INCLUDE STRUCTURE BAPI_MARA.
DATA: END OF CLIENTDATA.

DATA: BEGIN OF CLIENTDATAX OCCURS 10.
        INCLUDE STRUCTURE BAPI_MARAX.
DATA: END OF CLIENTDATAX.

DATA: BEGIN OF SALESDATA OCCURS 10.
        INCLUDE STRUCTURE BAPI_MVKE.
DATA: END OF SALESDATA.

DATA: BEGIN OF SALESDATAX OCCURS 10.
        INCLUDE STRUCTURE BAPI_MVKEX.
DATA: END OF SALESDATAX.

DATA: BEGIN OF RETURN  OCCURS 10.
        INCLUDE STRUCTURE BAPIRET2.
DATA: END OF RETURN .

DATA: BEGIN OF RETURN1  OCCURS 10.
        INCLUDE STRUCTURE BAPI_MATRETURN2.
DATA: END OF RETURN1 .


DATA:BEGIN OF GT_out OCCURS 0,
      matnr like mara-matnr,
      TYPE like BAPIRET2-TYPE ,
      ID like BAPIRET2-ID ,
      NUMBER like BAPIRET2-NUMBER ,
      MESSAGE like BAPIRET2-MESSAGE ,
      LOG_NO like BAPIRET2-LOG_NO ,
      LOG_MSG_NO like BAPIRET2-LOG_MSG_NO ,
      MESSAGE_V1 like BAPIRET2-MESSAGE_V1 ,
      MESSAGE_V2 like BAPIRET2-MESSAGE_V2 ,
      MESSAGE_V3 like BAPIRET2-MESSAGE_V3 ,
      MESSAGE_V4 like BAPIRET2-MESSAGE_V4 ,
      PARAMETER like BAPIRET2-PARAMETER ,
      ROW like BAPIRET2-ROW ,
      FIELD like BAPIRET2-FIELD ,
      SYSTEM like BAPIRET2-SYSTEM ,
      END OF GT_OUT .

DATA:BEGIN OF GT_MVKE OCCURS 0,
  MATNR like MVKE-MATNR,"
  VKORG like MVKE-VKORG,"
  VTWEG like MVKE-VTWEG,"
  END OF GT_MVKE.

DATA: total TYPE i,
num type i.
num = 0.



SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME