From 527740a2f7ea6eaffb16acbbc8b102fed6596519 Mon Sep 17 00:00:00 2001 From: Alex Zaw Date: Wed, 25 Feb 2026 23:01:17 +0000 Subject: [PATCH] Update Function GET_XA_TASKTOKEN --- CISTOOLS/Functions/GET_XA_TASKTOKEN.sql | 45 ++++++++++++++++++++++++- 1 file changed, 44 insertions(+), 1 deletion(-) diff --git a/CISTOOLS/Functions/GET_XA_TASKTOKEN.sql b/CISTOOLS/Functions/GET_XA_TASKTOKEN.sql index 39e0a2e..97e8933 100644 --- a/CISTOOLS/Functions/GET_XA_TASKTOKEN.sql +++ b/CISTOOLS/Functions/GET_XA_TASKTOKEN.sql @@ -1 +1,44 @@ -@@\@^@ % %@@@@Kmm@M@]@ %@M]@@@ %@@ %@Kmm@ %@@ %@@@ %@@@@ %@@@@~@\@k@ %@~@\@k@ %@~@\@k@ %@~@Mk@k@]@k@ %@~@\@k@ %@~@\@k@ %@~@\@@@ %@ %@m@@M@@]@@}}@^@ %@@@@@K@@M@@@@M@@]@@ %}\}@k@@@@M@@]@@}\}@k@ %@m@@M@@]@@}}@k@ %@@@M@@]@@}}@]@ %@@ %@@ %@ %@@@ %@@@@ %@@@ %@@@^@ %@@K@@M@m@~n@m@]@^@ %@m@^@ %@@^@ % %@@@@Kmm@ %@}Dž@@ぢ@㖒}@^@ % %@@k@@@@ %@@@Kmm@ %@@@@@^@ % %@@@@ %@@@Kmm@ %@@^@ % % \ No newline at end of file +SET PATH *LIBL ; + +CREATE OR REPLACE FUNCTION CISTOOLS.GET_XA_TASKTOKEN ( ) + RETURNS CHAR(10) + LANGUAGE SQL + SPECIFIC CISTOOLS.GET_XA_TASKTOKEN + NOT DETERMINISTIC + MODIFIES SQL DATA + CALLED ON NULL INPUT + SET OPTION ALWBLK = *ALLREAD , + ALWCPYDTA = *OPTIMIZE , + COMMIT = *NONE , + DECRESULT = (31, 31, 00) , + DYNDFTCOL = *NO , + DYNUSRPRF = *USER , + SRTSEQ = *HEX + BEGIN +DECLARE XA_TOKEN CHAR ( 10 ) DEFAULT '' ; +CREATE OR REPLACE PROCEDURE QTEMP . PSVTKN0R ( IN PROCESS CHAR ( 8 ) DEFAULT +'*YES' , IN SHUTDOWN CHAR ( 8 ) DEFAULT '*NO' , +IN TASK_TOKEN CHAR ( 10 ) DEFAULT '' , +IN MSGID CHAR ( 7 ) DEFAULT '' ) +LANGUAGE RPGLE +SPECIFIC NOT +DETERMINISTIC +MODIFIES SQL DATA +CALLED ON NULL INPUT +EXTERNAL NAME PSVTKN0R +PARAMETER STYLE GENERAL ; +CALL QTEMP . PSVTKN0R ( TASK_TOKEN => XA_TOKEN ) ; +RETURN XA_TOKEN ; +END ; + +LABEL ON SPECIFIC FUNCTION CISTOOLS.GET_XA_TASKTOKEN + IS 'Get Xa Task Token' ; + +GRANT ALTER , EXECUTE +ON SPECIFIC FUNCTION CISTOOLS.GET_XA_TASKTOKEN +TO AMAPICS WITH GRANT OPTION ; + +GRANT EXECUTE +ON SPECIFIC FUNCTION CISTOOLS.GET_XA_TASKTOKEN +TO PUBLIC ; +