Problems with SDN RSS Feed - part 1

Question

Hi all, this is the first question I have regarding the SDN RSS Feed and it's processing. I have followed Brian's weblog  'RSS = HttpClient + XML + XSLT' (link: /people/brian.mckellar/blog/2004/06/25/bsp-programming-rss-httpclient-xml-xslt). When testing this example I run into a problem when executing the following commands:
node = element->find_from_name( name = 'creator' ).
<blog>-creator = node->get_value( ).
node = element->find_from_name( name = 'date' ).
<blog>-date = node->get_value( ).
Both values seem to be empty resulting in a HTTP_COMMUNICATION_FAILURE. When I comment these lines out the example runs correctly. Checking the actual RSS Feed, http://weblogs.sdn.sap.com/pub/q/weblog_rss_topic?x-topic=24&x-ver=1.0, there are entries for dc:creator and dc:date, so I changed my code accordingly but no success. Any idea what is causing this issue? Thanks, Tiest

Answer 1

Brian, as discussed attached a test programm that shows the first error I am unable to understand.... Hope this makes it easier for you all to help me understand what is causing this issue. Thanks in advance, Tiest.
REPORT  ZBSP_FAQ_RSSTST                                            
  DATA: url         TYPE STRING,
        http_client TYPE REF TO IF_HTTP_CLIENT,
        return_code TYPE I,
        content     TYPE STRING.
  url = 'http://weblogs.sdn.sap.com/pub/q/weblog_rss_topic?x-topic=24&x-ver=1.0'.
url = 'http://weblogs.sdn.sap.com/pub/q/weblogs_rss?x-ver=1.0'.
  cl_http_client=>create_by_url( EXPORTING url    = url
                                 IMPORTING client = http_client ).
  http_client->send( ).
  http_client->receive( ).
  http_client->response->get_status( IMPORTING code = return_code ).
  content = http_client->response->get_cdata( ).
  http_client->close( ).
Parse response into XML Document
  TYPE-POOLS: ixml.
  DATA: ixml          TYPE REF TO if_ixml,
        streamFactory TYPE REF TO if_ixml_stream_factory,
        istream       TYPE REF TO if_ixml_istream,
        parser        TYPE REF TO if_ixml_parser,
        document      TYPE REF TO if_ixml_document.
  IF content CS '<!DOCTYPE' AND content CS ']>'.
    DATA dummy type string.
    SPLIT content AT '<!DOCTYPE' INTO dummy content.
    SPLIT content AT ']>'        INTO dummy content.
  ENDIF.
  ixml     = cl_ixml=>create( ).
  streamFactory = ixml->create_stream_factory( ).
  istream  = streamFactory->create_istream_cstring( content ).
  document = ixml->create_document( ).
  parser   = ixml->create_parser( stream_factory = streamFactory
                                 istream         = iStream
                                 document        = document ).
  parser->set_normalizing( ).
  parser->set_validating( mode = if_ixml_parser=>co_no_validation ).
  parser->parse( ).
Define table for BSP Output
  TYPES: BEGIN OF t_blog,
            title          TYPE string,
            link           TYPE string,
            description    TYPE string,
            creator        TYPE string,
            date           TYPE string,
         END OF t_blog,
         t_blogs TYPE TABLE OF t_blog.
  DATA:          blogs type t_blogs.
  FIELD-SYMBOLS: <blog> type t_blog.
- Find all the <item> tags                                           -
  DATA:  collection      TYPE REF TO if_ixml_node_collection,
         node            TYPE REF TO if_ixml_node,
         element         TYPE REF TO if_ixml_element,
         index           TYPE i.
  collection = document->get_elements_by_tag_name( name = 'item' ).
  WHILE index < collection->get_length( ).
    APPEND INITIAL LINE TO blogs ASSIGNING <blog>.
    node     = collection->get_item( index ).
    element ?= node->query_interface( ixml_iid_element ).
    index    = index + 1.
    node = element->find_from_name( name = 'title' ).
    <blog>-title = node->get_value( ).
    node = element->find_from_name( name = 'link' ).
    <blog>-link = node->get_value( ).
    node = element->find_from_name( name = 'description' ).
    <blog>-description = node->get_value( ).
<b>- Activating these two lines results in a shortdump, no idea what is causing this problem -</b>
    node = element->find_from_name( name = 'creator' ).
    <blog>-creator = node->get_value( ).
    node = element->find_from_name( name = 'date' ).
    <blog>-date = node->get_value( ).
  ENDWHILE.
  LOOP AT blogs ASSIGNING <blog>.
    write: / 'title:',       14 <blog>-title.
    write: / 'link:',        14 <blog>-link.
    write: / 'description:', 14 <blog>-description.
    write: / 'creator:',     14 <blog>-creator.
    write: / 'date:',        14 <blog>-date.
    write: /.
  ENDLOOP.
Message was edited by: Tiest van Gool