iSeries存储过程调用RPG程序不会将值返回给程序

我有一个调用SQLRPGLE程序的存储过程。程序运行良好，因为我已经在调试器中进行了验证并按预期发送了返回值。相反，当看着cmd.Parameters["@ISMATCH"].Value = {}时会返回什么结果。我猜测我做错了什么。会是什么呢？iSeries存储过程调用RPG程序不会将值返回给程序

存储过程：

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';

我的方法：

public bool IsValidTimesheet(int id) 
    { 
     bool isValid = false; 

     // Get the data from the iSeries 
     using (iDB2Connection conn = new iDB2Connection(ConfigurationManager.ConnectionStrings["IbmIConnectionString"].ConnectionString)) 
     { 
      using (iDB2Command cmd = conn.CreateCommand()) 
      { 
       cmd.CommandType = CommandType.StoredProcedure; 
       cmd.CommandText = "LIB.CHECKHOURS"; 

       cmd.Parameters.Add("@EMPLOYEEID", iDB2DbType.iDB2Decimal).Value = id; 
       cmd.Parameters.Add("@ISMATCH", iDB2DbType.iDB2Char).Direction = ParameterDirection.Output; 
       conn.Open(); 
       cmd.ExecuteNonQuery(); 
       isValid = (cmd.Parameters["@ISMATCH"].Value.ToString() == "1") ? true : false; 
       conn.Close(); 
      } 
     } 

     return isValid; 
    }

我的RPG程序参数：

D CHECKHOURS  PR     extpgm('CHECKHOURS') 
D id       10P 0 
D isMatch      1A

来源

2011-03-08 Mike Wills

的解决方案应该是

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

感谢Schadd on MIDRANGE-L。

来源

2011-03-09 16:38:06