Files
cobol-tna-system/詳細設計書/詳細設計書_SUB03END.md
qiuqiuqiu b3e800e601 feat: サブシステムB 残業統計管理 初回production反映
- 全6プログラム(ZAN01CHK~ZAN06UPD)ソース・実行ファイル
- 5サブプログラム(SUB01DAT~SUB05TIM)ソース・DLL
- 10 COPY書式ファイル
- 詳細設計書12ファイル
- サブシステムB全体設計書
- bin/配下の実行ファイル资産
2026-06-17 23:20:53 +08:00

1.3 KiB
Raw Permalink Blame History

詳細設計書

基本情報

# 項目 内容
1 システム名 残業統計管理システム
2 プログラムID SUB03END
3 プログラム名 ABEND処理サブ
4 PGMタイプ サブ
5 PGMパターン -
6 機能概要 ABENDコードを表示し、異常終了する。

※PGMタイプ:メイン、サブ ※PGMパターン:マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新

使用方法

  CALL 'SUB03END' USING  E01ABDPAR

入出力パラメータ

COPY句 ZANENDAC
NO 入出力区分 名称 属性 桁数 説明
1 I E01ABDCOD 9(3) 3 ABENDコード

リターンコード一覧

NO コード 説明
1 - ABENDするため復帰コードなし(STOP RUN実行)

処理詳細

1.制御処理(0000MAINSOR
  1-1.ABENDメッセージを編集する。
    MOVE 'ABEND CODE=' TO WRK-ABEND-MSG.
    MOVE E01ABDCOD TO WRK-ABEND-MSG(12:3).
  1-2.メッセージを表示する。
    DISPLAY WRK-ABEND-MSG.
  1-3.異常終了する。
    STOP RUN.