最近公司服务器做迁移，原R3 PRE需要迁到另外的地方，迁移后一段时间内，需要两套PRE环境同时运行，过一段时间后才将传输路线切换到新的PRE。在切换前，要求新PRE环境也要正常同步发布请求，但传输路线只有一条，这需要在发原PRE时，同时手工发布新PRE，这样每次手工很麻烦（手工导入传输请求过程参考这篇文章）。本文就是来通过程序实现这种手工全过程，实现同步自动发布新PRE。实现过程也算简单，通过一台中间Java Web服务器进行传输请求的中转，将DEV上的传输请求文件下载后，上传到新PRE服务器上，然后在新PRE服务器上导入新的请求即可。这就需要在DEV上写个远程RFS接口，将需要传输的请求所对应的数据与配置文件下载下来；在新PRE上写个远程接口，将从DEV上下载下来的传输请求文件上传到新PRE服务器上，其后通过调用发布函数进行请求发布。代码涉及到三台机器：SAP DEV  ——>  Java Web中转服务器  ——>  SAP PRE，之间采用JCO进行连接。最新的SAP JCO包请点击这里下载，Linux上So动态链接库以及Windows的Dll部署请百度

1、DEV远程接口：

 

.
"传输请求所对应的数据文件
CONCATENATE `/usr/sap/trans/data/R` .
lv_total_len = lv_total_len + lv_binary_len.
APPEND lt_data_binary.
lw_files-last_line_size = lv_binary_len.
ELSE.
lw_files-total_size = lv_total_len.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET v_filename.
lw_files-data = lt_data_binary[].

APPEND lw_files TO files.
ENDDO.
ENDLOOP.
"返回给Java Web服务器
requestnos = requestno.
ENDFUNCTION.

 
2、新PRE远程接口：

 此服务器上的ZXG_PRE_TABLE_TYPE类型与DEV上是一样的，这里就不再截图

FUNCTION zxg_pre_fuc.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(FILES) TYPE  ZXG_PRE_TABLE_TYPE
*"     VALUE(REQUESTNOS) TYPE  STRING
*"----------------------------------------------------------------------

DATA: lw_files TYPE zxg_pre_strc_type.
DATA: lw_data TYPE sdokcntbin.
DATA: lines TYPE i.
DATA: indx TYPE i .

LOOP AT files INTO lw_files .
    indx = 0.
OPEN DATASET lw_files-filename FOR OUTPUT IN BINARY MODE.

DESCRIBE TABLE lw_files-data LINES lines.
LOOP AT lw_files-data INTO lw_data.
      indx = indx + 1.
IF indx <> lines.
TRANSFER lw_data-line TO lw_files-filename.
ELSE.
TRANSFER lw_data-line+(lw_files-last_line_size) TO lw_files-filename.
ENDIF.
ENDLOOP.
CLOSE DATASET lw_files-filename.
ENDLOOP.

DATA: result_tab TYPE TABLE OF string WITH HEADER LINE.
SPLIT requestnos AT ',' INTO TABLE  result_tab IN CHARACTER MODE.

DATA: req TYPE tmsbuffer-trkorr.

LOOP AT result_tab.
    req =  result_tab.
PERFORM frm_stms USING req.
ENDLOOP.
ENDFUNCTION.

 

FORM frm_stms USING requestno TYPE tmsbuffer-trkorr.
CALL FUNCTION 'TMS_MGR_FORWARD_TR_REQUEST'
EXPORTING
      iv_request = requestno
      iv_target  = 'PRE'
      iv_tardom  = 'DOMAIN_PRE'.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CALL FUNCTION 'TMS_MGR_IMPORT_TR_REQUEST'
EXPORTING
      iv_system  = 'PRE'
      iv_domain  = 'DOMAIN_PRE'
      iv_request = requestno.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.  

3、Java Web

 
import java.io.File;
import java.io.FileOutputStream;
import java.util.Properties;
 
import org.apache.commons.logging.Log;
import org.apache.commons.logging.LogFactory;
 
import com.sap.conn.jco.AbapException;
import com.sap.conn.jco.JCoDestination;
import com.sap.conn.jco.JCoDestinationManager;
import com.sap.conn.jco.JCoException;
import com.sap.conn.jco.JCoFunction;
import com.sap.conn.jco.JCoParameterList;
import com.sap.conn.jco.JCoTable;
import com.sap.conn.jco.ext.DestinationDataProvider;
 
public class ConnectPooled {// 连接池
    private static Log log = LogFactory.getLog(ConnectPooled.class);
 
    static String ABAP_AS_POOLED_XG_PRE = "ABAP_AS_POOLED_XG_PRE";
    static String ABAP_AS_POOLED_R3_DEV = "ABAP_AS_POOLED_R3_DEV";
    static {
        config("192.168.118.xx");// dev
        config("10.242.6.xxx");// pre
    }
 
