1: PACKAGE BODY BOMPBEXP AS
2: /* $Header: BOMBEXPB.pls 120.1 2005/06/21 02:47:45 appldev ship $ */
3: /*==========================================================================+
4: | Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
5: | All rights reserved. |
536: */
537: EXCEPTION
538: WHEN OTHERS THEN
539: error_code := SQLCODE;
540: err_msg := 'BOMPBEXP:' || substrb(SQLERRM,1,60);
541: ROLLBACK;
542: END bom_exploder;
543:
544: END BOMPBEXP;
540: err_msg := 'BOMPBEXP:' || substrb(SQLERRM,1,60);
541: ROLLBACK;
542: END bom_exploder;
543:
544: END BOMPBEXP;