SAP:How to change SE54 modify a table to another table

1、  怎么通过SE54修改一个table来改变另一个table

 

2、  Environment -> Modification -> Events

 

3、  代码如下：

REPORT  ZPPR008_VIEW.

*---------------------------------------------------------------------*
* Data Declaration
*---------------------------------------------------------------------*
DATA: GT_EXCL    TYPE TABLE OF VIMEXCLFUN,
      GWA_EXCL   TYPE VIMEXCLFUN.

*---------------------------------------------------------------------*
* START-OF-SELECTION
*---------------------------------------------------------------------*
START-OF-SELECTION.
  " Fill the function codes in exclude table that you want to disable
  GWA_EXCL-FUNCTION = 'DELE'. " Function code for delete icon
  APPEND GWA_EXCL TO GT_EXCL.

 " Fill the function codes in exclude table that you want to disable
  GWA_EXCL-FUNCTION = 'NEWL'. " Function code for NEW icon
  APPEND GWA_EXCL TO GT_EXCL.

  CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
    EXPORTING
      ACTION                       = 'U'
      VIEW_NAME                    = 'ZRUN_CHANGE_PMC'
    TABLES
      EXCL_CUA_FUNCT               = GT_EXCL
    EXCEPTIONS
      CLIENT_REFERENCE             = 1
      FOREIGN_LOCK                 = 2
      INVALID_ACTION               = 3
      NO_CLIENTINDEPENDENT_AUTH    = 4
      NO_DATABASE_FUNCTION         = 5
      NO_EDITOR_FUNCTION           = 6
      NO_SHOW_AUTH                 = 7
      NO_TVDIR_ENTRY               = 8
      NO_UPD_AUTH                  = 9
      ONLY_SHOW_ALLOWED            = 10
      SYSTEM_FAILURE               = 11
      UNKNOWN_FIELD_IN_DBA_SELLIST = 12
      VIEW_NOT_FOUND               = 13
      MAINTENANCE_PROHIBITED       = 14
      OTHERS                       = 15.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

 

FORM UPDATE_ZRUN_CHANGE.
  DATA : IT_ZRUN_CHANGE_PMC TYPE TABLE OF ZRUN_CHANGE_PMC WITH HEADER LINE,
         IT_ZRUN_CHANGE TYPE TABLE OF ZRUN_CHANGE WITH HEADER LINE.

  WAIT UP TO 2 SECONDS."waiting for database update

  SELECT * FROM ZRUN_CHANGE_PMC
    INTO TABLE IT_ZRUN_CHANGE_PMC.

  LOOP AT IT_ZRUN_CHANGE_PMC.
    SELECT SINGLE * FROM ZRUN_CHANGE INTO IT_ZRUN_CHANGE
      WHERE AENNR = IT_ZRUN_CHANGE_PMC-AENNR
        AND RCOMPONENT = IT_ZRUN_CHANGE_PMC-RCOMPONENT
        AND NCOMPONENT = IT_ZRUN_CHANGE_PMC-NCOMPONENT.

    IF SY-SUBRC = 0..
      IF IT_ZRUN_CHANGE-RMENGE <> IT_ZRUN_CHANGE_PMC-RMENGE OR
             IT_ZRUN_CHANGE-BEGDA <> IT_ZRUN_CHANGE_PMC-BEGDA.
        IT_ZRUN_CHANGE-RMENGE = IT_ZRUN_CHANGE_PMC-RMENGE.
        IT_ZRUN_CHANGE-BEGDA = IT_ZRUN_CHANGE_PMC-BEGDA.
        APPEND IT_ZRUN_CHANGE.
      ENDIF.
    ENDIF.

    CLEAR: IT_ZRUN_CHANGE_PMC,
           IT_ZRUN_CHANGE.
  ENDLOOP.

  CHECK IT_ZRUN_CHANGE[] IS NOT INITIAL.
  MODIFY ZRUN_CHANGE FROM TABLE IT_ZRUN_CHANGE.
ENDFORM.                    "update_zrun_change

 

Add Check BOX

 

1、  Environment -> Modification ->Maintenance screens