初歩的なＩＦ文がわかりません

質問

COBOLでプログラミングをしているのですが
参考書を見ても理解できない部分があります。

ＩＦ　条件式－１
　　　処理Ａ
　　　ＩＦ　条件式－２
　　　　　　処理Ｂ
　　　ＥＬＳＥ
　　　　　　処理Ｃ(1)
　　　ＥＮＤ－ＩＦ
ＥＬＳＥ
　　　処理Ｃ(2)
ＥＮＤ－ＩＦ．

という処理をしたいのですが、
処理Ｃ(1)と処理Ｃ(2)は全く同じ処理なのですが
同じことを２度書くのではなく
処理Ｃ(1)に当てはまる場合は処理Ｃ(2)をしてほしいのです。
どのように書けば教えてください

回答No.2

nda23 · ベストアンサー

PERFORM を使って処理Ｃを別パラグラフにするのはイヤですか？
ずっと昔はEND-IF文がなかったので、こういう書き方が普通でした。
IF 条件１
　　処理Ａ
　　IF 条件２
　　　　処理Ｂ
　　ELSE
　　　　PERFORM 処理Ｃ
　　END-IF
ELSE
　　PERFORM 処理Ｃ
END-IF.

お礼

回答ありがとうございます
いろいろ試してみたのですがうまくいかず
最終的にはその手でいこうと思います。
できれば避けたいのですが、、、。
やはりその手しかないのでしょうか、、。

回答No.4

AKARI0418

最近COBOLもめっきりやっていませんから自身がありませんが・・・。

EVALUATE TRUE
WHEN 条件式－１ AND 条件式－２
処理Ａ
処理Ｂ
WHEN 条件式－１ AND NOT 条件式－２
処理Ａ
処理Ｃ
WHEN OTHER
処理Ｃ
END-EVALUATE

お礼

回答ありがとうございます。
具体的に申し上げますと、
処理Ｃは１００行近くある処理で、
その処理を２度書くことをせずにプログラムを作りたかったのです。
EVALUATE式で条件をANDで２つ書けることを知りませんでした。
今後プログラムを作っていく上で勉強になりました。
ありがとうございます。

回答No.3

Tacosan

状況からして PERFORM で飛ばすか条件式を複数回書くかしかないんじゃないかな.
PERFORM が現実的だと思う.

お礼

回答ありがとうございます。
PERFORMが一番いいとのことで、
PERFORMで飛ばすことにしました。
思い通りにプログラム動いてくれました！

回答No.1

AKARI0418

COBOLは
IF文に多言語で言うところのELSEIFがないためにそういう書き方になってしまいます。

つまりIF文での分岐は真か偽の二つにしか分岐できないということです。

複数の分岐を作成したい場合は
IF文の中にIF文を入れ子にするか。
EVALUATE構文を使用します。

EVALUATE TRUE
WHEN 条件式－１
処理Ａ
WHEN 条件式－２
処理Ｂ
WHEN OTHER
処理Ｃ
END-EVALUATE

といった感じになります。

お礼

回答ありがとうございます。
EVALUATEの存在を忘れてました＾＾；
実際にそのようにプログラムを組んでみたのですが
条件式－１に当てはまり処理Ａをして
条件式－２に当てはまらない場合は
処理Ｃをしてほしいのですが
処理Ｃをしてくれませんでした