Sampe Web Report for your reference:
*&---------------------------------------------------------------------*
*& 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.
|
ABAP Tips
|