如何在RPGLE/DB2 SQL中获取SQLSTT错误描述，优化错误提示信息？

要在RPGLE程序中直接获取SQLSTATE对应的错误文本，无需手动查文档，有两种实用方案：

方案1：使用GET DIAGNOSTICS语句（推荐） #

这是最直接的方式，SQL执行出错后，通过GET DIAGNOSTICS直接获取DB2返回的详细错误描述，无需额外查询系统表。

修改你的代码示例： #

1. 在主程序中声明存储错误消息的变量，执行SQL后立即获取错误信息：

Dcl-s SQLMsg CHAR(1024);  // 存储完整错误描述
Dcl-s MsgLen INT(10);      // 实际错误消息长度

PSTMT='create or replace alias QTEMP.TheirIIM for '
      +%trim(xOtherSys)+'IIM';
exec sql execute immediate :PSTMT;

// 获取当前SQL语句的错误详情
exec sql GET DIAGNOSTICS EXCEPTION 1 
        SQLMsg = MESSAGE_TEXT, 
        MsgLen = MESSAGE_LENGTH;

// 调用错误处理过程时传入错误描述
@SQLERR(SQLSTT:'ALIAS' :%trim(xOtherSys)+'IIM': %subst(SQLMsg:1:MsgLen));

2. 更新@SQLERR过程，新增错误描述参数并拼入错误消息：

Dcl-proc @SQLERR;
Dcl-pi   @SQLERR IND;
     SQLSTATE CHAR(5) const;
     Action   CHAR(20) const;
     File     CHAR(20) const;
     SQLMsg   CHAR(1024) const;  // 新增：接收错误描述
End-pi;                              

Select;
  When ACTION = 'ALIAS';    // Create Alias failed
   If SQLSTT > '03000';
      Subject = %Trim(DFTLIB) + ' ' +
       'INTCRTORD Pgm Error: Create Alias failed. ';
      Message = %Trim(ACTION) +
      ': CREATE ALIAS for '+ %Trim(File) +
      ' statement failed with SQLSTT:'+SQLSTT+
      '\n错误描述: ' + %Trim(SQLMsg) +
      '\n RUN ABORTED!';
      $Error = *ON;
    ENDIF;          

方案2：查询DB2系统视图QSYS2.SQL_MESSAGES #

如果需要主动查询某个SQLSTATE的描述（比如提前校验或批量处理），可以直接查询DB2提供的系统视图：

在错误处理过程中加入查询逻辑： #

Dcl-proc @SQLERR;
Dcl-pi   @SQLERR IND;
     SQLSTATE CHAR(5) const;
     Action   CHAR(20) const;
     File     CHAR(20) const;
End-pi;

Dcl-s ErrDesc CHAR(500);  // 存储错误描述

Select;
  When ACTION = 'ALIAS';    // Create Alias failed
   If SQLSTT > '03000';
      // 查询SQLSTATE对应的错误文本（中文用'CHS'，英文用'ENU'）
      exec sql SELECT MESSAGE_TEXT INTO :ErrDesc
               FROM QSYS2.SQL_MESSAGES
               WHERE SQLSTATE = :SQLSTATE
                 AND LANGUAGE = 'CHS';

      Subject = %Trim(DFTLIB) + ' ' +
       'INTCRTORD Pgm Error: Create Alias failed. ';
      Message = %Trim(ACTION) +
      ': CREATE ALIAS for '+ %Trim(File) +
      ' statement failed with SQLSTT:'+SQLSTT+
      '\n错误描述: ' + %Trim(ErrDesc) +
      '\n RUN ABORTED!';
      $Error = *ON;
    ENDIF;          

注意事项： #

• GET DIAGNOSTICS只能在最近一次SQL执行后获取错误信息，适合即时处理；
• QSYS2.SQL_MESSAGES包含所有DB2错误消息，支持多语言，需要确保程序有该视图的查询权限；
• 部分SQLSTATE可能对应多条消息，可根据MESSAGE_ID进一步筛选。

内容的提问来源于stack exchange，提问作者Julie Krawczyk