Add KIN08DBU (勤怠DB更新処理) and KIN09CSV (CSV出力処理)
This commit is contained in:
qiuqiuqiu
@@ -0,0 +1,60 @@
|
||||
# KIN08DBU 使用資源一覧
|
||||
|
||||
## プログラム概要
|
||||
- **プログラムID**: KIN08DBU
|
||||
- **プログラム名**: 月次集計更新処理
|
||||
- **処理概要**: SYSIN制御カード（T/P/M）で処理対象を指定し、DAILY_RECORDSテーブルをDELETE/INSERT（日別→月次集計）し、MONTHLY_ABSENCEテーブルにUPSERT。ABSENCE_SUMMARYファイル（80B）に出力する。
|
||||
|
||||
## 使用ファイル
|
||||
|
||||
| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | 定義参照先 |
|
||||
|------|---------------|------|-------------|-----------|--------|-----------|
|
||||
| KIN08R01 | SYSIN | 順編成 | F (固定長) | 80B | - | JCL DD定義 |
|
||||
| KIN08W01 | ABSENCE-SUMMARY | 順編成 | F (固定長) | 80B | KIN08REC | COPY句定義書.md |
|
||||
|
||||
## 使用COPY句
|
||||
|
||||
| COPY句 | 用途 | 使用箇所 |
|
||||
|--------|------|---------|
|
||||
| KIN07REC | DAILY-RECORD（INSERT用ホスト変数参照） | FILE SECTION（SQL宿主） |
|
||||
| KIN08REC | W01出力レコード定義（ABSENCE-SUMMARY-REC） | FILE SECTION |
|
||||
| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE |
|
||||
| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE |
|
||||
|
||||
## 使用サブプログラム
|
||||
|
||||
| サブPGM | 役割 | CALL箇所 |
|
||||
|---------|------|---------|
|
||||
| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR |
|
||||
| SUB03END | ABEND処理 | 9999ABDSOR |
|
||||
|
||||
## 使用DB2テーブル
|
||||
|
||||
| テーブル名 | 操作種別 | 使用箇所 | SQL種別 |
|
||||
|-----------|---------|---------|--------|
|
||||
| DAILY_RECORDS | DELETE/INSERT | 1000PROCSOR | DELETE / INSERT |
|
||||
| MONTHLY_ABSENCE | SELECT/INSERT/UPDATE | 2000MAJSOR | SELECT COUNT / INSERT / UPDATE |
|
||||
|
||||
## 処理フロー
|
||||
1. 初期処理（開始メッセージ→OPEN SYSIN→SYSIN読込ループ）
|
||||
2. SYSINカード解析: GO TO DEPENDING ON でT/P/M分岐
|
||||
- Tカード(1110-TARGETSOR): UNSTRINGで対象社員一覧を内部表に格納
|
||||
- Pカード(1120-PERIODSOR): 年月範囲を設定
|
||||
- Mカード(1130-MODESOR): RESET（DELETE）/ UPDATEモード切替
|
||||
3. 主処理(2000MAJSOR): DAILY_RECORDSのSELECT→INSERT→集計テーブルに累積
|
||||
4. 月次UPDATE処理(3000UPDSOR): MONTHLY_ABSENCEにSELECT COUNT／INSERT／UPDATE
|
||||
5. 終了処理(4000MSGOUTSOR): 件数出力→CLOSE→終了メッセージ
|
||||
|
||||
## 使用構文（特記事項）
|
||||
|
||||
| 構文 | 使用箇所 | 備考 |
|
||||
|------|---------|------|
|
||||
| GO TO DEPENDING ON | 1100PARMSOR/1199-SYSIN-LOOP | T/P/Mカードパラグラフ分岐 |
|
||||
| UNSTRING | 1110-TARGETSOR/1120-PERIODSOR/1130-MODESOR | カンマ/区切り/代入符でカード分割 |
|
||||
| INSPECT TALLYING | 1110-TARGETSOR | UNSTRING後のtarget句末尾ゼロ数 |
|
||||
| COMPUTE ROUNDED ON SIZE ERROR | 2000MAJSOR | 丸め+サイズエラー検出 |
|
||||
| DELETE | 2100-DELETE-SQL | SQL: DAILY_RECORDS DELETE |
|
||||
| UPSERT（SELECT COUNT→INSERT/UPDATE） | 3000UPDSOR | 月次集計行の存在確認後分岐 |
|
||||
| OCCURS | WORKING-STORAGE | TARGET-EMP(100), 内部集計表(9999) |
|
||||
| INITIALIZE REPLACING | 1110-TARGETSOR | TARGET-TABLEの初期化 |
|
||||
| EXEC SQL INCLUDE | WORKING-STORAGE | SQLCA |
|
||||
@@ -0,0 +1,57 @@
|
||||
# KIN09CSV 使用資源一覧
|
||||
|
||||
## プログラム概要
|
||||
- **プログラムID**: KIN09CSV
|
||||
- **プログラム名**: CSV出力処理
|
||||
- **処理概要**: DAILY_RECORDSテーブルをCURSORで読込み、CSV形式に編集して出力。MODE=FULLで日別明細+月次サマリ、MODE=SHORTで月次サマリのみ。100行ごとにヘッダー再出力。
|
||||
|
||||
## 使用ファイル
|
||||
|
||||
| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 | 定義参照先 |
|
||||
|------|---------------|------|-------------|-----------|--------|-----------|
|
||||
| KIN09W01 | CSV-OUTPUT | 順編成 | F (固定長) | 200B | KIN09REC | COPY句定義書.md |
|
||||
|
||||
## 使用COPY句
|
||||
|
||||
| COPY句 | 用途 | 使用箇所 |
|
||||
|--------|------|---------|
|
||||
| KIN09REC | W01出力レコード定義（CSV-OUTPUT-REC） | FILE SECTION |
|
||||
| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE |
|
||||
| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE |
|
||||
|
||||
## 使用サブプログラム
|
||||
|
||||
| サブPGM | 役割 | CALL箇所 |
|
||||
|---------|------|---------|
|
||||
| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR |
|
||||
| SUB03END | ABEND処理 | 9999ABDSOR |
|
||||
|
||||
## 使用DB2テーブル
|
||||
|
||||
| テーブル名 | 操作種別 | 使用箇所 | SQL種別 |
|
||||
|-----------|---------|---------|--------|
|
||||
| DAILY_RECORDS | SELECT | 1200-DAILY-OPEN | DECLARE CURSOR / OPEN / FETCH / CLOSE |
|
||||
| MONTHLY_ABSENCE | SELECT | 2500-SHORT-MODE | DECLARE CURSOR / OPEN / FETCH / CLOSE |
|
||||
|
||||
## 処理フロー
|
||||
1. 初期処理（開始メッセージ→COMMAND-LINE解析→OPEN出力）
|
||||
2. ヘッダー出力（SHIFT JIS CSVヘッダー行）
|
||||
3. 日別明細ループ：DAILY_RECORDS CURSOR OPEN→FETCH→CSV編集（STRING WITH POINTER）→WRITE AFTER ADVANCING 1 LINE
|
||||
4. 100行ごとにヘッダー再出力（WRITE AFTER ADVANCING PAGE）
|
||||
5. MODE=SHORT: MONTHLY_ABSENCE CURSOR OPEN→FETCH→月次サマリCSV出力
|
||||
6. 終了処理（CLOSE→件数出力→終了メッセージ）
|
||||
|
||||
## 使用構文（特記事項）
|
||||
|
||||
| 構文 | 使用箇所 | 備考 |
|
||||
|------|---------|------|
|
||||
| ACCEPT FROM COMMAND-LINE | 1100PARMSOR | "YEARMONTH=202605 MODE=FULL"解析 |
|
||||
| STRING DELIMITED BY | 2000MAJSOR/2500-SHORT-MODE | CSV行編集（WITH POINTER） |
|
||||
| WRITE AFTER ADVANCING PAGE | 2000MAJSOR | 改ページ＋ヘッダー再出力 |
|
||||
| WRITE AFTER ADVANCING 2 LINES | 2500-SHORT-MODE | ヘッダー後改行 |
|
||||
| WRITE AFTER ADVANCING 1 LINE | 2000MAJSOR/2500-SHORT-MODE | データ行改行 |
|
||||
| INSPECT REPLACING | 2000MAJSOR | CSVカンマ・改行サニタイズ |
|
||||
| DECLARE CURSOR / OPEN / FETCH / CLOSE | 1200-DAILY-OPEN/2500-SHORT-MODE | 2重CURSOR（DAILY→MONTHLY） |
|
||||
| OCCURS | WORKING-STORAGE | TARGET-EMP(100) |
|
||||
| INITIALIZE | 1100PARMSOR/1200-DAILY-OPEN | 変数初期化 |
|
||||
| MOVE CORRESPONDING | 2000MAJSOR | HV → CSV行項目編集 |
|
||||
Reference in New Issue
Block a user