勤怠管理システム production 定版

詳細設計書/詳細設計書_SUB01DAT.md

@@ -32,7 +32,6 @@
 | NO | コード | 説明 |
 |----|--------|------|
 | 1 | 0000 | 正常終了 |
-| 2 | 0001 | 日付不正(月01〜12/日01〜31範囲外) |
 
 ---
 
@@ -41,16 +40,10 @@
 ```
 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)。
+    MOVE FUNCTION CURRENT-DATE TO WRK-SYS-DATE.
+  1-2.YYYYMMDD部分を抽出する。
+    MOVE WRK-SYS-DATE(1:8) TO D01UBSUDATE.
+  1-3.正常終了
+    MOVE ZERO TO D01FKICOD.
+  1-4.復帰(GOBACK)。
 ```