Monday, June 3, 2013

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.


No comments:

Post a Comment