Files
cobol-tna-system/使用資源一覧/KYU08PRI_使用資源一覧.md
T
qiuqiuqiu 75475b3fa1 Add Subsystem C (KYU01-09): all 9 programs, design docs, resource lists, DDL, COPY, coverage stats
KYU programs for payroll calculation:
  KYU01CVT - CSV conversion
  KYU02REG - attendance registration
  KYU03AGG - aggregation
  KYU04CAL - salary calculation
  KYU05DED - deduction calculation
  KYU06UPD - DB update
  KYU07DIV - division/pay-slip
  KYU08PRI - print output
  KYU09MRG - merge output

Includes:
  - Source programs (9 .cbl)
  - Compiled executables (9 .exe)
  - Detailed design docs (9 + sign-off)
  - Basic design doc (subsystem C overview)
  - Resource lists (9)
  - DDL schema (schema_kyu.sql)
  - COPY book (KYU99REC.cpy)
  - Coverage statistics update
  - DB definition update (STATUS values)
  - Overall system design document
2026-07-09 08:09:59 +08:00

46 lines
1.9 KiB
Markdown
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
# KYU08PRI 使用資源一覧
## プログラム概要
- **プログラムID**: KYU08PRI
- **プログラム名**: 給与明細印刷処理
- **処理概要**: JCL SORT済みSALARY-NETを給与明細(LINAGE)として印刷出力する。1社員1ページ。
## 使用ファイル
| DD名 | ファイル識別子 | 編成 | レコード形式 | レコード長 | COPY句 |
|------|---------------|------|-------------|-----------|--------|
| KYU08R01 | SALARY-NETSORT済) | 順編成 | F (固定長) | 200B | KYU04REC |
| KYU08W01 | PAYSLIP印刷(LINAGE | 順編成 | F (固定長) | 200B | KYU05REC |
| KYU08W02 | ERROR-LOG | 順編成 | V (可変長) | 200B | KYU99REC |
## 使用COPY句
| COPY句 | 用途 | 使用箇所 |
|--------|------|---------|
| KYU04REC | レコード定義(R01入力ファイル) | FILE SECTION |
| KYU05REC | レコード定義(W01印刷出力ファイル) | FILE SECTION |
| KYU99REC | エラーログレコード定義(W02出力ファイル) | FILE SECTION |
| ZANDATAC | 運用日付サブPGM連絡領域 | WORKING-STORAGE |
| ZANMSGAC | メッセージ編集サブPGM連絡領域 | WORKING-STORAGE |
| ZANENDAC | ABENDサブPGM連絡領域 | WORKING-STORAGE |
## 使用サブプログラム
| サブPGM | 役割 | CALL箇所 |
|---------|------|---------|
| SUB01DAT | 運用日付取得 | 1000ITTSOR |
| SUB02MSG | メッセージ編集出力 | 4000MSGOUTSOR |
| SUB03END | ABEND処理 | 9999ABDSOR |
## 使用DB2テーブル
なし(DB操作なし)
## 処理フロー
1. 初期処理(開始メッセージ→運用日付取得→OPEN→初回読込)
2. ヘッダ出力(BEFORE ADVANCING PAGE + ページ番号)
3. 明細行編集(社員番号・氏名・基本給・差引支給額)
4. 明細WRITEAT END-OF-PAGEでフッタ→改ページ)
5. フッタ出力(BEFORE ADVANCING PAGE
6. 終了処理(CLOSE→件数出力→終了メッセージ)