Initial import: 子系统B 前三本程序 production 资源

2026-06-15 08:12:54 +08:00
commit 9813dd7772
26 changed files with 2655 additions and 0 deletions
@@ -0,0 +1,56 @@
+# 詳細設計書
+
+## 基本情報
+
+| # | 項目 | 内容 |
+|---|------|------|
+| 1 | システム名 | 残業統計管理システム |
+| 2 | プログラムID | SUB01DAT |
+| 3 | プログラム名 | 運用日付取得サブ |
+| 4 | PGMタイプ | サブ |
+| 5 | PGMパターン | - |
+| 6 | 機能概要 | 現在日付を取得し、運用日付(YYYYMMDD)として返す |
+
+### 使用方法
+
+```
+  CALL 'SUB01DAT' USING  D01UBSPAR
+```
+
+### 入出力パラメータ
+
+| ＣＯＰＹ句 | ZANDATAC |
+|------------|----------|
+
+| NO | 入出力区分 | 名称 | 属性 | 桁数 | 説明 |
+|----|-----------|------|------|------|------|
+| 1 | O | D01FKICOD | S9(4) COMP | 4 | 復帰コード(0000:正常) |
+| 2 | O | D01UBSUDATE | 9(8) | 8 | 運用日付(YYYYMMDD) |
+
+### リターンコード一覧
+
+| NO | コード | 説明 |
+|----|--------|------|
+| 1 | 0000 | 正常終了 |
+| 2 | 0001 | 日付不正(月01〜12/日01〜31範囲外) |
+
+---
+
+## 処理詳細
+
+```
+1.制御処理（0000MAINSOR）
+  1-1.現在日時を取得する。
+    ACCEPT WRK-SYS-DATE-14 FROM DATE YYYYMMDD.
+  1-2.年月日を個別に抽出する。
+    DIVIDE WRK-SYS-DATE-14 BY 10000 GIVING WRK-YYYY REMAINDER WRK-WK.
+    DIVIDE WRK-WK BY 100 GIVING WRK-MM REMAINDER WRK-DD.
+  1-3.月日チェック
+    1-3-1.WRK-MM < 1 OR WRK-MM > 12
+      → D01FKICOD = 0001 を設定し、1-6へ。
+    1-3-2.WRK-DD < 1 OR WRK-DD > 31
+      → D01FKICOD = 0001 を設定し、1-6へ。
+  1-4.D01UBSUDATEにWRK-SYS-DATE-14を設定する。
+  1-5.D01FKICOD = 0000 を設定する。
+  1-6.復帰(GOBACK)。
+```