3

我需要将具有 2 位小数的数字的 PIC X 定义字段移动到数字字段，以执行涉及 comp-3 字段的算术函数。做这个的最好方式是什么？

我确实使用以下内容从 PIC X 重新定义为 PIC 9：EX。图 X(10) 至图 9(7).99。

但是现在我如何使用重新定义的字段执行计算？我是否重新定义了重新定义的字段？

计算 FIELD-RESULT 定义为 S9(9)v99 = FIELD-1（定义为 S9(9)V99）- FIELD-2（我重新定义的字段 PIC 9(7).99。

谢谢！！

4

2 回答 2

4

您可以查看内在的 FUNCTION NUMVAL。

无论如何，如果给定无效数据（文本不是有效的“已编辑”数字），您需要在大型机上拥有“好”数据，因为 NUMVAL 会失败。

COMPUTE X-TO-NUMERIC = FUNCTION NUMVAL ( text-data )

你可以这样定义：

01  TEXT-NUMBER PIC X(10).
01  EDITED-NUMBER REDEFINES TEXT-NUMBER PIC 9(7).99  (or Z(6)9.99 or Z(7)9.99 or whatever)
01  X-TO-NUMERIC PIC 9(7)V99.

MOVE EDITED-NUMBER TO X-TO-NUMERIC

无效数据仍然可能失败，或者只是错误。

或者，我的首选方法：

01  CONVERTED-NUMBER PIC 9(7)V99.
01  FILLER REDEFINES CONVERTED-NUMBER.
    05  CN-INTEGER-PART PIC X(7).
    05  CN-DECIMAL-PART PIC XX.


01  TEXT-NUMBER PIC X(10).
01  FILLER REDEFINES TEXT-NUMBER.
    05  TN-INTEGER-PART  PIC X(7).
    05  TN-DECIMAL-POINT PIC X.
        88  TN-DECIMAL-POINT VALID VALUE ".".
    05  TN-DECIMAL-PART  PIC XX.

IF ( TN-INTEGER-PART NUMERIC )
AND ( TN-DECIMAL-PART NUMERIC )
AND ( TN-DECIMAL-POINT )
    MOVE TN-INTEGER-PART TO CN-INTEGER-PART
    MOVE TN-DECIMAL-PART TO CN-DECIMAL-PART
ELSE
    deal with invalid
END-IF

不会失败，不会得到错误的结果。

编辑：为什么我没有建议参考修改？如果仅使用文字，如果使用数据名称，则人类“阅读”的难度要小得多，仍然不如数据定义方法清晰和慢，所以我改变了它们。

编辑。再次被另一个问题吸引到这里，我注意到：在这个例子中。无需将 CN-INTEGER-PART、CN-DECIMAL-PART、TN-INTEGER-PART 或 TN-DECIMAL-PART 定义为数字字段。

于 2013-01-17T08:56:10.077 回答
1

在 COBOL 的世界中，您要做的是“删除”数字数据类型。

给定一个PIC X(10)包含“数字”的字段，将其转换为数字数据类型。如果始终保证此“数字”具有相同的格式：7 位数字、一个小数点和小数点后 2 位数字，那么在 COBOL 中执行此操作的经典方法是：

01.
   02 NUM-AS-PIC         PIC X(10).
   03 NUM-EDITED  REDEFINES NUM-AS-PIC PIC 9(7).99.

01 NUM-DEEDITED            PIC 9(7)V99.

MOVE '1234567.89' TO NUM-AS-PIC      <- alpha-numeric move
MOVE NUM-EDITED   TO NUM-DEEDITED    <- deediting numeric move

ADD 1 TO NUM-DEEDITED                <- numeric computation

MOVE NUM-DEEDITED  TO NUM-EDITED     <- recover explicit decimal (editing)
DISPLAY NUM-AS-PIC                   <- alpha-numeric display

主要缺点是它不是很灵活。您将始终需要确保NUM-AS-PIC包含完全正确的格式。例如

MOVE '123.45'  TO NUM-AS-PIC

将导致运行时错误，因为小数点位置错误（MOVE从左侧填充而不是从右侧填充）并且尾随空格在构成剩余 4 个字节后填充（并且空格不是有效的数值）。

另一种常见的方法是使用NUMVAL函数。此函数采用任何有效的编辑数字格式并将其转换为浮点数字表示。数值可能附加了前导或尾随空格。的结果NUMVAL可以分配给任何有效的数字数据类型。例如：

  MOVE '1234567.89' TO NUM-AS-PIC         <- alpha-numeric move
  COMPUTE NUM-DEEDITED = FUNCTION NUMVAL(NUM-AS-PIC)

现在

  MOVE '123.45' TO NUM-AS-PIC 
  COMPUTE NUM-DEEDITED = FUNCTION NUMVAL(NUM-AS-PIC)

也会导致有效的移动。NUM-AS-PIC但是，如果其中包含的值无法转换为有效的浮点数，仍会发生运行时错误。例如：

  MOVE '12A.23' TO NUM-AS-PIC
  COMPUTE NUM-DEEDITED = FUNCTION NUMVAL(NUM-AS-PIC)

仍然会导致运行时错误。

可悲的是，在 COBOL 中没有普遍简单或万无一失的方法来执行此操作。

于 2013-01-17T22:11:45.880 回答