在比较时指定的NetCOBOL值无效

我正在使用netcobolfor.NET来扩展一个COBOL应用程序。当我通读并输入文件时，我正在对一个数字字段和某些记录进行简单比较，我得到一个指定的

无效值

错误

该字段为INV-MST-ONHAND，定义如下：

 02   INV-MST-LOCATION OCCURS 3.                  
    04 INV-MST-ONHAND         PIC S9(7)V999.
    04 INV-MST-SALES          PIC S9(6) OCCURS 12.         
    04 INV-MST-PTDSALE        PIC S9(6)V999.

比较在这行代码中

IF INV-MST-ONHAND(1) > 0 MOVE INV-MST-ONHAND(1) TO WS-ITEM-ONHAND.

这只发生在一些记录上。数据文件已编制索引，因此不容易手动解析。 我正在寻找一种方法来修复它，甚至跳过这些，但我不知道如何捕捉和处理这种错误情况

以下是完整的记录布局：

000381 FD INVMAST
000382     RECORD 845 CHARACTERS.
000383 01  INV-MST-REC.
000384     02   INV-MST-MCS             PIC X(10).
000385     02   INV-MST-KEY.
000386       04 INV-MST-ITEM-NO            PIC X(15)
000387    02   INV-MST-ALT1-KEY.
000389       04 INV-MST-PLU                 PIC 9(13).
000390     02   INV-MST-ALT2-KEY.
000391       04 INV-MST-WORDS1         PIC X(10).
000392     02   INV-MST-ALT3-KEY.
000393       04 INV-MST-WORDS2         PIC X(10).
000394     02   INV-MST-ALT4-KEY        PIC X(10).
000395     02   INV-MST-ALT5-KEY.
000396       04 INV-MST-CATEGORY       PIC X(10).
000399     02   INV-MST-UPC-KEYS.
000400       04 INV-MST-UPC01-KEY       PIC X(15).
000401       04 INV-MST-UPC02-KEY       PIC X(15).
000402       04 INV-MST-UPC03-KEY       PIC X(15).
000403       04 INV-MST-UPC04-KEY       PIC X(15).
000404       04 INV-MST-UPC05-KEY       PIC X(15).
000405       04 INV-MST-UPC06-KEY       PIC X(15).
000406       04 INV-MST-UPC07-KEY       PIC X(15).
000407       04 INV-MST-UPC08-KEY       PIC X(15).
000408       04 INV-MST-UPC09-KEY       PIC X(15).
000409       04 INV-MST-UPC10-KEY       PIC X(15).
000410       04 INV-MST-UPC11-KEY       PIC X(15).
000411       04 INV-MST-UPC12-KEY       PIC X(15).
000412     02   INV-MST-ITEM-NAME.
000454      04  INV-MST-NAME1          PIC X(20).
000455      04  INV-MST-NAME2          PIC X(20).
000456      04  INV-MST-NAME3          PIC X(20).           
000457     02   INV-MST-SCRAP          PIC 9(6)V99.
000458     02   INV-MST-ENV-LEVY       PIC 9(3)V99.
000459     02   INV-MST-UORD           PIC XXX.
000460     02   INV-MST-USTOCK         PIC XXX.
000461     02   INV-MST-UUNO           PIC 99999.
000462     02   INV-MST-VEND1          PIC 9999.
000463     02   INV-MST-VEND2          PIC 9999.
000464     02   INV-MST-VEND3          PIC 9999.          
000465     02   INV-MST-ONORDER        PIC 9(6).
000466     02   INV-MST-COMMIT         PIC 9(6).
000467     02   INV-MST-REORD          PIC 9(5).          
000468     02   INV-MST-MINORD         PIC 9(5).
000469     02   INV-MST-BASIS          PIC 99.
000470     02   INV-MST-BIN            PIC X(6).
000471     02   INV-MST-GL             PIC 9(4).
000472     02   INV-MST-DEPT           PIC 999.
000473     02   INV-MST-ALTITEM1       PIC X(15).
000474     02   INV-MST-ALTITEM2       PIC X(15).            
000476     02   INV-MST-COST1          PIC 9(6)V99.
000477     02   INV-MST-COST2          PIC 9(6)V99.
000478     02   INV-MST-COST3          PIC 9(6)V99.
000479     02   INV-MST-COST4          PIC 9(6)V99.
000480     02   INV-MST-SELLPRICES. 
000481      04  INV-MST-SELL1          PIC 9(6)V99.
000482      04  INV-MST-SELL2          PIC 9(6)V99.
000483      04  INV-MST-SELL3          PIC 9(6)V99.
000484      04  INV-MST-SELL4          PIC 9(6)V99.
000485      04  INV-MST-SELL5          PIC 9(6)V99.         
000486     02   FILLER REDEFINES INV-MST-SELLPRICES.
000487      04  INV-MST-SELL                PIC 9(6)V99 OCCURS 5.
000488    02     INV-MST-SELLPRICE-FACTORS.
000489       04 INV-FACTOR OCCURS 5.
000490       06 INV-PRC-FACTOR          PIC 9V99.
000491       06 INV-COST-BASE               PIC X.              
000492     02   INV-MST-SALE-DECPT     PIC 9.
000493     02   INV-MST-STOCK-DECPT    PIC 9.
000494     02   INV-MST-PRICE-UNITS    PIC 9999.
000495     02   INV-MST-ALTERNATE-UNITS.
000496       04 INV-MST-ALT-DESC            PIC X(10).
000497       04 INV-MST-ALT-ABBREV      PIC XX.
000498       04 INV-MST-ALT-FACTOR      PIC 9(3)V9(4).
000499       04 INV-MST-ALT-SALE-FLAG   PIC X.
000500       04 INV-MST-ALT-ORDER-FLAG  PIC X.
000501     02   INV-MST-TAX1           PIC X.
000502     02   INV-MST-TAX2           PIC X.            
000503     02   INV-MST-LOCATION OCCURS 3.                  
000504       04 INV-MST-ONHAND         PIC S9(7)V999.
000505       04 INV-MST-SALES          PIC S9(6) OCCURS 12.         
000506       04 INV-MST-PTDSALE        PIC S9(6)V999.             
000507     02   INV-MST-FIL            PIC X(30). 

