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

---
 CISTOOLS/Variables/MAPICS_ENV.sql | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/CISTOOLS/Variables/MAPICS_ENV.sql b/CISTOOLS/Variables/MAPICS_ENV.sql
index 1ab418b..16db6c2 100644
--- a/CISTOOLS/Variables/MAPICS_ENV.sql
+++ b/CISTOOLS/Variables/MAPICS_ENV.sql
@@ -1 +1,26 @@
-βΕγ@ΧΑγΘ@\ΣΙΒΣ@^@
%
%ΓΩΕΑγΕ@ΦΩ@ΩΕΧΣΑΓΕ@εΑΩΙΑΒΣΕ@ΓΙβγΦΦΣβKΤΑΧΙΓβmΕΥε@
%εΑΩΓΘΑΩM@ς]@@@
%ΔΕΖΑδΣγ@@M@
%βΕΣΕΓγ@Γ@K@ΣΙΔΕβ@OO@Γ@K@ΖΙΔΕβ@
%ΖΩΦΤ@ΨΗΧΣ@K@ΤΤΣΙβγ@Γ@
%ΡΦΙΥ@γΑΒΣΕ@M@
%βΕΣΕΓγ@ΣΙβγΑΗΗ@M@ΔΙβγΙΥΓγ@ΕΣΕΤΕΥγ@]@Αβ@ΤΑΧΙΓβmΣΙΒβ@
%ΖΩΦΤ@ΨΗΧΣ@K@ΤΤΣΙβγ@Α@k@γΑΒΣΕ@M@
%βθβγΦΦΣβ@K@βΧΣΙγ@M@
%Α@K@ΣΒΑΤΑ@OO@}k}@OO@Α@K@ΣΒΑΤΖ@k@}k}@]@
%]@
%ΡΦΙΥ@Ψβθβς@K@ΣΙΒΣΙβγ@
%ΦΥ@Ψβθβς@K@ΣΙΒΣΙβγ@K@βΓΘΕΤΑmΥΑΤΕ@~@ΕΣΕΤΕΥγ@
%]@
%ΦΥ@ΤΑΧΙΓβmΣΙΒβ@~@Γ@K@ΣΒΑΤΑ@OO@Γ@K@ΣΒΑΤΖ@]@@^@
%
%ΗΩΑΥγ@ΑΣγΕΩ@k@ΩΕΑΔ@k@ζΩΙγΕ@@@
%ΦΥ@εΑΩΙΑΒΣΕ@ΓΙβγΦΦΣβKΤΑΧΙΓβmΕΥε@
%γΦ@ΑΤΑΧΙΓβ@ζΙγΘ@ΗΩΑΥγ@ΦΧγΙΦΥ@^@
%
%ΗΩΑΥγ@ΩΕΑΔ@k@ζΩΙγΕ@@@
%ΦΥ@εΑΩΙΑΒΣΕ@ΓΙβγΦΦΣβKΤΑΧΙΓβmΕΥε@
%γΦ@ΧδΒΣΙΓ@^@
%
%
\ No newline at end of file
+SET PATH *LIBL ; 
+
+CREATE OR REPLACE VARIABLE CISTOOLS.MAPICS_ENV 
+	VARCHAR( 2)   
+	DEFAULT  ( 
+SELECT C . LIDES || C . FIDES 
+FROM QGPL . MMLIST C 
+JOIN TABLE ( 
+SELECT LISTAGG ( DISTINCT ELEMENT ) AS MAPICS_LIBS 
+FROM QGPL . MMLIST A , TABLE ( 
+SYSTOOLS . SPLIT ( 
+A . LBAMA || ',' || A . LBAMF , ',' ) 
+) 
+JOIN QSYS2 . LIBLIST 
+ON QSYS2 . LIBLIST . SCHEMA_NAME = ELEMENT 
+) 
+ON MAPICS_LIBS = C . LBAMA || C . LBAMF )  ; 
+
+GRANT ALTER , READ , WRITE   
+ON VARIABLE CISTOOLS.MAPICS_ENV 
+TO AMAPICS WITH GRANT OPTION ; 
+
+GRANT READ , WRITE   
+ON VARIABLE CISTOOLS.MAPICS_ENV 
+TO PUBLIC ; 
+