1: PACKAGE BODY JTY_CUST_QUAL_PKG AS
2: /* $Header: jtfcusqb.pls 120.2 2006/09/22 22:16:45 chchandr noship $ */
3: -- Start of Comments
4: -- ---------------------------------------------------
5: -- PACKAGE NAME: JTY_CUST_QUAL_PKG
1: PACKAGE BODY JTY_CUST_QUAL_PKG AS
2: /* $Header: jtfcusqb.pls 120.2 2006/09/22 22:16:45 chchandr noship $ */
3: -- Start of Comments
4: -- ---------------------------------------------------
5: -- PACKAGE NAME: JTY_CUST_QUAL_PKG
6: -- ---------------------------------------------------
7: -- PURPOSE
8: -- This package is used to create custom qualifiers
9: --
535: WHEN OTHERS THEN
536: retcode := 2;
537: errbuf := SQLCODE || ' : ' || SQLERRM;
538: END create_qual;
539: END JTY_CUST_QUAL_PKG;