[Home] [Help]
PACKAGE BODY: APPS.IEO_ICSM_CMD_PUB
Source
1 PACKAGE BODY IEO_ICSM_CMD_PUB AS
2 /* $Header: ieocmdb.pls 115.12 2003/09/03 20:03:41 edwang noship $ */
3
4 FUNCTION GET_NODE_STATUS
5 (
6 p_node_id IN NUMBER
7 )
8 RETURN NUMBER
9 IS
10 node_status NUMBER;
11 BEGIN
12 select status into node_status from IEO_NODES where node_id = p_node_id ;
13 return node_status ;
14 END GET_NODE_STATUS;
15
16 FUNCTION GET_SERVER_STATUS
17 (
18 p_server_id IN NUMBER
19 )
20 RETURN NUMBER
21 IS
22 server_status NUMBER;
23 BEGIN
24 select status into server_status from IEO_SVR_RT_INFO where server_id = p_server_id ;
25 return server_status ;
26 EXCEPTION
27 WHEN no_data_found THEN
28 return 1;
29 END GET_SERVER_STATUS;
30
31
32 PROCEDURE EXECUTE_SERVER_CMD
33 (
34 p_api_version IN NUMBER,
35 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
36 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
37
38 p_cmd IN VARCHAR2,
39 p_server_id IN NUMBER,
40 x_result OUT NOCOPY VARCHAR2,
41
42 x_return_status OUT NOCOPY VARCHAR2,
43 x_msg_count OUT NOCOPY NUMBER,
44 x_msg_data OUT NOCOPY VARCHAR2
45 )
46 IS
47 l_api_name CONSTANT VARCHAR2(30) := 'EXECUTE_SERVER_CMD';
48 l_api_version CONSTANT NUMBER := 1.0;
49 l_server_id NUMBER;
50 request_id NUMBER;
51 BEGIN
52 -- Standard Start of API savepoint
53
54 -- Standard call to check for call compatibility.
55 IF NOT FND_API.Compatible_API_Call
56 (
57 l_api_version,
58 p_api_version,
59 l_api_name,
60 G_PKG_NAME
61 )
62 THEN
63 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
64 END IF;
65
66 -- Initialize message list if p_init_msg_list is set to TRUE.
67 IF FND_API.To_Boolean( p_init_msg_list ) THEN
68 FND_MSG_PUB.initialize;
69 END IF;
70
71 -- Initialize API return status to success
72 x_return_status := FND_API.G_RET_STS_SUCCESS;
73
74 -- API body
75
76 IF GET_SERVER_STATUS(p_server_id) <> 4 THEN
77 x_return_status := G_SERVER_DOWN ;
78 RETURN ;
79 END IF;
80
81 l_server_id := p_server_id + G_SERVER_MASK ;
82
83 --DBMS_OUTPUT.put_line('enqueuing');
84
85 IEO_ICSM_AQ_PUB.enqueue_request
86 (
87 p_api_version,
88 p_init_msg_list,
89 p_commit,
90 l_server_id,
91 p_cmd,
92 request_id,
93 x_return_status,
94 x_msg_count,
95 x_msg_data
96 );
97
98 --DBMS_OUTPUT.put_line('dequeuing');
99
100 IEO_ICSM_AQ_PUB.dequeue_response
101 (
102 p_api_version,
103 p_init_msg_list,
104 p_commit,
105 request_id,
106 60,
107 x_result,
108 x_return_status,
109 x_msg_count,
110 x_msg_data
111 );
112
113 -- End of API body.
114
115 -- Standard check of p_commit.
116 IF FND_API.To_Boolean( p_commit ) THEN
117 COMMIT WORK;
118 END IF;
119 -- Standard call to get message count and if count is 1, get message info.
120 FND_MSG_PUB.Count_And_Get
121 (
122 p_count => x_msg_count,
123 p_data => x_msg_data
124 );
125 EXCEPTION
126 WHEN FND_API.G_EXC_ERROR THEN
127 x_return_status := FND_API.G_RET_STS_ERROR ;
128 FND_MSG_PUB.Count_And_Get
129 (
130 p_count => x_msg_count,
131 p_data => x_msg_data
132 );
133 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135 FND_MSG_PUB.Count_And_Get
136 (
137 p_count => x_msg_count,
138 p_data => x_msg_data
139 );
140 END EXECUTE_SERVER_CMD;
141
142 PROCEDURE EXECUTE_ICSM_CMD
143 (
144 p_api_version IN NUMBER,
145 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
146 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
147
148 p_cmd IN VARCHAR2,
149 p_node_id IN NUMBER,
150 x_result OUT NOCOPY VARCHAR2,
151
152 x_return_status OUT NOCOPY VARCHAR2,
153 x_msg_count OUT NOCOPY NUMBER,
154 x_msg_data OUT NOCOPY VARCHAR2
155 )
156 IS
157 l_api_name CONSTANT VARCHAR2(30) := 'EXECUTE_ICSM_CMD';
158 l_api_version CONSTANT NUMBER := 1.0;
159 request_id NUMBER;
160 BEGIN
161 -- Standard Start of API savepoint
162
163 -- Standard call to check for call compatibility.
164 IF NOT FND_API.Compatible_API_Call
165 (
166 l_api_version,
167 p_api_version,
168 l_api_name,
169 G_PKG_NAME
170 )
171 THEN
172 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173 END IF;
174
175 -- Initialize message list if p_init_msg_list is set to TRUE.
176 IF FND_API.To_Boolean( p_init_msg_list ) THEN
177 FND_MSG_PUB.initialize;
178 END IF;
179
180 -- Initialize API return status to success
181 x_return_status := FND_API.G_RET_STS_SUCCESS;
182
183 -- API body
184
185 IF GET_NODE_STATUS(p_node_id) = 0 THEN
186 x_return_status := G_ICSM_DOWN ;
187 RETURN ;
188 END IF;
189
190 --DBMS_OUTPUT.put_line('enqueuing');
191
192 IEO_ICSM_AQ_PUB.enqueue_request
193 (
194 p_api_version,
195 p_init_msg_list,
196 p_commit,
197 p_node_id,
198 p_cmd,
199 request_id,
200 x_return_status,
201 x_msg_count,
202 x_msg_data
203 );
204
205 --DBMS_OUTPUT.put_line('dequeuing');
206
207 IEO_ICSM_AQ_PUB.dequeue_response
208 (
209 p_api_version,
210 p_init_msg_list,
211 p_commit,
212 request_id,
213 60,
214 x_result,
215 x_return_status,
216 x_msg_count,
217 x_msg_data
218 );
219
220 -- End of API body.
221
222 -- Standard check of p_commit.
223 IF FND_API.To_Boolean( p_commit ) THEN
224 COMMIT WORK;
225 END IF;
226 -- Standard call to get message count and if count is 1, get message info.
227 FND_MSG_PUB.Count_And_Get
228 (
229 p_count => x_msg_count,
230 p_data => x_msg_data
231 );
232 EXCEPTION
233 WHEN FND_API.G_EXC_ERROR THEN
234 x_return_status := FND_API.G_RET_STS_ERROR ;
235 FND_MSG_PUB.Count_And_Get
236 (
237 p_count => x_msg_count,
238 p_data => x_msg_data
239 );
240 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
241 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
242 FND_MSG_PUB.Count_And_Get
243 (
244 p_count => x_msg_count,
245 p_data => x_msg_data
246 );
247 END EXECUTE_ICSM_CMD;
248
249 PROCEDURE TEST_IP
250 (
251 p_api_version IN NUMBER,
252 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
253 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
254
255 p_ip_addr IN VARCHAR2,
256 p_node_id IN NUMBER,
257 x_result OUT NOCOPY VARCHAR2,
258
259 x_return_status OUT NOCOPY VARCHAR2,
260 x_msg_count OUT NOCOPY NUMBER,
261 x_msg_data OUT NOCOPY VARCHAR2
262 )
263 IS
264 l_api_name CONSTANT VARCHAR2(30) := 'TEST_IP';
265 l_api_version CONSTANT NUMBER := 1.0;
266 xml_data VARCHAR2(2048);
267 request_id NUMBER;
268 BEGIN
269 -- Standard Start of API savepoint
270
271 -- Standard call to check for call compatibility.
272 IF NOT FND_API.Compatible_API_Call
273 (
274 l_api_version,
275 p_api_version,
276 l_api_name,
277 G_PKG_NAME
278 )
279 THEN
280 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
281 END IF;
282
283 -- Initialize message list if p_init_msg_list is set to TRUE.
284 IF FND_API.To_Boolean( p_init_msg_list ) THEN
285 FND_MSG_PUB.initialize;
286 END IF;
287
288 -- Initialize API return status to success
289 x_return_status := FND_API.G_RET_STS_SUCCESS;
290
291 -- API body
292
293 IF GET_NODE_STATUS(p_node_id) = 0 THEN
294 x_return_status := G_ICSM_DOWN ;
295 RETURN ;
296 END IF;
297
298 xml_data := 'TEST_IP ' || p_ip_addr ;
299
300 --DBMS_OUTPUT.put_line('enqueuing');
301
302 IEO_ICSM_AQ_PUB.enqueue_request
303 (
304 p_api_version,
305 p_init_msg_list,
306 p_commit,
307 p_node_id,
308 xml_data,
309 request_id,
310 x_return_status,
311 x_msg_count,
312 x_msg_data
313 );
314
315 --DBMS_OUTPUT.put_line('dequeuing');
316
317 IEO_ICSM_AQ_PUB.dequeue_response
318 (
319 p_api_version,
320 p_init_msg_list,
321 p_commit,
322 request_id,
323 60,
324 x_result,
325 x_return_status,
326 x_msg_count,
327 x_msg_data
328 );
329
330 -- End of API body.
331
332 -- Standard check of p_commit.
333 IF FND_API.To_Boolean( p_commit ) THEN
334 COMMIT WORK;
335 END IF;
336 -- Standard call to get message count and if count is 1, get message info.
337 FND_MSG_PUB.Count_And_Get
338 (
339 p_count => x_msg_count,
340 p_data => x_msg_data
341 );
342 EXCEPTION
343 WHEN FND_API.G_EXC_ERROR THEN
344 x_return_status := FND_API.G_RET_STS_ERROR ;
345 FND_MSG_PUB.Count_And_Get
346 (
347 p_count => x_msg_count,
348 p_data => x_msg_data
349 );
350 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
351 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
352 FND_MSG_PUB.Count_And_Get
353 (
354 p_count => x_msg_count,
355 p_data => x_msg_data
356 );
357 /* WHEN OTHERS THEN
358 ROLLBACK TO ENQUEUE_REQUEST_PUB;
359 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
360 IF FND_MSG_PUB.Check_Msg_Level
361 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
362 THEN
363 FND_MSG_PUB.Add_Exc_Msg
364 (
365 G_PKG_NAME,
366 l_api_name
367 );
368 END IF;
369 FND_MSG_PUB.Count_And_Get
370 (
371 p_count => x_msg_count,
372 p_data => x_msg_data
373 );*/
374 END TEST_IP;
375
376
377 PROCEDURE START_SERVER
378 (
379 p_api_version IN NUMBER,
380 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
381 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
382
383 p_server_name IN VARCHAR2,
384 p_node_id IN NUMBER,
385
386 x_return_status OUT NOCOPY VARCHAR2,
387 x_msg_count OUT NOCOPY NUMBER,
388 x_msg_data OUT NOCOPY VARCHAR2,
389 x_xml_data OUT NOCOPY VARCHAR2
390 )
391 IS
392 l_api_name CONSTANT VARCHAR2(30) := 'START_SERVER';
393 l_api_version CONSTANT NUMBER := 1.0;
394 xml_data VARCHAR2(2048);
395 request_id NUMBER;
396 BEGIN
397 -- Standard Start of API savepoint
398
399 -- Standard call to check for call compatibility.
400 IF NOT FND_API.Compatible_API_Call
401 (
402 l_api_version,
403 p_api_version,
404 l_api_name,
405 G_PKG_NAME
406 )
407 THEN
408 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
409 END IF;
410
411 -- Initialize message list if p_init_msg_list is set to TRUE.
412 IF FND_API.To_Boolean( p_init_msg_list ) THEN
413 FND_MSG_PUB.initialize;
414 END IF;
415
416 -- Initialize API return status to success
417 x_return_status := FND_API.G_RET_STS_SUCCESS;
418
419 -- API body
420
421 IF GET_NODE_STATUS(p_node_id) = 0 THEN
422 x_return_status := G_ICSM_DOWN ;
423 RETURN ;
424 END IF;
425
426 xml_data := 'START_SERVER ' || p_server_name ;
427
428 IEO_ICSM_AQ_PUB.enqueue_request
429 (
430 p_api_version,
431 p_init_msg_list,
432 p_commit,
433 p_node_id,
434 xml_data,
435 request_id,
436 x_return_status,
437 x_msg_count,
438 x_msg_data
439 );
440
441 IEO_ICSM_AQ_PUB.dequeue_response
442 (
443 p_api_version,
444 p_init_msg_list,
445 p_commit,
446 request_id,
447 60,
448 xml_data,
449 x_return_status,
450 x_msg_count,
451 x_msg_data
452 );
453
454 -- End of API body.
455
456 -- get the return data for response
457 x_xml_data := xml_data;
458
459 -- Standard check of p_commit.
460 IF FND_API.To_Boolean( p_commit ) THEN
461 COMMIT WORK;
462 END IF;
463 -- Standard call to get message count and if count is 1, get message info.
464 FND_MSG_PUB.Count_And_Get
465 (
466 p_count => x_msg_count,
467 p_data => x_msg_data
468 );
469 EXCEPTION
470
471 WHEN FND_API.G_EXC_ERROR THEN
472 x_return_status := FND_API.G_RET_STS_ERROR ;
473 FND_MSG_PUB.Count_And_Get
474 (
475 p_count => x_msg_count,
476 p_data => x_msg_data
477 );
478 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
479 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
480 FND_MSG_PUB.Count_And_Get
481 (
482 p_count => x_msg_count,
483 p_data => x_msg_data
484 );
485 END START_SERVER;
486
487 PROCEDURE STOP_SERVER
488 (
489 p_api_version IN NUMBER,
490 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
491 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
492
493 p_server_name IN VARCHAR2,
494 p_node_id IN NUMBER,
495
496 x_return_status OUT NOCOPY VARCHAR2,
497 x_msg_count OUT NOCOPY NUMBER,
498 x_msg_data OUT NOCOPY VARCHAR2
499 )
500 IS
501 l_api_name CONSTANT VARCHAR2(30) := 'STOP_SERVER';
502 l_api_version CONSTANT NUMBER := 1.0;
503 xml_data VARCHAR2(2048);
504 request_id NUMBER;
505 BEGIN
506 -- Standard Start of API savepoint
507
508 -- Standard call to check for call compatibility.
509 IF NOT FND_API.Compatible_API_Call
510 (
511 l_api_version,
512 p_api_version,
513 l_api_name,
514 G_PKG_NAME
515 )
516 THEN
517 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
518 END IF;
519
520 -- Initialize message list if p_init_msg_list is set to TRUE.
521 IF FND_API.To_Boolean( p_init_msg_list ) THEN
522 FND_MSG_PUB.initialize;
523 END IF;
524
525 -- Initialize API return status to success
526 x_return_status := FND_API.G_RET_STS_SUCCESS;
527
528 -- API body
529
530 IF GET_NODE_STATUS(p_node_id) = 0 THEN
531 x_return_status := G_ICSM_DOWN ;
532 RETURN ;
533 END IF;
534
535 xml_data := 'STOP_SERVER ' || p_server_name ;
536
537 IEO_ICSM_AQ_PUB.enqueue_request
538 (
539 p_api_version,
540 p_init_msg_list,
541 p_commit,
542 p_node_id,
543 xml_data,
544 request_id,
545 x_return_status,
546 x_msg_count,
547 x_msg_data
548 );
549
550 IEO_ICSM_AQ_PUB.dequeue_response
551 (
552 p_api_version,
553 p_init_msg_list,
554 p_commit,
555 request_id,
556 60,
557 xml_data,
558 x_return_status,
559 x_msg_count,
560 x_msg_data
561 );
562
563 -- End of API body.
564
565 -- Standard check of p_commit.
566 IF FND_API.To_Boolean( p_commit ) THEN
567 COMMIT WORK;
568 END IF;
569 -- Standard call to get message count and if count is 1, get message info.
570 FND_MSG_PUB.Count_And_Get
571 (
572 p_count => x_msg_count,
573 p_data => x_msg_data
574 );
575 EXCEPTION
576 WHEN FND_API.G_EXC_ERROR THEN
577 x_return_status := FND_API.G_RET_STS_ERROR ;
578 FND_MSG_PUB.Count_And_Get
579 (
580 p_count => x_msg_count,
581 p_data => x_msg_data
582 );
583 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
584 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585 FND_MSG_PUB.Count_And_Get
586 (
587 p_count => x_msg_count,
588 p_data => x_msg_data
589 );
590 END STOP_SERVER;
591
592
593 PROCEDURE PING_SERVER
594 (
595 p_api_version IN NUMBER,
596 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
597 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
598
599 p_server_name IN VARCHAR2,
600 p_node_id IN NUMBER,
601 x_status OUT NOCOPY VARCHAR2,
602
603 x_return_status OUT NOCOPY VARCHAR2,
604 x_msg_count OUT NOCOPY NUMBER,
605 x_msg_data OUT NOCOPY VARCHAR2
606 )
607 IS
608 l_api_name CONSTANT VARCHAR2(30) := 'PING_SERVER';
609 l_api_version CONSTANT NUMBER := 1.0;
610 xml_data VARCHAR2(2048);
611 request_id NUMBER;
612 BEGIN
613 -- Standard Start of API savepoint
614
615 -- Standard call to check for call compatibility.
616 IF NOT FND_API.Compatible_API_Call
617 (
618 l_api_version,
619 p_api_version,
620 l_api_name,
621 G_PKG_NAME
622 )
623 THEN
624 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
625 END IF;
626
627 -- Initialize message list if p_init_msg_list is set to TRUE.
628 IF FND_API.To_Boolean( p_init_msg_list ) THEN
629 FND_MSG_PUB.initialize;
630 END IF;
631
632 -- Initialize API return status to success
633 x_return_status := FND_API.G_RET_STS_SUCCESS;
634
635 -- API body
636
637 IF GET_NODE_STATUS(p_node_id) = 0 THEN
638 x_return_status := G_ICSM_DOWN ;
639 RETURN ;
640 END IF;
641
642 xml_data := 'PING_SERVER ' || p_server_name;
643
644 IEO_ICSM_AQ_PUB.enqueue_request
645 (
646 p_api_version,
647 p_init_msg_list,
648 p_commit,
649 p_node_id,
650 xml_data,
651 request_id,
652 x_return_status,
653 x_msg_count,
654 x_msg_data
655 );
656
657 IEO_ICSM_AQ_PUB.dequeue_response
658 (
659 p_api_version,
660 p_init_msg_list,
661 p_commit,
662 request_id,
663 60,
664 x_status,
665 x_return_status,
666 x_msg_count,
667 x_msg_data
668 );
669
670 -- End of API body.
671
672 -- Standard check of p_commit.
673 IF FND_API.To_Boolean( p_commit ) THEN
674 COMMIT WORK;
675 END IF;
676 -- Standard call to get message count and if count is 1, get message info.
677 FND_MSG_PUB.Count_And_Get
678 (
679 p_count => x_msg_count,
680 p_data => x_msg_data
681 );
682 EXCEPTION
683
684 WHEN FND_API.G_EXC_ERROR THEN
685 x_return_status := FND_API.G_RET_STS_ERROR ;
686 FND_MSG_PUB.Count_And_Get
687 (
688 p_count => x_msg_count,
689 p_data => x_msg_data
690 );
691 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
692 ROLLBACK TO ENQUEUE_REQUEST_PUB;
693 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
694 FND_MSG_PUB.Count_And_Get
695 (
696 p_count => x_msg_count,
697 p_data => x_msg_data
698 );
699 END PING_SERVER;
700
701
702 PROCEDURE SHUTDOWN_ICSM
703 (
704 p_api_version IN NUMBER,
705 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
706 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
707
708 p_node_id IN NUMBER,
709
710 x_return_status OUT NOCOPY VARCHAR2,
711 x_msg_count OUT NOCOPY NUMBER,
712 x_msg_data OUT NOCOPY VARCHAR2
713 )
714 IS
715 l_api_name CONSTANT VARCHAR2(30) := 'SHUTDOWN_ICSM';
716 l_api_version CONSTANT NUMBER := 1.0;
717 xml_data VARCHAR2(2048);
718 request_id NUMBER;
719 BEGIN
720 -- Standard Start of API savepoint
721
722 -- Standard call to check for call compatibility.
723 IF NOT FND_API.Compatible_API_Call
724 (
725 l_api_version,
726 p_api_version,
727 l_api_name,
728 G_PKG_NAME
729 )
730 THEN
731 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732 END IF;
733
734 -- Initialize message list if p_init_msg_list is set to TRUE.
735 IF FND_API.To_Boolean( p_init_msg_list ) THEN
736 FND_MSG_PUB.initialize;
737 END IF;
738
739 -- Initialize API return status to success
740 x_return_status := FND_API.G_RET_STS_SUCCESS;
741
742 -- API body
743
744 IF GET_NODE_STATUS(p_node_id) = 0 THEN
745 x_return_status := G_ICSM_DOWN ;
746 RETURN ;
747 END IF;
748
749 xml_data := 'SHUTDOWN_ICSM';
750
751 IEO_ICSM_AQ_PUB.enqueue_request
752 (
753 p_api_version,
754 p_init_msg_list,
755 p_commit,
756 p_node_id,
757 xml_data,
758 request_id,
759 x_return_status,
760 x_msg_count,
761 x_msg_data
762 );
763
764 IEO_ICSM_AQ_PUB.dequeue_response
765 (
766 p_api_version,
767 p_init_msg_list,
768 p_commit,
769 request_id,
770 60,
771 xml_data,
772 x_return_status,
773 x_msg_count,
774 x_msg_data
775 );
776
777 -- End of API body.
778
779 -- Standard check of p_commit.
780 IF FND_API.To_Boolean( p_commit ) THEN
781 COMMIT WORK;
782 END IF;
783 -- Standard call to get message count and if count is 1, get message info.
784 FND_MSG_PUB.Count_And_Get
785 (
786 p_count => x_msg_count,
787 p_data => x_msg_data
788 );
789 EXCEPTION
790
791 WHEN FND_API.G_EXC_ERROR THEN
792 x_return_status := FND_API.G_RET_STS_ERROR ;
793 FND_MSG_PUB.Count_And_Get
794 (
795 p_count => x_msg_count,
796 p_data => x_msg_data
797 );
798 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
799 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
800 FND_MSG_PUB.Count_And_Get
801 (
802 p_count => x_msg_count,
803 p_data => x_msg_data
804 );
805 END SHUTDOWN_ICSM;
806
807
808 PROCEDURE STOP_ALL_SERVER
809 (
810 p_api_version IN NUMBER,
811 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
812 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
813
814 p_node_id IN NUMBER,
815
816 x_return_status OUT NOCOPY VARCHAR2,
817 x_msg_count OUT NOCOPY NUMBER,
818 x_msg_data OUT NOCOPY VARCHAR2
819 )
820 IS
821 l_api_name CONSTANT VARCHAR2(30) := 'STOP_ALL_SERVER';
822 l_api_version CONSTANT NUMBER := 1.0;
823 xml_data VARCHAR2(2048);
824 request_id NUMBER;
825 BEGIN
826 -- Standard Start of API savepoint
827
828 -- Standard call to check for call compatibility.
829 IF NOT FND_API.Compatible_API_Call
830 (
831 l_api_version,
832 p_api_version,
833 l_api_name,
834 G_PKG_NAME
835 )
836 THEN
837 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
838 END IF;
839
840 -- Initialize message list if p_init_msg_list is set to TRUE.
841 IF FND_API.To_Boolean( p_init_msg_list ) THEN
842 FND_MSG_PUB.initialize;
843 END IF;
844
845 -- Initialize API return status to success
846 x_return_status := FND_API.G_RET_STS_SUCCESS;
847
848 -- API body
849
850 IF GET_NODE_STATUS(p_node_id) = 0 THEN
851 x_return_status := G_ICSM_DOWN ;
852 RETURN ;
853 END IF;
854
855 xml_data := 'STOP_ALL';
856
857 IEO_ICSM_AQ_PUB.enqueue_request
858 (
859 p_api_version,
860 p_init_msg_list,
861 p_commit,
862 p_node_id,
863 xml_data,
864 request_id,
865 x_return_status,
866 x_msg_count,
867 x_msg_data
868 );
869
870 IEO_ICSM_AQ_PUB.dequeue_response
871 (
872 p_api_version,
873 p_init_msg_list,
874 p_commit,
875 request_id,
876 60,
877 xml_data,
878 x_return_status,
879 x_msg_count,
880 x_msg_data
881 );
882
883 -- End of API body.
884
885 -- Standard check of p_commit.
886 IF FND_API.To_Boolean( p_commit ) THEN
887 COMMIT WORK;
888 END IF;
889 -- Standard call to get message count and if count is 1, get message info.
890 FND_MSG_PUB.Count_And_Get
891 (
892 p_count => x_msg_count,
893 p_data => x_msg_data
894 );
895 EXCEPTION
896
897 WHEN FND_API.G_EXC_ERROR THEN
898 x_return_status := FND_API.G_RET_STS_ERROR ;
899 FND_MSG_PUB.Count_And_Get
900 (
901 p_count => x_msg_count,
902 p_data => x_msg_data
903 );
904 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
905 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
906 FND_MSG_PUB.Count_And_Get
907 (
908 p_count => x_msg_count,
909 p_data => x_msg_data
910 );
911 END STOP_ALL_SERVER;
912
913 PROCEDURE GET_LOG_FILES
914 (
915 p_api_version IN NUMBER,
916 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
917 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
918
919 p_node_id IN NUMBER,
920 p_server_name IN VARCHAR2,
921 p_fetch_count IN NUMBER,
922 p_page_count IN NUMBER,
923 x_xml_data OUT NOCOPY VARCHAR2,
924
925 x_return_status OUT NOCOPY VARCHAR2,
926 x_msg_count OUT NOCOPY NUMBER,
927 x_msg_data OUT NOCOPY VARCHAR2
928 )
929 IS
930 l_api_name CONSTANT VARCHAR2(30) := 'GET_LOG_FILES';
931 l_api_version CONSTANT NUMBER := 1.0;
932 xml_data VARCHAR2(2048);
933 request_id NUMBER;
934 BEGIN
935 -- Standard Start of API savepoint
936
937 -- Standard call to check for call compatibility.
938 IF NOT FND_API.Compatible_API_Call
939 (
940 l_api_version,
941 p_api_version,
942 l_api_name,
943 G_PKG_NAME
944 )
945 THEN
946 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947 END IF;
948
949 -- Initialize message list if p_init_msg_list is set to TRUE.
950 IF FND_API.To_Boolean( p_init_msg_list ) THEN
951 FND_MSG_PUB.initialize;
952 END IF;
953
954 -- Initialize API return status to success
955 x_return_status := FND_API.G_RET_STS_SUCCESS;
956
957 -- API body
958
959 IF GET_NODE_STATUS(p_node_id) = 0 THEN
960 x_return_status := G_ICSM_DOWN ;
961 RETURN ;
962 END IF;
963
964 xml_data := 'GET_LOG_FILES ' || p_server_name ||' '|| p_fetch_count ||' '||p_page_count;
965
966 IEO_ICSM_AQ_PUB.enqueue_request
967 (
968 p_api_version,
969 p_init_msg_list,
970 p_commit,
971 p_node_id,
972 xml_data,
973 request_id,
974 x_return_status,
975 x_msg_count,
976 x_msg_data
977 );
978
979 IEO_ICSM_AQ_PUB.dequeue_response
980 (
981 p_api_version,
982 p_init_msg_list,
983 p_commit,
984 request_id,
985 60,
986 x_xml_data,
987 x_return_status,
988 x_msg_count,
989 x_msg_data
990 );
991
992 -- End of API body.
993
994 -- Standard check of p_commit.
995 IF FND_API.To_Boolean( p_commit ) THEN
996 COMMIT WORK;
997 END IF;
998 -- Standard call to get message count and if count is 1, get message info.
999 FND_MSG_PUB.Count_And_Get
1000 (
1001 p_count => x_msg_count,
1002 p_data => x_msg_data
1003 );
1004 EXCEPTION
1005
1006 WHEN FND_API.G_EXC_ERROR THEN
1007 x_return_status := FND_API.G_RET_STS_ERROR ;
1008 FND_MSG_PUB.Count_And_Get
1009 (
1010 p_count => x_msg_count,
1011 p_data => x_msg_data
1012 );
1013 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1014 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1015 FND_MSG_PUB.Count_And_Get
1016 (
1017 p_count => x_msg_count,
1018 p_data => x_msg_data
1019 );
1020 END GET_LOG_FILES;
1021
1022 PROCEDURE DELETE_FILE
1023 (
1024 p_api_version IN NUMBER,
1025 p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
1026 p_commit IN VARCHAR2 Default FND_API.G_FALSE,
1027
1028 p_node_id IN NUMBER,
1029 p_server_name IN VARCHAR2,
1030 p_file_name IN VARCHAR2,
1031
1032 x_return_status OUT NOCOPY VARCHAR2,
1033 x_msg_count OUT NOCOPY NUMBER,
1034 x_msg_data OUT NOCOPY VARCHAR2
1035 )
1036 IS
1037 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FILE';
1038 l_api_version CONSTANT NUMBER := 1.0;
1039 xml_data VARCHAR2(2048);
1040 request_id NUMBER;
1041 BEGIN
1042 -- Standard Start of API savepoint
1043
1044 -- Standard call to check for call compatibility.
1045 IF NOT FND_API.Compatible_API_Call
1046 (
1047 l_api_version,
1048 p_api_version,
1049 l_api_name,
1050 G_PKG_NAME
1051 )
1052 THEN
1053 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054 END IF;
1055
1056 -- Initialize message list if p_init_msg_list is set to TRUE.
1057 IF FND_API.To_Boolean( p_init_msg_list ) THEN
1058 FND_MSG_PUB.initialize;
1059 END IF;
1060
1061 -- Initialize API return status to success
1062 x_return_status := FND_API.G_RET_STS_SUCCESS;
1063
1064 -- API body
1065
1066 IF GET_NODE_STATUS(p_node_id) = 0 THEN
1067 x_return_status := G_ICSM_DOWN ;
1068 RETURN ;
1069 END IF;
1070
1071 xml_data := 'DELETE_FILE ' || p_server_name || ' ' || p_file_name;
1072
1073 IEO_ICSM_AQ_PUB.enqueue_request
1074 (
1075 p_api_version,
1076 p_init_msg_list,
1077 p_commit,
1078 p_node_id,
1079 xml_data,
1080 request_id,
1081 x_return_status,
1082 x_msg_count,
1083 x_msg_data
1084 );
1085
1086 IEO_ICSM_AQ_PUB.dequeue_response
1087 (
1088 p_api_version,
1089 p_init_msg_list,
1090 p_commit,
1091 request_id,
1092 60,
1093 xml_data,
1094 x_return_status,
1095 x_msg_count,
1096 x_msg_data
1097 );
1098
1099 -- End of API body.
1100
1101 -- Standard check of p_commit.
1102 IF FND_API.To_Boolean( p_commit ) THEN
1103 COMMIT WORK;
1104 END IF;
1105 -- Standard call to get message count and if count is 1, get message info.
1106 FND_MSG_PUB.Count_And_Get
1107 (
1108 p_count => x_msg_count,
1109 p_data => x_msg_data
1110 );
1111 EXCEPTION
1112
1113 WHEN FND_API.G_EXC_ERROR THEN
1114 x_return_status := FND_API.G_RET_STS_ERROR ;
1115 FND_MSG_PUB.Count_And_Get
1116 (
1117 p_count => x_msg_count,
1118 p_data => x_msg_data
1119 );
1120 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1121 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1122 FND_MSG_PUB.Count_And_Get
1123 (
1124 p_count => x_msg_count,
1125 p_data => x_msg_data
1126 );
1127 END DELETE_FILE;
1128
1129
1130
1131 END IEO_ICSM_CMD_PUB;