3

我有一个调用 SQLRPGLE 程序的存储过程。该程序运行良好，因为我已在调试器中验证并按预期发送返回值。取而代之的是查看时返回的内容cmd.Parameters["@ISMATCH"].Value = {}。我猜我做错了什么。会是什么呢？

存储过程：

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
4

3 回答 3

1

解决方案应该是

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 在 MIDRANGE-L 上。

于 2011-03-09T16:38:06.167 回答
1

我有一个模糊的回忆，尽管您称它为 OUT 参数，但由于 RPG 处理参数的方式，它确实应该是一个 INOUT 参数。如果将 create proc 更改为 INOUT 并在 C# 中进行相关更改，会发生什么？

于 2011-03-08T22:19:05.140 回答
0

如果将 out 参数更改为 nvarchar(1)，并更改 sproc。N 型是否对应 iDB2Char 类型？

于 2011-03-09T10:04:40.880 回答