mysql转人大金仓函数

1. date_sub

create or replace function date_sub(v_date text , v_interval interval) 
returns text as 
declare
  v_rt text;
begin
  select to_char(v_date::date - v_interval,'yyyy-mm-dd hh24:mi:ss' ) into v_rt; 
  if length(v_date) = 10 and v_rt like '% 00:00:00' then
    select substr(v_rt,0,10) into v_rt;
  end if;
return v_rt;
end;

2. FIND_IN_SET

CREATE OR REPLACE INTERNAL FUNCTION PUBLIC.FIND_IN_SET(CHARACTER VARYING, CHARACTER VARYING)
 RETURNS CHARACTER VARYING
 LANGUAGE PLSQL
 IMMUTABLE STRICT
AS $function$
DECLARE
tokens varchar[];
BEGIN
tokens := sys_catalog.string_to_array($2, ',');
RETURN ISNULL(sys_catalog.array_position(tokens, $1),0) > 0;
END;
$function$;

3. IFNULL

CREATE OR REPLACE INTERNAL FUNCTION PUBLIC.IFNULL(CHARACTER VARYING, CHARACTER VARYING) 
 RETURNS CHARACTER VARYING
 LANGUAGE PLSQL
 IMMUTABLE STRICT
AS $function$
DECLARE
BEGIN
RETURN ISNULL($1,$2);
END;
$function$;

4. JSON_EXTRACT

CREATE OR REPLACE INTERNAL FUNCTION PUBLIC.JSON_EXTRACT(CHARACTER VARYING, CHARACTER VARYING) 
 RETURNS CHARACTER VARYING
 LANGUAGE PLSQL
 IMMUTABLE STRICT
AS $function$
DECLARE
BEGIN
RETURN sys_catalog.json_extract_path($1, sys_catalog.replace($2,'$.',''));
END;
$function$;

5. substring_index

CREATE OR REPLACE INTERNAL FUNCTION PUBLIC.substring_index(CHARACTER VARYING, CHARACTER VARYING, INTEGER) 
 RETURNS CHARACTER VARYING
 LANGUAGE PLSQL
 IMMUTABLE STRICT
AS $function$
DECLARE
tokens varchar[];
length integer ;
indexnum integer;
BEGIN
tokens := sys_catalog.string_to_array($1, $2);
length := sys_catalog.array_upper(tokens, 1);
indexnum := length - ($3 * -1) + 1;
IF $3 >= 0 THEN
RETURN sys_catalog.array_to_string(tokens[1:$3], $2);
ELSE
RETURN sys_catalog.array_to_string(tokens[indexnum:length], $2);
END IF;
END;
$function$;