Your paramter style should be GENERAL. Read the SQL Reference manual for differnces in PARAMTER STYLE GENERAL, GENERAL WITH NULLS, AND SQL.
--------------------------------------------
On Thu, 3/17/16, Graves, Chuck <cgraves@xxxxxxxxxxxxxx> wrote:

Subject: T-SQL receiving parameter from iSeries
To: "rpg400-l@xxxxxxxxxxxx" <rpg400-l@xxxxxxxxxxxx>
Date: Thursday, March 17, 2016, 12:50 PM

I have a T-SQL stored procedure on
MS-SQL server,  calling a procedure on iSeries, which
changes the parameter @Parm from "Called Parm" TO "Returned
Parm".
The iSeries SQLRPGLE program is:

C     *entry       
plist
C               
   parm         
          Parm     
       15
C*
/free
       eval Parm='Returned Parm';
/end-free
C               
   eval      *inlr = '1'
C               
   return

I ran this command from within SQL400:

CREATE PROCEDURE RODDACUSTM/TEST_PARM(INOUT Parm CHAR (
15))
LANGUAGE RPGLE SPECIFIC RODDACUSTM/TEST_PARM NOT
DETERMINISTIC NO
SQL EXTERNAL NAME RODDACUSTM/TEST_PARM PARAMETER STYLE SQL

The T-SQL procedure is:

Code snippet....

DECLARE @parm           
  CHAR(15)

set @parm = 'Called Parm'

execute ('Call RODDACUSTM.TEST_PARM(?)', @Parm) at
LS_ISERIES

insert into test_parms
VALUES(@Parm)


The only values that end-up in the test_parm table are
"Called Parm"

Why do I not get a parameter back?





[Rodda Paint Company]
Chuck Graves
Director of Information Systems
Rodda Paint Co.<http://www.roddapaint.com>
6107 N. Marine Drive
Portland, Oregon 97203
(503) 737-6042

--
This is the RPG programming on the IBM i (AS/400 and
iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx
for any subscription related questions.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.