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

# 詳細設計書

## 基本情報

| # | 項目 | 内容 |
|---|------|------|
| 1 | システム名 | 勤怠休暇管理システム |
| 2 | プログラムID | KIN09CSV |
| 3 | プログラム名 | 勤怠CSV出力処理 |
| 4 | PGMタイプ | メイン |
| 5 | PGMパターン | GETPUT（編集出力） |
| 6 | 機能概要 | DAILY_RECORDSをDBからSELECTし、STRING WITH POINTERでCSV行を編集、WRITE AFTER ADVANCING（PAGE/2 LINES/1 LINE）で出力する。INSPECT REPLACINGでCSV危険文字をサニタイズする。 |

### 前提条件

| NO | 対象ファイル/DB | 条件 |
|----|----------------|------|
| 1 | DAILY_RECORDS | KIN08DBUにより当月勤怠データが登録済みであること |
| 2 | MONTHLY_ABSENCE | KIN08DBUにより当月集計が完了していること |
| 3 | PARM | YEARMONTH=YYYYMM は必須。省略時はABEND |

### PARM引数

コマンドラインで以下の形式で指定。

```
YEARMONTH=202605,MODE=FULL
```

| パラメータ | 必須 | デフォルト | 説明 |
|-----------|:---:|:--------:|------|
| YEARMONTH | ○ | — | 処理対象年月（YYYYMM形式） |
| MODE | ○ | FULL | FULL=日別＋月次全項目出力, SHORT=月次集計のみ |

### 使用ファイル一覧

| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 |
|----|------------------|--------|------|-----|--------|------|---------|-----------|------|
| 1 | CSV-OUTPUT | OUTREC | KIN09W01 | O | KIN09REC | FB | | 200 | PS |

### 使用DBテーブル

| NO | テーブル名 | 処理内容 |
|----|-----------|---------|
| 1 | DAILY_RECORDS | SELECT WHERE TARGET_DATE LIKE 'YYYYMM%' ORDER BY EMP_ID, TARGET_DATE |
| 2 | MONTHLY_ABSENCE | SELECT WHERE YEAR_MONTH = :WS-YEAR-MONTH ORDER BY EMP_ID |

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

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

---

## 処理詳細

```
1.初期処理（1000ITTSOR）
  1-1.開始メッセージ出力
    【メッセージ編集】
    メッセージ番号：1(開始メッセージ)
  1-2.コンパイル日時出力
    【メッセージ編集】
    メッセージ番号：33(コンパイル日時)
    PARM1：コンパイル日時
    PARM2：'COMPILED'
  1-3.PARM解析（ACCEPT FROM COMMAND-LINE）
    INSPECT WS-PARM TALLYING WS-COMMA-CNT FOR ALL ','
    IF WS-COMMA-CNT < 1
        DISPLAY 'WARNING: Missing MODE, using FULL'
    END-IF
    UNSTRING WS-PARM DELIMITED BY ','
        INTO WS-PARM1 WS-PARM2
    END-UNSTRING
    UNSTRING WS-PARM1 DELIMITED BY '='
        INTO WS-KEY1 WS-VALUE1
    END-UNSTRING
    UNSTRING WS-PARM2 DELIMITED BY '='
        INTO WS-KEY2 WS-VALUE2
    END-UNSTRING
    YEARMONTH設定、MODE設定（FULL/SHORT判定）
    必須チェック：YEARMONTH未設定 → ABEND(CALL SUB03END)
  1-4.ワークエリア初期化
  1-5.DB接続（EXEC SQL CONNECT TO 'data/kin.db'）
  1-6.出力ファイルOPEN（KIN09W01）
  1-7.ヘッダー行書出（WRITE AFTER ADVANCING PAGE）
    社員番号,日付,出勤時刻,退勤時刻,休暇種別,
    年休時間,事假時間,因公特批假時間,病欠時間,未申請欠勤時間

2.主処理（2000MAJSOR）（FETCH EOFまで下記を繰り返す）
  2-1.CURSOR FETCH（DAILY_RECORDS）
  2-2.CSV危険文字サニタイズ（INSPECT REPLACING）
    MOVE 各項目を退避 → WS-SAFE-FIELD
    INSPECT WS-SAFE-FIELD REPLACING ALL ',' BY ';'
                                   ALL X"0D" BY SPACE
                                   ALL X"0A" BY SPACE
  2-3.CSV行編集（STRING WITH POINTER）
    MOVE 1 TO WS-PTR
    STRING
        WS-EMP-ID     DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-DATE       DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-TIME-IN    DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-TIME-OUT   DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-LEAVE-TYPE DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-ANNUAL-H   DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-PERSONAL-H DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-OFFICIAL-H DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-SICK-H     DELIMITED BY SIZE
        ','           DELIMITED BY SIZE
        WS-ABSENT-H   DELIMITED BY SIZE
      INTO WS-CSV-LINE WITH POINTER WS-PTR
    END-STRING
  2-4.行数カウンタ加算
  2-5.100行ごとにヘッダー再出力（WRITE AFTER ADVANCING 2 LINES + ヘッダー行）
    100件毎 → WRITE WS-SEC-REC AFTER ADVANCING 2 LINES
               WRITE WS-HDR-REC AFTER ADVANCING 1 LINE
  2-6.データ行出力（WRITE AFTER ADVANCING 1 LINE）
    WRITE WS-OUT-REC FROM WS-CSV-LINE AFTER ADVANCING 1 LINE

3.MODE=SHORT時のみ追加処理（2500-SHORT-MODE）
  3-1.MONTHLY_ABSENCE CURSOR OPEN
  3-2.STRINGで集計行編集
  3-3.セクション区切り出力
    WRITE WS-SEC-REC AFTER ADVANCING 2 LINES
  3-4.集計行出力
    WRITE WS-OUT-REC AFTER ADVANCING 1 LINE

4.終了処理（3000STPSOR）
  4-1.CURSOR CLOSE
  4-2.DB切断
  4-3.出力ファイルCLOSE
  4-4.出力件数メッセージ出力
    【メッセージ編集】
    メッセージ番号：6(出力件数)
    PARM1：'CSV-OUTPUT'
    PARM2：CUN-W01OUT（出力行数）
  4-5.終了メッセージ出力
    【メッセージ編集】
    メッセージ番号：2(終了メッセージ)
```

