1: PACKAGE BODY ZPB_DC_DISTRIBUTE AS
2: /* $Header: ZPBDCDBB.pls 120.4 2007/12/04 14:33:04 mbhat noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'ZPB_DC_DISTRIBUTE';
5:
1: PACKAGE BODY ZPB_DC_DISTRIBUTE AS
2: /* $Header: ZPBDCDBB.pls 120.4 2007/12/04 14:33:04 mbhat noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'ZPB_DC_DISTRIBUTE';
5:
6: /*=========================================================================+
7: | PROCEDURE submit_distrib_requests_cp
8: |
421: WHEN OTHERS THEN
422: retcode := '2' ;
423: errbuf:=substr(sqlerrm, 1, 255);
424: END distribute_data_cp ;
425: END ZPB_DC_DISTRIBUTE;