JIN04PRT 使用資源一覧
プログラム概要
- プログラムID: JIN04PRT
- プログラム名: 社員台帳印刷処理
- 処理概要: EMP-VALID（JIN01KNS出力）を読み込み、LINAGE制御で社員台帳を印刷出力する
使用ファイル
| DD名 |
ファイル識別子 |
編成 |
レコード形式 |
レコード長 |
COPY句 |
| JIN04R01 |
EMP-VALID |
順編成 |
F (固定長) |
200B |
JIN01REC |
| JIN04W01 |
JIN-LEDGER |
順編成 |
F (固定長) |
132B |
JIN04RPT-REC |
使用COPY句
| COPY句 |
用途 |
使用箇所 |
| JIN01REC |
社員正常レコード定義（R01入力） |
FILE SECTION |
| JIN04RPT-REC |
台帳印刷レコード定義（W01出力） |
FILE SECTION |
| JINDATAC |
運用日付サブPGM連絡領域 |
WORKING-STORAGE |
| JINMSGAC |
メッセージ編集サブPGM連絡領域 |
WORKING-STORAGE |
| JINENDAC |
ABENDサブPGM連絡領域 |
WORKING-STORAGE |
使用サブプログラム
| サブPGM |
役割 |
CALL箇所 |
| SUB01DAT |
運用日付取得 |
1000ITTSOR |
| SUB02MSG |
メッセージ編集出力 |
1000ITTSOR, 4000STPSOR |
| SUB03END |
ABEND処理 |
4000STPSOR |
使用DB2テーブル
なし（DB操作なし）
処理フロー
- 初期処理（開始ﾒｯｾｰｼﾞ→日付/時刻取得→運用日付取得→OPEN→ヘッダー出力→R01初回読込）
- R01読込→明細行編集→WRITEループ（AT END-OF-PAGEでヘッダー再出力）
- 終了処理（CLOSE→件数出力→終了ﾒｯｾｰｼﾞ→RETURN-CODE設定）
