iSeries(AS400)执行SQL存储过程报[SQL0802]数据转换或映射错误

核心问题点 #

SQL0802错误是动态SQL拼接不规范触发隐式类型转换导致的，具体问题如下：

• 字符型参数拼接时未加单引号：代码中两处拼接P_USERCODE的写法为'ON B.USERCODE = ' || P_USERCODE，如果P_USERCODE是CHAR/VARCHAR类型（绝大多数系统用户编码都是字符串类型），最终拼接出的SQL会变成B.USERCODE = 1001这种数字比较逻辑，数据库执行时会隐式将表中USERCODE字段的所有字符串值转为数字再比对，只要字段值存在非数字内容（比如带字母、特殊前缀）就会直接抛出数据转换错误。
• 逻辑遗漏：存储过程声明了applicationcategory入参，但代码中完全没有使用，反而硬编码了A.APPLICATIONCATEGORY = '001'，不符合入参设计预期。
• 分支缺失：仅写了ISFAVORITE = '0'的SQL拼接逻辑，当入参为其他值时STRING_QUERY为空，执行PREPARE时会触发二次错误。
• 拼写错误：关联表名APPLICATIONUSERDEPARTMENTAUTHIRITY存在拼写错误（正确应为AUTHORITY），后续可能触发对象不存在错误。

快速修复方案 #

如果不想大幅改动原有逻辑，只需要给字符串类型的P_USERCODE拼接时包裹单引号即可，和你写C.FAVORITE = ''0''的转义规则一致，修改两处拼接逻辑：

-- 原错误写法
'ON B.USERCODE = ' || P_USERCODE ||
-- 修改为
'ON B.USERCODE = ''' || P_USERCODE || '''' ||

修改后拼接出的SQL会生成B.USERCODE = 'xxx'的标准字符串比较逻辑，不会触发隐式类型转换。

稳妥修复方案（推荐） #

改用参数化动态SQL，从根源避免类型转换错误、SQL注入风险，也不需要手动处理单引号转义，修复后完整代码如下：

BEGIN
    DECLARE STRING_QUERY VARCHAR(2000);
    DECLARE C1 CURSOR WITH RETURN TO CLIENT FOR SQL_STATEMENT;

    IF ISFAVORITE = '0' THEN
        SET STRING_QUERY = 'SELECT A.APPLICATIONCATEGORY,C.FOLDEROFPROJECT,' ||
            'C.PROJECT,D.PROJECTGRDESCRIPTION,D.PROJECTENDESCRIPTION,' ||
            'D.OBJECTNAME,D.OBJECTTYP,' ||
            'C.FAVORITE FROM ERPLIB.APPLICATIONDEPARTMENT A ' ||
            'INNER JOIN ERPLIB.APPLICATIONUSERDEPARTMENTAUTHORITY B ' ||
            'ON B.USERCODE = ? ' ||
            ' AND B.APPLICATIONCATEGORY = A.APPLICATIONCATEGORY' ||
            ' INNER JOIN ERPLIB.APPLICATIONUSERMODULEAUTHORITY C ' ||
            'ON C.USERCODE = ? ' ||
            ' AND C.APPLICATIONCATEGORY = A.APPLICATIONCATEGORY' ||
            ' AND C.FAVORITE = ''0''' ||
            ' INNER JOIN ERPLIB.APPLICATIONMODULE D ' ||
            'ON D.APPLICATIONCATEGORY = A.APPLICATIONCATEGORY' ||
            ' AND D.FOLDEROFOBJECT = C.FOLDEROFPROJECT AND ' ||
            'D.PROJECT = C.PROJECT ' ||
            'WHERE A.APPLICATIONCATEGORY = ?';
    ELSE
        -- 补充非收藏场景的查询逻辑，可根据实际业务调整过滤条件
        SET STRING_QUERY = 'SELECT A.APPLICATIONCATEGORY,C.FOLDEROFPROJECT,' ||
            'C.PROJECT,D.PROJECTGRDESCRIPTION,D.PROJECTENDESCRIPTION,' ||
            'D.OBJECTNAME,D.OBJECTTYP,' ||
            'C.FAVORITE FROM ERPLIB.APPLICATIONDEPARTMENT A ' ||
            'INNER JOIN ERPLIB.APPLICATIONUSERDEPARTMENTAUTHORITY B ' ||
            'ON B.USERCODE = ? ' ||
            ' AND B.APPLICATIONCATEGORY = A.APPLICATIONCATEGORY' ||
            ' INNER JOIN ERPLIB.APPLICATIONUSERMODULEAUTHORITY C ' ||
            'ON C.USERCODE = ? ' ||
            ' AND C.APPLICATIONCATEGORY = A.APPLICATIONCATEGORY' ||
            ' INNER JOIN ERPLIB.APPLICATIONMODULE D ' ||
            'ON D.APPLICATIONCATEGORY = A.APPLICATIONCATEGORY' ||
            ' AND D.FOLDEROFOBJECT = C.FOLDEROFPROJECT AND ' ||
            'D.PROJECT = C.PROJECT ' ||
            'WHERE A.APPLICATIONCATEGORY = ?';
    END IF;

    PREPARE SQL_STATEMENT FROM STRING_QUERY;
    -- 按占位符顺序传入参数，数据库自动处理类型匹配
    OPEN C1 USING P_USERCODE, P_USERCODE, P_APPLICATIONCATEGORY, P_USERCODE, P_USERCODE, P_APPLICATIONCATEGORY;

    RETURN;
END

后续排查点 #

如果修改后仍报SQL0802，逐一检查关联/过滤字段的类型一致性：

• C.FOLDEROFPROJECT和D.FOLDEROFOBJECT字段类型是否完全一致
• C.PROJECT和D.PROJECT字段类型是否完全一致
• 所有关联条件两端字段、传入参数类型保持统一，避免数据库触发隐式类型转换

内容的提问来源于stack exchange，提问作者Savvas Mastronikolas