# 詳細設計書

## 基本情報

| # | 項目 | 内容 |
|---|------|------|
| 1 | システム名 | 残業統計管理システム |
| 2 | プログラムID | SUB01DAT |
| 3 | プログラム名 | 運用日付取得サブ |
| 4 | PGMタイプ | サブ |
| 5 | PGMパターン | - |
| 6 | 機能概要 | 現在日付を取得し、運用日付(YYYYMMDD)として返す |

※PGMタイプ：メイン、サブ
※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新

### 使用方法

```
  CALL 'SUB01DAT' USING  D01UBSPAR
```

### 入出力パラメータ

| ＣＯＰＹ句 | ZANDATAC |
|------------|----------|

| NO | 入出力区分 | 名称 | 属性 | 桁数 | 説明 |
|----|-----------|------|------|------|------|
| 1 | O | D01FKICOD | S9(4) COMP | 4 | 復帰コード(0000:正常) |
| 2 | O | D01UBSUDATE | 9(8) | 8 | 運用日付(YYYYMMDD) |

### リターンコード一覧

| NO | コード | 説明 |
|----|--------|------|
| 1 | 0000 | 正常終了 |

---

## 処理詳細

```
1.制御処理（0000MAINSOR）
  1-1.現在日時を取得する。
    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)。
```