SAP SE38如何在多个系统间同步代码
手机扫一扫
吃鸡疯狂打call技能get必备外挂
文彬编程网编码文章SAP SE38如何在多个系统间同步代码

SAP SE38如何在多个系统间同步代码

编码文章call10242025-07-24 17:24:4826A+A-
上一篇文章写了如何在多个系统之间同步开发对象： 多套SAP ERP之间一键同步ABAP开发内容 ，有兄弟问有没有简单办法同步SE38程序代码的，因为使用请求的方式同步代码有点小题大做了。
其实这个更简单一些，我很早就使用同步代码这一方式在ECC系统编辑R3系统的代码了。众所周知SAP R3的SE38新编辑器对中文支持不好，如果代码中包含中文等多字节字符，在保存激活的时候会把代码搞的一塌糊涂，这就迫使开发者必须使用老的编辑器，体验非常的差！我们一开始是把代码复制到ECC里面的新编辑器修改，改完再粘贴回来测试，后来嫌麻烦直接搞成自动的了，效果如下：
系统、程序都是配置出来的，可以支持一对多，如果程序在目标系统激活有错误，可以把错误消息反馈到本系统，并可以定位到有错误的行。
这种方法是为了方便R3使用新编辑器做的，使用于ECC和R3之间，当然也可以使用于其他任何系统之间。
实现方法：
假设有两个系统，在A系统写了代码往B系统同步
A系统：
1、创建表，并创建表维护功能已使用SM30维护
2、Enhancements(SMOD) SEUED001

ZXSEUU25代码： 

DATA lv_rcode   TYPE c.DATA lv_repid   TYPE sy-repid.DATA lv_line    TYPE sy-index.DATA lv_offset  TYPE sy-index.DATA lv_subrc   TYPE sy-subrc.DATA lv_rtmsg   TYPE bapi_msg.DATA lt_z125    TYPE TABLE OF z125 WITH HEADER LINE.DATA lt_code    TYPE TABLE OF rfcline256_new.DATA lt_list    TYPE TABLE OF spopli WITH HEADER LINE.DATA lv_rdest   TYPE rfcdest.
SELECT * INTO TABLE lt_z125 FROM z125  WHERE uname = sy-uname AND        repid = program  AND        inact = ''.IF sy-subrc = 0.  IF sy-dbcnt > 1.    LOOP AT lt_z125.      CONCATENATE  lt_z125-rdesc `程序：` lt_z125-progn                   INTO lt_list-varoption RESPECTING BLANKS .      lt_list-selflag = 'X'.      APPEND lt_list.    ENDLOOP.    CALL FUNCTION 'POPUP_TO_DECIDE_LIST'      EXPORTING        start_col          = 40        start_row          = 1        mark_flag          = 'X'        mark_max           = 99        textline1          = '请选择需求更改的系统和程序'        titel              = '选择'      IMPORTING        answer             = lv_rcode      TABLES        t_spopli           = lt_list      EXCEPTIONS        not_enough_answers = 1        too_much_answers   = 2        too_much_marks     = 3.    READ TABLE lt_list WITH KEY selflag = 'X'.    CHECK sy-subrc = 0 AND lv_rcode NE 'A'.  ELSE.    APPEND 'X' TO lt_list.  ENDIF.
  READ REPORT program INTO lt_code STATE 'I'.  IF sy-subrc NE 0.    READ REPORT program INTO lt_code STATE 'A'.  ENDIF.  IF lt_code[] IS NOT INITIAL.    LOOP AT lt_list WHERE selflag = 'X'.      READ TABLE lt_z125 INDEX sy-tabix.      lv_rdest = lt_z125-rdest.      PERFORM create_rfclink(zremotelogin) CHANGING lv_rdest IF FOUND.      CALL FUNCTION 'ZCHANGE_SOURCE_REMOTE' DESTINATION lv_rdest        EXPORTING          program               = lt_z125-progn          version               = lt_z125-gnver          noedit                = lt_z125-noedt        IMPORTING          o_gen_include         = lv_repid          o_gen_line            = lv_line          o_gen_offset          = lv_offset          o_gen_subrc           = lv_subrc          o_gen_rtmsg           = lv_rtmsg        TABLES          codetab               = lt_code        EXCEPTIONS          system_failure        = 1  MESSAGE lv_rtmsg          communication_failure = 2  MESSAGE lv_rtmsg.      IF lv_subrc NE 0 OR sy-subrc NE 0.        IF lv_line IS NOT INITIAL.          lv_rtmsg = lt_z125-rdest && ' 程序' && lv_repid && ' 第' &&                     lv_line && '行错误：' && lv_rtmsg .        ENDIF.        MESSAGE w000(oo) WITH lt_z125-rdest lv_rtmsg+0(50)                              lv_rtmsg+50(50) lv_rtmsg+100(50) DISPLAY LIKE 'E'.
        IF lv_repid = lt_z125-progn AND lv_line NE 0.          CALL FUNCTION 'SET_CURSOR'            EXPORTING              first_line    = lv_line              cursor_line   = lv_line              cursor_offset = lv_offset.        ENDIF.      ELSE.        MESSAGE i000(oo) WITH lt_z125-rdest lt_z125-progn '成功修改'.      ENDIF.      PERFORM delete_rfclink(zremotelogin) USING lv_rdest IF FOUND.    ENDLOOP.  ELSE.    MESSAGE s000(oo) WITH '代码为空'.  ENDIF.ELSE.  MESSAGE s000(oo) WITH '请维护表Z125,事务码ZRPC'.ENDIF.

