Color save, async, set, end with multi key, COBOL key demo | 颜色保存,异步,多 key 结束,COBOL 关键字示例

This commit is contained in:
林万程
2022-04-13 02:04:27 +08:00
parent baa50ba361
commit 7033ae5704
11 changed files with 60 additions and 40 deletions

View File

@@ -13,12 +13,12 @@
IF if
有些程序 THEN 没有换行所以要加这个关键字
THEN
NOT(?= ) !
AND(?= ) &&
OR(?= ) ||
NOT(?= |$) !
AND(?= |$) &&
OR(?= |$) ||
兼容字符串字典
\=(?! ?') =
\=(?! ?'\d| '\w') =
> >
< <
1 COBOL 必要【关键字】
13 NOT(?= ) NOT(?= |$) !
14 AND(?= ) AND(?= |$) &&
15 OR(?= ) OR(?= |$) ||
16 兼容字符串字典
17 \=(?! ?') \=(?! ?'\d| '\w') =
18 > >
19 < <
20 PERFORM call
21 WS-
22 (?<!\w)\( (
23 \) )
24

View File

@@ -1,7 +1,7 @@
123456 INITIALIZE HELLO-WORLD
IF (KEY NOT = '1' AND '2')
AND KEY NOT = '1' THEN
IF (KEY NOT = '1' AND '2') AND
KEY NOT = '1' THEN
MOVE WS-HELLO-WORLD TO HELLO-WORLD
END IF
TABLE(STRUCT)