COBOL中的OR判断ifa=1ora=2ora=3then.可不可以写成ifa=123then.我不想用evaluate如同move1toamove1tobmove1toc写成move1toabc即可

Question

COBOL中的OR判断
if a = 1 or a = 2 or a=3
then
.
可不可以写成
if a = 1 2 3
then
.
我不想用evaluate
如同
move 1 to a
move 1 to b
move 1 to c
写成move 1 to a b c即可

Answer 1

IF A = 1 OR A = 2 OR A = 3
THEN
   ...
END-IF.

改写成如下方式是完全可行的：

IF A = 1 OR 2 OR 3
THEN
   ...
END-IF.

另外,除了EVALUATE,你还可以使用88层实现对A的多值判断：

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A          PIC 9 VALUE 0.
   88 A-1           VALUE 1.
   88 A-2           VALUE 2.
   88 A-3           VALUE 3.
...
PROCEDURE DIVISION.
...
  IF A-1 OR A-2 OR A-3
  THEN
     ...
  END-IF.
...