SAP SE38如何在多个系统间同步代码
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 z125WHERE uname = sy-uname ANDrepid = program ANDinact = ''.IF sy-subrc = 0.IF sy-dbcnt > 1.LOOP AT lt_z125.CONCATENATE lt_z125-rdesc `程序：` lt_z125-prognINTO lt_list-varoption RESPECTING BLANKS .lt_list-selflag = 'X'.APPEND lt_list.ENDLOOP.CALL FUNCTION 'POPUP_TO_DECIDE_LIST'EXPORTINGstart_col = 40start_row = 1mark_flag = 'X'mark_max = 99textline1 = '请选择需求更改的系统和程序'titel = '选择'IMPORTINGanswer = lv_rcodeTABLESt_spopli = lt_listEXCEPTIONSnot_enough_answers = 1too_much_answers = 2too_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_rdestEXPORTINGprogram = lt_z125-prognversion = lt_z125-gnvernoedit = lt_z125-noedtIMPORTINGo_gen_include = lv_repido_gen_line = lv_lineo_gen_offset = lv_offseto_gen_subrc = lv_subrco_gen_rtmsg = lv_rtmsgTABLEScodetab = lt_codeEXCEPTIONSsystem_failure = 1 MESSAGE lv_rtmsgcommunication_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'EXPORTINGfirst_line = lv_linecursor_line = lv_linecursor_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_105FROM z105WHERE uname = sy-uname ANDrepid = 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-objectCHANGING 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-objectCHANGING wa_e071-trkorr lv_nolock.IF lv_nolock = 'X'.o_gen_subrc = '4'.o_gen_rtmsg = '程序未锁定'.RETURN.ENDIF.CALL FUNCTION 'ENQUEUE_ESRDIRE'EXPORTINGname = programEXCEPTIONSOTHERS = 3.IF sy-subrc NE 0.o_gen_subrc = '4'.MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO o_gen_rtmsg.RETURN.ENDIF.IF version = 'X'.CALL FUNCTION 'SVRS_AFTER_CHANGED_ONLINE_NEW'EXPORTINGe071_entry = wa_e071status = 'A'IMPORTINGversion_new = versnoEXCEPTIONSOTHERS = 1.IF sy-subrc <> 0.o_gen_subrc = sy-subrc .MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgnoWITH 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 reposrcWHERE progname = program ANDr3state = '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 z105WHERE uname = sy-uname ANDrepid = program.ENDIF.CALL FUNCTION 'RS_GET_MAINPROGRAMS'EXPORTINGfulltab = 'X'dialog = 'X'name = programIMPORTINGtindex = selindexTABLESmainprograms = maintabEXCEPTIONScancelled = 1OTHERS = 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'EXPORTINGi_program = actprogIMPORTINGo_gen_include = o_gen_includeo_gen_line = o_gen_lineo_gen_offset = o_gen_offseto_gen_word = o_gen_wordo_gen_subrc = o_gen_subrco_gen_message = o_gen_rtmsgEXCEPTIONSsyntax_error = 1generation_error = 2.ENDIF.CALL FUNCTION 'DEQUEUE_ALL'.ENDFUNCTION.
关于程序 ZREMOTELOGIN ：
本程序和上一次的程序都使用了下面代码：
PERFORM create_rfclink(zremotelogin) CHANGING lv_rdest IF FOUND.