zero简化选择结构编码

ZERO是象征常量，代表数字0和字符'O'。

因此在选择结构中的条件判断中使用数字或字符‘0’时，用zero代替更方便。

使用zero后不用理会是数字0还是字符‘o’。

如：

IDENTIFICATION DIVISION.

PROGRAM-ID. ZERO1.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 NUM PIC 9 VALUE 0.

01 CHAR PIC X VALUE 'O'.

PROCEDURE DIVISION.'

              IF NUM = 0 AND CHAR = '0'

                   DISPLAY ' BOTH ZERO'

              END-IF.

              STOP RUN.

运行后：

 BOTH ZERO

 

由此看出ZERO可代替数字0和字符‘o'。请看如下代码：

IDENTIFICATION DIVISION.

PROGRAM-ID. ZERO1.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 NUM PIC 9 VALUE 0.

01 CHAR PIC X VALUE 'O'.

PROCEDURE DIVISION.'

              IF NUM = ZERO AND CHAR = ZERO

                   DISPLAY ' BOTH ZERO'

              ELSE

                   DISPLAY 'ERROR!'

             END-IF.

             STOP RUN.

运行结果：

 ERROR

 

为什么会是ERROR？按理说应该输出第一个才对。。。

我试着将AND该为OR，输出BOTH ZERO

又将IF语句改为 IF NUM = 0 AND CHAR = ZERO 仍输出ERROR

  查询了相关资料。。。：

 when the figurative constant ZERO，ZEROS OR ZEROES is used in a context that requires an alphanumeric character，an alphanumeric character

ZERO is used。when the context requires a national character ZERO，a national character zero is used （value nx’003‘）。when the context cannot

be determined，an alphanumeric character zero is used。

 当象征常数为零，零或零是用在需要使用一个字母数字字符，一个字母数字字符零使用。当上下文需要一个民族字符零，一个民族字符零使用（价值的'003 '）。当上下文

确定，一个字母数字字符的零是用。当象征常数为零，零或零是用在需要使用一个字母数字字符，一个字母数字字符零使用。当上下文需要一个民族字符零，一个民族字符零

使用（价值的'003 '）。当上下文确定，一个字母数字字符的零是用。

 

还是有点纠结。。。。。。。