qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Files
71232af484bd2d5d81690036c912306c3daaf11b
cobol-tna-system/使用資源一覧/SHA08SRT_使用資源一覧.md
T
qiuqiuqiu 71232af484 Add Subsystem D (SHA01-10): social insurance subsystem + design-resource consistency fixes 
- Add SHA01CVT-SHA10S10: all 10 programs, COPY books (13), binaries,
  design docs, resource usage lists, DDL schema_sha.sql
- Add KYU01REC-KYU06REC COPY books (previously missing from git)
- Fix design-code inconsistencies detected in audit:
  - SHA07KBR: remove dead SHACHKAC COPY (SUB04CHK never called)
  - SHA02MNC: 2020TYPSOR paragraph -> inline EVALUATE; SUB04CHK = PARM val
  - SHA05TWN: REVISED-TYPE values 'C'/'N' -> 'A'(定期決定)/'B'(月変)
  - SHA03MNP: 2010CALCSOR/2020WRTSOR -> inline implementation
  - SHA04TWO: remove GRADE-HISTORY from DB table list (not accessed)
  - SHA06TWM: add SALARYDB.EMP-MASTER to DB table list
  - SHA10S10: fix error file W99OUTFIL, 10+1 file count
- Fix comment column alignment (Area A col 7) in SHA07KBR, SHA08SRT
- Update KYU source/design docs: BOM removal, classification comment cleanup
- Update README: Subsystem D added, program count 39
2026-07-15 20:32:51 +08:00

2.3 KiB
Raw Blame History

SHA08SRT 使用資源一覧

プログラム概要

  • プログラムID: SHA08SRT
  • プログラム名: 届出書データSORT編集処理
  • 処理概要: GRADED-LISTをINPUT PROCEDUREで全件RELEASEし、MONTHLY-AMOUNT/GRADE-CODEを保持したままPREF-CODE・OFFICE-NO・EMP-ID昇順SORT後、OUTPUT PROCEDUREでRETURNしてRPT-DATA出力する。GRADED-LISTはSHA04TWOのマッチング成功レコードであり全件有効のためSTATUSフィルタは不要。

使用ファイル

DD名 ファイル識別子 編成 レコード形式 レコード長 COPY句
SHA08R01 GRADED-LIST 順編成 F (固定長) 200B SHA04REC
SORTWORK SD-SORTWORK — — 200B なし（自前SD定義）
SHA08W01 RPT-DATA 順編成 F (固定長) 300B SHA08REC
SHA08W02 ERROR-LOG 順編成 V (可変長) 200B ZAN05REC

使用COPY句

COPY句 用途 使用箇所
SHA04REC GRADED-LIST レコード定義（R01入力ファイル） FILE SECTION
SHA08REC RPT-DATA レコード定義（W01出力ファイル） FILE SECTION
ZAN05REC エラーログレコード定義（W02出力ファイル） FILE SECTION
SHADATAC 運用日付サブPGM連絡領域 WORKING-STORAGE
SHAMSGAC メッセージ編集サブPGM連絡領域 WORKING-STORAGE
SHAENDAC ABENDサブPGM連絡領域 WORKING-STORAGE

使用サブプログラム

サブPGM 役割 CALL箇所
SUB01DAT 運用日付取得 1000ITTSOR
SUB02MSG メッセージ編集出力 4000MSGOUTSOR
SUB03END ABEND処理 9999ABDSOR

使用DB2テーブル

なし（DB操作なし）

処理フロー

  1. 初期処理（開始メッセージ→SUB01DAT運用日付取得→出力ファイルOPEN→入力ファイルOPEN）
  2. SORT実行
    • INPUT PROCEDURE: R01全件読込→MONTHLY-AMOUNT/GRADE-CODEを含め全項目をSORTRECに転記→全件RELEASE
    • SORT KEY: PREF-CODE昇順、OFFICE-NO昇順、EMP-ID昇順
    • OUTPUT PROCEDURE: RETURN→SHA08REC編集（MONTHLY-AMOUNT/GRADE-CODEはSR→W01転記）→REPORT-TYPE/REPORT-DATE設定→W01出力
  3. SORT結果判定（RETURN-CODE≠0→ABEND）
  4. 終了処理（CLOSE→件数出力→終了メッセージ）
Reference in New Issue View Git Blame Copy Permalink