1 package body WIP_JOB_DIAG_FAILED_CLOSE as
2 /* $Header: WIPDD02B.pls 120.0.12000000.1 2007/07/10 09:37:52 mraman noship $ */
3 PROCEDURE init is
4 BEGIN
5 null;
6 END init;
7
8 PROCEDURE cleanup IS
9 BEGIN
10 -- test writer could insert special cleanup code here
11 NULL;
12 END cleanup;
13
14 PROCEDURE runtest(inputs IN JTF_DIAG_INPUTTBL,
15 report OUT NOCOPY JTF_DIAG_REPORT,
16 reportClob OUT NOCOPY CLOB) IS
17 reportStr LONG; -- REPORT
18 sqltxt VARCHAR2(9999); -- SQL select statement
19 c_username VARCHAR2(50); -- accept input for username
20 statusStr VARCHAR2(50); -- SUCCESS or FAILURE
21 errStr VARCHAR2(4000); -- error message
22 fixInfo VARCHAR2(4000); -- fix tip
23 isFatal VARCHAR2(50); -- TRUE or FALSE
24 dummy_num NUMBER;
25 row_limit NUMBER;
26 BEGIN
27 WIP_DIAG_JOB_SCH_HC.failed_job_close_job(inputs,
28 report,
29 reportClob);
30 exception
31 when others then
32 raise_application_error (-20500, 'Error in test Failed Job Close ' || sqlerrm) ;
33 END runTest;
34
35 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
36 BEGIN
37 name := 'Job/Schedule Health Check';
38 END getComponentName;
39
40 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
41 BEGIN
42 descStr := 'This health check diagnostic identifies potential data inconsistency in jobs/schedules that have failed in close process.<BR>'||
43 'Run this diagnostic when jobs cannot be closed successfully.<BR>' ||
44 'Please see the diagnostic output for recommended actions.<BR>' ||
45 'It is recommended to run this health check before period close.<BR>';
46 END getTestDesc;
47
48 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
49 BEGIN
50 name := 'Failed Job Close';
51 END getTestName;
52
53 PROCEDURE getDependencies (package_names OUT NOCOPY JTF_DIAG_DEPENDTBL) IS
54 tempDependencies JTF_DIAG_DEPENDTBL;
55
56 BEGIN
57 package_names := JTF_DIAGNOSTIC_ADAPTUTIL.initDependencyTable;
58 END getDependencies;
59
60 PROCEDURE isDependencyPipelined (str OUT NOCOPY VARCHAR2) IS
61 BEGIN
62 str := 'FALSE';
63 END isDependencyPipelined;
64
65
66 PROCEDURE getOutputValues(outputValues OUT NOCOPY JTF_DIAG_OUTPUTTBL) IS
67 tempOutput JTF_DIAG_OUTPUTTBL;
68 BEGIN
69 tempOutput := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
70 outputValues := tempOutput;
71 EXCEPTION
72 when others then
73 outputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initOutputTable;
74 END getOutputValues;
75
76
77 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
78 tempInput JTF_DIAG_INPUTTBL;
79 BEGIN
80 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
81 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput, 'Organization Id', 'LOV-oracle.apps.inv.diag.lov.OrganizationLov');
82 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'Job Id','LOV-oracle.apps.wip.diag.lov.JobLov');
83 defaultInputValues := tempInput;
84 EXCEPTION
85 when others then
86 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
87 END getDefaultTestParams;
88
89 Function getTestMode return INTEGER IS
90 BEGIN
91 return JTF_DIAGNOSTIC_ADAPTUTIL.ADVANCED_MODE; /* Bug 5735526 */
92
93 END getTestMode;
94
95 END;