COBOL support = ('A' OR 'B')

This commit is contained in:
林万程
2022-06-26 11:25:06 +08:00
parent 77f914acc6
commit 7fc8defa9f
2 changed files with 2 additions and 1 deletions

View File

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