Friday, October 15, 2010

Have active URL-s in the list an ABAP report creates

REPORT ZIMRETSS NO STANDARD PAGE HEADING.
************************************************************************
* This report 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.
************************************************************************
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.kabai.com'.APPEND URL_TABLE.
URL_TABLE-L = 'http://www.ebay.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.

* Graham Hickson (graham.hickson@db.com) recommended a nice way
* to find the Netscape executable from the windows registry.
* This is his solution:
* DATA: buf_netscape(200) TYPE c.
* CALL FUNCTION 'REGISTRY_GET' "path of NETSCAPE.EXE
* EXPORTING
* key = 'protocol\StdFileEditing\server'
* section = 'NetscapeMarkup'
* IMPORTING
* value = buf_netscape.
* CALL FUNCTION 'WS_EXECUTE'
* EXPORTING
* program = buf_netscape
* commandline = URL_TABLE.

AT LINE-SELECTION.
IF NOT URL_TABLE IS INITIAL.
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
PROGRAM = 'd:\program files\netscape\navigator\program\netscape.exe'
COMMANDLINE = URL_TABLE
INFORM = ''
EXCEPTIONS
PROG_NOT_FOUND = 1.
ENDIF.

No comments:

Tutorials on SAP-ABAP

Adobe Interactive Forms Tutorials

Business Server Pages (BSP)

Userexits/BADIs

Web Dynpro for ABAP (Step by step procedure for web dynpro,Tutorials on Web Dynpro,)

ALV Tutorials

Blog Archive

goodsites