forked from doberkofler/PLSQL-JSON
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathjson_debug.pks
More file actions
29 lines (24 loc) · 1000 Bytes
/
json_debug.pks
File metadata and controls
29 lines (24 loc) · 1000 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
CREATE OR REPLACE
PACKAGE json_debug
IS
TYPE debugRecordType IS RECORD
(
nodeLevel NUMBER,
nodeType VARCHAR2(30),
nodeName VARCHAR2(2000),
arrayIndex NUMBER,
nodeValue VARCHAR2(2000),
nodeID NUMBER,
parentID NUMBER,
nextID NUMBER,
subNodeID NUMBER
);
TYPE debugTableType IS TABLE OF debugRecordType;
FUNCTION dump(theNode IN json_node, theNodeID IN NUMBER DEFAULT NULL) RETURN VARCHAR2;
PROCEDURE output(theData IN json_value, theRawFlag IN BOOLEAN DEFAULT FALSE, theTitle IN VARCHAR2 DEFAULT NULL);
PROCEDURE output(theObject IN json_object, theRawFlag IN BOOLEAN DEFAULT FALSE, theTitle IN VARCHAR2 DEFAULT NULL);
PROCEDURE output(theArray IN json_array, theRawFlag IN BOOLEAN DEFAULT FALSE, theTitle IN VARCHAR2 DEFAULT NULL);
PROCEDURE output(theNodes IN json_nodes, theRawFlag IN BOOLEAN DEFAULT FALSE, theTitle IN VARCHAR2 DEFAULT NULL);
FUNCTION asTable(theNodes IN json_nodes, theRawFlag IN BOOLEAN DEFAULT FALSE) RETURN json_debug.debugTableType PIPELINED;
END json_debug;
/