29: -- procedure to execute the PLSQL test
30: -- the inputs needed for the test are passed in and a report
31: -- object and CLOB are -- returned.
32: ------------------------------------------------------------
33: PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
34: report OUT NOCOPY JTF_DIAG_REPORT,
35: reportClob OUT NOCOPY CLOB) IS
36: statusStr VARCHAR2(50); -- SUCCESS or FAILURE strings
37: errStr VARCHAR2(4000); -- upto a max of 4000 chars.
155:
156: ------------------------------------------------------------
157: -- procedure to provide/populate the default parameters for the test case.
158: ------------------------------------------------------------
159: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
160: ip JTF_DIAG_INPUTTBL;
161: BEGIN
162: /* return a initialized JTF_DIAG_INPUTTBL object */
163: ip := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
156: ------------------------------------------------------------
157: -- procedure to provide/populate the default parameters for the test case.
158: ------------------------------------------------------------
159: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
160: ip JTF_DIAG_INPUTTBL;
161: BEGIN
162: /* return a initialized JTF_DIAG_INPUTTBL object */
163: ip := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
164: defaultInputValues := ip;
158: ------------------------------------------------------------
159: PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
160: ip JTF_DIAG_INPUTTBL;
161: BEGIN
162: /* return a initialized JTF_DIAG_INPUTTBL object */
163: ip := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
164: defaultInputValues := ip;
165: END getDefaultTestParams;
166: