1 PACKAGE BODY BSC_SETUP_DATA_RPT AS
2 /* $Header: BSCSTPAB.pls 120.4.12000000.2 2007/08/10 06:06:58 amitgupt 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_db_version v$version.banner%TYPE;
40 h_Apps_version VARCHAR2(100);
41 l_status VARCHAR2(1);
42 l_industry VARCHAR2(1);
43 l_oracle_schema VARCHAR2(30);
44 l_return BOOLEAN;
45 BEGIN
46 l_return := FND_INSTALLATION.get_app_info
47 ( application_short_name => 'BSC'
48 , status => l_status
49 , industry => l_industry
50 , oracle_schema => l_oracle_schema
51 );
52 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
53
54 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
55
56 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
57 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(g_patch_level_sql,BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_PRODUCT_LEVEL'));
58 JTF_DIAGNOSTIC_COREAPI.BRPrint;
59 JTF_DIAGNOSTIC_COREAPI.LINE_OUT(BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_APPS_VERSION')||JTF_DIAGNOSTIC_COREAPI.Get_DB_Apps_versioN);
60 JTF_DIAGNOSTIC_COREAPI.BRPrint;
61 JTF_DIAGNOSTIC_COREAPI.LINE_OUT(BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_DB_VERSION')||JTF_DIAGNOSTIC_COREAPI.Get_RDBMS_Header);
62 JTF_DIAGNOSTIC_COREAPI.BRPrint;
63
64 sqltxt := 'SELECT a.SESSION_ID,b.serial#,b.status,c.object_name,a.ORACLE_USERNAME,'||
65 ' a.OS_USER_NAME,a.PROCESS FROM v$locked_object a, v$session b, all_objects c '||
66 ' WHERE c.OBJECT_NAME LIKE ''BSC%'' AND c.OBJECT_ID=a.OBJECT_ID AND b.sid=a.SESSION_ID'||
67 ' AND c.OWNER = '''|| l_oracle_schema||'''';
68
69 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'BSC_OBJECT_LOCKS');
70
71 JTF_DIAGNOSTIC_COREAPI.BRPrint;
72
73 sqltxt := 'SELECT * FROM BSC_CURRENT_SESSIONS';
74
75 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'BSC_CURRENT_SESSIONS');
76
77 JTF_DIAGNOSTIC_COREAPI.BRPrint;
78 JTF_DIAGNOSTIC_COREAPI.display_profiles(271);
79 JTF_DIAGNOSTIC_COREAPI.BRPrint;
80
81 sqltxt := 'SELECT * FROM bsc_sys_init ';
82
83 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'BSC_SYS_INIT');
84
85 JTF_DIAGNOSTIC_COREAPI.BRPrint;
86
87 sqltxt := 'SELECT * FROM BSC_MESSAGE_LOGS ';
88
89 dummy_num:= JTF_DIAGNOSTIC_COREAPI.display_sql(sqltxt,'BSC_MESSAGE_LOGS');
90
91 JTF_DIAGNOSTIC_COREAPI.BRPrint;
92
93 statusStr := 'SUCCESS';
94
95 JTF_DIAGNOSTIC_COREAPI.WarningPrint(BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_REPORT_OUTPUT'));
96
97 report := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
98 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
99 END runTest;
100
101 ------------------------------------------------------------
102 -- procedure to report name back to framework
103 ------------------------------------------------------------
104 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
105 BEGIN
106 name := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_SETUP_TEST_COMPONENT');
107 END getComponentName;
108
109 ------------------------------------------------------------
110 -- procedure to report test description back to framework
111 ------------------------------------------------------------
112 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
113 BEGIN
114 descStr := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_SETUP_DATA_TDESC');
115 END getTestDesc;
116
117 ------------------------------------------------------------
118 -- procedure to report test name back to framework
119 ------------------------------------------------------------
120 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
121 BEGIN
122 name := BSC_OBJECTIVE_METADATA_SETUP.get_message_name('BSC_SETUP_DATA_TNAME');
123 END getTestName;
124
125 ------------------------------------------------------------
126 -- procedure to provide the default parameters for the test case.
127 -- please note the paramters have to be registered through the UI
128 -- before basic tests can be run.
129 --
130 ------------------------------------------------------------
131 PROCEDURE getDefaultTestParams(defaultInputValues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
132 tempInput JTF_DIAG_INPUTTBL;
133 BEGIN
134 tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
135 -- tempInput := JTF_DIAGNOSTIC_ADAPTUTIL.addInput(tempInput,'USERID',NULL);
136 -- tempInput := JTF_DIAGNOSTIC_
137 defaultInputValues := tempInput;
138 EXCEPTION
139 WHEN OTHERS THEN
140 defaultInputValues := JTF_DIAGNOSTIC_ADAPTUTIL.initinputtable;
141 END getDefaultTestParams;
142
143 FUNCTION getTestMode RETURN INTEGER IS
144 BEGIN
145 RETURN JTF_DIAGNOSTIC_ADAPTUTIL.BASIC_MODE;
146 END;
147 END;