使用程序实现多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配的链接，最好用你自己的用户而且保存密码，这样切换的时候不再提示你输入密码了