    private static void config(String ip) {
        Properties connectProperties = new Properties();
        connectProperties.setProperty(DestinationDataProvider.JCO_ASHOST, ip);
        connectProperties.setProperty(DestinationDataProvider.JCO_SYSNR, "00");
        connectProperties
                .setProperty(DestinationDataProvider.JCO_CLIENT, "200");
        connectProperties.setProperty(DestinationDataProvider.JCO_USER,
                "1504xxxx");
        // 注：密码是区分大小写的，要注意大小写
        connectProperties.setProperty(DestinationDataProvider.JCO_PASSWD,
                "axxxxxx");
        connectProperties.setProperty(DestinationDataProvider.JCO_LANG, "en");
 
        // *********连接池方式与直接不同的是设置了下面两个连接属性
        // JCO_PEAK_LIMIT - 同时可创建的最大活动连接数，0表示无限制，默认为JCO_POOL_CAPACITY的值
        // 如果小于JCO_POOL_CAPACITY的值，则自动设置为该值，在没有设置JCO_POOL_CAPACITY的情况下为0
        connectProperties.setProperty(DestinationDataProvider.JCO_PEAK_LIMIT,
                "10");
        // JCO_POOL_CAPACITY - 空闲连接数，如果为0，则没有连接池效果，默认为1
        connectProperties.setProperty(
                DestinationDataProvider.JCO_POOL_CAPACITY, "3");
 
        createDataFile(ABAP_AS_POOLED_XG_PRE, "jcoDestination",
                connectProperties);
    }
 
    static void createDataFile(String name, String suffix, Properties properties) {
        File cfg = new File(name + "." + suffix);
        if (!cfg.exists()) {
            try {
                FileOutputStream fos = new FileOutputStream(cfg, false);
                properties.store(fos, "for tests only !");
                fos.close();
            } catch (Exception e) {
                log.error("", e);
            }
        }
    }
 
    /**
     * 根据输入的传输请求号，从DEV上获取传输请求所对应的传输文件
     * @param REQUESTNO
     * @return
     * @throws JCoException
     */
    public static JCoTable getTransRequestFiles(String REQUESTNO)
            throws JCoException {
        JCoDestination destination = JCoDestinationManager
                .getDestination(ABAP_AS_POOLED_R3_DEV);
        JCoFunction function = destination.getRepository().getFunction(
                "ZXG_PRE_FUC");// 从对象仓库中获取 RFM 函数
        if (function == null)
            throw new RuntimeException("ZXG_PRE_FUC not found in SAP.");
 
        JCoParameterList jpl = function.getImportParameterList();
        jpl.setValue("REQUESTNO", REQUESTNO);
        try {
            function.execute(destination);
        } catch (AbapException e) {
            log.error("", e);
            return null;
        }
 
        jpl = function.getExportParameterList();
        JCoTable jt = jpl.getTable("FILES");
 
        return jt;
    }
 
    /**
     * 将DEV上的传输请求文件上传到PRE上去，并实现后继的自动发布过程
     * @param jt
     * @param req
     * @throws JCoException
     */
    public static void sendTransReqFiles2xgpre(JCoTable jt, String req)
            throws JCoException {
        JCoDestination destination = JCoDestinationManager
                .getDestination(ABAP_AS_POOLED_XG_PRE);
        JCoFunction function = destination.getRepository().getFunction(
                "ZXG_PRE_FUC");// 从对象仓库中获取 RFM 函数
        if (function == null)
            throw new RuntimeException("ZXG_PRE_FUC not found in SAP.");
 
        function.getImportParameterList().setValue("FILES", jt);
        function.getImportParameterList().setValue("REQUESTNOS", req);
 
        try {
            function.execute(destination);
        } catch (AbapException e) {
            log.error("", e);
        }
    }
}
import org.apache.commons.logging.Log;
import org.apache.commons.logging.LogFactory;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;
 
import org.springframework.stereotype.Controller;
import org.springframework.web.bind.annotation.RequestMapping;
 
import com.sap.conn.jco.JCoException;
 
@Controller
@RequestMapping("/xgpresync")
public class XGPRECtrl {
 
    private static Log log = LogFactory.getLog(XGPRECtrl.class);
 
    @RequestMapping("/gettransreq")
    public void gettransreq(HttpServletRequest request,
            HttpServletResponse response, String transreq) throws JCoException {
        log.info("reqs:" + transreq);
        try {
            ConnectPooled.sendTransReqFiles2xgpre(
                    ConnectPooled.getTransRequestFiles(transreq), transreq);
            JsonPrintUtil.printJson(response, true, "", "");
        } catch (Exception e) {
            log.error("", e);
            JsonPrintUtil.printJson(response, false, e.getMessage(), "");
        }
    }

}

 
然后再将该链接集成到我司发布平台上去，实现自动发布
 
 
 
 
 

<wiz_tmp_tag id="wiz-table-range-border" contenteditable="false" style="display: none;">

 
 
 
 

附件列表

