21 lines
439 B
SQL
21 lines
439 B
SQL
SET PATH *LIBL ;
|
|
|
|
CREATE OR REPLACE VARIABLE CISTOOLS.SL_URL
|
|
VARCHAR( 1056)
|
|
DEFAULT (
|
|
|
|
SELECT 'http://' || QSYS2 . LOWER ( SYSIBMADM . ENV_SYS_INFO . HOST_NAME ) ||
|
|
|
|
':36001/SystemLink/servlet/SystemLinkServlet?'
|
|
|
|
FROM SYSIBMADM . ENV_SYS_INFO ) ;
|
|
|
|
GRANT ALTER , READ , WRITE
|
|
ON VARIABLE CISTOOLS.SL_URL
|
|
TO AMAPICS WITH GRANT OPTION ;
|
|
|
|
GRANT READ , WRITE
|
|
ON VARIABLE CISTOOLS.SL_URL
|
|
TO PUBLIC ;
|
|
|