A D V E R T I S E M E N T
|
S A P - R E S O U R C E S
Get Free SAP Resources:
Are you looking for:
- SAP Jobs
- Free SAP eBooks
- SAP Softwares
- SAP Tutorials
- ERP Implementation Examples
Search SAP Resources:
|
"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.
A D V E R T I S E M E N T
|
|
|
|
