SET PATH *LIBL ; 

CREATE OR REPLACE VARIABLE CISTOOLS.SL_CREDS 
	VARCHAR( 20)   
	DEFAULT  ( QSYS2 . RPAD ( ( SELECT SFLIB . SFENVC . SEVT01 
FROM SFLIB . SFENVC 
WHERE SFLIB . SFENVC . SEKEY = 'LRPSLUSR' ) , 10 , '' ) || ( SELECT SFLIB . SFENVC . SEVT01 
FROM SFLIB . SFENVC 
WHERE SFLIB . SFENVC . SEKEY = 'LRPSLPWD' ) )  ; 

GRANT ALTER , READ , WRITE   
ON VARIABLE CISTOOLS.SL_CREDS 
TO AMAPICS WITH GRANT OPTION ; 

GRANT READ , WRITE   
ON VARIABLE CISTOOLS.SL_CREDS 
TO PUBLIC ;