From e3c05c30f3291dd6f55d2c5a31e03a4f179140e0 Mon Sep 17 00:00:00 2001
From: Alex Zaw <me@alexzaw.dev>
Date: Wed, 25 Feb 2026 23:05:35 +0000
Subject: [PATCH] Update Variable XA_RTNCOD

---
 CISTOOLS/Variables/XA_RTNCOD.sql | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Variables/XA_RTNCOD.sql b/CISTOOLS/Variables/XA_RTNCOD.sql
index ed7df8e..f53dde2 100644
--- a/CISTOOLS/Variables/XA_RTNCOD.sql
+++ b/CISTOOLS/Variables/XA_RTNCOD.sql
@@ -1 +1,14 @@
-βΕγ@ΧΑγΘ@\ΣΙΒΣ@^@
%
%ΓΩΕΑγΕ@ΦΩ@ΩΕΧΣΑΓΕ@εΑΩΙΑΒΣΕ@ΓΙβγΦΦΣβKηΑmΩγΥΓΦΔ@
%ΓΘΑΩMρ]@ΓΓβΙΔ@σχ@@@
%ΔΕΖΑδΣγ@@}}@@^@
%
%ΗΩΑΥγ@ΑΣγΕΩ@k@ΩΕΑΔ@k@ζΩΙγΕ@@@
%ΦΥ@εΑΩΙΑΒΣΕ@ΓΙβγΦΦΣβKηΑmΩγΥΓΦΔ@
%γΦ@ΑΤΑΧΙΓβ@ζΙγΘ@ΗΩΑΥγ@ΦΧγΙΦΥ@^@
%
%ΗΩΑΥγ@ΩΕΑΔ@k@ζΩΙγΕ@@@
%ΦΥ@εΑΩΙΑΒΣΕ@ΓΙβγΦΦΣβKηΑmΩγΥΓΦΔ@
%γΦ@ΧδΒΣΙΓ@^@
%
%
\ No newline at end of file
+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 ; 
+