COBOLのIFの入れ子について

質問

COBOLを最近学び出してわからないのですが、IF文の中のIF文はピリオドが要るのですか？それとも最初のIF文の終わりに（フローチャ－トの交わるところ）までピリオドは打たないのですか？初歩的な質問ですいませんがお願いします。

回答No.1

arai163 · ベストアンサー

COBOLでのIF分は最後にピリオドにつけます。
IF ○＝□ (THENは省略）
IF △＝△ ☆☆ ELSE ★★
ELSE
IF ×＝□ ●● ELSE ■■．
という具合です。
ピリオドが途中にはいると、センテンスがピリオドで完結していまいますので、ピリオド以降が違うセンテンスになってしまいます。

お礼

早速の回答感謝いたします。

回答No.3

rvr3958

IFの入れ子に限らず、第一階層目の命令の最後にピリオドを打てば良いのです。ただ、どの階層でも命令の範囲を明確にする為に、

END-PERFORM
END-IF
END-READ
END-WRITE
END-START

など、終了宣言をしましょうね。

ex)
IF　SW-A　=　"1"
　　IF　SW-B　=　"1"
　　　　ADD　1　TO　CT-A
　　ELSE
　　　　ADD　2　TO　CT-A
　　END-IF
ELSE
　　ADD　3　TO　CT-A
END-IF.

お礼

わかりやすい回答感謝いたします

回答No.2

bin-chan

ＣＯＢＯＬ８５以降、ＥＮＤＩＦってありますよね。
これを使用してＩＦの範囲を明示するとわかりやすいでしょう。

ずいぶんご無沙汰なんで文法忘れてます。（多少の間違いはお許しください）
IF A=B THEN
IF C=D THEN MOVE E TO F
ENDIF
ELSE MOVE G TO H
ENDIF.

お礼

的確なアドバイスありがとうございます。