admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FCLT#53978 Droppen fac_xml

Browse Source 
svn path=/Database/trunk/; revision=40673
This commit is contained in:
Erik Groener
2019-01-25 09:23:28 +00:00
parent be26928572
commit fd9c5105b2
2 changed files with 3 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
FAC/FAC_PACX.SRC
View File

@@ -123,14 +123,6 @@ AS
p_concise IN BOOLEAN
);
PROCEDURE make_xml (
p_xmlnode IN VARCHAR2,
p_key IN NUMBER,
p_custid IN VARCHAR2,
p_sessionid IN VARCHAR2,
p_extra IN NUMBER,
p_where IN VARCHAR2
);
FUNCTION make_xml2 (
p_xmlnode IN VARCHAR2,
p_key IN NUMBER,
@@ -140,17 +132,6 @@ AS
p_where IN VARCHAR2
) RETURN CLOB;
PROCEDURE make_view_xml (
p_view IN VARCHAR2,
p_key IN NUMBER,
p_custid IN VARCHAR2,
p_sessionid IN VARCHAR2,
p_extra IN NUMBER,
p_where IN VARCHAR2,
p_nodename IN VARCHAR2,
p_rowname IN VARCHAR2
);
FUNCTION make_view_xml2 (
p_view IN VARCHAR2,
p_key IN NUMBER,
@@ -9335,45 +9316,6 @@ AS
END CASE;
END;
PROCEDURE export_clob(aclob IN CLOB,
p_sessionid IN VARCHAR2)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_where VARCHAR2 (1000);
v_chunk_size NUMBER (10) := 3000;
v_sql_stmt VARCHAR2 (1000);
BEGIN
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
v_offset := 1;
DELETE FROM fac_xml
WHERE fac_session_id = p_sessionid OR fac_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO fac_xml (fac_session_id, fac_xml_xml, fac_xml_volgnr)
VALUES (p_sessionid,
DBMS_LOB.SUBSTR (aclob, v_interval, v_offset),
v_volgnr);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
-- MAIN PROCS --
FUNCTION make_xml2 (p_xmlnode IN VARCHAR2,
p_key IN NUMBER,
@@ -9400,23 +9342,6 @@ AS
RETURN aclob;
END;
PROCEDURE make_xml (p_xmlnode IN VARCHAR2,
p_key IN NUMBER,
p_custid IN VARCHAR2,
p_sessionid IN VARCHAR2,
p_extra IN NUMBER,
p_where IN VARCHAR2)
AS
BEGIN
aclob := make_xml2 (p_xmlnode,
p_key,
p_custid,
p_sessionid,
p_extra,
p_where);
export_clob(aclob, p_sessionid);
END;
FUNCTION make_view_xml2 (p_view IN VARCHAR2,
p_key IN NUMBER,
p_custid IN VARCHAR2,
@@ -9443,27 +9368,6 @@ AS
RETURN aclob;
END;
PROCEDURE make_view_xml (p_view IN VARCHAR2,
p_key IN NUMBER,
p_custid IN VARCHAR2,
p_sessionid IN VARCHAR2,
p_extra IN NUMBER,
p_where IN VARCHAR2,
p_nodename IN VARCHAR2,
p_rowname IN VARCHAR2
)
AS
BEGIN
aclob := make_view_xml2 (p_view,
p_key,
p_custid,
p_sessionid,
p_extra,
p_where,
p_nodename,
p_rowname);
export_clob(aclob, p_sessionid);
END;
END xml;
/