1 PACKAGE BODY BSC_CORRUPT_OBJECTS_RPT AS
2 /* $Header: BSCCOBJB.pls 120.1.12000000.1 2007/08/09 09:54:37 appldev noship $ */
3
4 ------------------------------------------------------------
5 -- procedure to initialize test datastructures
6 ------------------------------------------------------------
7 PROCEDURE init IS
8 BEGIN
9 -- test writer could insert special setup code here
10 NULL;
11 END init;
12 ------------------------------------------------------------
13 -- procedure to cleanup any test datastructures that were setup in the init
14
15 PROCEDURE cleanup IS
16 BEGIN
17 -- test writer could insert special cleanup code here
18 NULL;
19 END cleanup;
20 ------------------------------------------------------------
21 -- procedure to execute the PLSQL test
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;
31 dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
32 c_userid VARCHAR2(50);
33 statusStr VARCHAR2(50);
34 errStr VARCHAR2(4000);
35 fixInfo VARCHAR2(4000);
36 isFatal VARCHAR2(50);
37 dummy_num NUMBER;
38 sqltxt VARCHAR2 (2000);
39 h_count NUMBER;
40
41 BEGIN
42 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
43
44 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
45
46 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
47
48 JTF_DIAGNOSTIC_COREAPI.BRPrint;
49
50 JTF_DIAGNOSTIC_COREAPI.Line_out(BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_PER_DANG_CHK'));
51
52 h_count := 0;
53
54 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_measure_sql1,'BIS_INDICATORS<>BSC_SYS_DATASETS_B');
55 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_measure_sql2,'BSC_SYS_DATASETS_B<>BIS_INDICATORS');
56 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_measure_sql3,'BSC_DB_MEASURE_COLS_VL<>BSC_SYS_MEASURES');
57 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_per_sql,'BSC_SYS_PERIODICITIES_VL<>BSC_SYS_DIM_LEVELS_VL');
58 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_cal_sql,'BSC_SYS_CALENDARS_VL<>BSC_SYS_DIM_GROUPS_VL');
59 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_rpt_sql,'BSC_KPIS_B<>AK_REGIONS');
60 h_count:= h_count+JTF_DIAGNOSTIC_COREAPI.display_sql(g_dang_tab_sql,'BSC_TABS_VL<>AK_REGIONS');
61
62
63 IF h_count >0 THEN
64 JTF_DIAGNOSTIC_COREAPI.BRPrint;
65 errStr := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_PER_DANG_FOUND');
66 statusStr := 'WARNING';
67 fixInfo := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_DANGLING_OBJ_FIX');
68 isFatal := 'FALSE';
69 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(fixInfo);
70 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
71 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
72 RETURN ;
73 END IF;
74 statusStr := 'SUCCESS';
75 isFatal := 'FALSE';
76 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_NO_DANG_RECS'));
77 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
78 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
79 END runTest;
80
81 ------------------------------------------------------------
82 -- procedure to report name back to framework
83 ------------------------------------------------------------
84 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
85 BEGIN
86 name := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_GEN_HEALTH_CHECK');
87 END getComponentName;
88
89 ------------------------------------------------------------
90 -- procedure to report test description back to framework
91 ------------------------------------------------------------
92 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
93 BEGIN
94 descStr := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_CORRUPT_OBJ_TDESC');
95 END getTestDesc;
96
97 ------------------------------------------------------------
98 -- procedure to report test name back to framework
99 ------------------------------------------------------------
100 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
101 BEGIN
102 name := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_CORRUPT_OBJ_TNAME');
103 END getTestName;
104
105
106 ------------------------------------------------------------
107 -- procedure to provide the default parameters for the test case.
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;
117 EXCEPTION
118 WHEN OTHERS THEN
119 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
120 END getDefaultTestParams;
121
122 FUNCTION getTestMode RETURN INTEGER IS
123 BEGIN
124 RETURN JTF_DIAGNOSTIC_ADAPTUTIL.BASIC_MODE;
125 END;
126 END;