然后在B系统里面做如下工作：

1、创建表Z105

2、 Enhancements(SMOD) SEUED001

ZXSEUU08: 

DATA: wa_105 TYPE z105.DATA: wa_e071 TYPE e071.DATA: lv_nolock.
IF operation = 'EDIT'.  SELECT SINGLE * INTO wa_105    FROM z105    WHERE uname = sy-uname AND          repid = program.  IF sy-subrc = 0.    wa_e071-pgmid    = 'LIMU'.    wa_e071-object   = 'REPS'.    wa_e071-obj_name = program.    PERFORM check_tlock_info_int(saplsvre)                               USING wa_e071-obj_name wa_e071-object                               CHANGING wa_e071-trkorr lv_nolock.    IF lv_nolock = ''.      MESSAGE w000(oo) WITH '已经禁止编辑，请看表Z105'.      RAISE cancelled.    ENDIF.  ENDIF.ENDIF.

3、创建RFC函数 ZCHANGE_SOURCE_REMOTE 

FUNCTION zchange_source_remote.*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(PROGRAM) TYPE  PROGNAME*"     VALUE(VERSION) TYPE  CHAR1 OPTIONAL*"     VALUE(NOEDIT) TYPE  CHAR1 OPTIONAL*"  EXPORTING*"     VALUE(O_GEN_INCLUDE) TYPE  SY-REPID*"     VALUE(O_GEN_LINE) TYPE  SY-INDEX*"     VALUE(O_GEN_OFFSET) TYPE  SY-INDEX*"     VALUE(O_GEN_WORD) TYPE  RSTXP-TDOBJECT*"     VALUE(O_GEN_SUBRC) TYPE  SY-SUBRC*"     VALUE(O_GEN_RTMSG) TYPE  BAPI_MSG*"  TABLES*"      CODETAB STRUCTURE  RFCLINE256_NEW*"----------------------------------------------------------------------  DATA: cxroot TYPE REF TO cx_root,        cxmsg TYPE bapi_msg,        subrc TYPE sy-subrc.  DATA: wa_e071 TYPE e071.  DATA: wa_z105 TYPE z105.  DATA: wa_rsrc TYPE reposrc.  DATA: versno TYPE vrsd-versno.  DATA: maintab  TYPE TABLE OF char40 WITH HEADER LINE,        actprog  TYPE program,        selindex TYPE i.  DATA: lv_nolock.
  wa_e071-pgmid    = 'LIMU'.  wa_e071-object   = 'REPS'.  wa_e071-obj_name = program.
  PERFORM check_tlock_info_int(saplsvre)                             USING wa_e071-obj_name wa_e071-object                             CHANGING wa_e071-trkorr lv_nolock.  IF lv_nolock = 'X'.    o_gen_subrc = '4'.    o_gen_rtmsg = '程序未锁定'.    RETURN.  ENDIF.
  CALL FUNCTION 'ENQUEUE_ESRDIRE'    EXPORTING      name   = program    EXCEPTIONS      OTHERS = 3.  IF sy-subrc NE 0.    o_gen_subrc = '4'.    MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO o_gen_rtmsg.    RETURN.  ENDIF.
  IF version = 'X'.    CALL FUNCTION 'SVRS_AFTER_CHANGED_ONLINE_NEW'      EXPORTING        e071_entry  = wa_e071        status      = 'A'      IMPORTING        version_new = versno      EXCEPTIONS        OTHERS      = 1.    IF sy-subrc <> 0.      o_gen_subrc = sy-subrc .      MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO o_gen_rtmsg.      CONCATENATE '备份版本错误：' o_gen_rtmsg INTO o_gen_rtmsg.      CALL FUNCTION 'DEQUEUE_ALL'.      RETURN.    ENDIF.  ENDIF.
  TRY.      SELECT SINGLE * INTO wa_rsrc FROM reposrc        WHERE progname = program AND              r3state  = 'I'.      IF sy-subrc = 0.        INSERT REPORT program FROM codetab STATE 'I'.      ELSE.        INSERT REPORT program FROM codetab STATE 'A'.      ENDIF.    CATCH cx_root INTO cxroot.      cxmsg = cxroot->get_text( ).      o_gen_subrc = '4'.      CONCATENATE o_gen_rtmsg ` 更改代码错误：` cxmsg INTO o_gen_rtmsg.      CALL FUNCTION 'DEQUEUE_ALL'.      RETURN.  ENDTRY.  COMMIT WORK.
  IF noedit = 'X'.    wa_z105-uname = sy-uname.    wa_z105-repid = program.    MODIFY z105 FROM wa_z105.  ELSE.    DELETE FROM z105      WHERE uname = sy-uname AND            repid = program.  ENDIF.
  CALL FUNCTION 'RS_GET_MAINPROGRAMS'    EXPORTING      fulltab      = 'X'      dialog       = 'X'      name         = program    IMPORTING      tindex       = selindex    TABLES      mainprograms = maintab    EXCEPTIONS      cancelled    = 1      OTHERS       = 2.  IF sy-subrc = 0.    IF selindex > 0.      READ TABLE maintab INDEX selindex.    ELSE.      READ TABLE maintab INDEX 1.    ENDIF.
    actprog = maintab.    CALL FUNCTION 'REPS_OBJECT_GENERATE'      EXPORTING        i_program        = actprog      IMPORTING        o_gen_include    = o_gen_include        o_gen_line       = o_gen_line        o_gen_offset     = o_gen_offset        o_gen_word       = o_gen_word        o_gen_subrc      = o_gen_subrc        o_gen_message    = o_gen_rtmsg      EXCEPTIONS        syntax_error     = 1        generation_error = 2.  ENDIF.  CALL FUNCTION 'DEQUEUE_ALL'.ENDFUNCTION.


关于程序 ZREMOTELOGIN ：

本程序和上一次的程序都使用了下面代码： 

PERFORM create_rfclink(zremotelogin) CHANGING lv_rdest IF FOUND.
程序 ZREMOTELOGIN是一个工具程序，用来根据维护的信息远程登录其他系统的，功能跟SM59类似，区别是通过RFC连接远程系统的时候 临时创建 一个RFC连接，登录完毕就删除了，而且每个人只能看到自己维护的连接。
有了SM59为啥还再专门搞一个程序呢？因为SM59维护了账号密码后大家都能使用，一个是容易混乱，再一个安全方面也不好。如果不维护账号密码呢，用起来要频繁输入账号密码登录，也很不方便。
所以 PERFORM create_rfclink...这个的作用就是使用自定义的RFC连接代替SM59定义的RFC连接，如果没有程序 ZREMOTELOGIN ， 因为有 IF FOUND关键字，也不会出错，只不过是要使用SM59定义的RFC连接了。


点击这里复制本文地址 以上内容由文彬编程网整理呈现，请务必在转载分享时注明本文地址！如对内容有疑问，请联系我们，谢谢！
msgid

相关文章

qrcode

文彬编程网 © All Rights Reserved.  蜀ICP备2024111239号-4