19*2020-07-13 10:32:5919*2020-07-13 10:32:598*000-345214*Ввод атрибутов

REPLACE PROCEDURE token ( str1 VARCHAR(2000) ,  pos INT) 
DYNAMIC RESULT SETS 1
BEGIN

	DECLARE tokpos INT;
	DECLARE offset INT;
	DECLARE lng INT;
	DECLARE fst_prt VARCHAR(100);
	DECLARE scnd_prt VARCHAR(500);
	SET tokpos = 1;
	SET offset = 1;
	SET fst_prt = '';
	
	DELETE FROM DBMS_OUTPUT;	
	
	  WHILE tokpos <= pos DO
		SET lng = INSTR(str1,'*',offset,1) - offset ;
		SET fst_prt = SUBSTR( str1, offset, INSTR(str1,'*',offset,1) - offset  );
		SET scnd_prt = SUBSTR( str1, offset + lng + 1 ,CAST(fst_prt AS INT ) );
		SET offset = offset + CAST(fst_prt AS INT ) + 1 + LENGTH(fst_prt) ;
		SET tokpos = tokpos+1;
	  END WHILE;
	  INSERT INTO DBMS_OUTPUT ( str,step,fst,scnd) VALUES (str1,tokpos,fst_prt,scnd_prt);

END ;
-- достать значение третьей лексемы
CALL token ('19*2020-07-13 10:32:5919*2020-07-13 10:32:598*000-345214*Ввод атрибутов',3);

WITH a AS (
SELECT '19*2020-07-13 10:32:5919*2020-07-13 10:32:598*000-345214*Ввод атрибутов' AS str1)
SELECT token (a.str1,3) FROM a

WITH w_data
AS
(
     SELECT '19*2020-07-13 10:32:5919*2020-07-13 10:32:538*000-345214*Ввод атрибутов' AS str
)
, RECURSIVE w_recursive(source_string, lvl, val)
AS
(
  SELECT  str AS source_string
          , 1 AS lvl
          , SUBSTR(str, INSTR(str, '*') + 1, TO_NUMBER(SUBSTR(str, 1, INSTR(str, '*') - 1))) AS val
  FROM    w_data  
  UNION ALL
  SELECT SUBSTR(n.source_string, INSTR(n.source_string, '*') + 1 + TO_NUMBER(SUBSTR(n.source_string, 1, INSTR(n.source_string, '*') - 1)))
         , lvl + 1
         , SUBSTR(n.source_string, INSTR(n.source_string, '*') + 1, TO_NUMBER(SUBSTR(n.source_string, 1, INSTR(n.source_string, '*') - 1)))
  FROM   w_data o
         JOIN w_recursive n ON LENGTH(n.source_string) >0
)
SELECT *
FROM   w_recursive
WHERE lvl > 1