Active URL link in ABAP Program Output

REPORT zurl.

DATA: BEGIN OF URL_TABLE OCCURS 10,
L(25),
END OF URL_TABLE.

URL_TABLE-L = 'http://www.yahoo.com'.
APPEND URL_TABLE.
URL_TABLE-L = 'http://www.gmail.com'.
APPEND URL_TABLE.
URL_TABLE-L = 'http://www.hotmail.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.
ENDIF.