ZAN01CHK 使用資源一覧
プログラム概要
- プログラムID: ZAN01CHK
- プログラム名: 残業申請振分処理
- 処理概要: CSV形式の残業申請ファイルを読み込み、ステータスによって適切に振り分ける。
使用ファイル
| DD名 |
ファイル識別子 |
編成 |
レコード形式 |
レコード長 |
COPY句 |
| ZAN01R01 |
入力CSV |
順編成 |
F (固定長) |
80B |
なし（自前定義） |
| ZAN01W01 |
OVT-APPLY |
順編成 |
F (固定長) |
80B |
ZAN01REC |
| ZAN01W02 |
OVT-CANCEL |
順編成 |
F (固定長) |
80B |
ZAN01REC |
| ZAN01W03 |
ERROR-LOG |
順編成 |
V (可変長) |
200B |
ZAN05REC |
使用COPY句
| COPY句 |
用途 |
使用箇所 |
| ZAN01REC |
レコード定義（W01/W02出力ファイル） |
FILE SECTION |
| ZAN05REC |
エラーログレコード定義（W03出力ファイル） |
FILE SECTION |
| ZANDATAC |
運用日付サブPGM連絡領域 |
WORKING-STORAGE |
| ZANMSGAC |
メッセージ編集サブPGM連絡領域 |
WORKING-STORAGE |
| ZANENDAC |
ABENDサブPGM連絡領域 |
WORKING-STORAGE |
| ZANCHKAC |
項目チェックサブPGM連絡領域 |
WORKING-STORAGE |
使用サブプログラム
| サブPGM |
役割 |
CALL箇所 |
| SUB01DAT |
運用日付取得 |
1000ITTSOR |
| SUB02MSG |
メッセージ編集出力 |
4000MSGOUTSOR |
| SUB03END |
ABEND処理 |
9999ABDSOR |
| SUB04CHK |
日付/社員番号妥当性チェック |
2020VALIDATESOR |
使用DB2テーブル
なし（DB操作なし）
処理フロー
- 初期処理（開始ﾒｯｾｰｼﾞ→運用日付取得→OPEN→初回読込）
- CSV分解（UNSTRING）
- ステータス判定
- ステータス'0'/'1'（有効）→ 項目チェック（SUB04CHK）→ W01出力
- ステータス'9'（取消）→ W02出力
- その他（エラー）→ W03出力
- 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ）
qiuqiuqiu