Passing PL/SQL Record back to VB5 as Parameter

Question

Can anyone please help with this code.
I am passing pl/sql record back to VB 5 app as parameter and having no joy.
MY code
Package TEST_PKG
IS
TYPE Brian_Test IS RECORD(
First_answer Number :=0,
Second_answer Number := 0
-- Brian_Record Brian_test;
END; -- Package Specification TEST_PKG
Procedure ADD_NUMBER ( NUMBER1 IN NUMBER, NUMBER2 IN NUMBER, ANSWER OUT test_pkg.Brian_test, status OUT VARCHAR)
IS
-- Person Date Comments
-- Timothy Adetunji 05/02/2001 Test Procedure for Brian May to verify how to execute procedures from VB
-- variable_name datatype;
-- Declare program variables as shown above
BEGIN
answer.first_answer := nvl(number1,0) + nvl(Number2,0);
answer.second_answer := nvl(number1,0) - nvl(Number2,0);
status := 'Ok';
EXCEPTION
WHEN others THEN
status := 'Bad';
END; -- Procedure ADD_NUMBER
VB doesn't seem to understand records as parameter. I am able to pass individual variable but not in a reecord.
My production codes requires me to pass 25 variables and it will be senseless to pass them individually.
Thanks

Answer 1

Hi
This shld be the way to write
Package TEST_PKG AS TYPE Brian_Test AS RECORD(
First_answer Number :=0,
Second_answer Number := 0);
TYPE RCT1 IS REF CURSOR RETURN Brian_Test;
END;
Procedure ADD_NUMBER (
NUMBER1 IN NUMBER,
NUMBER2 IN NUMBER,
status OUT VARCHAR2,
RC1 IN OUT TEST_PKG.RCT1) AS
BEGIN
OPEN RC1 FOR
SELECT nvl(number1,0) + nvl(Number2,0),
nvl(number1,0) - nvl(Number2,0)
FROM DUAL;
status := 'Ok';
RETURN;
EXCEPTION
WHEN others THEN
OPEN RC1 FOR
SELECT nvl(number1,0) + nvl(Number2,0),
nvl(number1,0) - nvl(Number2,0)
FROM DUAL;
status := 'Bad';
RETURN;
END; -- Procedure ADD_NUMBER
Compile this and try
Have Fun!
r@m@