52 lines
1.2 KiB
SQL
52 lines
1.2 KiB
SQL
SET PATH *LIBL ;
|
|
|
|
CREATE OR REPLACE FUNCTION CISTOOLS.TO_TIME (
|
|
INNUM NUMERIC(6, 0) )
|
|
RETURNS TIME
|
|
LANGUAGE SQL
|
|
SPECIFIC CISTOOLS.TO_TIME
|
|
DETERMINISTIC
|
|
READS SQL DATA
|
|
CALLED ON NULL INPUT
|
|
CONCURRENT ACCESS RESOLUTION DEFAULT
|
|
SET OPTION ALWBLK = *ALLREAD ,
|
|
ALWCPYDTA = *OPTIMIZE ,
|
|
COMMIT = *NONE ,
|
|
DBGVIEW = *SOURCE ,
|
|
DECRESULT = (31, 31, 00) ,
|
|
DFTRDBCOL = *NONE ,
|
|
DYNDFTCOL = *NO ,
|
|
DYNUSRPRF = *OWNER ,
|
|
SRTSEQ = *HEX
|
|
BEGIN
|
|
DECLARE WKNUM CHAR ( 6 ) ;
|
|
DECLARE RETURN_TIME TIME ;
|
|
DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
|
|
BEGIN
|
|
SET RETURN_TIME = TIME ( '01.01.01' ) ;
|
|
END ;
|
|
SET WKNUM = LPAD ( INNUM , 6 , '0' ) ;
|
|
SET RETURN_TIME = CAST (
|
|
LEFT ( WKNUM , 2 ) || '.' || SUBSTR ( WKNUM , 3 , 2 ) || '.' ||
|
|
CASE
|
|
WHEN RIGHT ( WKNUM , 2 ) > 59 THEN '59'
|
|
ELSE RIGHT ( WKNUM , 2 )
|
|
END AS TIME ) ;
|
|
RETURN RETURN_TIME ;
|
|
END ;
|
|
|
|
COMMENT ON PARAMETER SPECIFIC FUNCTION CISTOOLS.TO_TIME
|
|
( INNUM IS 'Input Number' ) ;
|
|
|
|
LABEL ON SPECIFIC FUNCTION CISTOOLS.TO_TIME
|
|
IS 'To Time' ;
|
|
|
|
GRANT ALTER , EXECUTE
|
|
ON SPECIFIC FUNCTION CISTOOLS.TO_TIME
|
|
TO AMAPICS WITH GRANT OPTION ;
|
|
|
|
GRANT EXECUTE
|
|
ON SPECIFIC FUNCTION CISTOOLS.TO_TIME
|
|
TO PUBLIC ;
|
|
|