运行SQLRPGLE程序出现Decimal数据错误，求助解决

核心错误原因 #

• 变量类型不匹配：你定义了基于ZIPPF文件的全字段数据结构ZIPDS，但FETCH语句却用了未声明的单独变量:ZIP, :CITY, :STATE。RPGLE会默认这些变量为字符型，若表中对应字段是十进制类型，直接赋值就会触发十进制数据错误。
• 错误处理缺失：FETCH后未先检查SQLSTATE是否正常，直接执行WRITE操作，一旦出现数据错误，程序会立即中断，导致打印仅输出表头。
• 逻辑顺序错误：Overflow子逻辑在FETCH后立即执行，此时还未确认数据是否读取成功，可能触发空数据写入或无效表头输出。

修复步骤 #

1. 修正FETCH数据接收方式 #

直接使用已定义的ZIPDS数据结构接收查询结果，确保字段类型完全匹配：

EXEC SQL FETCH cur INTO :ZIPDS;

如果只需要ZIP、CITY、STATE三个字段，需单独声明与表字段类型一致的变量（示例假设字段类型，需根据实际表结构调整）：

dcl-s ZIP packed(5:0); -- 对应表中DEC(5,0)类型的ZIP字段
dcl-s CITY char(30);
dcl-s STATE char(2);

2. 调整逻辑顺序，先校验SQL状态 #

在FETCH后先判断SQLSTATE，仅当数据读取成功时才执行后续操作：

dou SQLSTATE = EndOfFile;
 EXEC SQL FETCH cur INTO :ZIPDS;

 -- 仅在读取成功（非EOF且无错误）时处理数据
 if SQLSTATE <> EndOfFile and SQLSTATE = '00000';
   Exsr Overflow;
   WRITE DETAILS;
 endif;
ENDDO;

3. 优化编译参数便于调试 #

使用CRTSQLRPGI时添加以下参数，方便定位具体错误字段：

CRTSQLRPGI OBJ(YOURLIB/STATES) SRCFILE(YOURLIB/QRPGLESRC) OPTION(*SRCSTMT) DBGVIEW(*SOURCE)

4. 校验打印文件字段匹配 #

确认打印文件STATES的DETAILS记录格式，字段类型、长度需与ZIPDS或单独变量完全一致，避免写入时触发数据错误。

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