cobol-tna-system/詳細設計書/詳細設計書_SHA07KBR.md

詳細設計書

基本情報

#	項目	内容
1	システム名	社会保険管理システム
2	プログラムID	SHA07KBR
3	プログラム名	資格異動キーブレイク処理
4	PGMタイプ	メイン
5	PGMパターン	33（1:N+異キーキーブレイク）
6	機能概要	DB2 QUALIFICATION-CHANGESから資格異動データをFETCHし、従業員ごと（1:N）かつ保険者コード変更時（異キー）にキーブレイクしてサマリ・明細を出力する。
7		同一従業員内で保険者コードが変更された時点でサマリレコード（REC-TYPE=S）を出力、全レコードを明細レコード（REC-TYPE=D）として出力する。
8		各出力はSHA07REC書式（200B固定長）に従う。エラーはERROR-LOG（VB）に出力する。

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

前提条件

NO	対象ファイル	条件
1	QUALIFICATION-CHANGES(DB2)	EMP-ID, CHG-DATE昇順にSELECTする。ソートはSQLのORDER BYで担保する。

使用ファイル一覧

NO	使用ファイル/DB名	識別子	DD名	I/O	COPY群	形式	ブロック	レコード長	媒体	備考
1	QUALIFICATION-CHANGES(DB2)	—	—	I	なし	—	—	—	DB2	DECLARE CURSOR / FETCH
2	CHG-SUMMARY	W01	SHA07W01	O	SHA07REC	FB		200	PS	REC-TYPE='S'
3	CHG-DETAIL	W02	SHA07W02	O	SHA07REC	FB		200	PS	REC-TYPE='D'
4	ERROR-LOG	W03	SHA07W03	O	ZAN05REC	VB		200	PS	エラー退避

キー項目一覧

NO	ファイル名	ソート条件(キー項目)	キー条件(マッチング/キーブレイク)
1	QUALIFICATION-CHANGES	EMP-ID昇順, CHG-DATE昇順	1:Nマッチング（従業員1件に対しN件の異動）
2	同上	INSURER-CODE（異キー）	従業員内で保険者コード変更時にキーブレイク

使用モジュール一覧

NO	機能	プログラムID	使用COPY名
1	運用日付取得SUB	SUB01DAT	SHADATAC
2	メッセージ編集出力SUB	SUB02MSG	SHAMSGAC
3	ABEND処理SUB	SUB03END	SHAENDAC

---

処理詳細

1.初期処理（1000ITTSOR）
  1-1.開始メッセージ出力
    【メッセージ編集】
    メッセージ番号：1(開始メッセージ)
  1-2.コンパイル日時出力
    【メッセージ編集】
    メッセージ番号：33(コンパイル日時)
    PARM1：コンパイル日時
    PARM2：'COMPILED'
  1-3.ワークエリアの初期化
  1-4.運用日付取得SUB(SUB01DAT)により運用日を取得する。
    復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。
    【メッセージ編集】
    メッセージ番号：5(サブエラー)
    PARM1：'SUB01DAT'
    PARM2：復帰コード
    【ABEND処理SUB】
    ABENDコード:999
  1-5.出力ファイルのオープン
  1-6.DB接続（EXEC SQL CONNECT）
  1-7.DECLARE CURSOR文でQUALIFICATION-CHANGESをSELECT
    SELECT対象：CHG-ID, EMP-ID, EMP-NAME（SALARYDB.EMP-MASTERとJOIN）, CHG-DATE, CHG-TYPE, INSURER-CODE, PREV-INSURER, REASON
    ORDER BY：EMP-ID, CHG-DATE
  1-8.FETCHで1件目を取得し、WS-PREV-EMP-ID・WS-PREV-INSURERを初期設定（1100FETCSOR）

