qiuqiuqiu
239 lines
9.8 KiB
Markdown
239 lines
9.8 KiB
Markdown
# 詳細設計書
|
||
|
||
## 基本情報
|
||
|
||
| # | 項目 | 内容 |
|
||
|---|------|------|
|
||
| 1 | システム名 | 残業統計管理システム |
|
||
| 2 | プログラムID | ZAN06UPD |
|
||
| 3 | プログラム名 | 残業統計DB更新処理 |
|
||
| 4 | PGMタイプ | メイン |
|
||
| 5 | PGMパターン | DB更新 |
|
||
| 6 | 機能概要 | OVT-SUMMARYの各レコードをOVT-APPLICATIONSテーブルにINSERT/UPSERTし、 |
|
||
| 7 | | OVT-MONTHLYテーブルに月次集計を反映する。 |
|
||
| 8 | | またOVT-DBCLEANの各レコードについて、該当申請を取消状態に更新し、 |
|
||
| 9 | | OVT-MONTHLYから該当加班時間を減算する。 |
|
||
| 10 | | 新規カバレッジ：EXEC SQL(INSERT/UPDATE/SELECT)、COMMIT/ROLLBACK、 |
|
||
| 11 | | PERFORM VARYING/TEST AFTER、COBOL MULTIPLY |
|
||
|
||
※PGMタイプ：メイン、サブ
|
||
※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新
|
||
|
||
### 前提条件
|
||
|
||
| NO | 対象ファイル | 条件 |
|
||
|----|-------------|------|
|
||
| 1 | ファイルR01（OVT-SUMMARY） | ZAN05CALの出力、APPL-ID順ソート済 |
|
||
| 2 | ファイルR02（OVT-DBCLEAN） | ZAN04MATの出力、DB上に該当APPL-IDが存在すること（孤立取消はエラー） |
|
||
|
||
### 使用ファイル一覧
|
||
|
||
| NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 |
|
||
|----|------------------|--------|------|-----|--------|------|---------|-----------|------|------|
|
||
| 1 | OVT-SUMMARY | R01 | ZAN06R01 | I | ZAN03REC | FB | | 80 | PS | 集約結果（加班時間付加） |
|
||
| 2 | OVT-DBCLEAN | R02 | ZAN06R02 | I | ZAN04REC | FB | | 80 | PS | 孤立取消（DB削除対象） |
|
||
| 3 | ERROR-LOG | W01 | ZAN06W01 | O | ZAN05REC | VB | | 200 | PS | DBエラー・データ不整合記録 |
|
||
| 4 | OVERTIME-DB | DB | - | - | - | DB2 | - | - | DASD | EXEC SQLで直接操作 |
|
||
|
||
### キー項目一覧
|
||
|
||
| NO | ファイル名 | キー項目 | 用途 |
|
||
|----|-----------|---------|------|
|
||
| 1 | ファイルR01 | APPL-ID | OVT-APPLICATIONS INSERT/UPDATEのキー |
|
||
| 2 | ファイルR02 | APPL-ID | OVT-APPLICATIONS SELECT/UPDATEのキー |
|
||
| 3 | DB OVT-MONTHLY | EMP-ID + YEAR-MONTH + OVT-TYPE | 月次集計UPSERTのキー |
|
||
|
||
### テーブル定義
|
||
|
||
#### OVT-APPLICATIONS（個別加班申請テーブル）
|
||
|
||
| カラム | 型 | 内容 |
|
||
|--------|-----|------|
|
||
| APPL-ID | CHAR(8) | 申請番号（PK） |
|
||
| EMP-ID | CHAR(8) | 社員番号 |
|
||
| APPL-DATE | CHAR(8) | 申請日 YYYYMMDD |
|
||
| OVT-TYPE | CHAR(1) | W=平日 / H=休日 |
|
||
| START-TIME | CHAR(4) | 開始時刻 HHMM |
|
||
| END-TIME | CHAR(4) | 終了時刻 HHMM |
|
||
| OVT-HOURS | DECIMAL(4,1) | 加班時間 |
|
||
| STATUS | CHAR(1) | 0=有効 / 9=取消 |
|
||
| UPDATED-AT | TIMESTAMP | 更新日時 |
|
||
|
||
#### OVT-MONTHLY（月次集計テーブル）
|
||
|
||
| カラム | 型 | 内容 |
|
||
|--------|-----|------|
|
||
| EMP-ID | CHAR(8) | 社員番号（PK） |
|
||
| YEAR-MONTH | CHAR(6) | 対象年月 YYYYMM（PK） |
|
||
| OVT-TYPE | CHAR(1) | W=平日 / H=休日（PK） |
|
||
| OVT-HOURS | DECIMAL(6,1) | 加班時間合計 |
|
||
| OVT-COUNT | INTEGER | 加班回数 |
|
||
| UPDATED-AT | TIMESTAMP | 更新日時 |
|
||
|
||
### 使用モジュール一覧
|
||
|
||
| 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.運用日付取得SUB(SUB01DAT)により運用日を取得する。
|
||
復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。
|
||
【メッセージ編集】
|
||
メッセージ番号：5(サブエラー)
|
||
PARM1：'SUB01DAT'
|
||
PARM2：復帰コード
|
||
【ABEND処理SUB】
|
||
ABENDコード:999
|
||
1-5.使用ファイルのオープン（R01/R02入力、W01出力）
|
||
1-6.R01、R02の初回読込（1100R01INNSOR、1200R02INNSOR）
|
||
|
||
2.主処理（2000MAJSOR）
|
||
2-1.処理フェーズ1：OVT-SUMMARY（R01）を全件処理
|
||
R01 EOFまで以下の処理を繰り返す
|
||
2-1-1.OVT-APPLICATIONSへのINSERTを試行
|
||
【EXEC SQL INSERT】
|
||
INSERT INTO OVT-APPLICATIONS (APPL-ID, EMP-ID, APPL-DATE, OVT-TYPE,
|
||
START-TIME, END-TIME, OVT-HOURS, STATUS, UPDATED-AT)
|
||
VALUES (:WRK-SQL-APPL-ID, :WRK-SQL-EMP-ID, :WRK-SQL-APPL-DATE,
|
||
:WRK-SQL-OVT-TYPE, :WRK-SQL-START-TIME, :WRK-SQL-END-TIME,
|
||
:WRK-SQL-OVT-HOURS, :WRK-SQL-STATUS, CURRENT TIMESTAMP)
|
||
2-1-2.SQLCODE NOT = 0の場合（APPL-ID重複）：
|
||
【EXEC SQL UPDATE】
|
||
UPDATE OVT-APPLICATIONS SET STATUS = :WRK-SQL-STATUS,
|
||
UPDATED-AT = CURRENT TIMESTAMP
|
||
WHERE APPL-ID = :WRK-SQL-APPL-ID
|
||
SQLCODE異常時は9100DBERRSORへ
|
||
2-1-3.SQLCODE = 0の場合：CUN-DBXINS加算、それ以外：CUN-DBXUPD加算
|
||
2-1-4.OVT-MONTHLYのUPSERT（2110MONTHLYUPSOR）
|
||
2-1-5.CUN-COMMITが閾値以上の場合、COMMIT実行（2300COMMITDBX）
|
||
|
||
2-2.処理フェーズ2：OVT-DBCLEAN（R02）を全件処理
|
||
R02 EOFまで以下の処理を繰り返す
|
||
2-2-1.SELECTでOVT-APPLICATIONSから該当レコード取得
|
||
【EXEC SQL SELECT INTO】
|
||
SELECT EMP-ID, APPL-DATE, OVT-TYPE, OVT-HOURS
|
||
INTO :WRK-SQL-EMP-ID, :WRK-SQL-APPL-DATE, :WRK-SQL-OVT-TYPE,
|
||
:WRK-SQL-OVT-HOURS
|
||
FROM OVT-APPLICATIONS
|
||
WHERE APPL-ID = :WRK-SQL-APPL-ID
|
||
2-2-2.SQLCODE NOT = 0（該当なし＝孤立取消）：
|
||
ERROR-LOGに出力（カテゴリ=20）、9999ABDSORで異常終了
|
||
2-2-3.OVT-APPLICATIONSのSTATUSを'9'に更新
|
||
【EXEC SQL UPDATE】
|
||
UPDATE OVT-APPLICATIONS SET STATUS = '9',
|
||
UPDATED-AT = CURRENT TIMESTAMP
|
||
WHERE APPL-ID = :WRK-SQL-APPL-ID
|
||
2-2-4.YEAR-MONTH抽出：APPL-DATE(1:6)
|
||
2-2-5.OVT-MONTHLYから減算（2210MONTHLYSUBSOR）
|
||
【EXEC SQL UPDATE（減算）】
|
||
UPDATE OVT-MONTHLY SET
|
||
OVT-HOURS = OVT-HOURS - :WRK-SQL-OVT-HOURS,
|
||
OVT-COUNT = OVT-COUNT - 1,
|
||
UPDATED-AT = CURRENT TIMESTAMP
|
||
WHERE EMP-ID = :WRK-SQL-EMP-ID
|
||
AND YEAR-MONTH = :WRK-SQL-YEAR-MONTH
|
||
AND OVT-TYPE = :WRK-SQL-OVT-TYPE
|
||
リトライ制御：PERFORM TEST AFTER VARYING（最大3回）
|
||
SQLCODE≠0時はROLLBACKしてリトライ
|
||
全リトライ消費後もSQLCODE≠0の場合、
|
||
ERROR-LOG（カテゴリ=21）に出力し9999ABDSORで異常終了する
|
||
（9100DBERRSORは通らない）
|
||
2-2-6.CUN-COMMITが閾値以上の場合、COMMIT実行（2300COMMITDBX）
|
||
|
||
3.OVT-MONTHLY UPSERT処理（2110MONTHLYUPSOR）
|
||
3-1.OVT-MONTHLYの存在確認SELECT
|
||
【EXEC SQL SELECT INTO（DB-OVT-HOURS, DB-OVT-COUNT）】
|
||
SELECT OVT-HOURS, OVT-COUNT
|
||
INTO :DB-OVT-HOURS, :DB-OVT-COUNT
|
||
FROM OVT-MONTHLY
|
||
WHERE EMP-ID = :WRK-SQL-EMP-ID
|
||
AND YEAR-MONTH = :WRK-SQL-YEAR-MONTH
|
||
AND OVT-TYPE = :WRK-SQL-OVT-TYPE
|
||
3-2.SQLCODE = 0（既存レコードあり）：
|
||
【EXEC SQL UPDATE（加算）】
|
||
UPDATE OVT-MONTHLY SET
|
||
OVT-HOURS = OVT-HOURS + :WRK-SQL-OVT-HOURS,
|
||
OVT-COUNT = OVT-COUNT + 1,
|
||
UPDATED-AT = CURRENT TIMESTAMP
|
||
WHERE EMP-ID = :WRK-SQL-EMP-ID
|
||
AND YEAR-MONTH = :WRK-SQL-YEAR-MONTH
|
||
AND OVT-TYPE = :WRK-SQL-OVT-TYPE
|
||
3-3.SQLCODE NOT = 0（新規）：
|
||
【EXEC SQL INSERT】
|
||
INSERT INTO OVT-MONTHLY
|
||
(EMP-ID, YEAR-MONTH, OVT-TYPE, OVT-HOURS, OVT-COUNT, UPDATED-AT)
|
||
VALUES
|
||
(:WRK-SQL-EMP-ID, :WRK-SQL-YEAR-MONTH, :WRK-SQL-OVT-TYPE,
|
||
:WRK-SQL-OVT-HOURS, 1, CURRENT TIMESTAMP)
|
||
3-4.SQLCODE異常時は9100DBERRSORへ
|
||
|
||
4.COMMIT処理（2300COMMITDBX）
|
||
4-1.【EXEC SQL COMMIT】
|
||
COMMIT WORK
|
||
4-2.CUN-COMMITをZEROにリセット
|
||
|
||
5.終了処理（3000STPSOR）
|
||
5-1.最終COMMIT（2300COMMITDBX）
|
||
5-2.入出力ファイルのクローズ
|
||
5-3.DB操作件数メッセージ出力
|
||
メッセージ番号：6(入力件数メッセージ)
|
||
PARM1：'ZAN06R01' / PARM2：CUN-R01INN
|
||
PARM1：'ZAN06R02' / PARM2：CUN-R02INN
|
||
PARM1：'INS' / PARM2：CUN-DBXINS
|
||
PARM1：'UPD' / PARM2：CUN-DBXUPD
|
||
PARM1：'W01' / PARM2：CUN-W01OUT
|
||
5-4.終了メッセージ出力
|
||
メッセージ番号：2(終了メッセージ)
|
||
|
||
6.DBエラー処理（9100DBERRSOR）
|
||
6-1.ERROR-LOGにDBエラー情報出力（カテゴリ=30）
|
||
【COBOL STRING】
|
||
STRING 'DB ERROR SQLCODE=' SQLCODE ' APPL-ID='
|
||
WRK-SQL-APPL-ID INTO WRK-ERR-DETAIL
|
||
6-2.【EXEC SQL ROLLBACK】
|
||
ROLLBACK WORK
|
||
6-3.9999ABDSORで異常終了
|
||
```
|
||
|
||
---
|
||
|
||
## 新規カバレッジ構文
|
||
|
||
| # | 構文 | 用途 |
|
||
|---|------|------|
|
||
| 1 | EXEC SQL INSERT | OVT-APPLICATIONSへの新規登録 |
|
||
| 2 | EXEC SQL UPDATE | OVT-APPLICATIONSステータス更新・OVT-MONTHLY加減算 |
|
||
| 3 | EXEC SQL SELECT INTO | OVT-MONTHLY存在確認・OVT-APPLICATIONS検索 |
|
||
| 4 | EXEC SQL COMMIT | 定期的なCOMMIT発行 |
|
||
| 5 | EXEC SQL ROLLBACK | DBエラー時のROLLBACK |
|
||
| 6 | PERFORM VARYING | 月(1-12)のバリデーションループ |
|
||
| 7 | PERFORM TEST AFTER VARYING | 月次減算のリトライ制御 |
|
||
| 8 | COBOL MULTIPLY | 加班時間→分変換 |
|
||
|
||
|
||
## 出力レコード定義
|
||
|
||
### 出力ファイル1（W01/ERROR-LOG）
|
||
|
||
| No | 項目名 | 設定元 | 備考 |
|
||
|----|--------|--------|------|
|
||
| 1 | ERR-CATEGORY | WRK-ERR-CATEGORY | 20=孤立取消 / 30=DBエラー |
|
||
| 2 | ERR-DETAIL | WRK-ERR-DETAIL | エラー詳細メッセージ |
|