eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FND_OAM_DSCRAM_PLSQLS_PKG dependencies on FND_API

Line 66: x_return_status := FND_API.G_RET_STS_ERROR;

62: l_work_queue FND_OAM_DSCRAM_UNITS_PKG.ordered_work_queue_type := FND_OAM_DSCRAM_UNITS_PKG.ordered_work_queue_type();
63: k NUMBER;
64: BEGIN
65: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: x_return_msg := '';
68:
69: -- bulk select all valid plsqls with work to do
70: SELECT plsql_id, priority, weight

Line 93: x_return_status := FND_API.G_RET_STS_SUCCESS;

89:
90: --success
91: x_work_queue := l_work_queue;
92: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: EXCEPTION
95: WHEN OTHERS THEN
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97: x_return_msg := 'Unit ID ('||p_unit_id||') failed to fetch plsql_ids: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';

Line 96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

92: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
94: EXCEPTION
95: WHEN OTHERS THEN
96: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97: x_return_msg := 'Unit ID ('||p_unit_id||') failed to fetch plsql_ids: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
98: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
99: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
100: END;

Line 119: x_return_status := FND_API.G_RET_STS_ERROR;

115: l_return_status VARCHAR2(6);
116: l_return_msg VARCHAR2(2048);
117: BEGIN
118: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: x_return_msg := '';
121:
122: --make sure the plsql's in the cache, if not we need to fetch its arg list now to update the writable args
123: --and place it in the cache if its possible that we will update an arg here.

Line 132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

128: l_arg_list,
129: l_has_writable_args,
130: l_return_status,
131: l_return_msg);
132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
133: x_return_status := l_return_status;
134: x_return_msg := l_return_msg;
135: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
136: RETURN;

Line 137: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND l_has_writable_args THEN

133: x_return_status := l_return_status;
134: x_return_msg := l_return_msg;
135: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
136: RETURN;
137: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND l_has_writable_args THEN
138: --to allow these args to be pushed into the context, we also need to make a plsql cache entry so that
139: --destroy_plsql_cache_entries can get the computed value
140: l_plsql_cache_entry.plsql_id := p_plsql_id;
141: l_plsql_cache_entry.arg_list := l_arg_list;

Line 160: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

156: NULL,
157: l_return_status,
158: l_return_msg);
159:
160: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
161: x_return_status := l_return_status;
162: x_return_msg := l_return_msg;
163: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
164: RETURN;

Line 168: x_return_status := FND_API.G_RET_STS_SUCCESS;

164: RETURN;
165: END IF;
166: END IF;
167:
168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
170: EXCEPTION
171: WHEN OTHERS THEN
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

168: x_return_status := FND_API.G_RET_STS_SUCCESS;
169: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
170: EXCEPTION
171: WHEN OTHERS THEN
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
173: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
174: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
175: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
176: END;

Line 191: x_return_status := FND_API.G_RET_STS_ERROR;

187:
188: l_return_status VARCHAR2(6);
189: l_return_msg VARCHAR2(2048);
190: BEGIN
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: x_return_msg := '';
193:
194: -- if requested, roll the arg list into the context
195: IF p_update_context THEN

Line 205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

201: --first destroy the argument list
202: FND_OAM_DSCRAM_ARGS_PKG.DESTROY_ARG_LIST(b_plsql_cache(p_plsql_id).arg_list,
203: l_return_status,
204: l_return_msg);
205: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
206: x_return_status := l_return_status;
207: x_return_msg := l_return_msg;
208: RETURN;
209: END IF;

Line 219: x_return_status := FND_API.G_RET_STS_SUCCESS;

215:
216: --remove the plsql from the cache
217: b_plsql_cache.DELETE(p_plsql_id);
218:
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220: EXCEPTION
221: WHEN OTHERS THEN
222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';

Line 222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

218:
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220: EXCEPTION
221: WHEN OTHERS THEN
222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
223: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
224: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
225: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
226: END;

Line 241: x_return_status := FND_API.G_RET_STS_ERROR;

237: l_return_status VARCHAR2(6);
238: l_return_msg VARCHAR2(2048);
239: BEGIN
240: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: x_return_msg := '';
243:
244: --make sure the plsql's in the cache and get it's entry
245: IF NOT b_plsql_cache.EXISTS(p_plsql_id) THEN

Line 247: x_return_status := FND_API.G_RET_STS_SUCCESS;

243:
244: --make sure the plsql's in the cache and get it's entry
245: IF NOT b_plsql_cache.EXISTS(p_plsql_id) THEN
246: --not existing is fine here
247: x_return_status := FND_API.G_RET_STS_SUCCESS;
248: fnd_oam_debug.log(1, l_ctxt, 'PLSQL ID ('||p_plsql_id||') not found in cache.');
249: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
250: RETURN;
251: END IF;

Line 263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

259:
260: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
261: EXCEPTION
262: WHEN OTHERS THEN
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
265: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
266: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
267: END;

Line 283: x_return_status := FND_API.G_RET_STS_ERROR;

