Internet Communicatin Framework简单应用实例

最新推荐文章于 2024-09-05 21:53:09 发布

zgfang

最新推荐文章于 2024-09-05 21:53:09 发布

阅读量150

点赞数

分类专栏： SAP ABAP 文章标签： HTML C C++ C# UP

SAP ABAP 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

SAP提供了ICF通过Internet与外部进行通讯，下面只是基本ABAP Object的一个错误的例子进行了修改，附代码如下：

1,SICF创建一个Server: z_http_service

2, SE24自定义一个类，并引入interface为IF_HTTP_EXTENSION,并声明如下数据类型：
types:
    BEGIN OF tline,
        datestr        TYPE c LENGTH 10,
        planetypestr   TYPE c LENGTH 10,
        seatsfreestr   TYPE c LENGTH 10,
      END OF tline .
types:
    BEGIN OF tflight,
             carrid        TYPE spfli-carrid,
             connid        TYPE spfli-connid,
             cityfrom      TYPE spfli-cityfrom,
             cityto        TYPE spfli-cityto,
             valuestr      TYPE char100,
             table         TYPE STANDARD TABLE OF tline
                                WITH NON-UNIQUE DEFAULT KEY,
           END OF tflight .

METHOD if_http_extension~handle_request.
* wait up to 1 seconds.

DATA: header_data TYPE string,
        html_body    TYPE string,
        fldate       TYPE sflight-fldate,
        planetype    TYPE sflight-planetype,
        seatsocc     TYPE sflight-seatsocc,
        seatsmax     TYPE sflight-seatsmax,
        line         TYPE tline,
        flight       TYPE tflight.

* header_data = server->request->get_header_field(
* if_http_header_fields_sap=>query_string ).
* FIND REGEX '(\D+)(\d+)' IN header_data
* SUBMATCHES flight-carrid flight-connid.

flight-carrid = server->request->get_form_field( 'P1' ).
flight-connid = server->request->get_form_field( 'P2' ).

SELECT SINGLE cityfrom cityto
         FROM spfli
         INTO (flight-cityfrom, flight-cityto)
         WHERE carrid = flight-carrid AND
               connid = flight-connid .
SELECT fldate planetype seatsocc seatsmax
         FROM sflight
         INTO (fldate, planetype, seatsocc, seatsmax)
         WHERE carrid = flight-carrid AND
               connid = flight-connid.
    WRITE fldate      TO line-datestr.
    line-planetypestr = planetype.
    line-seatsfreestr = seatsmax - seatsocc.
    APPEND line TO flight-table.
ENDSELECT.
CALL TRANSFORMATION z_flight_to_html
           SOURCE flight = flight
           RESULT XML html_body.

server->response->set_header_field(
name = if_http_header_fields=>content_type
value = 'text/html'
).
server->response->set_cdata( data = html_body ).
ENDMETHOD.

3,创建Simple Transformation(ST),代码如下：
<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">
<tt:root name="FLIGHT"/>
<tt:template>
    <html>
      <body>
        <h2>
          <tt:value ref=".FLIGHT.carrid"/>
          <text/>
          <tt:value ref=".FLIGHT.connid"/>
        </h2>
        <h3>
          <tt:value ref=".FLIGHT.cityfrom"/>
          <text>-</text>
          <tt:value ref=".FLIGHT.cityto"/>
        </h3>
        <table border="2">
          <tr>
            <td>
              <b>date</b>
            </td>
            <td>
              <b>planetype</b>
            </td>
            <td>
              <b>Availability</b>
            </td>
          </tr>
          <tt:loop ref=".FLIGHT.table">
            <tr>
              <td>
                <tt:value ref="datestr"/>
              </td>
              <td>
                <tt:value ref="planetypestr"/>
              </td>
              <td>
                <tt:value ref="seatsfreestr"/>
              </td>
            </tr>
          </tt:loop>
        </table>
      </body>
    </html>
</tt:template>
</tt:transform>