使用程序实现多client切换

有时候我会有好几个系统

开发机，测试机，正式系统，学习系统

偶尔用下别的系统，来回登陆太麻烦

所以在开发机上写了如下程序，用来多系统切换

REPORT  ZLM_CROSS_CLIENT .

*&---------------------------------------------------------------------*
*&宏定义
*&---------------------------------------------------------------------*
DEFINE select_client .
    if &1  is  not  initial .
        call  function  'TH_REMOTE_TRANSACTION'
            exporting
                tcode  = &2                                                     "需要另外一个client的tcode
                dest    = &3 .                                                    "sm59配的登陆地址
    endif .
END-OF-DEFINITION .

*&---------------------------------------------------------------------*
*&屏幕定义
*&---------------------------------------------------------------------*
SELECTION-SCREEN  BEGIN  OF  BLOCK b1  WITH  FRAME  TITLE  text - 001 .

PARAMETERS : p_code  TYPE SM04DIC -TCODE1 .

PARAMETERS :
                    p_210  RADIOBUTTON  GROUP g1 ,
                    p_230  RADIOBUTTON  GROUP g1 ,
                    p_510  RADIOBUTTON  GROUP g1 ,
                    p_555  RADIOBUTTON  GROUP g1 ,
                    p_800  RADIOBUTTON  GROUP g1 .

SELECTION-SCREEN  END  OF  BLOCK b1 .

*&---------------------------------------------------------------------*
*&逻辑区
*&---------------------------------------------------------------------*

select_client  p_210  p_code  '210DEV' .                                   
select_client  p_230  p_code  'DEVCLNT230' .                               "sm59内配的
select_client  p_510  p_code  'T0510' .
select_client  p_555  p_code  'T0555' .
select_client  p_800  p_code  'T0800' .

代码很简单

比如我在开发机210上想登陆测试环境510，看看某个表的数据

直接执行就行了

需要说明的是：

sm59配的链接，最好用你自己的用户而且保存密码，这样切换的时候不再提示你输入密码了