注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

[转]Server List  

2011-09-10 09:11:07|  分类: ABAP基础知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report z_barry_server_list .

datahosts like msxxlist occurs with header line .
datarfcsi_export like rfcsi.
datahex type x,
      dec 
type i,
      dec_char
(3type c,
      n 
type i,
      ip
(16)  .

call function 'RFC_GET_LOCAL_SERVERS'
  
tables
    hosts         
hosts
  
exceptions
    not_available 
1
    
others        2.
if sy-subrc <> 0.
  
message id sy-msgid type sy-msgty number sy-msgno
          
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.

loop at hosts."计算IP地址
  
do times.
    n 
sy-index 1.
    hex 
hosts-hostadr+n(1).
    dec 
hex .
    dec_char 
dec.
    
concatenate ip '.' dec_char into ip.
  
enddo.
  
shift ip.
  
write/ hosts-name,
           hosts
-host,
           hosts
-serv,
       
(2hosts-msgtypes,
       
(8hosts-hostadr,
           ip
,
       
(4hosts-servno.
  
hidehosts-name,hosts-host.
endloop.

at line-selection.
  
call function 'RFC_SYSTEM_INFO' destination hosts-name
    
importing
      rfcsi_export 
rfcsi_export.

  
write rfcsi_export-rfcproto,
            rfcsi_export
-rfcchartyp,
            rfcsi_export
-rfcinttyp,
            rfcsi_export
-rfcflotyp,
            rfcsi_export
-rfcdest,
            rfcsi_export
-rfchost,
            rfcsi_export
-rfcsysid,
            rfcsi_export
-rfcdatabs,
            rfcsi_export
-rfcdbhost,
            rfcsi_export
-rfcdbsys,
            rfcsi_export
-rfcsaprl,
            rfcsi_export
-rfcmach,
            rfcsi_export
-rfcopsys,
            rfcsi_export
-rfctzone,
            rfcsi_export
-rfcdayst,
            rfcsi_export
-rfcipaddr,
            rfcsi_export
-rfckernrl,
            rfcsi_export
-rfchost2,
            rfcsi_export
-rfcsi_resv.

  评论这张
 
阅读(244)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017