【COBOL】CALL文完全ガイド｜静的/動的CALL・GOBACK/STOP RUNの違い・CANCEL・共通モジュール設計

CALL {プログラム名リテラル | プログラム名変数}
    [USING {[BY REFERENCE] | BY CONTENT | BY VALUE}
           引数1 [引数2 ...]]
    [RETURNING 戻り値変数]
    [ON EXCEPTION 例外時処理]
    [NOT ON EXCEPTION 正常時処理]
END-CALL.

WORKING-STORAGE SECTION.
01 WS-MODULE-NAME   PIC X(8).
01 WS-AMOUNT        PIC 9(9)V99.
01 WS-TAX           PIC 9(7)V99.
01 WS-RATE          PIC V99.

*=== 静的CALL（リテラル指定・リンク時に結合）===
PROCEDURE DIVISION.
    CALL 'TAXCALC' USING WS-AMOUNT WS-RATE WS-TAX
    END-CALL.

*=== 動的CALL（変数指定・実行時にロード）===
    IF WS-REGION = 'JP'
        MOVE 'TAXCALCJ' TO WS-MODULE-NAME
    ELSE
        MOVE 'TAXCALCE' TO WS-MODULE-NAME
    END-IF

    CALL WS-MODULE-NAME USING WS-AMOUNT WS-RATE WS-TAX
        ON EXCEPTION
            DISPLAY 'モジュールのロードに失敗: ' WS-MODULE-NAME
            MOVE 12 TO RETURN-CODE
            GOBACK
        NOT ON EXCEPTION
            DISPLAY 'CALLに成功しました'
    END-CALL.

*=== メインプログラム ===
IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN-PGM.

PROCEDURE DIVISION.
    CALL 'SUBPGM-A' USING WS-DATA
    END-CALL

    IF RETURN-CODE NOT = 0
        DISPLAY 'サブプログラムエラー'
        *> メインではSTOP RUNでジョブ終了
        STOP RUN
    END-IF

    DISPLAY '正常終了'
    STOP RUN.    *> メインの終了はSTOP RUN

*=== サブプログラム（STOP RUNを使ってはいけない例）===
IDENTIFICATION DIVISION.
PROGRAM-ID. SUBPGM-A.

PROCEDURE DIVISION USING LK-DATA.
    IF LK-DATA = SPACES
        DISPLAY 'エラー: データが空です'
        MOVE 8 TO RETURN-CODE
        *> NG: STOP RUNを使うとジョブ全体が終了してしまう
        *STOP RUN.

        *> OK: GOBACKで呼び元に戻る
        GOBACK
    END-IF

    PERFORM PROCESS-DATA
    MOVE 0 TO RETURN-CODE
    GOBACK.     *> サブプログラムの終了は必ずGOBACK

PROCESS-DATA.
    *> 処理内容
    EXIT.

*=== 最下層: SUBPGM-C ===
IDENTIFICATION DIVISION.
PROGRAM-ID. SUBPGM-C.
LINKAGE SECTION.
01 LK-DATA    PIC X(100).
PROCEDURE DIVISION USING LK-DATA.
    *> 処理実行
    IF エラー条件
        MOVE 8 TO RETURN-CODE    *> エラーをRETURN-CODEにセット
        GOBACK
    END-IF
    MOVE 0 TO RETURN-CODE
    GOBACK.

*=== 中間層: SUBPGM-B ===
IDENTIFICATION DIVISION.
PROGRAM-ID. SUBPGM-B.
WORKING-STORAGE SECTION.
01 WS-RC-SAVE  PIC S9(9) COMP.    *> RETURN-CODEを退避
LINKAGE SECTION.
01 LK-INPUT   PIC X(100).
01 LK-OUTPUT  PIC X(100).
PROCEDURE DIVISION USING LK-INPUT LK-OUTPUT.
    CALL 'SUBPGM-C' USING LK-INPUT
        ON EXCEPTION
            DISPLAY 'SUBPGM-Cのロード失敗'
            MOVE 12 TO RETURN-CODE
            GOBACK
    END-CALL
    MOVE RETURN-CODE TO WS-RC-SAVE    *> すぐに退避（次のCALLで上書きされる前に）

    IF WS-RC-SAVE NOT = 0
        *> エラーを呼び元に伝播させる
        MOVE WS-RC-SAVE TO RETURN-CODE
        GOBACK
    END-IF

    *> Cが成功した場合の後続処理
    PERFORM BUILD-OUTPUT
    MOVE 0 TO RETURN-CODE
    GOBACK.

