比较时指定的 NetCOBOL 值无效答案

【问题标题】：NetCOBOL Invalid Value Specified on Comparison比较时指定的 NetCOBOL 值无效
【发布时间】：2016-06-06 23:00:54
【问题描述】：

我正在使用 NetCOBOL for .NET 来扩展 COBOL 应用程序。当我通读并输入文件时，我正在对数字字段和某些记录进行简单比较，我收到 INVALID VALUE SPECIFIED 错误。

该字段是定义的 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 调试器会显示一个值 +0000000.000，并且使用 Quick Watch 条件测试为真。

当我检查 INV-MST-LOCATION(1) 时，我看到了这个

【问题讨论】：

你能发布完整的记录布局吗？猜猜你会根据记录来计算这些 OCCURS 中有多少是相关的。要么就是有坏数据（但是另一个程序是否使用了这些数据？）。 IF INV-MST-ONHAND ( 1 ) NOT NUMERIC DISPLAY some diagnostic stuff END-IF
我已经添加了完整的布局。
谢谢。 INV-MST-ONHAND 是否在现有程序的其他地方使用？还是其他程序？那些“新”字段，因为它们是记录末尾的“备用字节”以外的最后一个字段？您是否尝试过我建议的 IF ... NUMERIC ...？你有什么东西可以让你查看记录（导致失败的那个）吗？如果没有，如果您 DISPLAY INV-MST-ONHAND (1) 和 INV-MST-LOCATION (1) 确切的输出是什么？您有错误的消息编号/参考吗？
它通过了 IF NUMERIC 条件。完整的错误是 JMP0828I-U [PID:00000002 TID:0000000c] INVALID VALUE SPECIFIED. 仅供参考，这是我第一次真正涉足 COBOL
也尝试显示 INV-MST-LOCATION ( 1 ) 它是一个图片 x 所以应该显示实际字符而没有任何数字解释。也对有效位置执行相同操作并比较 2

标签： cobol netcobol

【解决方案1】：

您正在使用编译器选项CHECK，以及子选项(NUMERIC) 或(ALL)。

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

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

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

当您尝试 IF 测试时，CHECK(NUMERIC) 或 CHECK(ALL) 发现了这一点，并产生了消息（并结束了您的程序）。

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

几个教训：消息参考很重要，它允许您找到有关消息的更多信息 - 为您将来的搜索，排除后缀，因为文档中的描述没有单独描述后缀；避免分组 MOVE - 或非常小心它们 - 缺少符号，或错误的长度或小数位数可能会给您带来细微的错误，这不值得节省编码和时间追逐细微之处。

使用调试器，您应该查看是否有某种方法可以查看实际源值，而不是您在问题中显示的“已编辑”值。查看实际来源会更早地帮助您。

非 COMPUTATIONAL 数字是“分区的”。每个字节一个数字，前面是“区域”值。对于无符号值，所有数字都已分区。对于有符号值，低位字节具有“overpunch”来指示正数或负数。

无符号值始终被视为正数。

1985 年标准的 COBOL 没有“捕获”由非数字值引起的错误的机制。您的文档将表明您是否可以通过 NetCOBOL 运行时执行此操作。

【讨论】：