1: PACKAGE BODY BOMPCEXP AS
2: /* $Header: BOMCEXPB.pls 120.1.12010000.2 2008/10/09 21:31:21 liawei ship $ */
3: /*==========================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |
532: */
533: EXCEPTION
534: WHEN OTHERS THEN
535: error_code := SQLCODE;
536: err_msg := 'BOMPCEXP:' || substrb(SQLERRM,1,60);
537:
538: END cst_exploder;
539:
540: END BOMPCEXP;
536: err_msg := 'BOMPCEXP:' || substrb(SQLERRM,1,60);
537:
538: END cst_exploder;
539:
540: END BOMPCEXP;