# 詳細設計書

## 基本情報

| # | 項目 | 内容 |
|---|------|------|
| 1 | システム名 | 勤怠休暇管理システム |
| 2 | プログラムID | KIN03EXP |
| 3 | プログラム名 | 休暇日別展開処理 |
| 4 | PGMタイプ | メイン |
| 5 | PGMパターン | キーブレイク(集計) |
| 6 | 機能概要 | LEAVE_RECORDS(DB2)より有効申請(STATUS='1')を読込み、開始日〜終了日の期間を日別に展開し、休日・週末を除外してLEAVE-DAILYファイルを出力する。 |
| 7 | | 社員番号(EMP_ID)キーブレイクで小計出力を行う。 |

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

### 前提条件

| NO | 対象ファイル | 条件 |
|----|-------------|------|
| 1 | DB(LEAVE_RECORDS) | EMP_ID, START_DATE順にソート済（ORDER BYで取得） |

### 使用ファイル一覧

| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 |
|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------|
| 1 | LEAVE-DAILY | W01 | KIN02W01.DAT | O | KIN02REC | FB | | 80 | PS | 日別展開後レコード |
| 2 | LEAVE_RECORDS | DB | — | I | — | — | — | — | DB | SQLite |
| 3 | HOLIDAY_CALENDAR | DB | — | I | — | — | — | — | DB | SQLite |

### キー項目一覧

| NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) |
|----|-----------|---------------------|-------------------------------------------|
| 1 | DB(LEAVE_RECORDS) | EMP-ID, START_DATE(昇順) | キーブレイク: EMP-ID |

### 使用モジュール一覧

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

---

## 処理詳細

