# 詳細設計書 ## 基本情報 | # | 項目 | 内容 | |---|------|------| | 1 | システム名 | 残業統計管理システム | | 2 | プログラムID | ZAN01CHK | | 3 | プログラム名 | 残業申請振分処理 | | 4 | PGMタイプ | メイン | | 5 | PGMパターン | 振り分け | | 6 | 機能概要 | CSV形式の残業申請ファイルを読み込み、ステータスによって振り分ける。 | | 7 | | ステータス0/1:有効申請としてOVT-VALIDに出力 | | 8 | | ステータス9:取消申請としてOVT-CANCELに出力 | | 9 | | その他:エラーとしてERROR-LOGに出力 | ※PGMタイプ:メイン、サブ ※PGMパターン:マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新 ### 前提条件 | NO | 対象ファイル | 条件 | |----|-------------|------| | 1 | OVT-APPLY(CSV) | ソート不要。CSV形式(カンマ区切り) | ### 使用ファイル一覧 | NO | 使用ファイル/DB名 | 識別子 | DD名 | I/O | COPY群 | 形式 | ブロック | レコード長 | 媒体 | 備考 | |----|------------------|--------|------|-----|--------|------|---------|-----------|------|------| | 1 | OVT-APPLY | R01 | ZAN01R01 | I | 自前(80B) | F | | 80 | PS | CSV形式 | | 2 | OVT-VALID | W01 | ZAN01W01 | O | ZAN01REC | FB | | 80 | PS | | | 3 | OVT-CANCEL | W02 | ZAN01W02 | O | ZAN01REC | FB | | 80 | PS | | | 4 | ERROR-LOG | W03 | ZAN01W03 | O | ZAN05REC | VB | | 200 | PS | | ### キー項目一覧 | NO | ファイル名 | ソート条件(キー項目) | キー条件(マッチング/キーブレイク) | |----|-----------|---------------------|-------------------------------------------| | 1 | OVT-APPLY | なし | なし | ### 使用モジュール一覧 | NO | 機能 | プログラムID | 使用COPY名 | |----|------|-------------|-----------| | 1 | 運用日付取得SUB | SUB01DAT | ZANDATAC | | 2 | メッセージ編集出力SUB | SUB02MSG | ZANMSGAC | | 3 | ABEND処理SUB | SUB03END | ZANENDAC | | 4 | 項目チェックSUB | SUB04CHK | ZANCHKAC | --- ## 処理詳細 ``` 1.初期処理(1000ITTSOR) 1-1.開始メッセージ出力 【メッセージ編集】 メッセージ番号:1(開始メッセージ) 1-2.コンパイル日時出力 【メッセージ編集】 メッセージ番号:33(コンパイル日時) PARM1:コンパイル日時 PARM2:'COMPILED' 1-3.ワークエリアの初期化 1-4.運用日付取得SUB(SUB01DAT)により運用日を取得する。 復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。 【メッセージ編集】 メッセージ番号:5(サブエラー) PARM1:'SUB01DAT' PARM2:復帰コード 【ABEND処理SUB】 ABENDコード:999 1-5.使用ファイルのオープン 1-6.R01を読み込む。(1100R01INNSOR)(1回目) 2.主処理(2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す) 2-1.CSVの分解 UNSTRINGでカンマ区切りのCSVを各項目に分解する。(2010CSVSOR) 2-2.ステータス判定 2-2-1.ステータスが0または1の場合 項目チェックを実施し、エラーがあればERROR-LOGに出力、なければOVT-VALIDに出力。(2020VALIDATESOR) 2-2-1-1.日付チェック(SUB04CHK)。エラー→W03出力 2-2-1-2.開始時刻>=1830チェック。NG→W03出力 2-2-1-3.開始時刻<終了時刻チェック。NG→W03出力 2-2-1-4.時間差>=30分チェック。NG→W03出力 2-2-1-5.すべて通過→W01出力 2-2-2.ステータスが9の場合 OVT-CANCELにそのまま出力する。(2030CANCELSOR) 2-2-3.その他の場合 ERROR-LOGに出力する。(2040ERRORSOR) 2-3.R01を読み込む。(1100R01INNSOR)(2件目以降) 3.終了処理(3000STPSOR) 3-1.入出力ファイルのクローズ 3-2.入出力件数出力メッセージ出力 【入力メッセージ編集】 メッセージ番号:6(入力件数メッセージ) PARM1:当該入力ファイルのDD名 PARM2:当該入力ファイルの件数 【出力メッセージ編集】 メッセージ番号:7(出力件数メッセージ) PARM1:当該出力ファイルのDD名 PARM2:当該出力ファイルの件数 3-3.終了メッセージ出力 【メッセージ編集】 メッセージ番号:2(終了メッセージ) ``` --- ## 出力レコード定義 ### 出力ファイル1(W01/OVT-VALID) | No | 項目名 | 設定元 | 備考 | |----|--------|--------|------| | 1 | APPL-ID | CSV同項目を設定 | | | 2 | EMP-ID | CSV同項目を設定 | | | 3 | APPL-DATE | CSV同項目を設定 | | | 4 | START-TIME | CSV同項目を設定 | | | 5 | END-TIME | CSV同項目を設定 | | | 6 | STATUS | CSV同項目を設定 | 0または1 | | 7 | OVT-TYPE | CSV同項目を設定 | | | 8 | FILLER | CSV同項目を設定 | | ### 出力ファイル2(W02/OVT-CANCEL) | No | 項目名 | 設定元 | 備考 | |----|--------|--------|------| | 1 | APPL-ID | CSV同項目を設定 | | | 2 | EMP-ID | CSV同項目を設定 | | | 3 | APPL-DATE | CSV同項目を設定 | | | 4 | START-TIME | CSV同項目を設定 | | | 5 | END-TIME | CSV同項目を設定 | | | 6 | STATUS | CSV同項目を設定 | 9 | | 7 | OVT-TYPE | CSV同項目を設定 | | | 8 | FILLER | CSV同項目を設定 | | ### 出力ファイル3(W03/ERROR-LOG) | No | 項目名 | 設定元 | 備考 | |----|--------|--------|------| | 1 | ERR-CATEGORY | 01で固定 | | | 2 | ERR-DETAIL | STRINGで編集 | エラー内容 |