Calling Oracle Stored Procedure through COBOL

Question

I am calling a Oracle Stored Procedure through COBOL program. Here is the procedure that is in Oracle.
PROCEDURE sp_sel_m_event_subs_profile (
eventID IN EventIDTyp,
subscribed IN NUMBER,
v_profileRef OUT profileRefWithDSID_cv
IS
BEGIN
sp_check_event_id(eventID);
OPEN v_profileRef FOR
SELECT
sub.profile_i,
ref.datasource_i,
ref.primary_key_x
FROM
ccf_event_subscribe sub,
ccf_profile_reference ref
WHERE
sub.event_i = eventID
AND
sub.is_subscribed_i = subscribed
AND
sub.profile_i = ref.profile_i;
END sp_sel_m_event_subs_profile ;
So while trying to call this procedure in COBOL program I am getting error as wrong number or types of arguments in call to 'SP_SEL_M_EVENT_SUBS_PROFILE'
Here is the call statement in COBOL. I tried with many other options by adding some more fields but did not work.
EXEC SQL EXECUTE
BEGIN
TWSUSER_OWN.PKG_CCF.SP_SEL_M_EVENT_SUBS_PROFILE
(:EVENT-I, :SUBSCRIBED);
END;
END-EXEC
Please someone let me know how should I pass arguments EVENT-I and SUBSCRIBED to this Procedure so that I will get PROFILE-I, DATASOURCE-I and PRIMARY-KEY-X
Note: The above procedure is working good by other software. But there is no example as How to use Call statement through COBOL.
Thanks

Answer 1

Here is the cobol declaration of each variable.
01 EVENT-I PIC X(06) VALUE SPACES.
01 SUBSCRIBED PIC 9(01) VALUE ZEROS.
01 PROFILE-I PIC X(08) VALUE SPACES.
01 DATA-SRC-I PIC X(08) VALUE SPACES.
01 PRIMARY-KEY-X PIC X(08) VALUE SPACES.
I tried with this layout, but still not working
01 EVENT-I PIC 9(06) VALUE ZEROS.
01 SUBSCRIBED PIC 9(01) VALUE ZEROS.
01 PROFILE-I PIC 9(08) VALUE ZEROS.
01 DATA-SRC-I PIC 9(08) VALUE ZEROS.
01 PRIMARY-KEY-X PIC 9(08) VALUE ZEROS.
Here are some of them I tried.
EXEC SQL EXECUTE
BEGIN
TWSUSER_OWN.PKG_CCF.SP_SEL_M_EVENT_SUBS_PROFILE
( :EVENT-I
, :SUBSCRIBED
, :PROFILE-I);
END;
END-EXEC
EXEC SQL EXECUTE
BEGIN
TWSUSER_OWN.PKG_CCF.SP_SEL_M_EVENT_SUBS_PROFILE
( :EVENT-I
, :SUBSCRIBED
, :PROFILE-I
, :DATA-SRC-I
, :PRIMARY-KEY-X);
END;
END-EXEC
EXEC SQL EXECUTE
BEGIN
TWSUSER_OWN.PKG_CCF.SP_SEL_M_EVENT_SUBS_PROFILE
( :EVENT-I
, :SUBSCRIBED );
END;
END-EXEC
EXEC SQL EXECUTE
BEGIN
TWSUSER_OWN.PKG_CCF.SP_SEL_M_EVENT_SUBS_PROFILE
( :PROFILE-I
, :DATA-SRC-I
, :PRIMARY-KEY-X);
END;
END-EXEC