This is a long one, and I apologize for that. The root question is this: when I use INavigator, my program is returning a degree sign and the letter R (Output Parameter #9 = °R )
I'm calling a stored procedure that then runs some other procedures and returns back an error message (or "success") in a 50-character field. Because it is almost impossible to test (from what I can tell) I created an RPGLE program that runs the last procedure (the one that returns the message) and ran that in debug. It looks fine. The field "result" has the correct error message in it.
My stored procedure is defined like this:
TWINMOVR takes the APPID and AUTH1 and swaps the ID from a generic ID that is doing the connection to an actual user ID. It then sets a library list and checks to see if the user we swapped to has the proper authority to change the data.
Then, it does this
result = (MOVINV01 (inplant : inappid :infrmloc : intoloc : inpart : inqty : result);
"result" should be some kind of message telling me that MOVEINV01 worked or it didn't work.
Can anyone please help me understand why iNavigator is showing °R ?
If I force "result" to have a value, iNavigator does show it, and I know that after the MOVINV01 procedure, "result" has a value (when I run it in my test program).
Any help will be greatly appreciated.
I'm calling a stored procedure that then runs some other procedures and returns back an error message (or "success") in a 50-character field. Because it is almost impossible to test (from what I can tell) I created an RPGLE program that runs the last procedure (the one that returns the message) and ran that in debug. It looks fine. The field "result" has the correct error message in it.
My stored procedure is defined like this:
PHP Code:
CREATE OR REPLACE PROCEDURE &LIB/TWINMOVPR (IN INENV CHAR (01),
IN INPLT CHAR(02),
IN INAPPID CHAR (10),
IN INAUTH1 CHAR (10),
IN INFRMLOC CHAR(06),
IN INTOLOC CHAR(06),
IN INPART CHAR(15),
IN INQTY NUMERIC(7),
OUT result CHAR (50))
LANGUAGE RPGLE SPECIFIC &LIB/TWINMOVPR NOT
DETERMINISTIC MODIFIES SQL DATA
CALLED ON NULL
INPUT EXTERNAL NAME &LIB/TWINMOVR
PARAMETER STYLE GENERAL
TWINMOVR takes the APPID and AUTH1 and swaps the ID from a generic ID that is doing the connection to an actual user ID. It then sets a library list and checks to see if the user we swapped to has the proper authority to change the data.
Then, it does this
result = (MOVINV01 (inplant : inappid :infrmloc : intoloc : inpart : inqty : result);
"result" should be some kind of message telling me that MOVEINV01 worked or it didn't work.
Can anyone please help me understand why iNavigator is showing °R ?
If I force "result" to have a value, iNavigator does show it, and I know that after the MOVINV01 procedure, "result" has a value (when I run it in my test program).
Any help will be greatly appreciated.
Comment