16 lines
378 B
SQL
16 lines
378 B
SQL
SET PATH *LIBL ;
|
|
|
|
CREATE OR REPLACE VARIABLE CISTOOLS.HOST_NAME
|
|
VARCHAR( 100)
|
|
DEFAULT ( ( SELECT QSYS2 . LOWER ( SYSIBMADM . ENV_SYS_INFO . HOST_NAME )
|
|
FROM SYSIBMADM . ENV_SYS_INFO ) ) ;
|
|
|
|
GRANT ALTER , READ , WRITE
|
|
ON VARIABLE CISTOOLS.HOST_NAME
|
|
TO AMAPICS WITH GRANT OPTION ;
|
|
|
|
GRANT READ , WRITE
|
|
ON VARIABLE CISTOOLS.HOST_NAME
|
|
TO PUBLIC ;
|
|
|