OR演算子は、内部の私は、このようにOR演算子を使用することができるかどうかを知りたいの文COBOL

Question

を評価：

EVALUATE TRUE 
    WHEN (COD-USER NOT EQUAL TO 01) OR (COD-USER NOT EQUAL TO 02) 
     ADD 1 TO CTN-ERROR 

    WHEN 
    ... 

END-EVALUATE 

私はそれがIFを使用して動作すると思いますが、私はこの文でそれを行う必要があります。私はカッコを異なる位置に置こうとしましたが、うまく機能しませんでした。

私はまた、次のようなさまざまな文章を使用しようとしましたと私は無効な式のエラーを得た：

I would like to know if i can use the OR operator in this way:

...

COD-USER NOT EQUAL TO 01 OR 02 

Answer 1

あなたの質問への答え...されます"はい。"しかし...

これはあなたが望むものですか？ COD-USERが1である場合

[...] 
    05 WS-COD-USER PIC 99 VALUE ZEROES. 
     88 DONT-ADD-1-TO-CTN-ERROR VALUES 1, 2. 
[...] 
    MOVE COD-USER TO WS-COD-USER 
    EVALUATE TRUE 
     WHEN DONT-ADD-1-TO-CTN-ERROR 
      CONTINUE 
     WHEN OTHER 
      ADD 1 TO CTN-ERROR 
    END-EVALUATE 

これは、これはCOD-USERはCTN-ERRORに追加される任意の他の値が1である場合に2であるCTN-ERRORCOD-USER場合に1を追加しないであろうCTN-ERRORに1を追加しないであろう。

私はCOD-USERがFDまたはコピーブックにあると推定しています。それ以外の場合は、それに続いて88レベルを追加することもできます。あなたの例では

Answer 2

、あなたは常にADD 1 TO CTN-ERROR

ないあなたは、他のWHEN年代があるか、何をCOD-USERが01であるとするときに発生しますしたいのかわからCOD-USERは02であるとき、あなたが欠けている場合は、あなたの

EVALUATE COD-USER 
    WHEN 01 
     DO-SOMETHING 
    WHEN 02 
     DO-SOMETHING-ELSE 
    WHEN OTHER 
     ADD 1 TO CTN-ERROR 
END-EVALUATE 

OR

EVALUATE TRUE 
    WHEN COD-USER = 01 
     DO-SOMETHING 
    WHEN COD-USER = 02 
     DO-SOMETHING-ELSE 
    WHEN OTHER 
     ADD 1 TO CTN-ERROR 
END-EVALUATE 

： COD-USERは01または02の場合にのみ、あなたのような何かを試みることができる何かにコード

これは、01または02でマッチするときに必要なことを行い、それ以外のものはカウントに1を加算します。

Answer 3

はい、あなたはORを使うことができますが、コードを書いたやり方は、上記の答えにすでに述べられているように常に真です。二回も書き込むことができる場合、上記の例では

EVALUATE TRUE 
    WHEN COD-USER = 01 
    WHEN COD-USER = 02 
    CONTINUE 
    WHEN OTHER 
    ADD 1 TO CTN-ERROR 
END-EVALUATE 

下に示すように、COD-USER = 01又はCOD-USER = 02、それは継続され、他のすべての条件について、それがCTN-ERRORに1を追加します