Inserting Website Links in ABAP

REPORT ZURL NO STANDARD PAGE HEADING.

DATA: BEGIN OF URL_TABLE OCCURS 10,

L(25),

END OF URL_TABLE.

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

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

URL_TABLE-L = 'http://www.sap.com'.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.