1: PACKAGE BODY BOMPCEXP AS
2: /* $Header: BOMCEXPB.pls 120.1.12010000.3 2009/11/09 22:10:05 vbrobbey ship $ */
3: /*==========================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |
526: */
527: EXCEPTION
528: WHEN OTHERS THEN
529: error_code := SQLCODE;
530: err_msg := 'BOMPCEXP:' || substrb(SQLERRM,1,60);
531:
532: END cst_exploder;
533:
534: END BOMPCEXP;
530: err_msg := 'BOMPCEXP:' || substrb(SQLERRM,1,60);
531:
532: END cst_exploder;
533:
534: END BOMPCEXP;