Önceki Sayfa

SAP Certification, ABAP Programming, Functional and Basis Component Reference Books

Inserting Website Links in ABAP

*

* ABAP with web links

*

* Creates a list that has a couple of active URL links embedded.

* By single-clicking on these links a web browser will popup and display

* the corresponding web page.

*

REPORT ZURL NO STANDARD PAGE HEADING.

DATA: BEGIN OF URL_TABLE OCCURS 10,

L(25),

END OF URL_TABLE.

URL_TABLE-L = 'http://www.bilalyazilim.com'.APPEND URL_TABLE.

URL_TABLE-L = 'http://www.google.com.tr'.APPEND URL_TABLE.

URL_TABLE-L = 'http://www.sap.com.tr'.APPEND URL_TABLE.

LOOP AT URL_TABLE.

SKIP. FORMAT INTENSIFIED OFF.

WRITE: / 'Single click on '.

FORMAT HOTSPOT ON.FORMAT INTENSIFIED ON.

WRITE: URL_TABLE. HIDE URL_TABLE.

FORMAT HOTSPOT OFF.FORMAT INTENSIFIED OFF.

WRITE: 'to go to', URL_TABLE.

ENDLOOP.

CLEAR URL_TABLE.

AT LINE-SELECTION.

IF NOT URL_TABLE IS INITIAL.

CALL FUNCTION 'WS_EXECUTE'

EXPORTING

program = 'C:\Program Files\Internet Explorer\IEXPLORE.EXE'

commandline     = URL_TABLE

INFORM         = ''

EXCEPTIONS

PROG_NOT_FOUND = 1.

IF SY-SUBRC <> 0.

WRITE:/ 'Cannot find program to open Internet'.

ENDIF.

ENDIF.

*-- End of Program

Copyright © 2010. KM Group. All Rights Reserved.