qiuqiuqiu
b3e800e601
- 全6プログラム（ZAN01CHK～ZAN06UPD）ソース・実行ファイル - 5サブプログラム（SUB01DAT～SUB05TIM）ソース・DLL - 10 COPY書式ファイル - 詳細設計書12ファイル - サブシステムB全体設計書 - bin/配下の実行ファイル资産
1.4 KiB
1.4 KiB
詳細設計書
基本情報
| # | 項目 | 内容 |
|---|---|---|
| 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)。