```
1.初期処理（1000ITTSOR）
  1-1.開始メッセージ出力
    【メッセージ編集】
    メッセージ番号：1(開始メッセージ)
  1-2.コンパイル日時出力
    【メッセージ編集】
    メッセージ番号：33(コンパイル日時)
    PARM1：コンパイル日時
    PARM2：'COMPILED'
  1-3.ワークエリアの初期化
  1-4.DB接続
    EXEC SQL CONNECT TO 'data/kin.db'
  1-5.運用日付取得SUB(SUB01DAT)により運用日を取得する。
    復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。
    【メッセージ編集】
    メッセージ番号：5(サブエラー)
    PARM1：'SUB01DAT'
    PARM2：復帰コード
    【ABEND処理SUB】
    ABENDコード:999
  1-6.休日カレンダーテーブル読込(1200HDINNSOR)
    【SQL】
    SELECT HOLIDAY_DATE FROM HOLIDAY_CALENDAR ORDER BY HOLIDAY_DATE
    FETCHループでWORKING-STORAGEのWRK-HOLIDAY-TABLEに全件格納する。
    WRK-HD-COUNTに件数を保持。最大366件（ODO定義）。
  1-7.出力ファイルOPEN（W01）
  1-8.C1カーソル初回FETCH(1100C1INITSOR)
    【SQL】
    SELECT APPLICATION_ID, EMP_ID, LEAVE_TYPE,
           START_DATE, START_TIME, END_DATE, END_TIME
    FROM LEAVE_RECORDS
    WHERE STATUS = '1'
    ORDER BY EMP_ID, START_DATE
    INTO :SQL-APPL-ID, :SQL-EMP-ID, :SQL-LEAVE-TYPE,
         :SQL-START-DATE, :SQL-START-TIME,
         :SQL-END-DATE, :SQL-END-TIME
     SQLCODE=0の場合、入力件数+1
    SQLCODE≠0の場合、WRK-R01EOF='1'（EOF）

2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す）
  2-1.社員番号キー保存
    SQL-EMP-ID → WRK-BFR-EMP-ID
  2-2.1社員分処理(2100-PROCESS-EMP)(PERFORM THRU)
    2-2-1.CUN-EMP-SUB初期化(ZERO)
    2-2-2.EOFまたはキー変化(SQL-EMP-ID≠WRK-BFR-EMP-ID)まで繰り返し
      2-2-2-1.日付展開処理(2200-EXPAND-DATE)(PERFORM THRU)
        2-2-2-1-1.開始日(SQL-START-DATE)→WRK-DATE-CURRENT
                   終了日(SQL-END-DATE)→WRK-DATE-END
        2-2-2-1-2.WRK-DATE-CURRENT > WRK-DATE-END までループ
          2-2-2-1-2-1.曜日判定
            COMPUTE WRK-DAY-OF-WEEK = FUNCTION MOD(
                FUNCTION INTEGER-OF-DATE(WRK-DATE-CURRENT), 7)
            0=日曜日、6=土曜日 → 週末としてスキップ
          2-2-2-1-2-2.非週末の場合、休日テーブル検索
            SEARCH ALL WRK-HD-ENTRY（昇順KEY=WRK-HD-DATE）
            WRK-HD-DATE(WRK-HD-IDX) = WRK-DATE-CURRENT → 休日としてスキップ
          2-2-2-1-2-3.非週末かつ非休日の場合、W01出力
            W01レコード初期化
            APPL-ID = SQL-APPL-ID
            EMP-ID = WRK-BFR-EMP-ID
            LEAVE-TYPE = SQL-LEAVE-TYPE
            START-TIME = SQL-START-TIME
            END-TIME = SQL-END-TIME
            DATE = WRK-DATE-ALPHA(現在日付)
            WRITE W01OUTREC
            CUN-W01OUT +1
            CUN-EMP-SUB +1
          2-2-2-1-2-4.日付加算(2300-DATE-ADD-1)
            WRK-DATE-DAY + 1
            各月の最終日判定：
            - 1/3/5/7/8/10/12月：31日超で月+1、13月→年+1
            - 4/6/9/11月：30日超で月+1
            - 2月：閏年判定(MOD年400=0 または MOD年4=0 AND MOD年100≠0)
              閏年→29日超、平年→28日超で月+1
      2-2-3.次レコードFETCH(1100C1FETCHSOR)
        CALL 'br_fetch_next' USING SQLCODE
        SQLCODE=0の場合、br_get_colで各カラムを取得
        SQLCODE≠0の場合、WRK-R01EOF='1'
    2-2-4.社員別小計出力(キーブレイク)
      【メッセージ編集】
      メッセージ番号：33(情報メッセージ)
      PARM1：WRK-BFR-EMP-ID
      PARM2：CUN-EMP-SUB
      PARM3：'EMP SUB'

3.終了処理（3000STPSOR）
  3-1.出力ファイルのクローズ
  3-2.件数メッセージ出力
    【メッセージ編集】
    メッセージ番号：6(入力件数)
    PARM1：'LEAVE_RECORDS'
    PARM2：入力件数
    【メッセージ編集】
    メッセージ番号：7(出力件数)
    PARM1：'KIN02W01'
    PARM2：出力件数
    【メッセージ編集】
    メッセージ番号：33(情報)
    PARM1：'HOLIDAYS LOADED'
    PARM2：休日テーブル件数
  3-3.終了メッセージ出力
    【メッセージ編集】
    メッセージ番号：2(終了メッセージ)
```

---

## 出力レコード定義

### 出力ファイル1（W01/LEAVE-DAILY） KIN02REC 80B FB

| No | 項目名 | 設定元 | 備考 |
|----|--------|--------|------|
| 1 | EMP-ID | WRK-BFR-EMP-ID | キーブレイク単位 |
| 2 | DATE | WRK-DATE-ALPHA | 展開された日付(YYYYMMDD) |
| 3 | LEAVE-TYPE | SQL-LEAVE-TYPE | 01/02/03/04 |
| 4 | START-TIME | SQL-START-TIME | 元申請の開始時刻(HHMM) |
| 5 | END-TIME | SQL-END-TIME | 元申請の終了時刻(HHMM) |
| 6 | APPL-ID | SQL-APPL-ID | APPLICATION_ID |
| 7 | FILLER | SPACE | 45B |