REPORT ZTEST_01.

PARAMETERS: P_STRING TYPE STRING LOWER CASE.
DATA: HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT .
DATA: W_RESULT TYPE STRING,
      W_URL TYPE STRING,
      W_STRING TYPE STRING.
DATA LV_FSTR TYPE STRING.
DATA LV_C.
DATA LV_LEN TYPE I.
DATA LV_POS TYPE I.
DATA GV_LEN TYPE I.
DATA LV_IDX TYPE I.

START-OF-SELECTION .

  CALL METHOD CL_HTTP_UTILITY=>ESCAPE_URL
    EXPORTING
      UNESCAPED = P_STRING
      OPTIONS   = 1
    RECEIVING
      ESCAPED   = W_STRING.

  CONCATENATE  'http://export.yandex.ru/inflect.xml?name='  W_STRING  INTO  W_URL.

  CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
    EXPORTING
      URL                = W_URL
    IMPORTING
      CLIENT             = HTTP_CLIENT
    EXCEPTIONS
      ARGUMENT_NOT_FOUND = 1
      PLUGIN_NOT_ACTIVE  = 2
      INTERNAL_ERROR     = 3
      OTHERS             = 4.

  CALL METHOD HTTP_CLIENT->SEND
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2.

  CALL METHOD HTTP_CLIENT->RECEIVE
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2
      HTTP_PROCESSING_FAILED     = 3.



  CLEAR W_RESULT .
  W_RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( ).


  LV_IDX = 1.
  GV_LEN = STRLEN( W_RESULT ).
  WHILE LV_IDX <= 6.
    LV_C  =  LV_IDX.
    CONCATENATE '<inflection case="' LV_C  '">' INTO LV_FSTR.
    SEARCH W_RESULT FOR LV_FSTR.
    IF SY-SUBRC = 0.
      LV_POS = SY-FDPOS + 21.
      SEARCH W_RESULT FOR '</inflection>'.
      LV_LEN = SY-FDPOS - LV_POS.
      WRITE: /, W_RESULT+LV_POS(LV_LEN).
      GV_LEN = GV_LEN - SY-FDPOS - 13.
      LV_POS = LV_POS + LV_LEN + 13.
      W_RESULT = W_RESULT+LV_POS(GV_LEN).
    ELSE.
      WRITE P_STRING.
    ENDIF.
    ADD 1 TO LV_IDX.
  ENDWHILE.