### WRITE AFTER ADVANCING 3種の使い分け

| タイミング | 構文 | 説明 |
|-----------|------|------|
| ファイル先頭 | WRITE header-rec AFTER ADVANCING PAGE | 改ページ（最初のヘッダー） |
| 100行ごと | WRITE sep-rec AFTER ADVANCING 2 LINES | セクション区切り（空行2行） |
| 100行ごと | WRITE header-rec AFTER ADVANCING 1 LINE | 再ヘッダー出力 |
| データ行 | WRITE data-rec AFTER ADVANCING 1 LINE | 通常データ行 |

---

## 出力レコード定義

### CSV-OUTPUT（OUTREC/KIN09REC）200B FB

| No | 項目名 | 設定元 | 属性 | 備考 |
|----|--------|--------|------|------|
| 1 | CSV-LINE | STRING編集結果 | X(200) | CSV1行分の文字列データ |

---

## CSVフォーマット

ヘッダー行（WRITE AFTER ADVANCING PAGEで出力）:
```
社員番号,日付,出勤時刻,退勤時刻,休暇種別,年休時間,事假時間,因公特批假時間,病欠時間,未申請欠勤時間
```

データ行:
```
00000101,20260501,0900,1800,99,0.0,0.0,0.0,0.0,0.0
00000101,20260502,0900,1300,02,0.0,4.0,0.0,0.0,4.0
```

MODE=SHORT時の集計行（WRITE AFTER ADVANCING 2 LINESで区切り）:
```
社員番号,年月,年休計,事假計,因公特批假計,病欠計,未申請欠勤計
00000101,202605,8.0,4.0,0.0,0.0,4.0
```

---

## カバレッジ構文一覧

| 構文 | 用途 |
|------|------|
| ACCEPT FROM COMMAND-LINE | PARM解析 |
| INSPECT TALLYING | カンマ区切り数チェック |
| INSPECT REPLACING | CSV危険文字置換 ← 新規 |
| STRING WITH POINTER | 位置指定CSV行編集 ← 新規 |
| WRITE AFTER ADVANCING PAGE | ページヘッダー制御 ← 新規 |
| WRITE AFTER ADVANCING 2 LINES | セクション区切り ← 新規 |
| WRITE AFTER ADVANCING 1 LINE | データ行出力 ← 新規 |
| STRING | CSV行編集（DELIMITED BY SIZE） |
| EXEC SQL SELECT(CURSOR) | DB読込 |
| DISPLAY | 警告メッセージ表示 |