cobol 与带有破折号 (-) 和带有 X 的图片的区别

Question

下面两张图有什么区别？

图片 X(15)

PIC ----,---,---.99.

底部只是表示顶部的另一种方式吗？

Answer 1

PIC X(15) 表示几乎任何类型数据的 15 个字符，可以是数字、字母或任何其他符号(可打印或不可打印)。

PIC ----,---,---.99 表示一个数字编辑数据项能够容纳+999999999.99 到 -999999999.99 范围内的值。如果放入其中的值为负数，否则它将显示没有前导符号的数字。显示的如果数字前面至少有 1 个数字，数字将在指示的位置有逗号分隔符。

以下是某些数字显示方式的一些示例:

999999999.99 displays as 999,999,999.99
1234.56      displays as       1,234.56
0            displays as            .00
-1234567.12  displays as  -1,234,567.12
-3           displays as          -3.00

诸如此类的变量仅用于显示。想都别想关于和他们一起做算术!给定以下数据声明:

01 DISP-NBR   PIC ----,---,---.99.
01 NBR        PIC S9(9)V99.

下面的MOVE操作都是有效的

MOVE 1234.56 TO NBR
MOVE 1234.56 TO DISP-NBR

但是，

ADD 1 TO NBR

完全有效但是...

ADD 1 TO DISP-NBR

会给你一个编译错误。尽管 DISP-NBR 包含数字数据，但它仅用于显示格式。您需要使用纯数字的数据项进行数学运算，然后将它们MOVE 以显示字段对于“ pretty-print ”。

This table描述了可能在 COBOL 中使用的所有 PICTURE 元素及其用途。