22: -- the inputs needed for the test are passed in and a report object and CLOB are
23: -- returned.
24: -- note the way that support API writes to the report CLOB.
25: ------------------------------------------------------------
26: PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
27: report OUT NOCOPY JTF_DIAG_REPORT,
28: reportClob OUT NOCOPY CLOB) IS
29: reportStr LONG;
30: counter NUMBER;
108: -- please note the paramters have to be registered through the UI
109: -- before basic tests can be run.
110: --
111: ------------------------------------------------------------
112: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
113: tempInput JTF_DIAG_INPUTTBL;
114: BEGIN
115: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
116: defaultInputValues := tempInput;
109: -- before basic tests can be run.
110: --
111: ------------------------------------------------------------
112: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
113: tempInput JTF_DIAG_INPUTTBL;
114: BEGIN
115: tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
116: defaultInputValues := tempInput;
117: EXCEPTION