*&---------------------------------------------------------------------*
*& Report  ZWEBREPORT                                                  
*&---------------------------------------------------------------------*

REPORT  zwebreport                              .
TABLES:spfli.
DATA:qstring LIKE w3query OCCURS 10 WITH HEADER LINE,
      myhtml LIKE w3html OCCURS 10 WITH HEADER LINE,
      mymime LIKE w3mime OCCURS 10 WITH HEADER LINE.
DATA:funct(100).
START-OF-SELECTION.
GET spfli.
REFRESH qstring.
qstring-name = 'CARRIED'.qstring-value = spfli-carrid.
APPEND qstring.
qstring-name = 'CONNID'.qstring-value = spfli-connid.
APPEND qstring.
WRITE:/'o' HOTSPOT COLOR = 5,
  spfli-carrid,
  spfli-connid,
  spfli-cityfrom,
  spfli-cityto.

  CALL FUNCTION 'WWW_SET_URL'
    EXPORTING
      offset              = 0
      length              = 1
      func                = 'secondary_list'
   TABLES
    query_string        = qstring
   EXCEPTIONS
    invalid_table       = 1
     OTHERS              = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  WRITE:/ 'error in that line'.
  ENDIF.

  END-OF-SELECTION.

  AT LINE-SELECTION.
  IF sy-cucol = 2.
  CALL FUNCTION 'WWW_GET_URL'
  IMPORTING
     func               = funct
  TABLES
    query_string       = qstring
            .

IF sy-subrc NE 1.
CALL FUNCTION funct
TABLES
query_string = qstring
html = myhtml
mime = mymime.
IF sy-subrc = 1.
WRITE'error'.
ENDIF.
ENDIF.

ENDIF.
 
 
 
Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP MM SD Consultant
Contact : serkurumsal@yandex.com