首先,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
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
都可以