Re: iSeries stored procedure calling RPG program doesn't return avalueto the program

Mike,

If you would like to test it and debug it from a 5250 session you can download STE (Stored Procedure Test Environment) from our website. It will install as a 30 day trial, however we are in the process of changing this to an open source project which should be before the 30 day trial is up.

http://www.damontech.com/products/ste.exe

Thank you,
Schadd Gray
Damon Technologies, Inc.
www.damontech.com
-----Original Message----- From: Schadd
Sent: 03/09/2011 9:26 AM
To: Midrange Systems Technical Discussion
Subject: Re: iSeries stored procedure calling RPG program doesn't return avalueto the program

Mike,

Your PARAMETER STYLE is set to SQL, however your parameter list looks like
it should be set to GENERAL. I would change the create to PARAMETER STYLE
GENERAL and try again.

Thank you,
Schadd Gray
Damon Technologies, Inc.
www.damontech.com
-----Original Message----- From: Mike Wills
Sent: 03/09/2011 8:57 AM
To: Midrange Systems Technical Discussion
Subject: iSeries stored procedure calling RPG program doesn't return a
valueto the program

I am not sure what is going wrong here. I have a stored procedure that
calls an SQLRPGLE program. The program is running fine as I have
verified in the debugger and sends the return value as expected. What
is returned to my ASP.NET program when looking at
`cmd.Parameters["@ISMATCH"].Value` is {}. I am guessing I am doing
something wrong. What could it be? How can I test calling the stored
procedure to make sure the procedure is working as expected.

My RPG program:
// Entry Parms
D MPRLRCHK PR extpgm('MPRLRCHK')
D id 10P 0
D isMatch 1A

The stored procedure:
CREATE PROCEDURE "MPRLIB"."CHECKHOURS" (EMPLOYEEID DECIMAL(10 , 0),
INOUT ISMATCH CHAR(1))
LANGUAGE RPGLE
PARAMETER STYLE SQL
NOT DETERMINISTIC
MODIFIES SQL DATA
SPECIFIC CHECKHOURS
NEW SAVEPOINT LEVEL
EXTERNAL NAME 'MPRLIB/MPRLRCHK';

I have the rest of the code documented at
http://stackoverflow.com/q/5238834/2535.

--
Mike Wills
http://mikewills.me