279: l_return_status VARCHAR2(6);
280: l_return_msg VARCHAR2(2048);
281: BEGIN
282: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
283: x_return_status := FND_API.G_RET_STS_ERROR;
284: x_return_msg := '';
285:
286: --loop through what's left in the cache, destroying each, ignore rolling the args into the context
287: k := b_plsql_cache.FIRST;

Line 295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

291: px_arg_context,
292: FALSE,
293: l_return_status,
294: l_return_msg);
295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
296: l_found_failure := TRUE;
297: --don't return, let it try to destroy the others first
298: x_return_status := l_return_status;
299: x_return_msg := l_return_msg;

Line 309: x_return_status := FND_API.G_RET_STS_SUCCESS;

305: --delete all members of the cache even if some failed
306: b_plsql_cache.DELETE;
307:
308: IF NOT l_found_failure THEN
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310: END IF;
311: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
312: EXCEPTION
313: WHEN OTHERS THEN

Line 314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

310: END IF;
311: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
312: EXCEPTION
313: WHEN OTHERS THEN
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
316: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
317: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
318: END;

Line 339: x_return_status := FND_API.G_RET_STS_ERROR;

335: l_return_status VARCHAR2(6);
336: l_return_msg VARCHAR2(2048);
337: BEGIN
338: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: x_return_msg := '';
341:
342: --make sure the plsql's in the cache
343: IF b_plsql_cache.EXISTS(p_plsql_id) THEN

Line 403: x_return_status := FND_API.G_RET_STS_SUCCESS;

399: --exit without committing, leave that to the parent
400:
401: --success
402: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404: EXCEPTION
405: WHEN OTHERS THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';

Line 406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

402: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404: EXCEPTION
405: WHEN OTHERS THEN
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
408: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
409: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
410: END;

Line 428: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN

424: p_finished_ret_sts,
425: p_message,
426: x_return_status,
427: x_return_msg);
428: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
429: COMMIT;
430: ELSE
431: ROLLBACK;
432: END IF;

Line 457: x_return_status := FND_API.G_RET_STS_ERROR;

453: l_return_status VARCHAR2(6);
454: l_return_msg VARCHAR2(2048);
455: BEGIN
456: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
457: x_return_status := FND_API.G_RET_STS_ERROR;
458: x_return_msg := '';
459:
460: --assume that the check already occured in add_plsql_to_cache so proceed right to the lock
461: SELECT plsql_text, plsql_final_text

Line 471: x_return_status := FND_API.G_RET_STS_SUCCESS;

467: --make sure the final text's still null
468: IF l_final_plsql_text IS NOT NULL THEN
469: x_final_plsql_text := l_final_plsql_text;
470: ROLLBACK;
471: x_return_status := FND_API.G_RET_STS_SUCCESS;
472: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
473: RETURN;
474: END IF;
475:

Line 491: stats_finished = FND_API.G_FALSE,

487:
488: --store this string as the final text
489: UPDATE fnd_oam_dscram_plsqls
490: SET plsql_final_text = l_final_plsql_text,
491: stats_finished = FND_API.G_FALSE,
492: last_updated_by = fnd_global.user_id,
493: last_update_login = fnd_global.user_id,
494: last_update_date = SYSDATE
495: WHERE plsql_id = p_plsql_id;

Line 502: x_return_status := FND_API.G_RET_STS_SUCCESS;

498: COMMIT;
499:
500: --success
501: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
502: x_return_status := FND_API.G_RET_STS_SUCCESS;
503: x_final_plsql_text := l_final_plsql_text;
504: EXCEPTION
505: WHEN OTHERS THEN
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

502: x_return_status := FND_API.G_RET_STS_SUCCESS;
503: x_final_plsql_text := l_final_plsql_text;
504: EXCEPTION
505: WHEN OTHERS THEN
506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: x_return_msg := 'PLSQL ID ('||p_plsql_id||'), failed to generate final plsql text: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
508: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
509: ROLLBACK;
510: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

Line 535: x_return_status := FND_API.G_RET_STS_ERROR;

531: l_return_status VARCHAR2(6);
532: l_return_msg VARCHAR2(4000);
533: BEGIN
534: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
535: x_return_status := FND_API.G_RET_STS_ERROR;
536: x_return_msg := '';
537:
538: --if the plsql isn't cached, there's a chance that its stats row hasn't been created yet, query and
539: --create if necessary. This is not mt-safe but extra calls to create_entry will be discarded due to

Line 548: p_dismiss_failure => FND_API.G_TRUE,

544: FND_OAM_DSCRAM_STATS_PKG.CREATE_ENTRY_AUTONOMOUSLY(p_source_object_type => FND_OAM_DSCRAM_UTILS_PKG.G_TYPE_PLSQL,
545: p_source_object_id => p_plsql_id,
546: p_start_time => SYSDATE,
547: p_prestart_status => NULL,
548: p_dismiss_failure => FND_API.G_TRUE,
549: x_stat_id => l_stat_id);
550: END IF;
551:
552: --query out the prepared plsql text