*=== 呼び元: MAIN-PGM ===
PROCEDURE DIVISION.
    CALL 'SUBPGM-B' USING WS-INPUT WS-OUTPUT
    END-CALL
    EVALUATE RETURN-CODE
        WHEN 0  DISPLAY '正常終了'
        WHEN 8  DISPLAY '業務エラー'
        WHEN 12 DISPLAY 'システムエラー'
    END-EVALUATE.

WORKING-STORAGE SECTION.
01 WS-COUNTER     PIC 9(5).

PROCEDURE DIVISION.
    *--- 1回目のCALL ---
    CALL 'COUNTER-MOD'
    MOVE RETURN-CODE TO WS-COUNTER
    DISPLAY '1回目: ' WS-COUNTER     *> カウンタ=1

    *--- 2回目のCALL（モジュールはまだメモリに残っている）---
    CALL 'COUNTER-MOD'
    MOVE RETURN-CODE TO WS-COUNTER
    DISPLAY '2回目: ' WS-COUNTER     *> カウンタ=2（前回の状態が保持される）

    *--- CANCEL: モジュールをメモリから解放 ---
    CANCEL 'COUNTER-MOD'

    *--- 3回目のCALL（再ロード→WORKING-STORAGEが再初期化される）---
    CALL 'COUNTER-MOD'
    MOVE RETURN-CODE TO WS-COUNTER
    DISPLAY '3回目: ' WS-COUNTER     *> カウンタ=1（初期値に戻る）

    STOP RUN.

*=== COUNTER-MOD サブプログラム ===
IDENTIFICATION DIVISION.
PROGRAM-ID. COUNTER-MOD.
WORKING-STORAGE SECTION.
01 WS-CNT    PIC 9(5) VALUE 0.    *> 初回ロード時のみ0に初期化
PROCEDURE DIVISION.
    ADD 1 TO WS-CNT
    MOVE WS-CNT TO RETURN-CODE
    GOBACK.

IDENTIFICATION DIVISION.
PROGRAM-ID. OUTER-PROG.     *> 外部プログラム（親）

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-OUTER-DATA  PIC X(20) VALUE 'OUTER DATA'.
01 WS-RESULT      PIC X(20).

PROCEDURE DIVISION.
    CALL 'INNER-PROG' USING WS-OUTER-DATA WS-RESULT
    DISPLAY '結果: ' WS-RESULT
    STOP RUN.

*>>> ネストプログラムの開始 <<<
IDENTIFICATION DIVISION.
PROGRAM-ID. INNER-PROG.     *> 内部プログラム（子）

DATA DIVISION.
LINKAGE SECTION.
01 LK-INPUT   PIC X(20).
01 LK-OUTPUT  PIC X(20).

PROCEDURE DIVISION USING LK-INPUT LK-OUTPUT.
    MOVE LK-INPUT TO LK-OUTPUT
    INSPECT LK-OUTPUT CONVERTING SPACES TO '-'
    GOBACK.

END PROGRAM INNER-PROG.     *> 内部プログラムの終端
*>>> ネストプログラムの終了 <<<

END PROGRAM OUTER-PROG.     *> 外部プログラムの終端

IDENTIFICATION DIVISION.
PROGRAM-ID. PARENT-PROG.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LOG-FILE    PIC X(40) VALUE '/log/batch.log' GLOBAL.  *> 子も参照可能
01 WS-ERROR-CODE  PIC 9(4)              VALUE 0    GLOBAL.
01 WS-PRIVATE-DATA PIC X(20).                               *> GLOBAL なし：子から見えない

PROCEDURE DIVISION.
    CALL 'CHILD-PROC-A'
    CALL 'CHILD-PROC-B'
    STOP RUN.

IDENTIFICATION DIVISION.
PROGRAM-ID. CHILD-PROC-A.
PROCEDURE DIVISION.
    *> WS-LOG-FILE は GLOBAL なので直接参照できる
    DISPLAY 'ログファイル: ' WS-LOG-FILE
    *> WS-PRIVATE-DATA は見えない（コンパイルエラー）
    GOBACK.