2.主処理（2000MAJSOR）（FETCH終了まで繰り返す）
  2-1.EMP-IDキーブレイク判定（2100KEYBRSOR）
    2-1-1.WS-PREV-EMP-ID（前回従業員ID）とDBV-EMP-ID（今回従業員ID）が異なる場合、主キーブレイク発生
    2-1-2.初回（WS-PREV-EMP-ID＝HIGH-VALUES）はスキップ
    2-1-3.主キーブレイク時はサマリレコード出力（REC-TYPE='S'）
      設定内容：前回従業員の最終保険者状態をサマリとして出力
      PREV-INSURER＝前回レコードのINSURER-CODE、INSURER-CODE＝SPACE
      EMP-ID＝前回従業員ID
  2-2.INSURER-CODE異キーブレイク判定（2200DIFKBSOR）
    2-2-1.WS-PREV-INSURER（前回保険者コード）とDBV-INSURER-CODE（今回保険者コード）が異なる場合、異キーブレイク発生
    2-2-2.異キーブレイク時はサマリレコード出力（REC-TYPE='S'）
      設定内容：前回保険者→今回保険者の変遷をサマリ
      PREV-INSURER＝WS-PREV-INSURER
      INSURER-CODE＝DBV-INSURER-CODE
      EMP-ID＝DBV-EMP-ID
      CHG-DATE＝DBV-CHG-DATE
      REASON＝'INSURER CHANGED'
  2-3.明細レコード出力（2300DETAILSOR）
    全FETCHレコードを明細出力（REC-TYPE='D'）
    SHA07RECの全項目をDBV-から転記
  2-4.WS-PREV-EMP-ID、WS-PREV-INSURERに今回値を設定
  2-5.FETCHで次件取得（1100FETCSOR）

3.最終グループ処理（2500LSTKBRSOR）
  3-1.最終従業員グループのサマリレコードを出力
  3-2.最終詳細レコードを出力

4.終了処理（3000STPSOR）
  4-1.CLOSE CURSOR
  4-2.DISCONNECT DB
  4-3.出力ファイルのクローズ
  4-4.出力件数メッセージ出力
    【メッセージ編集】
    メッセージ番号：6(入力件数メッセージ)
    PARM1：'DB2-QUALIFICATION-CHANGES'
    PARM2：FETCH件数
    【メッセージ編集】
    メッセージ番号：7(出力件数メッセージ)
    PARM1：'SHA07W01(CHG-SUMMARY)'
    PARM2：サマリ件数
    【メッセージ編集】
    メッセージ番号：7(出力件数メッセージ)
    PARM1：'SHA07W02(CHG-DETAIL)'
    PARM2：明細件数
    【メッセージ編集】
    メッセージ番号：7(出力件数メッセージ)
    PARM1：'SHA07W03(ERROR-LOG)'
    PARM2：エラー件数
  4-5.終了メッセージ出力
    【メッセージ編集】
    メッセージ番号：2(終了メッセージ)

---

出力レコード定義

出力ファイル1（W01/CHG-SUMMARY）

No	項目名	設定元	備考
1	CHG-ID	DBV-CHG-ID	最終レコードのCHG-ID
2	EMP-ID	DBV-EMP-ID	従業員ID
3	EMP-NAME	DBV-EMP-NAME	従業員名
4	CHG-DATE	DBV-CHG-DATE	異動日
5	CHG-TYPE	'99'固定	サマリ識別
6	INSURER-CODE	異キー:DBV-INSURER-CODE / 主キー:SPACE	主KB時はSPACE
7	PREV-INSURER	WS-PREV-INSURER	変更前保険者コード
8	REASON	'INSURER CHANGED' / SPACE	異キー時のみ設定
9	REC-TYPE	'S'固定	サマリ識別子
10	FILLER	SPACE

出力ファイル2（W02/CHG-DETAIL）

No	項目名	設定元	備考
1	CHG-ID	DBV-CHG-ID
2	EMP-ID	DBV-EMP-ID
3	EMP-NAME	DBV-EMP-NAME
4	CHG-DATE	DBV-CHG-DATE
5	CHG-TYPE	DBV-CHG-TYPE
6	INSURER-CODE	DBV-INSURER-CODE
7	PREV-INSURER	DBV-PREV-INSURER
8	REASON	DBV-REASON
9	REC-TYPE	'D'固定
10	FILLER	SPACE

出力ファイル3（W03/ERROR-LOG）

No	項目名	設定元	備考
1	ERR-CATEGORY	01で固定
2	ERR-DETAIL	STRINGで編集	エラー内容