COBOL NOT AND OR | 特殊处理
This commit is contained in:
@@ -13,11 +13,11 @@
|
||||
IF if
|
||||
有些程序 THEN 没有换行所以要加这个关键字
|
||||
THEN
|
||||
NOT(?! '| ?=) !
|
||||
AND (?!') &&
|
||||
OR (?!') ||
|
||||
NOT(?= ) !
|
||||
AND(?= ) &&
|
||||
OR(?= ) ||
|
||||
|
||||
兼容单字符字典
|
||||
兼容字符串字典
|
||||
\=(?! ?') =
|
||||
> >
|
||||
< <
|
||||
|
||||
|
@@ -1,6 +1,7 @@
|
||||
|
||||
123456 INITIALIZE HELLO-WORLD
|
||||
IF KEY = '1' AND KEY NOT = '2' AND (B OR NOT C) THEN
|
||||
IF (KEY NOT = '1' AND '2')
|
||||
AND KEY NOT = '1' THEN
|
||||
MOVE WS-HELLO-WORLD TO HELLO-WORLD
|
||||
END IF
|
||||
TABLE(STRUCT)
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
KEY = '1' 字典1
|
||||
KEY NOT = '2' 非 字典2
|
||||
KEY = '2' 字典2
|
||||
HELLO-WORLD 你好世界
|
||||
B001-A 程序A
|
||||
A a
|
||||
|
||||
|
Reference in New Issue
Block a user