END PROGRAM CHILD-PROC-A.

IDENTIFICATION DIVISION.
PROGRAM-ID. CHILD-PROC-B.
PROCEDURE DIVISION.
    IF WS-ERROR-CODE NOT = 0    *> GLOBAL変数を参照
        DISPLAY 'エラー検出: ' WS-ERROR-CODE
    END-IF
    GOBACK.
END PROGRAM CHILD-PROC-B.

END PROGRAM PARENT-PROG.

*=== プログラムAで定義 ===
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG-A.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-SHARED-CONFIG     EXTERNAL.    *> EXTERNAL宣言
   05 CFG-DB-HOST       PIC X(40).
   05 CFG-DB-PORT       PIC 9(5).
   05 CFG-ERROR-CODE    PIC 9(4).
   05 CFG-LOG-LEVEL     PIC X(1).

PROCEDURE DIVISION.
    *> 設定値を初期化
    MOVE 'db.example.com' TO CFG-DB-HOST
    MOVE 5432             TO CFG-DB-PORT
    MOVE 'I'              TO CFG-LOG-LEVEL   *> I=INFO
    MOVE 0                TO CFG-ERROR-CODE

    CALL 'PROG-B'    *> USINGなしで呼んでも共有データを参照できる
    STOP RUN.

*=== プログラムBで同名のEXTERNAL変数を定義 ===
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG-B.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-SHARED-CONFIG     EXTERNAL.    *> 同じ名前・構造でEXTERNAL宣言
   05 CFG-DB-HOST       PIC X(40).
   05 CFG-DB-PORT       PIC 9(5).
   05 CFG-ERROR-CODE    PIC 9(4).
   05 CFG-LOG-LEVEL     PIC X(1).

PROCEDURE DIVISION.
    *> PROG-Aで設定した値を参照できる
    DISPLAY 'DB接続先: ' CFG-DB-HOST ':' CFG-DB-PORT
    GOBACK.

WORKING-STORAGE SECTION.
01 WS-ERR-INFO.
   05 WS-ERR-CODE      PIC X(4).
   05 WS-ERR-MSG       PIC X(80).
   05 WS-ERR-PGM       PIC X(8).
   05 WS-ERR-SEVERITY  PIC 9(2).    *> 04=警告 08=エラー 12=重大

PROCEDURE DIVISION.
    *> エラー発生時
    MOVE 'E001'        TO WS-ERR-CODE
    MOVE 'ファイルOPENエラー' TO WS-ERR-MSG
    MOVE 'MAIN-PGM'   TO WS-ERR-PGM
    MOVE 8             TO WS-ERR-SEVERITY
    CALL 'ERRHANDL' USING BY REFERENCE WS-ERR-INFO
    END-CALL

    IF RETURN-CODE = 12
        GOBACK    *> 重大エラーは処理中断
    END-IF.

IDENTIFICATION DIVISION.
PROGRAM-ID. ERRHANDL.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TIMESTAMP   PIC X(26).
01 WS-LOG-LINE    PIC X(200).
01 WS-SYSDATE     PIC X(8).

LINKAGE SECTION.
01 LK-ERR-INFO.
   05 LK-ERR-CODE     PIC X(4).
   05 LK-ERR-MSG      PIC X(80).
   05 LK-ERR-PGM      PIC X(8).
   05 LK-ERR-SEVERITY PIC 9(2).

PROCEDURE DIVISION USING LK-ERR-INFO.
    *> タイムスタンプ取得
    MOVE FUNCTION CURRENT-DATE TO WS-TIMESTAMP

    *> ログ行を組み立て
    STRING WS-TIMESTAMP(1:4) DELIMITED BY SIZE '-'
           DELIMITED BY SIZE
           WS-TIMESTAMP(5:2) DELIMITED BY SIZE '-'
           DELIMITED BY SIZE
           WS-TIMESTAMP(7:2) DELIMITED BY SIZE ' '
           DELIMITED BY SIZE
           WS-TIMESTAMP(9:6)  DELIMITED BY SIZE ' '
           DELIMITED BY SIZE
           '[' DELIMITED BY SIZE
           LK-ERR-PGM         DELIMITED BY SPACE
           '] ['               DELIMITED BY SIZE
           LK-ERR-CODE        DELIMITED BY SIZE
           '] '               DELIMITED BY SIZE
           LK-ERR-MSG         DELIMITED BY SPACE
           INTO WS-LOG-LINE

    *> 重要度に応じて出力先を分ける
    EVALUATE LK-ERR-SEVERITY
        WHEN 4
            DISPLAY '[WARN] ' WS-LOG-LINE
        WHEN 8
            DISPLAY '[ERROR] ' WS-LOG-LINE
        WHEN 12
            DISPLAY '[FATAL] ' WS-LOG-LINE
    END-EVALUATE

    *> 重大エラーはRETURN-CODEに12をセット
    MOVE LK-ERR-SEVERITY TO RETURN-CODE
    GOBACK.

