DB2 Stored Procs called from EAServer - not!

[Kevin Berez]

Really need some help here.

Has anyone had any success using DB2 Stored Procedures with EAServer?

The actual stored procedure executes but we never get the out parms.

Our serverside code:

String ls_RETURN_A_ID
String ls_RETURN_FUNCTION
Integer li_RETURN_SQLCODE

of_log( idebug, this.classname(),
"1*******************************************")


DECLARE myproc PROCEDURE FOR DCPA001 (@arg1 = :ls_RETURN_A_ID, @arg2 =
:ls_RETURN_FUNCTION, @arg3 = :li_RETURN_SQLCODE) USING itr;
EXECUTE myproc;


There are no IN parms, the OUT parms are:

LINKAGE SECTION.
01 WL-RETURN-A-ID PIC X(11).
01 WL-RETURN-FUNCTION PIC X(06).
01 WL-RETURN-SQLCODE PIC S9(09) USAGE COMP.

Here's the DDL, if that helps:

CREATE PROCEDURE DCAPPU.DCPA001
( OUT ORETURN CHARACTER(11) CCSID EBCDIC
,OUT OFUNC CHARACTER(6) CCSID EBCDIC
,OUT OSQLCD INTEGER
)
RESULT SET 0
EXTERNAL NAME 'DCPA001U'
LANGUAGE COBOL
PARAMETER STYLE GENERAL
NOT DETERMINISTIC
NULL CALL
FENCED
MODIFIES SQL DATA
NO DBINFO
COLLID DCBATUCL
WLM ENVIRONMENT DCXTWLM1
ASUTIME LIMIT 93135
STAY RESIDENT NO
PROGRAM TYPE MAIN
SECURITY DB2
RUN OPTIONS 'MSGFILE(ENQ),RPTOPTS(ON)'
COMMIT ON RETURN NO
INHERIT SPECIAL REGISTERS;

[Paul Horan[Sybase]]

Are you passing the output parms "By Reference"?
--
Paul Horan[Sybase]
http://blogs.sybase.com/phoran/

Post by Kevin Berez
Really need some help here.
Has anyone had any success using DB2 Stored Procedures with EAServer?
The actual stored procedure executes but we never get the out parms.
String ls_RETURN_A_ID
String ls_RETURN_FUNCTION
Integer li_RETURN_SQLCODE
of_log( idebug, this.classname(),
"1*******************************************")
EXECUTE myproc;
LINKAGE SECTION.
01 WL-RETURN-A-ID PIC X(11).
01 WL-RETURN-FUNCTION PIC X(06).
01 WL-RETURN-SQLCODE PIC S9(09) USAGE COMP.
CREATE PROCEDURE DCAPPU.DCPA001
( OUT ORETURN CHARACTER(11) CCSID EBCDIC
,OUT OFUNC CHARACTER(6) CCSID EBCDIC
,OUT OSQLCD INTEGER
)
RESULT SET 0
EXTERNAL NAME 'DCPA001U'
LANGUAGE COBOL
PARAMETER STYLE GENERAL
NOT DETERMINISTIC
NULL CALL
FENCED
MODIFIES SQL DATA
NO DBINFO
COLLID DCBATUCL
WLM ENVIRONMENT DCXTWLM1
ASUTIME LIMIT 93135
STAY RESIDENT NO
PROGRAM TYPE MAIN
SECURITY DB2
RUN OPTIONS 'MSGFILE(ENQ),RPTOPTS(ON)'
COMMIT ON RETURN NO
INHERIT SPECIAL REGISTERS;