63: --
64: -------------------------------------------------------------------------------
65: procedure init is
66:
67: report jtf_diag_report;
68: reportClob clob;
69: result pls_integer;
70:
71: begin
112: --
113: -------------------------------------------------------------------------------
114: procedure cleanup is
115:
116: report jtf_diag_report;
117: reportClob clob;
118: result pls_integer;
119:
120: begin
344: end preference_test;
345: --
346: -------------------------------------------------------------------------------
347: procedure runtest(inputs in jtf_diag_inputtbl,
348: report out nocopy jtf_diag_report,
349: reportClob out nocopy clob) is
350:
351: begin
352: currentMethod := 'runtest';