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

This commit is contained in:
qiuqiuqiu
2026-06-15 08:12:54 +08:00
commit 9813dd7772
26 changed files with 2655 additions and 0 deletions
@@ -0,0 +1,64 @@
# 詳細設計書
## 基本情報
| # | 項目 | 内容 |
|---|------|------|
| 1 | システム名 | 残業統計管理システム |
| 2 | プログラムID | SUB02MSG |
| 3 | プログラム名 | メッセージ編集出力サブ |
| 4 | PGMタイプ | サブ |
| 5 | PGMパターン | - |
| 6 | 機能概要 | メッセージ番号とパラメータを編集し、メッセージログファイルへ出力する。 |
### 使用方法
```
CALL 'SUB02MSG' USING M00MHOPAR
```
### 入出力パラメータ
| COPY句 | ZANMSGAC |
|------------|----------|
| NO | 入出力区分 | 名称 | 属性 | 桁数 | 説明 |
|----|-----------|------|------|------|------|
| 1 | I | M00MSGCOD | 9(3) | 3 | メッセージ番号 |
| 2 | I | M00UMKDATS22-01 | X(30) | 30 | パラメータ1 |
| 3 | I | M00UMKDATS22-02 | X(30) | 30 | パラメータ2 |
| 4 | I | M00UMKDATS22-03 | X(30) | 30 | パラメータ3 |
| 5 | I | M00UMKDATS22-04 | X(30) | 30 | パラメータ4 |
| 6 | I | M00UMKDATS22-05 | X(30) | 30 | パラメータ5 |
| 7 | I | M00UMKDATS22-06 | X(30) | 30 | パラメータ6 |
| 8 | I | M00UMKDATS22-07 | X(30) | 30 | パラメータ7 |
| 9 | I | M00UMKDATS22-08 | X(30) | 30 | パラメータ8 |
| 10 | I | M00UMKDATS22-09 | X(30) | 30 | パラメータ9 |
| 11 | I | M00UMKDATS22-10 | X(30) | 30 | パラメータ10 |
### リターンコード一覧
| NO | コード | 説明 |
|----|--------|------|
| 1 | 0000 | 正常終了(出力完了) |
| 2 | 0001 | ファイルオープン失敗 |
---
## 処理詳細
```
1.制御処理(0000MAINSOR
1-1.メッセージファイル(MSGLOG)のオープン状態を確認する。
1-1-1.未オープンの場合
OPEN EXTEND MSGLOG を実行する。
1-1-1-1.オープン失敗の場合
DISPLAY でエラーメッセージを出力し、1-4へ。
1-2.メッセージ行(MSG-LINE)を編集する。
1-2-1.現在日時を取得する。
1-2-2.TIMESTAMP、M00MSGCOD、M00UMKDATS22-01〜10を MSG-LINE に編集する。
1-3.MSGLOGにMSG-LINEを出力する。
1-3-1.WRITE失敗の場合
RETURN-CODEに0001を設定し、1-4へ。
1-4.復帰(GOBACK)。
```