Cobol语法问题

Cobol语法问题

if A = 1 or 2 or 3
then
。。。
这个可以，前三个都没有问题， 但是第四个
evaluate A
when 1 2
。。。。。
end-evaluate
有问题，可以改成
evaluate A
when 1 OR 2
。。。。。
end-evaluate
或者
evaluate A
when 1
when 2
。。。。。
end-evaluate

都可以

首先，COBOL习惯上应该大写，这点编写程序时候要注意。
下面回答你的问题
1,2,3,4都有一个共同的问题，就是你的A B C变量类型没有写明。如果变量是9型（数值型）的话，就不存在变量类型问题，如果A,B,C是X型（字符型）1位大小的话，所有出现的数字应该用引号括起来。
具体的
第一个语句没有问题注意A B C之间要有一个以上空格
第二个语句有没有THEN都没关系，但是一边企业编码规范都会要求写上THEN并且对应的还应该写上END-IF，这样结构看起来会特别清晰。即
IF A = 1 OR 2 OR 3
THEN
.......
ELSE
......
END-IF
第三个语句缺少执行语句，你应该是想写个循环吧。那PERFORM什么呢？没有写明。如下：
PERFORM UNTIL A = 1 OR 2 OR 3
......
END-PERFORM
或者
PERFORM ......
UNTIL A = 1 OR 2 OR 3
第四个语句WHEN 后面书写不正确应该是
EVALUATE A
WHEN 1
WHEN 2
...............
WHEN 3
.................
END-EVALUATE
或者
EVALUATE A
WHEN 1 ALSO 2
...............
END-EVALUATE追问evaluate a also b
when 1 also 2
也可以是吧？
如果可以的话你确定判断一个变量也可以这么写？
就是
evaluate a
when 1 also 2 也确定对哈？追答抱歉，因为ALSO语句不太常用有些记混了。把ALSO 改成 OR 应该就没问题了。即是：
EVALUATE A
WHEN 1 OR 2
其实编程的时候写的越简单越好，比较常见的写法还是下面这种
EVALUATE A
WHEN 1
WHEN 2
。。。。。
WHEN OTHER
CONTINUE
END-EVALUATE.