วันศุกร์ที่ 3 กันยายน พ.ศ. 2553

Program ABAP : zbot_exchangerate : get_http_excel

<< Start-Of-Selection

*&---------------------------------------------------------------------*
*&      Form  GET_HTTP_EXCEL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_http_excel .
  data : lv_uri(500type c,
         gi_header type table of string.
  data: xuri type string,
        status(3type c,
        statustext(128type c,
        rlength type i,
        key type i value 1303621,
        slen type i,
        t1 type i,
        t2 type i,
        ti type i,
        user(30type c,
        dest like rfcdes-rfcdest,
        btocrlf type c ,
        pwd(30type c.
  lv_uri = gv_uri.
  data: response type table of zlongtext with header line,
        response_headers type table of zlongtext with header line.
  call function 'ZCM_GET_BOT_EXCHANGERATE'
    exporting
      uri              = lv_uri
      dest             = 'SAPHTTP'
      btocrlf          = 'Y'
    tables
      response         = response
      response_headers = response_headers.
  loop at response.
    gi_excel-line = response.
    append gi_excel.
  endloop.



endform.                    " GET_HTTP_EXCEL

<< Start-Of-Selection

ไม่มีความคิดเห็น:

แสดงความคิดเห็น