1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

  method IF_HTTP_EXTENSION~HANDLE_REQUEST.

    DATA action TYPE STRING .

    DATA xmlcstr TYPE STRING .

    DATA newscontent TYPE TABLE OF ZNEWSCONTENT.

    DATA newscontent_l LIKE LINE OF newscontent.

    DATA guidstr TYPE STRING.

    DATA titlestr TYPE STRING.

    DATA descriptionstr TYPE C LENGTH 400.

    DATA imagestr TYPE STRING.

    DATA linkstr TYPE STRING.

    action = server->request->get_form_field( name = ‘type’ ).

    CASE action.

      WHEN ‘news’.

        SELECT * FROM ZNEWSCONTENT INTO TABLE newscontent.

        xmlcstr = ‘<?xml version=”1.0″ encoding=”utf-8″?><rss version= “2.0”> <channel>’.

        LOOP AT newscontent INTO newscontent_l.

CLEAR: guidstr, titlestr, descriptionstr, imagestr, linkstr.

          CONCATENATE xmlcstr ‘<item>’ INTO xmlcstr.

          guidstr = newscontent_l-guid.

          titlestr = newscontent_l-title.

          descriptionstr = newscontent_l-description.

          imagestr = newscontent_l-imagelink.

          linkstr = newscontent_l-contentlink.

          CONCATENATE xmlcstr ‘<guid>’ guidstr ‘</guid>’

                              ‘<title>’ titlestr ‘</title>’

‘<description>’ descriptionstr ‘</description>’

                              ‘<image>’ imagestr ‘</image>’

                              ‘<link>’ linkstr ‘</link>’ INTO xmlcstr.

         CONCATENATE xmlcstr ‘</item>’ INTO xmlcstr.

       ENDLOOP.

       CONCATENATE xmlcstr ‘</channel></rss>’ INTO xmlcstr.

server->response->set_header_field(

       name = ‘Content-Type’

       value = ‘application/xml’ ).

server->response->set_header_field(

       name = ‘accept-origin’

       value = ‘*’ ).

       server->response->set_cdata( data = xmlcstr ).

    ENDCASE .

  endmethod.