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 ')。当上下文