qiuqiuqiu/cobol-tna-system
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add Subsystem D (SHA01-10): social insurance subsystem + design-resource consistency fixes

Browse Source 
- 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
This commit is contained in:
qiuqiuqiu
2026-07-15 20:32:51 +08:00
parent 4a244a47ce
commit 71232af484
72 changed files with 8028 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cpy/KYU01REC.cpy
+12
View File
@@ -0,0 +1,12 @@
* EMP-RECORD 社員マスタ固定長レコード 80B
* KYU01CVT出力 / KYU02REG入力
03 (A)EMP-ID PIC X(008).
03 (A)EMP-NAME PIC X(040).
03 (A)DEPT-CODE PIC X(002).
03 (A)REGION-CODE PIC X(002).
03 (A)CATEGORY-CODE PIC X(003).
03 (A)BASE-SALARY PIC 9(009).
03 (A)HOURLY-RATE PIC 9(007).
03 (A)DEPENDENT-COUNT PIC 9(002).
03 (A)STATUS PIC X(001).
03 FILLER PIC X(006).
cpy/KYU02REC.cpy
+7
View File
@@ -0,0 +1,7 @@
* ABSENCE-AGGREGATE 欠勤集約レコード 80B
* KYU03AGG出力 / KYU04CAL入力
03 (A)EMP-ID PIC X(008).
03 (A)YEAR-MONTH PIC X(006).
03 (A)TOTAL-HOURS PIC 9(004)V9(001).
03 (A)ABSENT-COUNT PIC 9(002).
03 FILLER PIC X(059).
cpy/KYU03REC.cpy
+15
View File
@@ -0,0 +1,15 @@
* SALARY-DETAIL 給与明細レコード 240B
* KYU04CAL出力 / KYU05DED入力
03 (A)EMP-ID PIC X(008).
03 (A)EMP-NAME PIC X(040).
03 (A)DEPT-CODE PIC X(002).
03 (A)BASE-SALARY PIC 9(009).
03 (A)OVT-AMOUNT PIC 9(009).
03 (A)HOLIDAY-AMOUNT PIC 9(009).
03 (A)ABSENT-DEDUCT PIC 9(009).
03 (A)GROSS-PAYMENT PIC 9(009).
03 (A)OVT-HOURS PIC 9(004)V9(001).
03 (A)ABSENT-HOURS PIC 9(004)V9(001).
03 (A)ATTEND-TYPE PIC X(001).
03 (A)ALLOWANCE-TYPE PIC X(003).
03 FILLER PIC X(131).
cpy/KYU04REC.cpy
+16
View File
@@ -0,0 +1,16 @@
* SALARY-NET / DEPT-OUT 差引支給額レコード 200B
* KYU05DED出力 / KYU07DIV・KYU08PRI・KYU09MRG・KYU06UPD入力
03 (A)EMP-ID PIC X(008).
03 (A)REC-TYPE PIC X(001).
03 (A)EMP-NAME PIC X(040).
03 (A)DEPT-CODE PIC X(002).
03 (A)REGION-CODE PIC X(002).
03 (A)CATEGORY-CODE PIC X(003).
03 (A)GROSS-PAYMENT PIC 9(009).
03 (A)INCOME-TAX PIC 9(009).
03 (A)INSURANCE PIC 9(009).
03 (A)RESIDENT-TAX PIC 9(009).
03 (A)NET-PAYMENT PIC 9(009).
03 (A)TAXABLE-INCOME PIC 9(009).
03 (A)PAY-AMOUNT PIC 9(009).
03 FILLER PIC X(081).
cpy/KYU05REC.cpy
+12
View File
@@ -0,0 +1,12 @@
* PAYSLIP 給与明細印刷レコード 200B
* KYU08PRI出力
03 (A)EMP-ID PIC X(008).
03 FILLER PIC X(002).
03 (A)EMP-NAME PIC X(020).
03 FILLER PIC X(002).
03 (A)BASIC-SALARY PIC Z(008)9.
03 FILLER PIC X(002).
03 (A)NET-PAYMENT PIC Z(008)9.
03 FILLER PIC X(002).
03 (A)PAGE-TITLE PIC X(040).
03 FILLER PIC X(106).
cpy/KYU06REC.cpy
+8
View File
@@ -0,0 +1,8 @@
* PAYMENT-DATA 支給データレコード 200B
* KYU09MRG出力
03 (A)EMP-ID PIC X(008).
03 (A)PAY-TYPE PIC X(001).
03 (A)AMOUNT PIC 9(009).
03 (A)BANK-CODE PIC X(004).
03 (A)ACCOUNT-NO PIC 9(008).
03 FILLER PIC X(170).
cpy/SHA01REC.cpy
+16
View File
@@ -0,0 +1,16 @@
*
* 被保険者レコード 200B SHA01CVT出力 / SHA04TWO入力
*
03 (A)EMP-ID PIC 9(008).
03 (A)INSURED-NO PIC X(010).
03 (A)OFFICE-NO PIC X(004).
03 (A)INSURER-CODE PIC X(004).
03 (A)EMP-NAME PIC X(040).
03 (A)EMP-KANA PIC X(020).
03 (A)BIRTH-DATE PIC 9(008).
03 (A)SEX PIC X(001).
03 (A)ENT-DATE PIC 9(008).
03 (A)HEALTH-INS-TYPE PIC X(001).
03 (A)PENSION-TYPE PIC X(001).
03 (A)STATUS PIC X(001).
03 (A)FILLER PIC X(094).
cpy/SHA02REC.cpy
+13
View File
@@ -0,0 +1,13 @@
*
* 従業員保険情報レコード 200B SHA02MNC出力
*
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)DEPT-CODE PIC 9(002).
03 (A)BASE-SALARY PIC 9(009).
03 (A)MONTHLY-AMOUNT PIC 9(009).
03 (A)GRADE-CODE PIC 9(002).
03 (A)HEALTH-INS-TYPE PIC X(001).
03 (A)PENSION-TYPE PIC X(001).
03 (A)INSURER-CODE PIC X(004).
03 (A)FILLER PIC X(124).
cpy/SHA03REC.cpy
+13
View File
@@ -0,0 +1,13 @@
*
* 保険料計算詳細レコード 300B SHA03MNP出力
*
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)INSURANCE-TYPE PIC X(001).
03 (A)GRADE-CODE PIC 9(002).
03 (A)MONTHLY-AMOUNT PIC 9(009).
03 (A)HEALTH-RATE PIC 9(007).
03 (A)PENSION-RATE PIC 9(007).
03 (A)HEALTH-PREMIUM PIC 9(009).
03 (A)PENSION-PREMIUM PIC 9(009).
03 (A)FILLER PIC X(208).
cpy/SHA04REC.cpy
+13
View File
@@ -0,0 +1,13 @@
*
* 事業所保険者付与一覧レコード 200B SHA04TWO出力
*
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)OFFICE-NO PIC X(004).
03 (A)OFFICE-NAME PIC X(040).
03 (A)PREF-CODE PIC 9(002).
03 (A)INSURER-CODE PIC X(004).
03 (A)INSURER-NAME PIC X(060).
03 (A)MONTHLY-AMOUNT PIC 9(009).
03 (A)GRADE-CODE PIC 9(002).
03 (A)FILLER PIC X(031).
cpy/SHA05REC.cpy
+11
View File
@@ -0,0 +1,11 @@
*
* 等級改定結果レコード 200B SHA05TWN出力
*
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)REVISED-YM PIC 9(006).
03 (A)OLD-GRADE PIC 9(002).
03 (A)NEW-GRADE PIC 9(002).
03 (A)AVG-STD-MONTHLY PIC 9(009).
03 (A)REVISED-TYPE PIC X(001).
03 (A)FILLER PIC X(132).
cpy/SHA06REC.cpy
+14
View File
@@ -0,0 +1,14 @@
*
* 保険料確定結果レコード 300B SHA06TWM出力
*
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)INSURANCE-TYPE PIC X(001).
03 (A)GRADE-CODE PIC 9(002).
03 (A)MONTHLY-AMOUNT PIC 9(009).
03 (A)HEALTH-RATE PIC 9(007).
03 (A)PENSION-RATE PIC 9(007).
03 (A)HEALTH-PREMIUM PIC 9(009).
03 (A)PENSION-PREMIUM PIC 9(009).
03 (A)TOTAL-PREMIUM PIC 9(009).
03 (A)FILLER PIC X(199).
cpy/SHA07REC.cpy
+14
View File
@@ -0,0 +1,14 @@
*
* 資格異動レコード 200B SHA07KBR出力
* REC-TYPE: S=サマリ / D=明細
*
03 (A)CHG-ID PIC 9(009).
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)CHG-DATE PIC 9(008).
03 (A)CHG-TYPE PIC X(002).
03 (A)INSURER-CODE PIC X(004).
03 (A)PREV-INSURER PIC X(004).
03 (A)REASON PIC X(040).
03 (A)REC-TYPE PIC X(001).
03 (A)FILLER PIC X(084).
cpy/SHA08REC.cpy
+15
View File
@@ -0,0 +1,15 @@
*
* 届出書データレコード 300B SHA08SRT出力
*
03 (A)EMP-ID PIC 9(008).
03 (A)EMP-NAME PIC X(040).
03 (A)OFFICE-NO PIC X(004).
03 (A)OFFICE-NAME PIC X(040).
03 (A)INSURER-CODE PIC X(004).
03 (A)INSURER-NAME PIC X(060).
03 (A)PREF-CODE PIC 9(002).
03 (A)MONTHLY-AMOUNT PIC 9(009).
03 (A)GRADE-CODE PIC 9(002).
03 (A)REPORT-TYPE PIC X(002).
03 (A)REPORT-DATE PIC 9(008).
03 (A)FILLER PIC X(121).
cpy/SHA09REC.cpy
+6
View File
@@ -0,0 +1,6 @@
*
* 分割出力レコード 300B SHA09S25 / SHA10S10出力
*
03 (A)PREF-CODE PIC 9(002).
03 (A)INSURER-CODE PIC X(004).
03 (A)RPT-BODY PIC X(294).
cpy/SHACHKAC.cpy
+7
View File
@@ -0,0 +1,7 @@
*
* SUB04CHK 連絡領域（92B）
*
01 C01CHKPAR.
03 C01CHKTYP PIC X(008).
03 C01CHKDAT PIC X(080).
03 C01CHKRRC PIC 9(004).
cpy/SHADATAC.cpy
+6
View File
@@ -0,0 +1,6 @@
*
* SUB01DAT 連絡領域（10B）
*
01 D01UBSPAR.
03 D01FKICOD PIC S9(004) COMP.
03 D01UBSUDATE PIC 9(008).
cpy/SHAENDAC.cpy
+5
View File
@@ -0,0 +1,5 @@
*
* SUB03END 連絡領域（3B）
*
01 E01ABDPAR.
03 E01ABDCOD PIC 9(003).
cpy/SHAMSGAC.cpy
+15
View File
@@ -0,0 +1,15 @@
*
* SUB02MSG 連絡領域（303B）
*
01 M00MHOPAR.
03 M00MSGCOD PIC 9(003).
03 M00UMKDATS22-01 PIC X(030).
03 M00UMKDATS22-02 PIC X(030).
03 M00UMKDATS22-03 PIC X(030).
03 M00UMKDATS22-04 PIC X(030).
03 M00UMKDATS22-05 PIC X(030).
03 M00UMKDATS22-06 PIC X(030).
03 M00UMKDATS22-07 PIC X(030).
03 M00UMKDATS22-08 PIC X(030).
03 M00UMKDATS22-09 PIC X(030).
03 M00UMKDATS22-10 PIC X(030).