Update Variable HOST_NAME

CISTOOLS/Variables/HOST_NAME.sql

@@ -1 +1,15 @@
-簀紂ﾗﾁ翳@\ﾓﾉﾂﾓ@^@
+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 ; 
+