SAP传输请求自动发布的更多相关文章

  1. SAP传输系统TMS、开发类、传输请求

    声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...

  2. SVN利用Hooks自动发布网站

    出于管理需要,也需要在公司内部实现自动发布流程.当开发机提交SVN代码之后,自动同步到测试服务器进行测试. 网络的拓扑简化为: 1台核心SVN服务器,使用的svn管理软件为Subversion Edg ...

  3. 测试开发Python培训：自动发布新浪微博-技术篇

    测试开发Python培训:自动发布新浪微博-技术篇   在前面我们教大家如何登陆,大家需要先看自动登陆新浪微博(http://www.cnblogs.com/laoli0201/articles/48 ...

  4. Jenkins持续集成（下）-Jenkins部署Asp.Net网站自动发布

    环境:Windows 2008 R2.Jenkins2.235.1.Visual Studio 2017: 概要 前面写过一篇文章,<自动发布-asp.net自动发布.IIS站点自动发布(集成S ...

  5. 使用 Promise 实现请求自动重试

    使用 Promise 实现请求自动重试 "use strict"; /** * * @author xgqfrms * @license MIT * @copyright xgqf ...

  6. eclipse项目自动发布到tomcat目录，缺文件。

    eclipse项目自动发布到tomcat目录,缺文件. 解决方案: 项目--Properties-->Deployment Assembly-->Add--> Folder Add- ...

  7. php利用svn hooks将程序自动发布到测试环境

    利用svn hooks将php程序自动发布到测试环境 复制仓库hooks目录下的post-commit.tmpl为post-commit cp post-commit.tmpl post-commit ...

  8. 一键自动发布ipa(更新svn，拷贝资源，压缩资源，加密图片资源，加密数据文件，加密lua脚本，编译代码，ipa签名，上传ftp)

    一键自动发布ipa(更新svn,拷贝资源,压缩资源,加密图片资源,加密数据文件,加密lua脚本,编译代码,ipa签名,上传ftp) 程序员的生活要一切自动化,更要幸福^_^. 转载请注明出处http: ...

  9. [Eclipse] - 集成JBoss7热加载和自动发布

    使用Eclipse + JBoss开发时,总是要重启项目或JBoss,烦人.下面方法可以很简单的实现Eclipse + JBoss热加载和自动发布. 我的环境是JBoss 7.1.1 Final 1) ...

随机推荐

  1. Flink--本地执行和集群执行

    本地执行 1:local环境 LocalEnvironment是Flink程序本地执行的句柄.用它在本地JVM中运行程序 - 独立运行或嵌入其他程序中. 本地环境通过该方法实例化ExecutionEn ...

  2. 带你了解zabbix如何监控mysql主从到报警触发

    本章博客我们一起来聊一聊如何监控mysql数据库主从状态? 思路梳理: 1)首先我们都知道,判断Mysql主从是否正常,是通过主从上面的SQL和IO线程都为yes状态判断(通过awk取值,grep过滤 ...

  3. JVM笔记（虚拟机各内存的介绍）

    JVM笔记 java代码执行分为两部分:javac编译     java执行 代码并不是由上往下执行的,会经过编译期重排序进行优化,存在依赖关系的代码不会被重排序,保证了代码最终执行结果的正确性! j ...

  4. Maya 常用环境变量详解

    Maya 常用环境变量详解 前言: Maya 的环境变量让用户可以很方便的自定义 Maya 的功能. 在 Maya 的 Help 帮助文档中有专门的一个章节< Environment Varia ...

  5. Python之IO编程——文件读写、StringIO/BytesIO、操作文件和目录、序列化

    IO编程 IO在计算机中指Input/Output,也就是输入和输出.由于程序和运行时数据是在内存中驻留,由CPU这个超快的计算核心来执行,涉及到数据交换的地方,通常是磁盘.网络等,就需要IO接口.从 ...

  6. 正则表达式在python中的简单使用

    正则表达式独立与编程语言,基本上所有的编程语言都实现了正则表达式的相关操作.在Python中正则表达式的表现为re模块: import re 其操作有三个方法: my_string = "h ...

  7. vdom,diff,key 算法的了解

    <ul id='list'> <li class='item'>Item1</li> <li class='item'>Item2 </li> ...

  8. POJ2387 Til the Cows Come Home【Kruscal】

    题目链接>>> 题目大意: 谷仓之间有一些路径长度,然后要在这些谷仓之间建立一些互联网,花费的成本与长度成正比,,并且要使这些边连起来看的像一课“树”,然后使成本最大 解题思路: 最 ...

  9. 解决Intellij IDEA部署JavaWeb项目 404问题

    今天朋友问了我一个问题,他的公司项目用idea启动tomcat是成功的, 但是访问页面是404.一般来说,这个问题普遍都是打war包的时候配置有一定的问题导致的. 检查一下Project Struct ...

  10. 146. 大小写转换 II

    146. Lowercase to Uppercase II Description Implement an upper method to convert all characters in a ...