Line 565: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

561: px_arg_context,
562: l_final_plsql_text,
563: l_return_status,
564: l_return_msg);
565: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
566: x_return_status := l_return_status;
567: x_return_msg := l_return_msg;
568: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
569: RETURN;

Line 595: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

591: l_arg_list,
592: l_has_writable_args,
593: l_return_status,
594: l_return_msg);
595: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
596: DBMS_SQL.CLOSE_CURSOR(l_cursor_id);
597: x_return_status := l_return_status;
598: x_return_msg := l_return_msg;
599: fnd_oam_debug.log(2, l_ctxt, 'EXIT');

Line 619: x_return_status := FND_API.G_RET_STS_SUCCESS;

615: b_plsql_cache(p_plsql_id) := l_cache_entry;
616:
617: --success
618: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: EXCEPTION
621: WHEN OTHERS THEN
622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: x_return_msg := 'PLSQL ID ('||p_plsql_id||'), unexpected error: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';

Line 622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

618: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: EXCEPTION
621: WHEN OTHERS THEN
622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: x_return_msg := 'PLSQL ID ('||p_plsql_id||'), unexpected error: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
624: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
625: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
626: END;

Line 646: x_return_status := FND_API.G_RET_STS_ERROR;

642: l_return_status VARCHAR2(6);
643: l_return_msg VARCHAR2(2048);
644: BEGIN
645: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
646: x_return_status := FND_API.G_RET_STS_ERROR;
647: x_return_msg := '';
648:
649: fnd_oam_debug.log(1, l_ctxt, 'PLSQL ID: '||p_plsql_id);
650:

Line 670: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

666: p_use_splitting,
667: l_return_status,
668: l_return_msg);
669: --react to the return status to skip execution if we failed
670: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
671: x_return_status := l_return_status;
672: x_return_msg := l_return_msg;
673: RAISE EXECUTE_FAILED;
674: END IF;

Line 687: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

683: p_rowid_lbound,
684: p_rowid_ubound,
685: l_return_status,
686: l_return_msg);
687: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
688: x_return_status := l_return_status;
689: x_return_msg := l_return_msg;
690: RAISE EXECUTE_FAILED;
691: END IF;

Line 724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

720: p_rowid_ubound,
721: b_plsql_cache(p_plsql_id).cursor_id,
722: l_return_status,
723: l_return_msg);
724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
725: x_return_status := l_return_status;
726: x_return_msg := l_return_msg;
727: RAISE EXECUTE_FAILED;
728: END IF;

Line 733: x_return_status := FND_API.G_RET_STS_SUCCESS;

729: END IF;
730:
731: -- Success
732: b_current_plsql_id := NULL;
733: x_return_status := FND_API.G_RET_STS_SUCCESS;
734: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
735: EXCEPTION
736: WHEN EXECUTE_FAILED THEN
737: b_current_plsql_id := NULL;

Line 742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

738: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
739: RETURN;
740: WHEN OTHERS THEN
741: b_current_plsql_id := NULL;
742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
743: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
744: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
745: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
746: RETURN;

Line 774: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

770: l_return_status,
771: l_return_msg);
772:
773: -- if successful, complete the plsql
774: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
775: --update the rows plsql cache's derived attributes
776: b_plsql_cache(p_plsql_id).last_execute_ret_sts := l_return_status;
777: b_plsql_cache(p_plsql_id).last_execute_ret_msg := l_return_msg;
778:

Line 819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

815: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
816: EXCEPTION
817: WHEN OTHERS THEN
818: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
821: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
822: END;
823:

Line 841: x_return_status := FND_API.G_RET_STS_ERROR;

837: l_return_msg VARCHAR2(2048);
838: l_return_status2 VARCHAR2(6);
839: l_return_msg2 VARCHAR2(2048);
840: BEGIN
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: x_return_msg := '';
843:
844: fnd_oam_debug.log(2, l_ctxt, 'ENTER');
845: INTERNAL_EXECUTE_PLSQL(p_plsql_id,

Line 852: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

848: p_rowid_lbound,
849: p_rowid_ubound,
850: l_return_status,
851: l_return_msg);
852: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
853: --update the rows plsql cache's derived attributes
854: b_plsql_cache(p_plsql_id).last_execute_ret_sts := l_return_status;
855: b_plsql_cache(p_plsql_id).last_execute_ret_msg := l_return_msg;
856: ELSE

Line 871: x_return_status := FND_API.G_RET_STS_SUCCESS;

867: RETURN;
868: END IF;
869:
870: --success
871: x_return_status := FND_API.G_RET_STS_SUCCESS;
872: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
873: EXCEPTION
874: WHEN OTHERS THEN
875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

871: x_return_status := FND_API.G_RET_STS_SUCCESS;
872: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
873: EXCEPTION
874: WHEN OTHERS THEN
875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
876: x_return_msg := 'Unhandled Exception: [Code('||SQLCODE||'), Message("'||SQLERRM||'")]';
877: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
878: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
879: END;