COBOL 処理の実行について

Question

MAIN-PROCESS.
PERFORM INITIAL-RTN THRU INITIAL-EXT.
PERFORM READ-RTN THRU READ-EXT.
PERFORM MEISAI-RTN THRU MEISAI-EXT
PERFORM FAINAL-RTN THRU FAINAL-EXT.
MAIN-PROCESS-EXT.

上記のように処理をしたいのですが、どうしても最初にFAINAL-RTNが実行されてしまいます。
これの原因はなんでしょうか・・・
なお、FAINAL-RTNは下記のように記載してます。

FAINAL-RTN.
CLOSE PRINT-FILE RELEASE.
CLOSE TESTDB
CLOSE TEST2DB
FAINAL-EXT.

Answer 1

質問に直接関係なくても MF COBOL といった製品名やバージョンは明記した方が良いです。

MAIN-PROCESS.
の前はPROCEDURE DIVISION.の最初でしょうか？
各 PERFORM された最初に DISPLAY を入れて、本当に FAINAL-RTN. が最初に実行されているのか確認しましたか？

MAIN-PROCESS-EXT.
の次に STOP RUN.
の記述がない(ワザとカットした？)のが気になりますが。

Comments

[ARU_Wing]

STOP RUNがないのが原因でした。
付随して質問方法も具体的に教えていただきありがとうございます！

Answer 2

実際に動くコードでないとわかりません。

別名プログラムを作って関係ない思われるコードをどんどん削りながら、実行してください。

そのうえでまだ思った動作にならないときはコードを載せてください。

また、DISPLAY "INITIAL-RTN START".などを入れてどのように遷移しているか確かめてみてください。

Answer 3

可能性１：ここに書かれていない部分に間違いがある
可能性２：「最初にFAINAL-RTNが実行されてしまいます」が勘違い

Answer 4

見た目問題なさそうに見えます。
たぶんミスタイプとは思いますが、THRU MEISAI-EXTにピリオドが無い事位です。でも最後だげが実行される理由にはならない様な気がします。