在比较时指定的NetCOBOL无效值

Question

我使用NetCOBOL for .NET来扩展COBOL应用程序。当我读取和输入文件时，我对数字字段和某些记录做了一个简单的比较，得到了一个INVALID VALUE SPECIFIED错误。

该字段为INV-MST-现有定义：

 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调试器会显示一个值+0000000.000，条件测试为true使用Quick。

当我检查inspect位置(1)时，我看到了这个

​

Answer 1

您正在使用编译器选项CHECK和子选项(NUMERIC)或(ALL).

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

问题是您的数据不“符合PICture”。您的字段被定义为已签名( S在您的PICture字符串中)，但是不存在表示正值或负值的过载。

你说你创建了数据。我怀疑的是，在创建数据时，您意外地将该字段描述为无符号( PICture字符串中没有PICture)，然后为了方便起见，进行了一个组--移动到记录中，允许一个无符号值进入您的签名字段。

当您尝试IF-test时，CHECK(数字)或CHECK(ALL)发现了这一点，并生成了消息(并结束了您的程序)。

有趣的是，您的NUMERIC测试是正确的。可能有一个编译器选项来描述在数字测试中什么是有效的。您需要找到这一点，并确保只有正负的，而不是无符号的，是有效的，一个有符号的字段。

几点教训:消息引用很重要，可以让你找到更多关于消息的信息--为了将来的搜索，排除后缀，因为文档中的描述没有单独描述后缀；避免群体移动--或者非常小心--一个遗漏的符号，或者错误的小数点长度或数会给你带来微妙的错误，这不值得为追求微妙之处节省编码时间。

在调试器中，您应该看到是否有某种方式查看实际的源值，而不是您在问题中显示的“编辑”值。看到真正的消息来源会帮助你更早。

非计算性数字是“分区”的。每个字节一个数字，前面是"zone“值。对于无符号值，所有数字都已分区。对于一个有符号的值，低阶字节使用“过载”来表示正或负。

无符号值总是被视为正值。

1985年标准的COBOL没有任何机制来“捕获”由非数值引起的错误。您的文档将表明您是否有任何方法在您的NetCOBOL运行时做到这一点。