当我在失败时检查INV-MST-ONHAND（1）的值时，Visual Studio debugger显示+0000000.000的值，并使用Quick Watch将条件测试显示为true

---

当我检查INV-MST-LOCATION（1）时，我看到这一点

您正在使用一个编译器选项，

检查

，带有子选项

（数字）

或

（全部）

这将生成

JMP0828I-U

消息。

U

表示它将结束执行。在某个地方，您可以告诉它生成

E

作为消息的后缀，在这种情况下，您将得到消息，但执行将继续

问题是您的数据不“符合图片”。You字段定义为有符号（图片字符串中的

S

），但表示正值或负值的过冲不存在

您提到您创建了数据。我怀疑的是，在创建数据的地方，您意外地将该字段描述为未签名（图片字符串中没有

S

），然后，为了方便起见，一个组移动到了记录中，允许未签名的值进入您的签名字段

当您尝试IF测试时，检查（数字）或检查（全部）发现了这一点，并生成了消息（并结束了您的程序）

有趣的是，您的

数值测试是正确的。可能有一个编译器选项来描述数值测试中的有效内容。您需要找到该字段，并确保只有正数和负数对有符号字段有效，而不是无符号字段

几点经验教训：邮件参考很重要，可以让您找到有关邮件的更多信息-为了您将来的搜索，请排除后缀，因为文档中的描述没有单独描述后缀；避免集体移动——或者非常小心——缺少符号，或者错误的长度或小数位数可能会给你带来微妙的错误，这不值得节省编码和时间去追求微妙之处

使用调试器，您应该查看是否有某种方法可以查看实际的源代码值，而不是问题中显示的“已编辑”值。看到真实的来源会对你有所帮助

非计算性数字被“分区”。每字节一位，前面是“区域”值。对于无符号值，所有数字都已分区。对于有符号值，低阶字节具有“overpunch”以指示正或负

无符号值始终被视为正值

1985年标准的COBOL没有“捕获”由非数值引起的错误的机制。您的文档将表明您是否有任何方法可以在NetCOBOL运行时实现这一点。
您正在使用一个编译器选项，
检查
，带有子选项
（数值）
或
（全部）

这将生成
JMP0828I-U
消息。
U
表示它将结束执行。在某个地方，您可以告诉它生成
E
作为消息的后缀，在这种情况下，您将得到消息，但执行将继续

问题是您的数据不“符合图片”。You字段定义为有符号（图片字符串中的
S
），但表示正值或负值的过冲不存在

您提到您创建了数据。我怀疑的是，在创建数据的地方，您意外地将该字段描述为未签名（图片字符串中没有
S
），然后，为了方便起见，一个组移动到了记录中，允许未签名的值进入您的签名字段

当您尝试IF测试时，检查（数字）或检查（全部）发现了这一点，并生成了消息（并结束了您的程序）

有趣的是，您的
数值测试是正确的。可能有一个编译器选项来描述数值测试中的有效内容。您需要找到该字段，并确保只有正数和负数对有符号字段有效，而不是无符号字段

几点经验教训：邮件参考很重要，可以让您找到有关邮件的更多信息-为了您将来的搜索，请排除后缀，因为文档中的描述没有单独描述后缀；避免集体移动——或者非常小心——缺少符号，或者错误的长度或小数位数可能会给你带来微妙的错误，这不值得节省编码和时间去追求微妙之处

使用调试器，您应该查看是否有某种方法可以查看实际的源代码值，而不是问题中显示的“已编辑”值。看到真实的来源会对你有所帮助

非计算性数字被“分区”。每字节一位，前面是“区域”值。对于无符号值，所有数字都已分区。对于有符号值，低阶字节具有“overpunch”以指示正或负

无符号值始终被视为正值

1985年标准的COBOL没有“捕获”由非数值引起的错误的机制。您的文档将显示您是否有任何方法可以在NetCOBOL运行时实现这一点。
您可以发布完整的记录布局吗？我猜你在记录上有一个计数，它告诉你这些事件中有多少是相关的