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 ;