qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Subsystem B cleanup: dead code removal, sort-key fix, ZAN04MAT/ZAN05CAL/ZAN06UPD updates, resource lists added

Browse Source
This commit is contained in:
qiuqiuqiu
2026-06-19 12:39:49 +08:00
parent a74a5aaa04
commit 164451dda5
19 changed files with 353 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files
詳細設計書/詳細設計書_ZAN06UPD.md
+14 -10
View File
@@ -141,16 +141,20 @@
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（減算）＋COBOL SUBTRACT検証】
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
SQLCODE異常時は9100DBERRSORへ
2-2-5.OVT-MONTHLYから減算（2210MONTHLYSUBSOR）
【EXEC SQL UPDATE（減算）＋COBOL SUBTRACT検証】
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）