*=== 呼び元での使い方 ===
WORKING-STORAGE SECTION.
01 WS-LOG-MSG     PIC X(120).
01 WS-LOG-LEVEL   PIC X(1) VALUE 'D'.  *> D=DEBUG I=INFO W=WARN E=ERROR
   88 LOG-DEBUG   VALUE 'D'.
   88 LOG-INFO    VALUE 'I'.

PROCEDURE DIVISION.
    *> DEBUGログ（LOG-LEVELがDの場合のみ出力）
    IF LOG-DEBUG
        MOVE '処理開始: 件数チェック' TO WS-LOG-MSG
        CALL 'LOGWRITE' USING BY CONTENT WS-LOG-LEVEL
                               BY CONTENT WS-LOG-MSG
        END-CALL
    END-IF

    *> INFOログ（常に出力）
    MOVE '処理件数: ' TO WS-LOG-MSG
    STRING WS-LOG-MSG DELIMITED BY SPACE
           WS-REC-COUNT DELIMITED BY SIZE
           '件' DELIMITED BY SIZE
           INTO WS-LOG-MSG
    CALL 'LOGWRITE' USING BY CONTENT 'I'
                           BY CONTENT WS-LOG-MSG
    END-CALL.

*=== ジョブ制御（JCL/シェルから起動）===
*
*  MAIN-PGM（ジョブ制御・全体管理）
*    ├─ INITSUB  （初期処理: 設定ロード・接続確立）
*    ├─ OPENSUB  （ファイルオープン）
*    ├─ PROCSUB  （主処理: データ変換・集計）←ループ呼び出し
*    │     └─ VALIDSUB  （入力バリデーション）
*    │     └─ CALCSUB   （金額計算）
*    │     └─ OUTSUB    （出力レコード生成）
*    ├─ CLOSESUB （ファイルクローズ・統計出力）
*    └─ ERRHANDL （共通エラーハンドラ）← 各サブから呼ばれる
*
*--- MAIN-PGM の PROCEDURE DIVISION ---

PROCEDURE DIVISION.
MAIN-LOGIC.
    PERFORM INIT-PHASE
    IF RETURN-CODE NOT = 0
        PERFORM ABNORMAL-END
        STOP RUN
    END-IF

    PERFORM OPEN-PHASE
    IF RETURN-CODE NOT = 0
        PERFORM ABNORMAL-END
        STOP RUN
    END-IF

    PERFORM PROCESS-PHASE UNTIL WS-EOF

    PERFORM CLOSE-PHASE

    IF WS-ERROR-COUNT > 0
        DISPLAY '警告: エラー件数=' WS-ERROR-COUNT
        MOVE 4 TO RETURN-CODE
    ELSE
        MOVE 0 TO RETURN-CODE
    END-IF
    STOP RUN.

INIT-PHASE.
    CALL 'INITSUB' USING WS-CONFIG
    MOVE RETURN-CODE TO WS-RC-SAVE
    IF WS-RC-SAVE NOT = 0
        MOVE WS-RC-SAVE TO RETURN-CODE
    END-IF.

PROCESS-PHASE.
    CALL 'PROCSUB' USING WS-INPUT-REC WS-OUTPUT-REC WS-CTRL-INFO
    IF RETURN-CODE = 8
        ADD 1 TO WS-ERROR-COUNT
    END-IF
    PERFORM READ-NEXT-RECORD.

ABNORMAL-END.
    DISPLAY '異常終了: RC=' RETURN-CODE
    CALL 'CLOSESUB' USING WS-FILE-STATUS.   *> クローズだけは確実に実行