sap abap program for How to Write Web Reports in SAP

*&---------------------------------------------------------------------*
*& 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.