139: RETURN aPlsqlItem;
140: END SQL_TO_PL9;
141: */
142: FUNCTION PL_TO_SQL6(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE)
143: RETURN IBYPAYMENTADAPTERPUBPMTIN_DUA IS
144: aSqlItem IBYPAYMENTADAPTERPUBPMTIN_DUA;
145: BEGIN
146: -- initialize the object
147: aSqlItem := IBYPAYMENTADAPTERPUBPMTIN_DUA(NULL, NULL, NULL, NULL);
140: END SQL_TO_PL9;
141: */
142: FUNCTION PL_TO_SQL6(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE)
143: RETURN IBYPAYMENTADAPTERPUBPMTIN_DUA IS
144: aSqlItem IBYPAYMENTADAPTERPUBPMTIN_DUA;
145: BEGIN
146: -- initialize the object
147: aSqlItem := IBYPAYMENTADAPTERPUBPMTIN_DUA(NULL, NULL, NULL, NULL);
148: aSqlItem.PMTINSTR_ID := aPlsqlItem.PMTINSTR_ID;
143: RETURN IBYPAYMENTADAPTERPUBPMTIN_DUA IS
144: aSqlItem IBYPAYMENTADAPTERPUBPMTIN_DUA;
145: BEGIN
146: -- initialize the object
147: aSqlItem := IBYPAYMENTADAPTERPUBPMTIN_DUA(NULL, NULL, NULL, NULL);
148: aSqlItem.PMTINSTR_ID := aPlsqlItem.PMTINSTR_ID;
149: aSqlItem.PMTINSTR_SHORTNAME := aPlsqlItem.PMTINSTR_SHORTNAME;
150: aSqlItem.BNFPMTINSTR_ID := aPlsqlItem.BNFPMTINSTR_ID;
151: aSqlItem.BNFPMTINSTR_SHORTNAME := aPlsqlItem.BNFPMTINSTR_SHORTNAME;
151: aSqlItem.BNFPMTINSTR_SHORTNAME := aPlsqlItem.BNFPMTINSTR_SHORTNAME;
152: RETURN aSqlItem;
153: END PL_TO_SQL6;
154:
155: FUNCTION SQL_TO_PL10(aSqlItem IBYPAYMENTADAPTERPUBPMTIN_DUA)
156: RETURN IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE IS
157: aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE;
158: BEGIN
159: aPlsqlItem.PMTINSTR_ID := aSqlItem.PMTINSTR_ID;