SET PATH *LIBL ; 

CREATE OR REPLACE VARIABLE CISTOOLS.XA_RTNCOD 
	CHAR(1) CCSID 37   
	DEFAULT  ''  ; 

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

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