PACKAGE BODY: APPS.FND_OAM_TESTER

Source

1 PACKAGE BODY FND_OAM_TESTER AS
2 /* $Header: AFOAMTESTERB.pls 115.1 2002/12/25 01:48:48 rmohan noship $ */
3 
4 ---Common Constants
5    procedure run_succeed(oerr1 out NOCOPY varchar2
6       , oerr2 out NOCOPY varchar2 )
7    is
8         outcome varchar2(250);
9         outmesg varchar2(250);
10         outstat number;
11         valstat number;
12         errmsg1 varchar2(250);
13         errmsg2 varchar2(250);
14         p1      varchar2(250);
15 	p2      varchar2(250);
16 	p3      varchar2(250);
17         p4      varchar2(250);
18 	p5      varchar2(250);
19 	p6      varchar2(250);
20         p7      varchar2(250);
21 	p8      varchar2(250);
22 	p9      varchar2(250);
23         p10     varchar2(250);
24 	p11     varchar2(250);
25 	p12     varchar2(250);
26         p13     varchar2(250);
27 	p14     varchar2(250);
28 	p15     varchar2(250);
29         p16     varchar2(250);
30 	p17     varchar2(250);
31 	p18     varchar2(250);
32         p19     varchar2(250);
33 	p20     varchar2(250);
34 
35 begin
36   p1 := chr(0);
37 
38   FND_TM_TESTER.EXECUTE_TEST(30, 'FNDTMSUCCEED', outcome, outmesg,
39 	outstat, valstat, errmsg1, errmsg2,
40 	p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
41 
42   if ((outcome = 'SUCCESS') AND (outmesg = 'SUCCESS') AND
43 	(outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
44 	AND (errmsg2 is null)) then
45     fnd_file.put_line( fnd_file.log, 'FNDTMSUCCEED ran correctly.');
46     oerr1 := null;
47     oerr2 := null;
48   else
49     oerr1 := errmsg1;
50     oerr2 := errmsg2;
51     fnd_file.put_line( fnd_file.log,
52         'FNDTMSUCCEED failed: Outcome = ''' || outcome  ||
53 		''', Outmesg = ''' ||  outmesg ||
54 		''', Outstat = ''' ||  to_char(outstat) ||
55 		''', Valstat = ''' ||  to_char(valstat) ||
56 		''', Errmsg1 = ''' ||  errmsg1 ||
57 		''', Errmsg2 = ''' ||  errmsg2 || '''.');
58 
59   end if;
60 
61 end;
62 
63 
64 
65    procedure test_tm_debug(oSessionId out NOCOPY number
66       , oTestDuration out NOCOPY number, oerr1 out NOCOPY varchar2
67       , oerr2 out NOCOPY varchar2 )
68   is
69       ltime_start number;
70       ltime_end number;
71       begin
72         ltime_start  := dbms_utility.get_time;
73         run_succeed(oerr1, oerr2);
74         ltime_end  := dbms_utility.get_time;
75         oTestDuration := ltime_end - ltime_start;
76         select userenv('SESSIONID') into oSessionId from sys.dual;
77       exception
78          when others then
79             raise;
80 
81    end test_tm_debug;
82 
83 
84 
85 
86 
87  END FND_OAM_TESTER;