Records and Objects, Cast for PL/SQL Type RECORD and SQL Type OBJECT

Question

Hi seniors:
In my job, we have Oracle 10g, programming with Packages, the parameters are PL/SQL Types,
Example:
PACKAGE BODY NP_CONTROL_EQUIPMENT_PKG
IS
TYPE TR_EQUIPMENT_OPERATION IS RECORD(
wn_npequipmentoperid CONTROL_EQUIPMENT.NP_EQUIPMENT_OPERATIONS.npequipmentoperid%TYPE,
wv_npactiveservicenumber CONTROL_EQUIPMENT.NP_EQUIPMENT_OPERATIONS.npactiveservicenumber%TYPE,
wv_npspecification ORDERS.NP_SPECIFICATION.npspecification%TYPE,
wv_nptype ORDERS.NP_SPECIFICATION.nptype%TYPE,
wn_nporderid CONTROL_EQUIPMENT.NP_EQUIPMENT_OPERATIONS.nporderid%TYPE,
wn_npguidenumber CONTROL_EQUIPMENT.NP_EQUIPMENT_OPERATIONS.npguidenumber%TYPE,
wd_npdevolutionprogramdate CONTROL_EQUIPMENT.NP_EQUIPMENT_STATUS.npdevolutionprogramdate%TYPE
TYPE TT_TR_EQUIPMENT_OPERATION_LST IS TABLE OF TR_EQUIPMENT_OPERATION INDEX BY BINARY_INTEGER;
PROCEDURE SP_GET_EQUIPMENT_OPERATION_LST(
an_npequipstatid IN CONTROL_EQUIPMENT.NP_EQUIPMENT_STATUS.npequipstatid%TYPE,
at_equipment_operation_list OUT TT_TR_EQUIPMENT_OPERATION_LST,
av_message OUT VARCHAR2
IS
BEGIN
SELECT EO.npequipmentoperid,
EO.npactiveservicenumber,
S.npspecification,
S.nptype,
EO.nporderid,
EO.npguidenumber,
ES.npdevolutionprogramdate
BULK COLLECT INTO at_equipment_operation_list
FROM NP_EQUIPMENT_OPERATIONS EO,
NP_EQUIPMENT_STATUS ES,
ORDERS.NP_ORDER O,
ORDERS.NP_SPECIFICATION S
WHERE EO.npequipstatid = ES.npequipstatid
AND EO.nporderid = O.nporderid
AND O.npspecificationid = S.npspecificationid
AND EO.npequipstatid = an_npequipstatid;
EXCEPTION
WHEN OTHERS THEN
av_message := 'NP_CONTROL_EQUIPMENT_PKG.SP_GET_EQUIPMENT_OPERATION_LST: '||SQLERRM;
END SP_GET_EQUIPMENT_OPERATION_LST;
END;
Procedures calls other procedures and passing parameters IN OUT defined that PL/SQL Types. The problem appears when the access is through Java. Java can't read PL/SQL Types because only read SQL Types (Types defined in SCHEMA):
CREATE OR REPLACE
TYPE TO_EQUIPMENT_OPERATION AS OBJECT (
wn_npequipmentoperid NUMBER,
wv_npactiveservicenumber VARCHAR2(15),
wv_npspecification VARCHAR2(8),
wv_nptype VARCHAR2(2),
wn_nporderid NUMBER,
wn_npguidenumber NUMBER,
wd_npdevolutionprogramdate DATE
CREATE OR REPLACE
TYPE TT_EQUIPMENT_OPERATION_LST
AS TABLE OF "CONTROL_EQUIPMENT"."TO_EQUIPMENT_OPERATION"
Java can read this SQL Types. The problem is how cast OBJECT to RECORD, because I can't execute that:
DECLARE
wt_operation_lst TT_EQUIPMENT_OPERATION_LST;
BEGIN
SELECT EO.npequipmentoperid,
EO.npactiveservicenumber,
S.npspecification,
S.nptype,
EO.nporderid,
EO.npguidenumber,
ES.npdevolutionprogramdate
BULK COLLECT INTO wt_operation_lst
FROM NP_EQUIPMENT_OPERATIONS EO,
NP_EQUIPMENT_STATUS ES,
ORDERS.NP_ORDER O,
ORDERS.NP_SPECIFICATION S
WHERE EO.npequipstatid = ES.npequipstatid
AND EO.nporderid = O.nporderid
AND O.npspecificationid = S.npspecificationid
AND EO.npequipstatid = an_npequipstatid;
END;
and throws NOT ENOUGH VALUES, and I modified to:
DECLARE
wt_operation_lst TT_EQUIPMENT_OPERATION_LST;
BEGIN
SELECT TO_EQUIPMENT_OPERATION(EO.npequipmentoperid,
EO.npactiveservicenumber,
S.npspecification,
S.nptype,
EO.nporderid,
EO.npguidenumber,
ES.npdevolutionprogramdate)
BULK COLLECT INTO wt_operation_lst
FROM NP_EQUIPMENT_OPERATIONS EO,
NP_EQUIPMENT_STATUS ES,
ORDERS.NP_ORDER O,
ORDERS.NP_SPECIFICATION S
WHERE EO.npequipstatid = ES.npequipstatid
AND EO.nporderid = O.nporderid
AND O.npspecificationid = S.npspecificationid
AND EO.npequipstatid = an_npequipstatid;
END;
Worst is that I can't modify this procedure and PL/SQL Types will survive.
I have create a copy that CAST RECORD to OBJECT and OBJECT to RECORD too.
PROCEDURE SP_COPY_PLSQL_TO_SQL(
an_npequipstatid IN NUMBER,
at_dominio_lst OUT ORDERS.TT_EQUIPMENT_OPERATION_LST, --SQL Type
av_message OUT VARCHAR2
IS
wt_dominio_lst CONTROL_EQUIPMENT.NP_CONTROL_EQUIPMENT_PKG.TT_TR_EQUIPMENT_OPERATION_LST; --PL/SQL Type
BEGIN
SP_GET_EQUIPMENT_OPERATION_LST(an_npequipstatid, wt_dominio_lst, av_message);
IF av_message IS NULL THEN
at_dominio_lst := ORDERS.TT_EQUIPMENT_OPERATION_LST(ORDERS.TO_EQUIPMENT_OPERATION('','','','','','',''));
at_dominio_lst.EXTEND(wt_dominio_lst.COUNT - 1);
FOR i IN 1..wt_dominio_lst.COUNT LOOP
at_dominio_lst(i) := ORDERS.TO_EQUIPMENT_OPERATION(wt_dominio_lst(i).wn_npequipmentoperid,
wt_dominio_lst(i).wv_npactiveservicenumber,
wt_dominio_lst(i).wv_npspecification,
wt_dominio_lst(i).wv_nptype,
wt_dominio_lst(i).wn_nporderid,
wt_dominio_lst(i).wn_npguidenumber,
wt_dominio_lst(i).wd_npdevolutionprogramdate
END LOOP;
END IF;
END;
I would like that the CAST is direct. Somebody can help me?. Thank you so much!

Answer 1

I am facing the same problem as u had...may I know how u solved ur probkem...
thanks,
kishore