有时候我会有好几个系统 
 
  开发机,测试机,正式系统,学习系统
  
 
  偶尔用下别的系统,来回登陆太麻烦
  
 
  
 
 
  所以在开发机上写了如下程序,用来多系统切换
  
 
  
 
 
  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配的链接,最好用你自己的用户而且保存密码,这样切换的时候不再提示你输入密码了
  
                










