From 785a96e3920cb2dea509b2239b95143f217f358a Mon Sep 17 00:00:00 2001 From: Alex Zaw Date: Wed, 25 Feb 2026 23:01:20 +0000 Subject: [PATCH] Update Function HMS2TIME --- CISTOOLS/Functions/HMS2TIME.sql | 43 ++++++++++++++++++++++++++++++++- 1 file changed, 42 insertions(+), 1 deletion(-) diff --git a/CISTOOLS/Functions/HMS2TIME.sql b/CISTOOLS/Functions/HMS2TIME.sql index e1c2e6f..100ed3c 100644 --- a/CISTOOLS/Functions/HMS2TIME.sql +++ b/CISTOOLS/Functions/HMS2TIME.sql @@ -1 +1,42 @@ -@@\@^@ % %@@@@K@M@ %m@Mk@]@@@@@]@ %@@@@ %@@ %@K@ %@@ %@@@ %@@@@ %@@@@~@\@k@ %@~@\@k@ %@~@\@k@ %@~@\@k@ %@~@Mk@k@]@k@ %@~@\@k@ %@~@\@k@ %@~@\@@@ %@ %@m@@M@@]@^@ %@@@@@@@^@ %@m@~@@M@m@k@@k@}}@]@^@ %@ %@M@ %@M@m@k@@k@@]@OO@}z}@OO@@M@m@k@@k@@]@OO@}z}@ %OO@@M@m@k@@k@@]@]@^@ %@@^@ % %@@@@@K@ %M@m@@}@㉔@Ɩ}@]@^@ % %@@@@K@ %@}Ȕ@@㉔}@^@ % %@@@@ %@@@K@ %@@^@ % %@@k@@@@ %@@@K@ %@@@@@^@ % % \ No newline at end of file +SET PATH *LIBL ; + +CREATE OR REPLACE FUNCTION CISTOOLS.HMS2TIME ( + HMS_TIME NUMERIC(6, 0) DEFAULT 0 ) + RETURNS TIME + LANGUAGE SQL + SPECIFIC CISTOOLS.HMS2TIME + NOT DETERMINISTIC + MODIFIES SQL DATA + CALLED ON NULL INPUT + SET OPTION ALWBLK = *ALLREAD , + ALWCPYDTA = *OPTIMIZE , + COMMIT = *NONE , + DBGVIEW = *SOURCE , + DECRESULT = (31, 31, 00) , + DYNDFTCOL = *NO , + DYNUSRPRF = *USER , + SRTSEQ = *HEX + BEGIN +DECLARE CHAR_TIME CHAR ( 6 ) ; +DECLARE CONTINUE HANDLER FOR SQLEXCEPTION RETURN NULL ; +SET CHAR_TIME = LPAD ( HMS_TIME , 6 , '0' ) ; +RETURN +TIME ( +SUBSTR ( CHAR_TIME , 1 , 2 ) || ':' || SUBSTR ( CHAR_TIME , 3 , 2 ) || ':' +|| SUBSTR ( CHAR_TIME , 5 , 2 ) ) ; +END ; + +COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.HMS2TIME +( HMS_TIME IS 'HMS Time Format' ) ; + +LABEL ON SPECIFIC FUNCTION CISTOOLS.HMS2TIME + IS 'Hms To Time' ; + +GRANT EXECUTE +ON SPECIFIC FUNCTION CISTOOLS.HMS2TIME +TO PUBLIC ; + +GRANT ALTER , EXECUTE +ON SPECIFIC FUNCTION CISTOOLS.HMS2TIME +TO QSECOFR WITH GRANT OPTION ; +