Chinaunix首页 | 论坛 | 博客
  • 博客访问: 64037
  • 博文数量: 171
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1616
  • 用 户 组: 普通用户
  • 注册时间: 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文(171)

文章存档

2020年(171)

我的朋友

分类: 其他平台

2020-09-21 17:13:17

report rshttp20 line-size 132.

parametersuri(264type lower case,
            uri2(132type lower case,
            dest like rfcdes-rfcdest,
            btocrlf type default 'Y'.
selection-screen skip 1.
parametersuser(30type lower case,
            pwd(30type lower case.

typesbegin of text,
       line(120),
       end of text.

dataxuri(250type c,
      status(3type c,
      statustext(128type c,
      rlength type i,
      key type value 1303621,
      slen type i,
      t1 type i,
      t2 type i,
      ti type i.

dataresponse type table of text with header line,
      response_headers type table of text with header line.

set blank lines on.
concatenate uri uri2 into uri.
set parameter id 'HTTP01' field dest.
xuri uri(250).
set parameter id 'HTTP02' field xuri.

slen strlenuser ).

call function 'HTTP_SCRAMBLE'
  exporting
    source            user
    sourcelen         slen
    key               key
  importing
    destination       user.

slen strlenpwd ).

call function 'HTTP_SCRAMBLE'
  exporting
    source            pwd
    sourcelen         slen
    key               key
 importing
    destination       pwd.

get run time field t1.

call function 'HTTP_GET'
  exporting
    absolute_uri                uri
    rfc_destination             dest
    user                        user
    password                    pwd
    blankstocrlf                btocrlf
  importing
    status_code                 status
    status_text                 statustext
    response_entity_body_length rlength
  tables
    response_entity_body        response
    response_headers            response_headers.

get run time field t2.
ti t2 t1 1000.

writestatusat statustextat 70 ti,'ms'.
skip 2.

loop at response_headers.
  write response_headers-line.
endloop.
skip 2.

writetext-002rlength.
skip 2.

loop at response.
  write response-line.
endloop.

call function 'RFC_CONNECTION_CLOSE'
  exporting
    destination dest
  exceptions
    others      0.

* set default values for selection screen

initialization.
  get parameter id 'HTTP01' field dest.
  if sy-subrc ne 0dest 'SAPHTTP'endif.
  get parameter id 'HTTP02' field uri.

at selection-screen output.

  loop at screen.
    if screen-name 'PWD'.
      screen-invisible '1'.
      modify screen.
    endif.
  endloop.
阅读(1056) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~