refactor(KIN09/KIN08): align Java to COBOL
- KIN09CSV: FULL outputs daily detail only; SHORT additionally emits monthly summary (matches cbl:160) - KIN08DBU: RESET deletes MONTHLY_ABSENCE only; DAILY_RECORDS preserved via plain INSERT (matches cbl:486-497) - Design docs updated to reflect COBOL-correct behavior - COBOL investigation record: remove the two design self-contradiction items (KIN09 #1, KIN08 #2) and related references
This commit is contained in:
qiuqiuqiu
@@ -1,11 +1,11 @@
|
||||
# 既存 COBOL コード不備点 調査記録
|
||||
|
||||
- **作成日**: 2026-08-25
|
||||
- **更新日**: 2026-08-29（KYU01‑09 追加 / KIN01・KIN04 フィールド数ゲート誤記削除 / KIN09(B‑1)・KIN08(B‑3) を設計書自己矛盾へ再分類 / ZAN03(C‑1)・KIN06(D‑1) を誤判・解消として記録から削除）
|
||||
- **更新日**: 2026-08-30
|
||||
- **背景**: KIN01‑09 / ZAN01‑06 / KYU01‑09 の COBOL→Java 変換後、Java↔COBOL↔設計書 の三方照合を実施。本ファイルは「既存 COBOL 側に存在する不備・設計書からの乖離」のうち、**現在も未解消の問題のみ**を記録する。解消済・誤認済の事象は記録しない。
|
||||
- **記録方針**: **Java 側の缺陷（Java 真缺陷等）は本記録の対象外**。COBOL が正・Java が誤であった事象は、COBOL 側に不備がないため ◯（または –）として扱い、Java 側対応は別途管理する。
|
||||
- **関連成果物**:
|
||||
- COBOL 側マーキング: 各対象行に `COBOL-DEFICIENCY:` コメントを付与（参照先＝本ファイル）。現在小計: `cobol/KIN05MAT.cbl:400`(A類)・`cobol/KIN08DBU.cbl:294`(B類:Tカード10名上限)・`cobol/KYU01CVT.cbl:306`(B類:エラー区分)。※KIN01INP/KIN04CHK の标记は「フィールド数ゲート誤り」が誤認(UNSTRING TALLYING=フィールド数)のため削除済。※KIN09CSV.cbl:160 / KIN08DBU.cbl:489 の标记は、当該事象が設計書自己矛盾(非 COBOL 缺陷)と判明したため削除済。
|
||||
- COBOL 側マーキング: 各対象行に `COBOL-DEFICIENCY:` コメントを付与（参照先＝本ファイル）。現在小計: `cobol/KIN05MAT.cbl:400`(A類)・`cobol/KIN08DBU.cbl:294`(B類:Tカード10名上限)・`cobol/KYU01CVT.cbl:306`(B類:エラー区分)。※KIN01INP/KIN04CHK の标记は「フィールド数ゲート誤り」が誤認(UNSTRING TALLYING=フィールド数)のため削除済。
|
||||
|
||||
---
|
||||
|
||||
@@ -27,8 +27,8 @@
|
||||
| **KIN05** | Kin05MatMain | ✗ | **A類** | WRK‑BEST 未リセット |
|
||||
| KIN06 | Kin06CldMain | ◯ | – | COBOL 不備なし |
|
||||
| KIN07 | Kin07DaiMain | ◯ | – | COBOL 正（Java 側缺陷は記録対象外） |
|
||||
| **KIN08** | Kin08DbuMain | ✗ | **B類** | T カード対象 10 名上限(UNSTRING INTO(1)..(10), B‑2)；RESET が MONTHLY のみ削除は設計「処理詳細」通りで COBOL 不備なし(§3 #2) |
|
||||
| **KIN09** | Kin09CsvMain | ✗ | **B類** | 時間欄書式 PIC Z(3)9.9 前导空格 vs 设计'8.0'(B‑1)；FULL/SHORT 逆転は設計書 PARM 表との矛盾のみ(§3 #1)、COBOL 不備なし |
|
||||
| **KIN08** | Kin08DbuMain | ✗ | **B類** | T カード対象 10 名上限(UNSTRING INTO(1)..(10), B‑2) |
|
||||
| **KIN09** | Kin09CsvMain | ✗ | **B類** | 時間欄書式 PIC Z(3)9.9 前导空格 vs 设计'8.0'(B‑1) |
|
||||
| SUB01 | Sub01DatSub | △ | – | TZ 依存(条件) |
|
||||
| SUB02 | Sub02MsgSub | ◯ | – | – |
|
||||
| SUB03 | Sub03EndSub | ◯ | – | – |
|
||||
@@ -87,20 +87,10 @@
|
||||
|
||||
---
|
||||
|
||||
## 3. 設計書自身の矛盾（COBOL 不備ではないが、再分類の根拠として記録）
|
||||
|
||||
1. **KIN09CSV 詳細設計書**: PARM 表(L33) `FULL=日別＋月次` に対し、§3 見出し「SHORT 時のみ追加処理(2500‑SHORT‑MODE)」が逆のニュアンス(=COBOL は「処理詳細」通りに日別常時＋SHORT時摘要を実装)。→ **COBOL は「処理詳細」に合致しており COBOL 不備ではない**；設計書内部矛盾。Java が PARM 表準拠かは設計仕様の優先権による。
|
||||
2. **KIN08DBU 詳細設計書**: ステップ 3‑1 に `MONTHLY_ABSENCE` 削除のみ記載され、`DAILY_RECORDS` 削除が抜けている（使用 DB 表表・SYSIN 仕様からのみ読取可）。→ **COBOL は「処理詳細(ステップ3‑1)」に合致しており COBOL 不備ではない**；設計書内部矛盾。RESET で DAILY も削除すべきかは設計仕様の優先権(処理詳細 vs DB表/SYSIN)による。
|
||||
|
||||
> 上記は COBOL の挙動が「処理詳細」に合致するため COBOL 不備ではない。あくまで設計書の PARM 表/DB表記述との矛盾を指摘するもの。
|
||||
|
||||
---
|
||||
|
||||
## 4. 推奨対応方針
|
||||
|
||||
- **A 類 (KIN05)**: COBOL バグ。Java は設計準拠で正 → **Java 維持**。COBOL 側をレガシー不備として本ファイルに記録。業務確認の上、COBOL を「仕様通り（バグ有）」で据え置くか別途 COBOL 修正するか決定。
|
||||
- **B 類 (KIN09 時間欄書式 / KIN08 Tカード10名上限 / KYU01 エラー区分リテラル)**: COBOL が設計(CSV 例/無上限/TABLE定数)と乖離。Java は設計準拠 → **Java 維持**。COBOL 側を不備記録。**厳密な COBOL 出力パリティ（並行運用比較等）が必要な場合のみ**、Java に「COBOL 互換モード」フラグを検討（要合意）。
|
||||
- **設計書矛盾 (KIN09 / KIN08)**: 上記 §3 を設計書へ反映（設計側修正）。COBOL は「処理詳細」通りのため COBOL 不備ではない。
|
||||
- **Java 側缺陷**: 本記録の対象外（別途チケット/PR で管理）。
|
||||
|
||||
---
|
||||
|
||||
@@ -183,8 +183,8 @@ public class Kin08DbuMain {
|
||||
// 主処理 2000MAJSOR
|
||||
// *****************************************************************
|
||||
private void majProc() {
|
||||
// 設計書(使用DBテーブル): RESET = DELETE + INSERT
|
||||
// → DAILY_RECORDS 挿入前に既存レコードを削除（stpProc 後だと PK 違反）
|
||||
// COBOL 通り: RESET は MONTHLY_ABSENCE のみ DELETE（DAILY_RECORDS は削除せず通常 INSERT）
|
||||
// ※RESET 再実行時に DAILY_RECORDS 既存行は PK 違反の可能性（COBOL も同様／運用上は事前クリア想定）
|
||||
if (resetMode) {
|
||||
resetDelete();
|
||||
}
|
||||
@@ -293,17 +293,8 @@ public class Kin08DbuMain {
|
||||
return null;
|
||||
}
|
||||
|
||||
/** RESET 時の既存レコード削除（DAILY_RECORDS + MONTHLY_ABSENCE、対象年月のみ）. */
|
||||
/** RESET 時の既存レコード削除（COBOL 通り MONTHLY_ABSENCE のみ。DAILY_RECORDS は削除せず通常 INSERT）. */
|
||||
private void resetDelete() {
|
||||
try (PreparedStatement ps = conn.prepareStatement(
|
||||
"DELETE FROM DAILY_RECORDS WHERE TARGET_DATE LIKE ?")) {
|
||||
ps.setString(1, yearMonth + "%");
|
||||
int n = ps.executeUpdate();
|
||||
cunDbxDel += n;
|
||||
} catch (Exception e) {
|
||||
dbError(e);
|
||||
return;
|
||||
}
|
||||
try (PreparedStatement ps = conn.prepareStatement(
|
||||
"DELETE FROM MONTHLY_ABSENCE WHERE YEAR_MONTH = ?")) {
|
||||
ps.setString(1, yearMonth);
|
||||
@@ -311,6 +302,7 @@ public class Kin08DbuMain {
|
||||
cunDbxDel += n;
|
||||
} catch (Exception e) {
|
||||
dbError(e);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@@ -42,13 +42,11 @@ public class Kin09CsvMain {
|
||||
|
||||
long w01out = 0;
|
||||
|
||||
boolean fullMode = !shortMode;
|
||||
// 日別明細: FULL/SHORT 両方出力（COBOL 2000MAJSOR はモードに関わらず日別を出力）
|
||||
writeRec(out, DAILY_HEADER);
|
||||
w01out++;
|
||||
|
||||
if (fullMode) {
|
||||
writeRec(out, DAILY_HEADER);
|
||||
w01out++;
|
||||
|
||||
int lineCount = 0;
|
||||
int lineCount = 0;
|
||||
|
||||
String dSql = "SELECT EMP_ID, TARGET_DATE, TIME_IN, TIME_OUT, "
|
||||
+ "ANNUAL_LEAVE_H, PERSONAL_LEAVE_H, OFFICIAL_LEAVE_H, "
|
||||
@@ -95,40 +93,38 @@ public class Kin09CsvMain {
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// 月次サマリ（FULL / SHORT 両方出力）。FULL は日別との区切り空白を挿入。
|
||||
if (fullMode) {
|
||||
writeAdvancing(out, 2, "");
|
||||
// 月次サマリ: SHORT のみ出力（COBOL 2500-SHORT-MODE は MODE=SHORT 時のみ追加）
|
||||
if (shortMode) {
|
||||
writeAdvancing(out, 2, ""); // COBOL: AFTER ADVANCING 2 LINES (セクション区切り)
|
||||
w01out++;
|
||||
}
|
||||
|
||||
writeRec(out, SUMMARY_HEADER);
|
||||
w01out++;
|
||||
writeRec(out, SUMMARY_HEADER);
|
||||
w01out++;
|
||||
|
||||
String mSql = "SELECT EMP_ID, YEAR_MONTH, ANNUAL_LEAVE_H, "
|
||||
+ "PERSONAL_LEAVE_H, OFFICIAL_LEAVE_H, SICK_LEAVE_H, "
|
||||
+ "UNAPPROVED_ABSENT_H "
|
||||
+ "FROM MONTHLY_ABSENCE WHERE YEAR_MONTH = ? ORDER BY EMP_ID";
|
||||
try (PreparedStatement ps = conn.prepareStatement(mSql)) {
|
||||
ps.setString(1, yearMonth);
|
||||
try (ResultSet rs = ps.executeQuery()) {
|
||||
while (rs.next()) {
|
||||
String empId = sanitize(getStr(rs, "EMP_ID"));
|
||||
String ym = getStr(rs, "YEAR_MONTH");
|
||||
double annual = rs.getDouble("ANNUAL_LEAVE_H");
|
||||
double personal = rs.getDouble("PERSONAL_LEAVE_H");
|
||||
double official = rs.getDouble("OFFICIAL_LEAVE_H");
|
||||
double sick = rs.getDouble("SICK_LEAVE_H");
|
||||
double absent = rs.getDouble("UNAPPROVED_ABSENT_H");
|
||||
String mSql = "SELECT EMP_ID, YEAR_MONTH, ANNUAL_LEAVE_H, "
|
||||
+ "PERSONAL_LEAVE_H, OFFICIAL_LEAVE_H, SICK_LEAVE_H, "
|
||||
+ "UNAPPROVED_ABSENT_H "
|
||||
+ "FROM MONTHLY_ABSENCE WHERE YEAR_MONTH = ? ORDER BY EMP_ID";
|
||||
try (PreparedStatement ps = conn.prepareStatement(mSql)) {
|
||||
ps.setString(1, yearMonth);
|
||||
try (ResultSet rs = ps.executeQuery()) {
|
||||
while (rs.next()) {
|
||||
String empId = sanitize(getStr(rs, "EMP_ID"));
|
||||
String ym = getStr(rs, "YEAR_MONTH");
|
||||
double annual = rs.getDouble("ANNUAL_LEAVE_H");
|
||||
double personal = rs.getDouble("PERSONAL_LEAVE_H");
|
||||
double official = rs.getDouble("OFFICIAL_LEAVE_H");
|
||||
double sick = rs.getDouble("SICK_LEAVE_H");
|
||||
double absent = rs.getDouble("UNAPPROVED_ABSENT_H");
|
||||
|
||||
String line = empId + "," + ym + ","
|
||||
+ editHours(annual) + "," + editHours(personal) + ","
|
||||
+ editHours(official) + "," + editHours(sick) + ","
|
||||
+ editHours(absent);
|
||||
String line = empId + "," + ym + ","
|
||||
+ editHours(annual) + "," + editHours(personal) + ","
|
||||
+ editHours(official) + "," + editHours(sick) + ","
|
||||
+ editHours(absent);
|
||||
|
||||
writeRec(out, line);
|
||||
w01out++;
|
||||
writeRec(out, line);
|
||||
w01out++;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user